mIRC Text Flood Protection

on *:TEXT:*:#:{
  set -u3 %fld. [ $+ [ $chan ] $+ . $+ [ $nick ] ] $calc( %fld. [ $+ [ $chan ] $+ . $+ [ $nick ] ] + 1)
  if (%fld. [ $+ [ $chan ] $+ . $+ [ $nick ] ] >= 4) kick # $nick Text Flood
  if ($len($strip($1-)) >= 100) kick # $nick Excess
  if (*#* iswm $1-) && ($nick != $me) { mode # +b $mask($fulladdress,5) | kick # $nick Don't Invite | return }
}