if {[regexp {^[a-z]{4,}![a-z]{4,}$} $nick!$id]} { if {(![string match {*[aeiou]*} $nick]) || ([regexp {^[^aeiou]{4}|[aeiou]{4}|q[^ua]|[^aeioux]x[^aeiouyx]|[^aeiouy]{5}} $nick message] && ![regexp {a{3}|e{3}|i{3}|o{3}|u{3}} $nick])} { if {![info exists message]} { set message "Possible drone" } kick # $nick *$message* } if {![string match *$id* $nick] && [regexp {q[bcdfghknpqrstwzxv]|x[dfghkmnqrvz]|z[bcdfhmqrtvx]|v[bfghkmnqxw]|g[zv]|kz|bgb|wj|lx|jwm} $nick message]} { kick # $nick *$message* }
on @*:JOIN:#: { if ($regex($nick,/^([a-z]{4,})/S)) { kick # $nick possible drone. } elseif ($regex($nick,/^(q[bcdfghknpqrstwzxv]|x[dfghkmnqrvz]|z[bcdfhmqrtvx]|v[bfghkmnqxw]|g[zv]|kz|bgb|wj|lx|jwm)/Si)) { kick # $regml(1) possible drone. } }
on @*:JOIN:#: { if ($calc($regex($nick,/[a-zA-Z0-9]/gS)) >= 4) { kick $chan $nick possible drone. } elseif ($regex($nick,/^(q[bcdfghknpqrstwzxv]|x[dfghkmnqrvz]|z[bcdfhmqrtvx]|v[bfghkmnqxw]|g[zv]|kz|bgb|wj|lx|jwm)/gSi)) { kick # $regml(1) possible drone. } }