Someone

on *:TEXT:!setpcw*:#: {
  if ($nick isop # || $nick ishop #) || ($nick = iJay) && ($2 isnum 2-138) {
    set %pcw.nick. [ $+ [ $chan ] ] $nick
    set %pcw.world. [ $+ [ $chan ] ] $2
    set %pcw.time. [ $+ [ $chan ] ] $ctime
    msg $chan The current pest control world has been changed in $chan ! - Type: !pc/!pcw
  }
  else {
    notice $nick Access denied.
  }we
}
on $*:TEXT:/^[!@.](pc(w)?|world)/Si:#:{
  if (%pcw. [ $+ [ $chan ] ] == on)   {
    inc %pestcontrol.
  }
  if (%pcw. [ $+ [ $chan ] ] == off) { HALT }
  elseif (%pcw.nick. [ $+ [ $chan ] ]) {
    notice $nick Current 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*:#:{
  if ($nick isop #) || ($nick ishop #) || ($nick = iJay) {
    set %pcw. $+ $chan on
    msg $chan Mode: Pest Control "on" in $chan
  }
}
on *:text:!pestcontrol*:#:{
  if ($nick isop #) || ($nick ishop #) || ($nick = iJay) {
    set %pcw. $+ $chan off
    msg $chan Mode: Pest Control "off" in $chan
  }
}