on *:TEXT:!pest on*:#: {
  if ($nick isop $chan) || ($nick == Null) || ($nick == PC|Null) || ($nick == Null-Pl0x) || ($nick == PC|Null-Pl0x) {
    msg $chan 2 $nick 14has now turned on the 2Pest Control!
    /set %pestcontrol [ $+ [ $chan ] ] ON
  }
  else msg $chan NO! Ops only ;)
}

on *:TEXT:!pest off*:#: { 
  if ($nick isop $chan) || ($nick == Null) || ($nick == PC|Null) || ($nick == Null-Pl0x) || ($nick == PC|Null-Pl0x) {
    msg $chan 2 $nick 14has now turned off the 2Pest Control!
    /set %pestcontrol [ $+ [ $chan ] ] OFF
  }
  else msg $chan NO! Ops only ;)
}

on *:TEXT:!setpcw*:#: {
  if (%pestcontrol [ $+ [ $chan ] ] == OFF) { notice $nick The pest control is off at the moment. Try using !pest on if you are an op to turn it on. Or get an op to say it. }
  if (%pestcontrol [ $+ [ $chan ] ] == ON) {
    if ($nick isop $chan) || ($nick ishop $chan) {
      if (!$2) { notice $nick Sorry, try setting a world instead of an invisible number. }
      if ($2 isnum 2-144) {
        /set %pcw [ $+ [ $chan ] ] $2
        /set %pcnick [ $+ [ $chan ] ] $nick
        msg $chan 2 $nick 14has updated the pcw! Say 2!pcw14 or 2!world to view it!
      }
      else notice $nick You stupid?
    }
  }
}

on *:TEXT:?pcw:#: {
  if (%pestcontrol [ $+ [ $chan ] ] == ON) {
    /set %pest.msg [ $+ [ %dd ] ] $iif($left($1,1) == @,.msg $chan,.notice $nick)
    %pest.msg 14The 2Pest Control World14 for $chan is 1[2 %pcw [ $+ [ $chan ] ] 1]  14set by  1[2 %pcnick [ $+ [ $chan ] ] 1]
    else %pest.msg The pest control is off at the moment. Try using !pest on if you are an op to turn it on. Or get an op to say it.
  }
}

on *:TEXT:?world:#: {
  if (%pestcontrol [ $+ [ $chan ] ] == ON) {
    /set %pest.msg [ $+ [ %dd ] ] $iif($left($1,1) == @,.msg $chan,.notice $nick)
    %pest.msg 14The 2Pest Control World14 for $chan is 1[2 %pcw [ $+ [ $chan ] ] 1]  14set by  1[2 %pcnick [ $+ [ $chan ] ] 1]
    else %pest.msg The pest control is off at the moment. Try using !pest on if you are an op to turn it on. Or get an op to say it.
  }
}