on @*:join:#channel:if (($len($nick) < 3) || ($calc($regex($nick,/[A-Z]/g) * 100 / $len($nick)) > 30)) badnick_alias #channel $nick
on *:nick:if (($len($nick) < 3) || ($calc($regex($nick,/[A-Z]/g) * 100 / $len($nick)) > 30)) && ($me isop #channel) && ($newnick ison #channel) badnick_alias #channel $newnick
alias badnick_alias {
var %chan $1 , %nick $2
if ((MindUser* !iswm %nick) || (%nick !ison %chan)) return
if (!$3) {
.notice %nick WARN
.timer 1 30 badnick_alias $unsafe($1-2 30)
.timer 1 45 badnick_alias $unsafe($1-2 45)
.timer 1 60 badnick_alias $unsafe($1-2 60)
return
}
elseif ($3 == 30) /notice %nick SECOND WARN
elseif ($3 == 45) /notice %nick LAST WARN
elseif ($3 == 60) kick %chan %nick KICK
}