Stuff

n88=on $*:text:/^[!@.](set(pcw|world)?)/Si:#: { 
n89=  if (%pest. [ $+ [ $chan ] ] == off) { halt } 
n90=  elseif ($nick isop $chan || $nick ishop $chan) && ($2 isnum 2-132 ) {  
n91=    set %world. [ $+ [ $chan ] ] $2 
n92=    set %ht. [ $+ [ $chan ] ] $ctime
n93=    set %nick. [ $+ [ $chan ] ] $nick 
n94=    notice $nick The PCW has been set to: $2    
n95=    msg $chan 4The current 7pc world 4has changed1, 4to get the new 7world1, type 7!world 1or 7!pcw
n96=    else { halt }  
n97=  } 
n98=}
n99=on $*:TEXT:/^[!@.](world|pcw)/Si:#: { 
n100=  if (%pest == on) && (%world. [ $+ [ $chan ] ] != $null) { 
n101=    notice $nick 4The current 7Pest Control World 4is7 %world. [ $+ [ $chan ] ] [4Set by7 %nick. [ $+ [ $chan ] ] $+ , $duration($calc( $ctime - %ht. [ $+ [ $chan ] ] )) ago] 
n102=  } 
n103=}
n104=on *:TEXT:!pcoff:#: { if ( $nick isop $chan ) { msg $chan $nick has disabled my scripts. } 
n105=set %pest off } } 
n106=on *:TEXT:!pcon:#: { if ( $nick isop $chan ) { msg $chan $nick has enabled my scripts. } 
n107=set %pest on } }