ON $*:TEXT:/[!@.](Set|SetPCW|setWorld)/Si:#:{
  if ($readini(PCW.ini,$chan,Status) == OFF) { halt }
  if ($3 != $null) { halt }
  if (!$2) {
    notice $nick 4Error:14 $1 <World> 
    halt
  }
  if (($nick isop $chan || $nick ishop $chan || $address($nick,2) == $address($me,2)) && ($2 isnum 2-138)) {
    writeini PCW.ini $chan World $2
    writeini PCW.ini $chan Nick $nick
    writeini PCW.ini $chan Time $CTime
    msg $chan 14The 4PestControl14 world has been changed by4 $nick 
    halt
  }
  if ($nick isvoice $chan || $nick isreg $chan) {
    notice $nick 14You must be 4Halfop14 Plus to use this command.
    halt
  }
  if ($2 >= 139) {
    notice $nick 14The world must be Between4 214 and4 138
    halt
  }
  else {
    notice $nick 14A 4PestControl14 world must be a number.

  }
}