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