on $*:text:/^[@!](change|setpcw|set)/si:#:{
if (%pestcontrol [ $+ [ $chan ] ] == on) {
if ($nick isop $chan || $nick ishop $chan) {
if ($2 isnum 2-140) {
set %pcwnick.$chan $nick
set %pcwworld.$chan $2
set %pcwtime.$chan $ctime
msg $chan The pc world for 4 $chan 1has been changed by 4 $nick 1 type 4!pcw 1to see it
}
else {
notice $nick ur access is too low!, u need halfop + if u have that then set a real world
}
}
}
}
on $*:text:/^[!](pcw|world)/si:#:{
if (%pestcontrol [ $+ [ $chan ] ] == on) {
inc %pestcontrol
notice $nick 1The pc world for $chan is 4 %pcwworld.$chan $+ 1, set by 4 %pcwnick.$chan 1 $duration($calc( $ctime - %pcwtime.$chan )) Ago | 4,1« %pestcontrol »1| 9,1[Suggested %pcwsuggest.$chan ]12,1 [ $duration($calc( $ctime - %suggesttime.$chan )) ] ago.
}
}
on *:TEXT:!suggest*:#: {
if (%pestcontrol [ $+ [ $chan ] ] == on) {
if ($nick isop $chan || $nick ishop $chan) {
if ($2 isnum 2-138) {
set %pcwsuggest.$chan $2
set %suggesttime.$chan $ctime
msg $chan a new world has been suggested by $nick type !pcw to see it.
notice $nick thank you for your suggestion
}
}
}
}
on $*:text:/^[@!](pest on|pc on)/si:#:{
if ($nick isop $chan) || ($nick ishop $chan) || ($nick = shot_wif_bow) {
if (%pestcontrol [ $+ [ $chan ] ] == on) {
notice $nick Pestcontrol is already on
}
else {
set %pestcontrol [ $+ [ $chan ] ] on
.msg $chan pestcontrol script turned on
}
}
}
on $*:text:/^[@!](pest off|pc off)/si:#:{
if ($nick isop $chan) || ($nick ishop $chan) || ($nick = shot_wif_bow) {
if (%pestcontrol [ $+ [ $chan ] ] == off) {
notice $nick Pestcontrol is already off
}
else {
set %pestcontrol [ $+ [ $chan ] ] off
.msg $chan pestcontrol script turned off
}
}
}