Something

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