on *:text:!pestcontrol on*:#:{
if ($nick isop $chan) || ($nick ishop $chan) || ($nick = Kerst) {
set %pcw. $+ $chan on
msg $chan 7The pestcontrol commands12 for $chan are now 9ON
}
}
on *:text:!pestcontrol off*:#:{
if ($nick isop $chan) || ($nick ishop $chan) || ($nick = Kerst) {
set %pcw. $+ $chan off
msg $chan 7The pestcontrol commands12 for $chan are now 4OFF
}
}
on *:JOIN:#: {
if (%whois [ $+ [ $chan ] ] == on) {
whois $nick
set %msgchan msg $chan
set %nick $nick
}
}
raw 319:*:{
%msgchan 1 %nick is on the following channels: 12 $3-
unset %msgchan
unset %nick
}
on *:TEXT:!whois on*:#: {
if ($nick isop $chan) || ($nick ishop $chan) {
if (%whois [ $+ [ $chan ] ] == on) {
notice $nick 12Whois check is already on for $chan
}
else {
set %whois [ $+ [ $chan ] ] on
msg $chan 4 Whois check is now 12ON4 for $chan
}
}
}
on *:TEXT:!whois off*:#: {
if ($nick isop $chan) || ($nick ishop $chan) {
if (%whois [ $+ [ $chan ] ] == off) {
notice 12 $nick it isn't even on in $chan
}
else {
set %whois [ $+ [ $chan ] ] off
msg $chan 4 Whois check is now 12OFF4 for $chan
}
}
}
on *:TEXT:!setpcw*:#: {
if ($nick isop $chan || $nick ishop $chan) && ($2 isnum 2-138) {
set %pcw.nick. [ $+ [ $chan ] ] $nick
set %pcw.world. [ $+ [ $chan ] ] $2
set %pcw.time. [ $+ [ $chan ] ] $ctime
msg $chan 7The pc world for $chan 12has been changed by $nick 7! type 12!world7 to see it
}
else {
notice $nick 7 ur access is too12 low!, u need 7 halfop +12 if u have that7 then set a real world
}
}
on *:TEXT:!pcw:#:{
inc %pestcontrol.
if (%pcw. [ $+ [ $chan ] ] == off) { 7The pest control 12command is been7 set 4OFF }
if (%pcw. [ $+ [ $chan ] ] == on) {
notice $nick 4 7The pc world for $chan 12is %pcw.world. [ $+ [ $chan ] ] $+ , it's set by %pcw.nick. [ $+ [ $chan ] ] 7and it's $duration($calc( $ctime - %pcw.time. [ $+ [ $chan ] ] )) old ( %pestcontrol. )
}