rendered paste body[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
}