New Set/PCW

on *:Text:!pcw*:#:{
  inc %pcwcount
  notice $nick 1- 12The current pc-world is:4 %pc 1- 12Last update:4 $duration($calc($ctime - %pcc)) 12ago 1- 12Last updated by:4 %pcwnick 1-12 The "!pcw" command count:4 %pcwcount 1-
}

on $*:text:/^[!@.]set pcw */Si:#: {
  if ($nick isop #) || ($nick ishop #) {
    set %pcc $ctime
    set %pc $3-
    set %pcwnick $nick
    topic #propc 4,5/5,4\4,5/5,4\4,5/5,4\1,5W1,4e1,5l1,4c1,5o1,4m1,5e1,4 1,5t1,4o1,5 1,4P1,5r1,4o1,5 1,4P1,5c1,4,1,5 1,4C1,5u1,4r1,5r1,4e1,5n1,4t1,5 1,4w1,5o1,4r1,5l1,4d1,5:1,4 1,0| $+ $3- $+ |4,5/5,4\4,5/5,4\4,5/5,4\1,0 Command = "!pcw"
    topic #pc-hq 1Welcome to 4#pc-hq 1¤ 12http://pc-hq.tk 1¤1 1Current PC World -4 $3- $+ 1. ¤ Use 4/topic #pc-hq1 or 4!pcw1 (not loaded 24/7) to get the current world. Founder: 4I__Drew__I.
    /amsg [4Pc-World Update1] 12New world: $3- 4( $+ $nick $+ )
  } 
}