Text Flood Protection for Kendy v1.1

ON @*:TEXT:*:#: {
  if ($nick !isreg $chan) { return }

  inc -eu3 $+(%,flood,_,$chan) 1
  set -eu3 $+(%,flood,_,$chan,_,nick,_,$nick) $nick

  if ($evalnext($+(%,flood,_,$chan)) == 3) {
    unset $+(%,flood,_,$chan)

    mode $chan +impsRCM
    .timer 1 360 mode $chan -impsRCM

    bk_all $chan
  }

}

alias -l bk_all {
  if (!$1) && ($me !ison $1) && ($me !isop $1) { return }

  var %t = $var($+(flood,_,$1,_,nick,_,*),0)

  if (!%t) { return }

  var %i = 1
  while (%i <= %t) {
    var %v = $var($+(flood,_,$1,_,nick,_,*),%i)
    var %n = $gettok(%v,4,95)

    if (!%v) && (!%n) { goto next }
    if (%n !ison $1) || (%n !isreg $1) { unset $+(%,flood,_,$1,_,nick,_,%n) | goto next }

    ban -ku300 $1 %n 2 Text Flooding

    unset $+(%,flood,_,$1,_,nick,_,%n)

    :next
    inc %i
  }
}