CTCP Flood Protection

[Cult]

CTCP Channel flood protection

ctcp *:*:*: {
  set -u60 %ctcp. [ $+ [ $site ] ] $calc( %ctcp. [ $+ [ $site ] ] + 1)
  if (%ctcp. [ $+ [ $address ] ] >= 5) {
    .ignore -tu60 $site
    var %i = 0
    while (%i < $comchan($nick,0)) { 
      inc %i 
      if ($nick !isreg $comchan($nick,%i) {
        ban $comchan($nick,%i) 2
        kick $comchan($newnick,%i) $nick 4CTCP Flood Detected!
      }
    }
  }
}