Mine

on $*:TEXT:/^[!](change|setpcw|setworld)/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 10That is not a valid world. | halt }
    set %nic $nick
    set %suggest N/A
    set %pcsettime $ctime
    msg #pest-time 4 %nic 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 %nic 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 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)
  }
}







AND TO VIEW PCW.. HERE IS ONE OF 8

on *:text:!pcw:*:{
  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 |
  }
}