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