JOIN + PART + JOIN Flood Protection for Debian v1.0

ON @!*:JOIN:#prova: {
  if (!$chk_nick_chars($nick)) { return }

  if ($evalnext($+(%,joinflood_,$nick))) { ban -ku1800 $chan $nick 3 Join/Part Flood Protection! | unset $+(%,joinflood_,$nick) | return }

  set -eu30 $+(%,joinflood_,$nick) 1
}

ON @!*:PART:#prova: {
  if (!$chk_nick_chars($nick)) { return }

  inc -eu30 $+(%,joinflood_,$nick) 1
}

alias -l chk_nick_chars {
  if (!$1) { return }

  if ($len($1) < 10) { return 0 }

  if ($chr(95) isin $1) && ($count($1,$chr(95)) > 1) { return 1 }
  if ($chr(45) isin $1) && ($count($1,$chr(45)) > 1) { return 1 }
  if ($chr(96) isin $1) && ($count($1,$chr(96)) > 1) { return 1 }
  if ($chr(94) isin $1) && ($count($1,$chr(94)) > 1) { return 1 }
  if ($chr(124) isin $1) && ($count($1,$chr(124)) > 1) { return 1 }
  if ($chr(95) isin $1) && ($count($1,$chr(95)) > 1) { return 1 }
  if ($chr(91) isin $1) && ($count($1,$chr(91)) > 1) { return 1 }
  if ($chr(93) isin $1) && ($count($1,$chr(93)) > 1) { return 1 }
  if ($chr(123) isin $1) && ($count($1,$chr(123)) > 1) { return 1 }
  if ($chr(125) isin $1) && ($count($1,$chr(125)) > 1) { return 1 }

  return 0
}