Miscellany

ON $*:TEXT:/[!@.](Set|Change|Setpcw)/Si:#PCPlace:{
  if ($3 != $null) { halt }
  if (!$2) {
    notice $nick 7Error:4 $1 World7.
    halt
  }
  if (($nick isop $chan || $nick ishop $chan || $nick isvoice $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 7The Pest Control world has been updated by:4 $nick 14-7 Type 4!Pcw7 to view it.
    halt
  }
  if ($nick isvoice $chan || $nick isreg $chan) {
    notice $nick 7You must be Halfop or Op to use this command.
    halt
  }
  if ($2 >= 139) {
    notice $nick 7The world must be Between4 12 7and4 1387.
    halt
  }
  else {
    notice $nick 7A Pest Control world must be a number.

  }
}
ON $*:TEXT:/!(PCW|World|PestWorld|PC)/Si:#PCPlace:{ 
  if ($readini(PCW.ini,$chan,World) == $null) { 
    notice $nick 7There is no set world.
    halt
  }
  if ($chan == $chan) {
    writeini PCW.ini $chan Users $calc($readini(PCW.ini,$chan,Users) + 1)
    notice $nick 7The current Pest Control world is:4 $readini(PCW.ini,$chan,World) 14-7 Set by:4 $readini(PCW.ini,$chan,Nick) 14-7 Set4 $duration($calc($CTime - $readini(PCW.ini,$chan,Time))) 7ago 14-7 The command has been used4 $readini(PCW.ini,$chan,Users) 7times.
    halt
  }
}
ON $*:TEXT:/@(PCW|World|PestWorld|PC)/Si:#PCPlace:{ 
  if ($nick isop #PCPlace) || ($nick ishop #PCPlace) || ($nick isvoice #PCPlace) {
    if ($readini(PCW.ini,$chan,World) == $null) { 
      notice $nick 7There is no set world.
      halt
    }
    if ($chan == $chan) {
      writeini PCW.ini $chan Users $calc($readini(PCW.ini,$chan,Users) + 1)
      notice $nick 7The current Pest Control world is:4 $readini(PCW.ini,$chan,World) 14-7 Set by:4 $readini(PCW.ini,$chan,Nick) 14-7 Set4 $duration($calc($CTime - $readini(PCW.ini,$chan,Time))) 7ago 14-7 The command has been used4 $readini(PCW.ini,$chan,Users) 7times.
      halt
    }
  }