Stuff

ON $*:TEXT:/[!@.](Pest|PCW)off/Si:#:{ 
  if ($readini(PCW.ini,$chan,Status) == OFF) {
    notice $nick 15You 7cant 15turn 7something 15off 7that 15is 7not 15on.
    halt
  }
  if ($nick isop $chan || $nick ishop $chan || $address($nick,2) == $address($me,2)) {
    remini PCW.ini $chan
    writeini PCW.ini $chan Status OFF
    msg $chan 15The 7PestControl 15services 7have 15been 7halted 15by 7 $nick 
    halt
  }
  else {
    notice $nick 15You 7must 15be 7Halfop 15Plus 7to 15use 7this command.
  }
}
ON $*:TEXT:/[!@.](Pest|PCW)On/Si:#:{ 
  if (($nick isop $chan || $nick ishop $chan || $nick isvoice $chan || $address($nick,2) == $address($me,2)) && ($readini(PCW.ini,$chan,Status) == OFF)) {
    remini PCW.ini $chan
    msg $chan 15The 7PestControl 15services 7have 15been 7continued 15by7 $nick 
    halt
  }
  if ($readini(PCW.ini,$chan,Status) != OFF) {
    notice $nick 15You 7cant 15turn 7ON 15whats 7not 15off.
    halt
  }
  else {
    notice $nick 15You 7must 15be 7Halfop15 Plus 7to 15use 7this 15command.
  }
}
ON $*:TEXT:/[!@.]Set(PCW|world)/Si:#:{
  if ($readini(PCW.ini,$chan,Status) == OFF) { halt }
  if ($3 != $null) { halt }
  if (!$2) {
    notice $nick 7Error -15 $1 <World> 
    halt
  }
  if (($nick isop $chan || $nick ishop $chan || $nick isvoice $chan || $address($nick,2) == $address($me,2)) && ($2 isnum 2-140)) {
    writeini PCW.ini $chan World $2

    writeini PCW.ini $chan Nick $nick
    writeini PCW.ini $chan Time $CTime
    msg $chan 15The 7PestControl 15world 7has 15been 7changed 15by7 $nick too $readini(PCW.ini,$chan,world)
    /timer. [ $+ [ $chan ] ] 0 15 msg $chan 7The 14Current 7Pc 14World 7is4 $readini(PCW.ini,$chan,world)14set 7by4 $readini(PCW.ini,$chan,Nick)
    halt
  }
  if ($nick isvoice $chan || $nick isreg $chan) {
    notice $nick 15You 7must 15be 7Halfop 15Plus 7to 15use 7this 15command.
    halt
  }
  if ($2 >= 139) {
    notice $nick 15The 7world 15must 7be 15Between7 2 15 and 7140
    halt

  }
  else {
    notice $nick 15A 7PestControl 15world 7must 15be 7a 15number.
  }
}
ON $*:TEXT:/[!@.](PCW|PestWorld)/Si:#:{ 
  if (OFF isin $1 || ON isin $1) { halt }
  if ($readini(PCW.ini,$chan,Status) == OFF) { halt }
  if ($readini(PCW.ini,$chan,World) == $null) { 
    notice $nick 15There is no set world.
    halt
  }
  writeini PCW.ini $chan Users $calc($readini(PCW.ini,$chan,Users) + 1)
  notice $nick 15The 7current 15PestControl 7world 15is7 $readini(PCW.ini,$chan,World) 15Set by7 $readini(PCW.ini,$chan,Nick) 15 $+ $duration($calc($CTime - $readini(PCW.ini,$chan,Time))) 15ago. 7 $+ $chr(187) $+ 15 $+ $readini(PCW.ini,$chan,Users) $+ 7 $+ $chr(171) 
  halt
}
ON $*:TEXT:/[!@.]StopPCW/Si:#:{ 
  if ($readini(PCW.ini,$chan,Status) == OFF) { halt }
  if ($nick isop $chan || $nick ishop $chan || $nick isvoice $chan || $address($nick,2) == $address($me,2)) {
    remini PCW.ini $chan
    msg $chan 15All 7PestControl 15files 7for15 $chan 7 have 15been 7deleted.
    halt
  }
}
if ($readini(PCW.ini,$chan,World) == $null) { 
  notice $nick
}
ON $*:TEXT:/^[!@.](Suggest|SugWorld)/Si:#:{
  if ($readini(PCW.ini,$chan,Status) == OFF) {
    noticed $nick !pcwon
  }
  else {
    writeini PCW.ini $chan World $2
    writeini PCW.ini $chan Nick $nick
    writeini PCW.ini $chan Time $CTime
    msg $chan 7The 14suggested 7world  14is4 $readini(PCW.ini,$chan,world) 7suggested 14by12 $readini(PCW.ini,$chan,Nick).
    halt
  }
}
ON $*:TEXT:/^[!@.](Sw|Sworld|Suggested)/Si:#:{
  if ($nick isvoice $chan || $nick ishop $chan || $nick isop $chan) {
    if ($readini(PCW.ini,$chan,Status) == OFF) {
      noticed $nick !pcwon
    }
    else {
      notice $nick 7The 14suggested 7world 14is4 $readini(PCW.ini,$chan,world) 7suggested 14by12 $readini(PCW.ini,$chan,Nick).
      halt
    }
  }