Mine

on $*:TEXT:/^[!](w|pcw|world)$/Si:*:{
  if %allpc [ $+ [ $chan ] ] == off { halt } {
    inc %pccounter 1
    notice $nick 7,0[4,0«7,0]1,0§7,0[ 4,0World :2,0 %world [ $+ [ $chan ] ] 7,0]1,0§7,0[4,0 Set by:2,0 %pcnick [ $+ [ $chan ] ] 7,0]1,0§7,0[2,0 $duration($calc( $ctime - %timeset. [ $+ [ $chan ] ] )) 4,0ago %suggest [ $+ [ $chan ] ] 7,0]1,0§7,0[4,0 Last World:2,0 %lastworld [ $+ [ $chan ] ] 7,0]1,0§7,0[4,0»7,0]
  }
}
on $*:TEXT:/^[@](w|pcw|world)$/Si:*:{
  if %allpc [ $+ [ $chan ] ] == off { halt } {
    if ($nick isop $chan) || ($nick ishop $chan) {
      inc %pccounter 1
      notice + $+ $chan 7,0[4,0«7,0]1,0§7,0[ 4,0World :2,0 %world [ $+ [ $chan ] ] 7,0]1,0§7,0[4,0 Set by:2,0 %pcnick [ $+ [ $chan ] ] 7,0]1,0§7,0[2,0 $duration($calc( $ctime - %timeset. [ $+ [ $chan ] ] )) 4,0ago 7,0]1,0§7,0[4,0 Last World:2,0 %lastworld [ $+ [ $chan ] ] 7,0]1,0§7,0[4,0»7,0]
    }
  }
}
on *:text:!suggest*:#:{
  if %allpc [ $+ [ $chan ] ] == off { halt } {
    if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {
      if ( $2 == %sugnum [ $+ [ $chan ] ] ) {
        notice $nick 2That 4world 2has already been4 suggested2.
        halt
      } 
      if ( $2 == %world [ $+ [ $chan ] ] ) {
        notice $nick 2That 4world 2has already been set. 
        halt 
      }
      if ($2 isnum 2-140) {
        inc %sug. [ $+ [ $nick ] ] [ $+ [ $chan ] ] 1
        set %sugnum [ $+ [ $chan ] ] $2
        set %suggest [ $+ [ $chan ] ] 7,0]1,0§7,0[2,0 $nick 4,0suggested2,0 $2
        notice $nick 2Thankyou, your 4suggestion 2has been noticed. If you abuse this system you will be 4BANNED!
        notice % $+ $chan 2,0 $nick has suggested the world4,0 $2 2,0.If it's good, type4,0 !setsug
      }
      else { 
        notice $nick 2,0Oi Noobo, suggest a propper world.
      }
    }
  }
} 
on *:text:@suggest:*:{
  if %allpc [ $+ [ $chan ] ] == off { halt } {
    if ($nick isop $chan) || ($nick ishop $chan) {
      msg $chan 0,1 If you find a good 11Pest-Control0 world
      msg $chan 0,1 Type 9!suggest 8WORLD 0,0
    }
  }
}
on $*:TEXT:/^[!](change|setpcw|setworld) /Si:#:{
  if %allpc [ $+ [ $chan ] ] == off { halt } {
    if ($nick isop $chan) || ($nick ishop $chan) {
      set %lastworld [ $+ [ $chan ] ] %world [ $+ [ $chan ] ]
      if ( $2 == %world [ $+ [ $chan ] ] ) {
        notice $nick 2The world is already4 $2 $+ 10.
        halt
      }
      if ($2 isnum 2-140) {
        inc %pc. [ $+ [ $nick ] ] [ $+ [ $chan ] ] 1
        set %world [ $+ [ $chan ] ] $2 
        set %pcnick [ $+ [ $chan ] ] $nick
        set %suggest [ $+ [ $chan ] ] $null
        set %sugnum [ $+ [ $chan ] ] $null
        set %timeset. [ $+ [ $chan ] ] $ctime
        msg + $+ $chan 4,0 $nick 2,0has updated the 4,0Pest-Control 2,0world.2,0 The4,0 Pest-Control 2,0world is now4,0 %world [ $+ [ $chan ] ] 2!!
      }
      else {
        notice $nick 2That is not a4 valid world2. 
        halt
      }
    }
    else {
      notice $nick 2Only 4Ops 1and 7Half-Ops 2can set the 4Pest-Control 2world. 
      notice $nick 2If you have a world you would like to suggest, type
      notice $nick 4!suggest 12WORLD 2(eg. 4 !suggest12 691)
    }
  }
}
on *:text:!setsug:#:{ 
  if %allpc [ $+ [ $chan ] ] == off { halt } {
    if ($nick isop $chan) || ($nick ishop $chan) {
      set %lastworld [ $+ [ $chan ] ] %world [ $+ [ $chan ] ]
      if (%sugnum [ $+ [ $chan ] ] == $null) {
        notice $nick 2There is no suggested4 world2. 
        halt
      }
      if (%sugnum [ $+ [ $chan ] ] isnum 2-140) {
        inc %pc. [ $+ [ $nick ] ] [ $+ [ $chan ] ] 1
        set %world [ $+ [ $chan ] ] %sugnum [ $+ [ $chan ] ]
        set %pcnick [ $+ [ $chan ] ] $nick
        set %suggest [ $+ [ $chan ] ] $null
        set %sugnum [ $+ [ $chan ] ] $null
        set %timeset. [ $+ [ $chan ] ] $ctime
        msg + $+ $chan 4,0 $nick 2,0has updated the 4,0Pest-Control 2,0world.2,0 The4,0 Pest-Control 2,0world is now4,0 %world [ $+ [ $chan ] ] 2!!
      }
    }
    else {
      notice $nick 2Only 4Ops 1and 7Half-Ops 2can set the 4Pest-Control 2world. 
      notice $nick 2If you have a world you would like to suggest, type
      notice $nick 4!suggest 12WORLD 2(eg. 4 !suggest12 691)
    }
  }
}