*** Random Identd Kicker ***
ON *:JOIN:#: {
  if i !isin $ial($nick).user && u !isin $ial($nick).user && a !isin $ial($nick).user && e !isin $ial($nick).user && o !isin $ial($nick).user && $asc($left($ial($nick).user,3)) !isnum 65-97 && _ !isin $ial($nick).user && ^ !isin $ial($nick).user && - !isin $ial($nick).user && 199 !isin $ial($nick).user && 200 !isin $ial($nick).user && $chr(125) !isin $ial($nick).user && $chr(123) !isin $ial($nick).user && ` !isin $ial($nick).user && $chr(46) !isin $ial($nick).user {
    if $len($remove($ial($nick).user,~)) > 4 && $mid($ial($nick).user,1,1) != $mid($ial($nick).user,2,1) && ($mid($ial($nick).user,2,1) !isnum) && $mid($ial($nick).user,1,1) != $mid($ial($nick).user,3,1) && $right($ial($nick).user,1) !isnum 0-9 && $asc($left($ial($nick).user,1)) != 123 && q8 !isin $ial($nick).user  { 
      ban # $+(*!,$ial($nick).user,@*) | kick $chan $nick Random identd | halt  
    }
  }
}