Regsub

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 }
  if ($eval($regsub($strip($1-),/(cipap|fuck|bastard|pukimak|pantat|burit|shit|bitch|dick|pantek|pepek|butuh|butoh|jubo|zakar|babi|kote|konek|lancap|suck|pussy|puki|asshole|cock|poen)/g,,%lan)) > 0) { $kekanda.kicker(harassing ) }
  if ($eval($regsub($1-,/[[:cntrl:]]/g,,%lan)) > 49) { $kekanda.kicker(excessive codes ) }
  if ($eval($regsub($strip($1-),/[[:upper:]]/g,,%lan)) > 49) { $kekanda.kicker(excessive capslock ) }
  if ($eval($regsub($strip($1-),/[[:digit:]]/g,,%lan)) > 49) { $kekanda.kicker(excessive numerics ) }
  if ($eval($regsub($strip($1-),/[[:punct:]]/g,,%lan)) > 49) { $kekanda.kicker(excessive punctuations ) }
  if ($eval($regsub($strip($1-),/[€-Ÿ|¡-ÿ]/g,,%lan)) > 49) { $kekanda.kicker(excessive ascii ) } 
  if ($eval($regsub($strip($1-),/[[:lower:]]/g,,%lan)) > 199) { $kekanda.kicker(excessive characters ) }
  if ($eval($regsub($1-,/[ $chr(160) ]/g,,%lan)) > 49) { $kekanda.kicker(excessive blanks ) }
  if ($eval($regsub($strip($1-),/(http|tp:|#|www.|.com|.net|.org|.my)/g,,%lan)) > 0) { $kekanda.kicker(spamming ) }
  var %rpts = $+(%,repeat.,$hash($strip($1-),32),.,$nick) | Inc -u3 $eval(%rpts,1) | If ($eval(%rpts,2) > 2) { $kekanda.kicker(over 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(special repeat) }
  var %roww = $+(%,rowwx.,$nick) | Inc -u3 $eval(%roww,1) | If ($eval(%roww,2) > 4) { $kekanda.kicker(excessive flooding ) }     
  haltdef
  :end
}