Regsubex

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 -l kekanda.engine {
  if ($nick isreg $chan) && ($me isop $chan ) {
    .haltdef
    var %a = $regex($1-,/[[:cntrl:]]/g)
    var %b = $regex($1-,/[[:upper:]]/g)
    var %c = $regex($1-,/[[:digit:]]/g)
    var %d = $regex($1-,/[[:punct:]]/g)
    var %e = $regex($1-,/[ $chr(160) ]/g)
    var %f = $regex($1-,/[ $chr(174) ]/g)
    var %g = $regex($1-,/[[:lower:]]/g)
    var %h = $regex($1-,/\b(f**k|suck|****|****|pregnant  dog|thingy|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)\b/Si))
    var %i = $regex($remove($1-,$chr(40),$chr(41)),/(?:^|(\40|\240))((http+(:|s:)\/\/\S*)|((www\.)+(\w)\S*)|#[^\40]\S*)/Si))
    if ($regsubex(%a,/[[:cntrl:]]/g,\t) > 49) $kekanda.kicker codes
    if ($regsubex(%b,/[[:upper:]]/g,\t) > 49) $kekanda.kicker caps
    if ($regsubex(%c,/[[:digit:]]/g,\n) > 49) $kekanda.kicker number
    if ($regsubex(%d,/[[:punct:]]/g,\t) > 49) $kekanda.kicker symbol
    if ($regsubex(%e,/[ $chr(160) ]/g,\t) > 49) $kekanda.kicker blur
    if ($regsubex(%f,/[ $chr(174) ]/g,\t) > 49) $kekanda.kicker ascii
    if ($regsubex(%g,/[[:lower:]]/g,\t) > 199) $kekanda.kicker lenght
    if ($regsubex(%h,/\b(f**k|suck|****|****|pregnant  dog|thingy|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)\b/Si,\t))  $kekanda.kicker ascii
    if ($regsubex(%i,/(?:^|(\40|\240))((http+(:|s:)\/\/\S*)|((www\.)+(\w)\S*)|#[^\40]\S*)/Si,\t)) $kekanda.kicker advertise
    return
  }
}