on $*:TEXT:/^[!](p|w|pcw|world)$/Si:*:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {
    notice $nick 7| 10Current World:4 %world 7| 10Suggested:4 %suggest 7| 10Last World:4 %lastworld 7| 
    notice $nick 7| 10Updated:4 $duration($calc( $ctime - %pcsettime )) 10ago. 7| 10Set by:4 %nic $+ 7 |
  }
}
on $*:TEXT:/^[@](p|w|pcw|world)$/Si:*:{
  if ($nick isop $chan) {
    msg $chan 7| 10Current World:4 %world 7| 10Suggest:4 %suggest 7| 10Last World:4 %lastworld 7| 
    msg $chan 7| 10Updated:4 $duration($calc( $ctime - %pcsettime )) 10ago. 7| 10Set by:4 %nic $+ 7 |
  }
}
on *:text:!suggest*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {
    if ( $2 == %suggest ) {
    notice $nick 10That 4world 10has already been4 suggested10. | halt }
    if ( $2 == %world ) {
    notice $nick 10That 4world 10has already been set. | halt }
    if ($2 isnum) {
      set %suggest $2
      notice $nick 10Thankyou, your 4suggestion 10has been noticed. If you abuse this system you will be 4BANNED!
    }
    else { 
    notice $nick 10That is not a 4valid 10world. }
  }
}
on *:text:@suggest:*:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    msg $chan 0,1 If you find a good 11Pest-Control0 world, 9SUGGEST IT0!!! 0,0
    msg $chan 0,1 Type 9!suggest 8WORLD 0,0
  }
}
on $*:TEXT:/^[!](change|setpcw|setworld) [0-9]+$/Si:#:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    if ( $2 == %world ) {
    notice $nick 10The world is already4 $2 $+ 10. | halt }
    if ($2 isnum) {
      set %lastworld %world
      set %world $2 
    }
    else {
      notice $nick 1Only 4Ops 1and 7Half-Ops 1can set the 10Pest-Control 1world. 
      notice $nick 1If you have a world you would like to suggest, type
      notice $nick 4!suggest 12WORLD 1(eg. 4 !suggest12 691)
    }
  }