Miscellany

;;;;;;;;;;;;;;;;;;


ON *:TEXT:!suggest*:#: {
  if ($readini(PCW.ini,$chan,Status) == OFF) { halt }
  if ($3 != $null) { halt }
  if (!$2) {
    notice $nick 7Error:12 $1 <World> 
    halt
  }
  if ($2) {
    writeini PCW.ini $chan Suggest $2
    writeini PCW.ini $chan SNick $nick
    writeini PCW.ini $chan STime $CTime
    msg $chan 12The PestControl world has been Suggested by7 $nick 
    halt
  }
  if ($2 >= 144) {
    notice $nick 12The world must be Between7 212 and7 144
    halt
  }  
  else {
    notice $nick 12A PestControl world must be a number.
  }
}

ON $*:TEXT:/[!@.](SetPCW|setWorld|Setpc|Setw)/Si:*:{
  if ($3 != $null) { 
    if (($nick isop $3 || $nick ishop $3 || $address($nick,2) == $address($me,2)) && ($2 isnum 2-144)) {
      writeini PCW.ini $3 World $2
      writeini PCW.ini $3 Nick $nick
      writeini PCW.ini $3 Time $CTime
      msg $3 12The PestControl world has been changed by7 $nick 
      halt
    }
  }
  if ($chan == #xpc-staff) {
    if (!$2) {
      notice $nick 7Error:12 $1 <World> 
      halt 
    }
    if (($nick isop $chan || $nick ishop $chan || $address($nick,2) == $address($me,2)) && ($2 isnum 2-144)) {
      writeini PCW.ini #x-pc World $2
      writeini PCW.ini #x-pc Nick $nick
      writeini PCW.ini #x-pc Time $CTime
      msg #x-pc 12The PestControl world has been changed by7 $nick 
      halt
    }
  }
  if ($readini(PCW.ini,$chan,Status) == OFF) { halt }
  if ($3 != $null) { halt }
  if (!$2) {
    notice $nick 7Error:12 $1 <World> 
    halt
  }
  if (($nick isop $chan || $nick ishop $chan || $address($nick,2) == $address($me,2)) && ($2 isnum 2-144)) {
    writeini PCW.ini $chan World $2
    writeini PCW.ini $chan Nick $nick
    writeini PCW.ini $chan Time $CTime
    msg $chan 12The PestControl world has been changed by7 $nick 
    halt
  }
  if ($nick isvoice $chan || $nick isreg $chan) {
    notice $nick 12You must be Halfop Plus to use this command.
    halt
  }
  if ($2 >= 144) {
    notice $nick 12The world must be Between7 212 and7 144
    halt
  }  
  else {
    notice $nick 12A PestControl world must be a number.
  }
}



ON $*:TEXT:/[!@.](PCW|World|PestWorld)/Si:#:{ 
  if (OFF isin $1 || ON isin $1) { halt }
  if ($2 = pls ) { [ [ $3- ] ] 
  halt  }
  if ($readini(PCW.ini,$chan,Status) == OFF) { halt }
  if ($readini(PCW.ini,$chan,World) == $null) { 
    notice $nick 12There is no set world.
    halt
  }
  if ($nick !isreg $chan) {
    if ($readini(PCW.ini,$chan,Suggest) !== $null) {
      writeini PCW.ini $chan Users $calc($readini(PCW.ini,$chan,Users) + 1)
      notice $nick 12The current PestControl world is7 $readini(PCW.ini,$chan,World) 12Set by7 $readini(PCW.ini,$chan,Nick) 12 $+ $duration($calc($CTime - $readini(PCW.ini,$chan,Time))) ago. 
      notice $nick 12The current Suggested world is7 $readini(PCW.ini,$chan,Suggest) 12Suggested by7 $readini(PCW.ini,$chan,SNick) 12 $+ $duration($calc($CTime - $readini(PCW.ini,$chan,STime))) ago. 7 $+ $chr(187) $+ 12 $+ $readini(PCW.ini,$chan,Users) $+ 7 $+ $chr(171) 
      halt
    }
    if ($readini(PCW.ini,$chan,Suggest) == $null) {
      writeini PCW.ini $chan Users $calc($readini(PCW.ini,$chan,Users) + 1)
      notice $nick 12The current PestControl world is7 $readini(PCW.ini,$chan,World) 12Set by7 $readini(PCW.ini,$chan,Nick) 12 $+ $duration($calc($CTime - $readini(PCW.ini,$chan,Time))) ago. 7 $+ $chr(187) $+ 12 $+ $readini(PCW.ini,$chan,Users) $+ 7 $+ $chr(171) 
    }
  }
  else {
    notice $nick 12I only allow voices to view the 7PestControl12 World.
  }
}

;;;;;;;;;;;;;;;;;;;;