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
  } 
}