Mine

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| 10Updated:4 $duration($calc( $ctime - %pcsettime )) 10ago. 7| 10Set by:4 %pcnick $+ 7 |
  }
}
on $*:TEXT:/^[@](p|w|pcw|world)$/Si:*:{
  if ($nick isop $chan) || ($nick ishop $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 %pcnick $+ 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) /Si:#:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    set %lastworld %world
    if ( $2 == %world ) {
      notice $nick 10The world is already4 $2 $+ 10.
      halt
    }
    if ($2 isnum) {
      set %world $2 
      set %pcnick $nick
      set %suggest N/A
      set %pcsettime $ctime
      msg #pest-time 4 %pcnick 10has updated the 4Pest-Control 10world. 
      msg #pest-time 10Type 4!pcw 10or 4!world 10to see the world.
      msg #pest-time.staff 7 -------------------------------------------------------------
      msg #pest-time.staff 4 %pcnick 10has updated the 4Pest-Control 10world. 
      msg #pest-time.staff 10Type 4!pcw 10or 4!world 10to see the world.
      msg #pest-time.staff 7 -------------------------------------------------------------
    }
    else {
      notice $nick 10That is not a4 valid world10. 
      halt
    }
  }
  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)
  }
}