rendered paste body
on $*:TEXT:/^[!@.](pc(w)?|world)/Si:#: {
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
}
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),.))
}
on $*:TEXT:/^[@!.]change|set(pc|world|pcw)/Si:#: {
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 new) $c6(Pest Control) $c5(world is:) $c6($readini(PestControl.ini, n, World, $chan)) | unset %world
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 Anti-Flood control
}
}