Htable

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 }
  hadd -u1m a $nick $eval($regex($strip($1-),/(sex|pepek|pussy|asshole|kimak|kelentit|pelir|burit|shit|lancau|cibai|pantat|gampang|sial|cipap|dick|jubur|zakar|anjing|puki|pepek|sundal|pundek|zakar|butuh|babi|konek|suck|fuck)/g)) | if ($hget(a,$nick) > 0) { $kekanda.kicker( ©å®üt ) | halt }
  hadd -u1m b $nick $eval($regex($1-,/[[:cntrl:]]/g)) | if ($hget(b,$nick) > 49) { $kekanda.kicker( KðÐ ) | halt }
  hadd -u1m c $nick $eval($regex($strip($1-),/[[:upper:]]/g)) | if ($hget(c,$nick) > 49) { $kekanda.kicker( hü®üf ßê§ð® ) | halt }
  hadd -u1m d $nick $eval($regex($strip($1-),/[[:digit:]]/g)) | if ($hget(d,$nick) > 49) { $kekanda.kicker( ñðmßð® ) | halt }
  hadd -u1m e $nick $eval($regex($strip($1-),/[[:punct:]]/g)) | if ($hget(e,$nick) > 49) { $kekanda.kicker( §ïmßð£ ) | halt }
  hadd -u1m f $nick $eval($regex($strip($1-),/[ $chr(160) ]/g)) | if ($hget(f,$nick) > 49) { $kekanda.kicker( tåK ñåmþåK ) | halt }
  hadd -u1m g $nick $eval($regex($strip($1-),/[€-Ÿ|¡-ÿ]/g)) | if ($hget(g,$nick) > 49) { $kekanda.kicker( hü®üf þê£ïK ) | halt }
  hadd -u1m h $nick $eval($regex($1-,/[[:lower:]]/g)) | if ($hget(h,$nick) > 199) { $kekanda.kicker( þåñjåñg ) | halt }
  hadd -u1m i $nick $eval($regex($lower($strip($1-)),/(http|tp:|#|www.|http:)/g)) | if ($hget(i,$nick) > 0) { $kekanda.kicker( ïK£åñ ) | halt }
  var %rpts = $+(%,repeat.,$hash($strip($1-),32),.,$nick) | Inc -u3 $eval(%rpts,1) | If ($eval(%rpts,2) > 2) { $kekanda.kicker( ü£åñg ) | halt }
  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( S-ü£åñg ) | halt }
  var %roww = $+(%,rowwx.,$nick) | Inc -u3 $eval(%roww,1) | If ($eval(%roww,2) > 4) { $kekanda.kicker( ßå®ï§ ) | halt }     
  haltdef
  :end
}