pm protect from flood

on *:open:?: { 
  if ($query(0) < 40) { 
    set -u3 %nicks $addtok(%nicks,$nick,32) 
    set -u3 %address $addtok(%address,*!*@ $+ $gettok($address,2,64),32) 
    if ($Numtok(%nicks,32) > 9) { 
      mode $me +R 
      close -m 
      set %n %nicks 
      set %a %address 
      var %x 1, %D 1 
      while ($gettok(%a,%x,32)) { .timer 1 %D .ignore $ifmatch | inc %x | inc %D 2 } 
    } 
    .timer 1 $calc(%D +10) unset %n 
    .timer 1 $calc(%D +10) unset %a 
    .timer 1 $calc(%D +20) mode $me -R 
  } 
} 
on *:NOTICE:*:?: { 
  set -u3 %nickss $addtok(%nickss,$nick,32) 
  set -u3 %addresss $addtok(%addresss,*!*@ $+ $gettok($address,2,64),32) 
  if ($Numtok(%nickss,32) > 6) { 
    mode $me +R 
    set %an %addresss 
    var %x 1, %D 1 
    while ($gettok(%an,%x,32)) { .timer 1 %D .ignore $ifmatch | inc %x | inc %D 1 } 
  } 
  .timer 1 $calc(%D +10) unset %a 
  .timer 1 $calc(%D +20) mode $me -R 
}