on *:TEXT:!setpcw*:#: { if ( $nick isop $chan || $nick ishop $chan ) {
if ( %pest == off ) { halt }
else { set %world $2
set %ht $ctime
set %nick $nick
msg || NEW PEST CONTROL WORLD SET BY %nick || To view the current Pest Control World type !pcw or !world } }
else { halt } } }
on *:TEXT:!setworld*:#: { if ( $nick isop $chan || $nick ishop $chan ) {
if ( %pest == off ) { halt }
else { set %world $2
set %ht $ctime
set %nick $nick
msg || NEW PEST CONTROL WORLD SET BY %nick || To view the current Pest Control World type !pcw or !world } }
else { halt } } }
on *:TEXT:!world:#: { if ( %pest == on ) { notice $nick The current Pest Control World is %world [ Set by %nick $duration($calc($ctime - %ht)) ago $+ ] } }
on *:TEXT:!pcw:#: { if ( %pest == on ) { notice $nick The current Pest Control World is %world [ Set by %nick $duration($calc($ctime - %ht)) ago $+ ] } }
on *:TEXT:!pcoff:#: { if ( $nick isop $chan ) { amsg $nick has disabled my scripts. }
set %pest off } }
on *:TEXT:!pcon:#: { if ( $nick isop $chan ) { amsg $nick has enabled my scripts. }
set %pest on } }
on *:TEXT:!*:#:{
if ($1 == !wsuggest) && ($nick isop $chan || $nick ishop $chan) {
if ($read(wsuggest.txt,w,* $+ $2 $+ *)) {
notice $nick $nick You can only suggest members worlds!
}
elseif ($2 isnum) {
set %nick. [ $+ [ $chan ] ] $nick
set %world. [ $+ [ $chan ] ] $2
msg $chan $nick has suggested a world. Type !view to see the world.(Must be Voice and higher to see)
}
}
elseif ($1 == !view) {
if ($nick !isreg $chan) && (%nick. [ $+ [ $chan ] ] != $null) {
notice %nick. [ $+ [ $chan ] ] has suggested world %world. [ $+ [ $chan ] ]
}
}
}