on *:TEXT:!setpcw*:#:{
  var %output = $iif($left($1,1) == !,.notice $nick,.msg $chan)
  if ($nick isreg $chan) || ($nick isvoice $chan) { halt }
  else {
    set %event. $+ $chan $2-
    set %pcchange. $+ $chan $ctime
    msg $chan 1 The current 15[ 14[7Pest world14 ]15 ]1 Has updated type !pcw or !world
  }
}
on *:TEXT:(!|@)world:#: { 
  var %output = $iif($left($1,1) == !,.notice $nick,.msg $chan)
  if (%pcchange. [ $+ [ $chan ] ] == $null) { %output A PCW Was never Set for $chan Please type !setpcw to Set one | halt } else {
  %output $chan 7[ The current pest control world is:1 %event. [ $+ [ $chan ] ] 7] [Last Changed:4 $duration($calc($ctime - %pcchange. [ $+ [ $chan ] ] )) 7] [TIMES USED :1 %pnum | inc %pnum 12] } 
}
on *:TEXT:/^(!|@)pcw:#: { 
  var %output = $iif($left($1,1) == !,.notice $nick,.msg $chan)
  if (%pcchange. [ $+ [ $chan ] ] == $null) { %output A PCW Was never Set for $chan Please type !setpcw to Set one | halt } else {
    %output 7[ The current pest control world is:4 %event. [ $+ [ $chan ] ] 7] [Last Changed:4 $duration($calc($ctime - %pcchange. [ $+ [ $chan ] ] )) 7] [TIMES USED :4 %pnum | inc %pnum 12]
  }