on *:text:!setworld *:#:{
  if (($nick ishop $chan) || ($nick isop $chan)) {
    if ($2 isnum) {
      msg $chan 5New PestControl world! Type 2!world5 to view it.
      set %pcworld [ $+ [ $chan ] ] $2
    }
    else {
      msg $chan 5Please enter a 2numerical5 PestControl world.
    }
  }
}

on $*:TEXT:/^[@!]World */Si:#:{
  if ($chan != #pestcontrol) {
    if ($nick !isreg $chan) {
      if ($left($1,1) == !) {
        notice $nick 5Current PestControl world is:2 %pcworld [ $+ [ $chan ] ] $+ 5.
      }
      if ($left($1,1) == @) {
        msg $chan 5Current PestControl world is:2 %pcworld [ $+ [ $chan ] ] $+ 5.
      }
    }
  }
}