Something

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

on *:text:!pestcontrol on*:#free_pcw:{ 
  if ($nick isop #) || ($nick ishop #) || ($nick = Gsus) { 
    set %pcw. $+ $chan on 
    msg $chan 9,2Mode: Pest Control 4on 9,2in $chan 
  } 
} 
on *:text:!pestcontrol off*:#free_pcw:{ 
  if ($nick isop #) || ($nick ishop #) || ($nick = Gsus) { 
    set %pcw. $+ $chan off 
    msg $chan 9,2Mode: Pest Control 4off 9,2in $chan 
  } 
}