Something

on $*:text:/^[!@](setpcw|change|setworld)/si:#:{ 
  if (%pest [ $+ [ $chan ] ] == off) { halt } 
  if (%pest [ $+ [ $chan ] ] == on) || ($nick isop $chan) || ($nick ishop $chan)  && ($2 isnum 2-138) { 
    set %pcw.world [ $+ [ $chan ] ] $2- 
    set %pcw.time [ $+ [ $chan ] ] $ctime 
    set %pcw.name [ $+ [ $chan ] ] $nick 
    /msg $chan 4New PCW1 - !pcw 1or 1!world 1to view 
  } 
  elseif ($2 < 2-) || ($2- > 139) { 
    /notice $nick $nick $+ , The world has to be between 2 and 139. $2 isn't. 
  } 
} 
on $*:text:/^[!@](world|pcw|pc)/si:#:{ 
  set %pestcontrol $iif($left($1,1) == @,msg $chan,notice $nick) 
  if (%pest [ $+ [ $chan ] ] == off) { halt } 
  elseif (%pest [ $+ [ $chan ] ] == on) { 
    %pestcontrol 7PestControlWorld is:4 %pcw.world [ $+ [ $chan ] ] | Set by: %pcw.nick  [ $+ [ $chan ] ] | was set $duration($calc( $ctime - %pcw.time [ $+ [ $chan ] ] )) ago. 
  } 
} 

on *:text:!setoff*:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) { 
    set %pest [ $+ [ $chan ] ] off 
    /msg $chan 7The PestControl command is now off for15 $chan $+ . 
  } 
} 

on *:text:!seton*:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) { 
    set %pest [ $+ [ $chan ] ] on 
    /msg $chan 7The PestControl command is now on for15 $chan $+ . 
  } 
}

on $*:text:/^[!@](suggest|wsuggest)/si:#:{ 
  if ($2- isnum 2-138) { 
    /set %suggest $2- 
    msg $chan $nick suggested %world !setsuggest to accept it
    /notice zwill88 $nick has suggested world %suggest $+ . 
    /notice $nick $nick $+ , We will check suggested world, Thank  for the suggest. 
  } 
}

on *:text:!setsuggest*:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) || ($2- ison $chan) { 
    /set %suggester $2- 
    /notice $nick $2- is now added to verify suggests. 
    /msg $2- $nick Added to list. 
  } 
}

on *:TEXT:!new*:#:{ if ($nick isop $chan) || ($nick ishop $chan) {
    msg $chan 1Fed up with the 4world?1 Suggest a new world by typing !suggest <worldhere>
  }
}