Miscellany

on *:text:!suggest*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {
    if ( $2 == %suggest ) {
    /notice $nick That world has already been suggested $+ . | halt }
    if ( $2 == %world ) {
    /notice $nick That world is the current set world $+ . | halt }
    if ($2 isnum) {
      set %suggest $2
      notice $nick Thankyou, your suggestion has been noticed. If you abuse this system you will be banned.
    }
    else { 
    notice $nick That is not a valid world. }
  }
}
on $*:TEXT:/^[!](change|setpcw|setworld)/Si:#:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    if ( $2 == %world ) {
    /notice $nick The world is already $2 $+ . | halt }
    if ($2 isnum) {
    set %world $2 }
    else {
    /notice $nick That is not a valid world. | halt }
    set %nic $nick
    set %suggest N/A
    set %pcsettime. [ $+ [ #pest-time ] ] $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 4 %nic 10has updated the 4Pest-Control 10world. 
    /msg #pest-time.staff 10Type 4!pcw 10or 4!world 10to see the world.
  }

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