pcw script is funky

on *:text:!pimp pcw off*:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) { 
    set %pcw. $+ $chan off 
    msg $chan 10»15]|[12The pestcontrol commands for4 $chan 12are now OFF 15]|[10«
  }
}
on *:text:!pimp pcw on*:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) { 
    set %pcw. $+ $chan on 
    msg $chan 10»15]|[12The pestcontrol commands for4 $chan 12are now ON 15]|[10«
  } 
} 
on $*:TEXT:/^[@!.](world|pcw|pw|p|w)/Si:#: {
  if (%pcw. $+ $chan == off)  { 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(pc|world|pcw)/Si:#: {
    if (%pcw. $+ $chan == off)  { 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 :)
      } 
    }