Kiemister pcw

on $*:text:/^[!@.](set(pcw|world)?)/Si:#: { 
  if (%pest. [ $+ [ $chan ] ] == off) { halt } 
  elseif ($nick isop $chan || $nick ishop $chan) && ($2 isnum 2-132 ) {  
    set %world. [ $+ [ $chan ] ] $2 
    set %ht. [ $+ [ $chan ] ] $ctime
    set %nick. [ $+ [ $chan ] ] $nick 
    notice $nick The PCW has been set to: $2    
    msg $chan 4The current 7pc world 4has changed1, 4to get the new 7world1, type 7!world 1or 7!pcw
    else { halt }  
  } 
}
on $*:TEXT:/^[!@.](world|pcw)/Si:#: { 
  if (%pest == on) && (%world. [ $+ [ $chan ] ] != $null) { 
    notice $nick The current Pest Control World is %world. [ $+ [ $chan ] ] [Set by %nick. [ $+ [ $chan ] ] $+ , $duration($calc( $ctime - %ht. [ $+ [ $chan ] ] )) ago] 
  } 
}
on *:TEXT:!pcoff:#: { if ( $nick isop $chan ) { msg $chan $nick has disabled my scripts. } 
set %pest off } } 
on *:TEXT:!pcon:#: { if ( $nick isop $chan ) { msg $chan $nick has enabled my scripts. } 
set %pest on } }