Someone

on *:TEXT:!setpcw*:#: {
  if ($nick isop # || $nick ishop #) || $nick isvoice $chan || ($nick = hoi153) && ($2 isnum 2-138) {
    set %pcw.nick. [ $+ [ $chan ] ] $nick
    set %pcw.world. [ $+ [ $chan ] ] $2
    set %pcw.time. [ $+ [ $chan ] ] $ctime
    msg $chan 2The current 4Pest Control 2world has been changed in4 $chan by $nick ! - 2Type: !pcw or !world to view the new world.
  }
  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 4Current 2Pest control World:3 %pcw.world. [ $+ [ $chan ] ] $+ , 14was set by:13 %pcw.nick. [ $+ [ $chan ] ] 12and was set:7 $duration($calc( $ctime - %pcw.time. [ $+ [ $chan ] ] )) ago 4( %pestcontrol. )
    }
  }
}
on *:text:!pestcontrol on*:#:{
  if ($nick isop $chan) { 
    set %pcw. $+ $chan on
    msg $chan 4Mode: 2Pest Control 6"on" in 13 $chan
  }
}
on *:text:!pestcontrol off*:#:{
  if ($nick isop $chan) { 
    set %pcw. $+ $chan off
    msg $chan 4Mode: 2Pest Control 6"off" in 13 $chan
  }