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 14 The World has been Changed For $chan please Type 7 !pcw, 14 or 7 !world 14 To View It!
  }
}

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

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