[Aliases]

c6 return $+(14,$1-,)
c5 return $+(02,$1-,)
c4 return $+(04,$1-,)
c3 return $+(07,$1-,)
c2 return $+(03,$1-,)
c1 return $+(12,$1-,)

[Remote]

on $*:TEXT:/^[@!.](world|pcw|pw|w)/Si:#Pest-HQ: {
  writeini -n PestControl.ini Counter $chan $calc($readini(PestControl.ini, n, Counter, $chan) + 1)
  if (!%world) {
    if ($left($1,1) == @ && $nick !isreg $chan) { 
      msg $chan $c5(Pest Control world:) $c6($+($readini(PestControl.ini, n, World, $chan),.)) $c5(Counter:) $c6($+($readini(PestControl.ini, n, counter, $chan),.)) $c5(Last updated) $c6($duration($calc($ctime - $readini(PestControl.ini, n, time, $chan)))) $c5(ago by) $c6($+($readini(PestControl.ini, n, nickname, $chan),.)) | halt
    }
    if ($+(!,%,antiflood.,$address($nick,2))) {
      notice $nick $c5(Pest Control world:) $c6($+($readini(PestControl.ini, n, World, $chan),.)) $c5(Counter:) $c6($+($readini(PestControl.ini, n, counter, $chan),.)) $c5(Last updated) $c6($duration($calc($ctime - $readini(PestControl.ini, n, time, $chan)))) $c5(ago by) $c6($+($readini(PestControl.ini, n, nickname, $chan),.))
      set $+(%,antiflood.,$address($nick,2)) 60
      dec -z $+(%,antiflood.,$address($nick,2)) 
    }
  }
}

---------------------------------------------------------------------------------------------------

on $*:TEXT:/^[@!.]change|set(pc|world|pcw)/Si:#Pest-HQ: {
if ($nick !isreg $chan) {
  if ($2 !isnum 2-160) { notice $nick Invalid world | halt }
  if ($2 == $readini(PestControl.ini, n, World, $chan)) { notice $nick Thats already the current world | halt }
      unset %recent
    writeini -n PestControl.ini World $chan $2
    writeini -n PestControl.ini Time $chan $ctime
    writeini -n PestControl.ini Nickname $chan $nick
    writeini -n PestControl.ini Statistics $nick $calc($readini(PestControl.ini, n, Statistics, $nick) + 1)
    msg $chan $c5(The current) $c6(Pest Control) $c5(world has been) $c6($+(Updated,.)) $c5(------>) $c6($readini(PestControl.ini, n, World, $chan)) $c5(<------) | unset %world
    msg $chan $c5(Pest Control commands have been turned) $c6(off) $c5(for) $c6(two)) $c5(minutes) 
    notice $nick $c5(Pest Control world:) $c6($+($readini(PestControl.ini, n, World, $chan),.)) $c5(Counter:) $c6($+($readini(PestControl.ini, n, counter, $chan),.)) $c5(Last updated) $c6($duration($calc($ctime - $readini(PestControl.ini, n, time, $chan)))) $c5(ago by) $c6($+($readini(PestControl.ini, n, nickname, $chan),.)) | halt
    set -u60 %world Anti-Flood Variable
  } 
}

-------------------------------------------------------------------------------------------------

on *:CONNECT: {
  set %world Anti-Flood Variable, will unset when a world is set.
  writeini -n PestControl.ini World #Pest-HQ 0
}