Originally Posted By: LostShadow
Code:
alias israndom { var %c = 1 | var %count = 0 | while (%c <= $len($1)) { if ($isconsonant($mid($1,%c,1))) { inc %count } |  else { set %count 0 } | if (%count >= 4) { return $true } | inc %c } | return $false }

alias isconsonant { var %consonant = bcdfghjklmnpqrstvwxyz | return $iif($1 isin %consonant,$true,$false) }

on @*:JOIN:#:if $israndom($nick) { ban -k # $nick 2 Random nick. }


This does the same thing:
Code:
on @*:JOIN:#:if (!$regex($nick,a|e|i|o|u)) ban -k # $nick 2 Random nick.