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.
}
}