louis2

on $*:TEXT:/^[!@](change|setpc|setpcw)/Si:#:{
  if ($nick isop # || $nick ishop #) || ($nick = hoi153) && ($2 isnum 2-144) { 
    set %pcw.nick. [ $+ [ $chan ] ] $nick 
    set %pcw.world. [ $+ [ $chan ] ] $2 
    set %pcw.time. [ $+ [ $chan ] ] $ctime 
    msg $chan 3The World For04 $chan 03Has Been Changed To 12»»04 %pcw.world. [ $+ [ $chan ] ] 12««
  } 
  else { 
    notice $nick Access denied. 
  } 
} 
on $*:TEXT:/^[!@.](pc(w)?|world)/Si:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) || [ $+ [ $chan ] ] == on) {
    inc %pestcontrol.
    if (%pcw. [ $+ [ $chan ] ] == off) { HALT }
    elseif (%pcw.nick. [ $+ [ $chan ] ] != $null) {
      notice $nick 3The current04 $chan 03Pest Control World is 12»»04 %pcw.world. [ $+ [ $chan ] ] 12«« 0403set by 04[12 $nick 04]0303.
    }
  }
} 
on *:text:!pestcontrol on*:#:{ 
  if ($nick isop #) || ($nick ishop #) || ($nick = Gsus) { 
    set %pcw. $+ $chan on 
    msg $nick 3Mode: Pest Control 4On 3in04 $Chan 
  } 
} 
on *:text:!pestcontrol off*:#:{ 
  if ($nick isop #) || ($nick ishop #) || ($nick = Gsus) { 
    set %pcw. $+ $chan off