Something

on *:TEXT:!setpcw*:#: { 
  if ($nick isop # || $nick ishop #) || ($nick = MrPolice) && ($2 isnum 2-138) { 
    set %pcw.nick. [ $+ [ $chan ] ] $nick 
    set %pcw.world. [ $+ [ $chan ] ] $2 
    set %pcw.time. [ $+ [ $chan ] ] $ctime 
    msg $chan 14The current pest control world has been changed in 7 $chan 7 ! - 14Type:14 7!pc/!pcw/!world7 
  } 
  else { 
    notice $nick Access denied. 
  } 
} 
on $*:TEXT:/^[!@.](pc(w)?|world)/Si:#:{ 
  if (%pcw. [ $+ [ $chan ] ] == on)   { 
    inc %pestcontrol. 
    if (%pcw. [ $+ [ $chan ] ] == off) { HALT } 
    elseif (%pcw.nick. [ $+ [ $chan ] ] != $null) { 
      notice $nick 14Current Pest control World: 7 %pcw.world.   [ $+ [ $chan ] ] $+ 7, 14was set by:14 7 %pcw.nick. [ $+ [ $chan ] ] 7 14and was set14: 7 $duration($calc( $ctime - %pcw.time. [ $+ [ $chan ] ] )) ago ( %pestcontrol. )7 
    } 
  } 
} 
on *:text:!pestcontrol on*:#:{ 
  if ($nick isop #) || ($nick ishop #) || ($nick = Gsus) { 
    set %pcw. $+ $chan on 
    msg $chan Mode: 14Pest Control14 7"on"7 14in14 7 $chan 7 
  } 
} 
on *:text:!pestcontrol off*:#:{ 
  if ($nick isop #) || ($nick ishop #) || ($nick = Gsus) { 
    set %pcw. $+ $chan off 
    msg $chan Mode: 14Pest Control 7"off"7 14in14 7 $chan7 
  } 
}