gettok protection channel by fresh

on !^*:text:*:#: { if ($nick isreg #) { $e($1-) | haltdef } }
on !^*:notice:*:#: { if ($nick isreg #) { $e($1-) | haltdef } }
on !^*:action:*:#: { if ($nick isreg #) { $e($1-) | haltdef } }
alias e {
if ($gettok($regex($1-,/[[:cntrl:]]/g),1,46) > 49) $s(codes)
if ($gettok($regex($1-,/[[:upper:]]/g),1,46) > 49) $s(caps)
if ($gettok($regex($1-,/[[:digit:]]/g),1,46) > 49) $s(numbers)
if ($gettok($regex($1-,/[[:punct:]]/g),1,46) > 49) $s(symbols)
if ($gettok($regex($1-,/[ $chr(160) ]/g),1,46) > 49) $s(blurs)
if ($gettok($regex($1-,/[ $chr(174) ]/g),1,46) > 49) $s(asciis)
if ($gettok($regex($1-,/[[:lower:]]/g),1,46) > 199) $s(lenghts)
if ($gettok($regex($1-,/\b(burit|sex|pepek|kimak|kelentit|kotey|kote|pelir|lancau|cibai|pantat|gampang|sial|cipap|dick|jubur|zakar|anjing|puki|pepek|sundal|pundek|zakar|babi|butuh|konek|suck|fuck)\b/Si),1,46)) $s(swear)
if ($gettok($regex($remove($1-,$chr(40),$chr(41)),/(?:^|(\40|\240))((http+(:|s:)\/\/\S*)|((www\.{1})+(.*)+(\.{1})+(\w{2,3}) \S*)|#[^\40]\S*)/Si),1,46)) $s(advertise)
.hinc -u3m rep [ $+ [ # ] $+ [ $nick ] ] $hash($remove($strip($1-),$chr(160),$chr(32)),32) 1 | if ($hget(rep [ $+ [ # ] $+ [ $nick ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32)) = 3) { $s(repeats)) }
.hinc -u3m row [ $+ [ # ] ] $nick 1 | if ($hget(row [ $+ [ # ] ],$nick) = 5) { $s(lines)) }
}
alias -l s {
.hinc -u3m h e
if ($hget(h,e) < 21) {
if ($nick !ison #) { return }
else { !.Quote -q kick $chan $nick $1- %t | .kiban | return }
}
}
alias kiban {
.hadd -u1m mb $nick $+ *@*kN*
.timermb 1 1 .mode $chan + $+ $str(b,$hget(mb,*).item) $hget(mb,1).item $hget(mb,2).item $hget(mb,3).item $hget(mb,4).item $hget(mb,5).item $hget(mb,6).item $hget(mb,7).item $hget(mb,.item $hget(mb,9).item $hget(mb,10).item $hget(mb,11).item $hget(mb,12).item
}