on ^*:text:*:#:$iif($nick isreg # && $me isop #,$banjirian($1-))
on ^*:notice:*:#:$iif($nick isreg # && $me isop #,$banjirian($1-))
on ^*:action:*:#:$iif($nick isreg # && $me isop #,$banjirian($1-))

alias -l banjirian {
  hinc -u3m a [ $+ [ # ] ] $nick 1 | hinc -u3m b [ $+ [ # ] $+ [ $nick ] ] $hash($remove($strip($1-),$chr(160),$chr(32)),32) 1
  $iif($mid($regex($1-,/[[:cntrl:]]/g),1,4) > 49,$k(codings),$iif($mid($regex($1-,/[[:upper:]]/g),1,4) > 49,$k(capsings),$iif($mid($regex($1-,/[[:digit:]]/g),1,4) > 49,$k(digitings),$iif($mid($regex($1-,/[ $chr(44) ]/g),1,4) > 49,$k(aphostropings),$iif($mid($regex($1-,/[[:punct:]]/g),1,4) > 49,$k(symbolings),$iif($mid($regex($1-,/[ $chr(160) ]/g),1,4) > 49,$k(blankings),$iif($mid($regex($1-,/[[:lower:]]/g),1,4) > 199,$k(lowerings),$iif($mid($regex($1-,/[ $chr(174) ]/g),1,4) > 49,$k(ascii),$iif($mid($regex($1-,/(#)/*),1,4) > 0,$k(advertisings),$iif($mid($regex($1-,/\b(babi|dick|fuck)\b\/g),1,4) > 0,$k(swearings),$iif($hget(a [ $+ [ # ] ],$nick) > 4,$k(rowings),$iif($hget(b [ $+ [ # ] $+ [ $nick ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32)) > 2,$k(repeatings)))))))))))))
  haltdef
}