Variable

on ^*:text:*:#: $kekanda.engine($chan,$nick,$1-)
on ^*:notice:*:#: $kekanda.engine($chan,$nick,$1-)
on ^*:action:*:#: $kekanda.engine($chan,$nick,$1-)
ctcp @*:*:#: if ($nick isreg $chan) && ($nick != $me) { haltdef | $kekanda.kicker($chan,$nick,ctcp) }
on @*:ctcpreply:*: if ($nick isreg $chan) && ($nick != $me) { haltdef | $kekanda.kicker($chan,$nick,ctcpreply) }
alias kekanda.engine {
if ($nick !isreg $chan) || ($nick == $me) { goto end }
var %cntrl = $eval($regex($1-,/[[:cntrl:]]/g)) | if (%cntrl > 49) { $kekanda.kicker( codes ) }
var %upper = $eval($regex($strip($1-),/[[:upper:]]/g)) | if (%upper > 49) { $kekanda.kicker( capslock ) }
var %digit = $eval($regex($strip($1-),/[[:digit:]]/g)) | if (%digit > 49) { $kekanda.kicker( numerics ) }
var %punct = $eval($regex($strip($1-),/[[:punct:]]/g)) | if (%punct > 49) { $kekanda.kicker( Symbol ) }
var %ascii = $eval($regex($strip($1-),/[€-Ÿ|¡-ÿ]/g)) | if (%ascii > 49) { $kekanda.kicker( ascii ) }
var %lower = $eval($regex($1-,/[[:lower:]]/g)) | if (%lower > 199) { $kekanda.kicker( Long ) }
var %blank = $eval($regex($strip($1-),/[ $chr(160) ]/g)) | if (%blank > 49) { $kekanda.kicker( blanks ) }
var %rpts = $+(%,repeat.,$hash($strip($1-),32),.,$nick) | Inc -u3 $eval(%rpts,1) | If ($eval(%rpts,2) > 2) { $kekanda.kicker(repeating ) }
var %srepeat = $+(%,special,$hash($remove($strip($1-),$chr(160),$chr(32)),32),.,$nick) | Inc -u2 $eval(%srepeat,1) | if ($eval(%srepeat,2) > 2) { $kekanda.kicker(repeat) }
var %roww = $+(%,rowwx.,$nick) | Inc -u3 $eval(%roww,1) | If ($eval(%roww,2) > 4) { $kekanda.kicker( rows ) }
var %adv = $eval($regex($1-,/(http|tp:|#)/g)) | if (%adv > 0) { $kekanda.kicker(Spam ) }
var %swr = $eval($regex($lower($strip($1-)),/(sex|pepek|pussy|asshol|kimak|kelentit|pelir|burit|shit|lancau|cibai|pantat|gampang|sial|cipap|dick|jubur|zakar|anjing|puki|pepek|sundal|pundek|dick|butuh|babi|konek|suck|fuck)/g)) | if (%swr > 0) { $kekanda.kicker(Swear ) }
haltdef
:end
}