Miscellany

on $*:TEXT:/^[@!.](world|pcw)/Si:#pcelites: {
  if (%command. [ $+ [ $nick ] ] == 1) { /notice $nick Floodprotection has been enabled please wait 30 seconds. | halt }
  set -u30 %command. [ $+ [ $nick ] ] 1
  if (%world != $null) { halt }
  writeini -n PestControl.ini Counter $chan $calc($readini(PestControl.ini, n, Counter, $chan) + 1)
  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(pcw)/Si:#pcelites: {
  if (%command. [ $+ [ $nick ] ] == 1) { /notice $nick Floodprotection has been enabled please wait 30 seconds. | halt }
  set -u30 %command. [ $+ [ $nick ] ] 1
  if (%world != $null) { halt }
  if ($nick !isreg $chan) {
    if ($2 !isnum 2-160) { notice $nick $c2(Invalid world) | halt }
    if ($2 == $readini(PestControl.ini, n, World, $chan)) { notice $nick $c2(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 -u120 %world Unset me :)
  } 
}