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. }
