on $*:TEXT:/^(!|@)(set)(pcw)? */Si:#: { 
  if ($nick isop $chan || $nick ishop $chan) {
    set %pcw. $+ $chan $2
    set %nick. $+ $chan $nick
    set %pctime. $+ $chan $ctime
    set %chan. $+ $chan $chan
    msg $chan $col1 $+ New pest control world has been set for, $col2 $+ %chan. [ $+ [ $chan ] ] $col1 $+ type $col2 $+ !pcw $col1 $+ or $col2 $+ !world $col1 $+ to view it!! 
  }
}
alias col1 { return $+(02,$1-) } 
alias col2 { return $+(10,$1-) } 

on $*:TEXT:/^(!)(world|pcw) */Si:#: { 
  var %output = $iif($left($1,1) == !,.notice $nick)
  %output $co1 $+ The current pcw is $co2 $+ ( $+ %pcw. [ $+ [ $chan ] ] $+ ) $co1 $+ : Set by $co1 $+ : $co2 $+ %nick. [ $+ [ $chan ] ] $co1 $+ : $duration($calc($ctime - %pctime. [ $+ [ $chan ] ] )) Ago.
}
alias co1 { return $+(07,$1-) } 
alias co2 { return $+(14,$1-) }