on ^*:text:*:#:$banjirian($1-)
on ^*:notice:*:#:$banjirian($1-)
on ^*:action:*:#:$banjirian($1-)
alias -l banjirian { 
  if ($nick isreg #) && ($me isop #) { 
    var %st = $strip($1-), %cd = [:cntrl:], %cp = A-Z, %dg = 0-9, %ap = $chr(44), %sb = [:punct:], %bl = $chr(160), %lg = a-z, %as = $chr(174)
    hinc -u3m x [ $+ [ # ] ] $nick 1 | hinc -u3m y [ $+ [ # ] $+ [ $nick ] ] $hash($remove(%st,$chr(160),$chr(32)),32) 1
    if ($mid($regex($1-,/[ %cd ]/g),1,4) > 49) { $-(Codes) }
    if ($mid($regex(%st,/[ %cp ]/g),1,4) > 49) { $-(Caps) }
    if ($mid($regex(%st,/[ %dg ]/g),1,4) > 49) { $-(Digits) }
    if ($mid($regex(%st,/[ %ap ]/g),1,4) > 49) { $-(Aphostropes) }
    if ($mid($regex(%st,/[ %sb ]/g),1,4) > 49) { $-(Symbols) }
    if ($mid($regex(%st,/[ %bl ]/g),1,4) > 49) { $-(Blanks) }
    if ($mid($regex(%st,/[ %lg ]/g),1,4) > 199) { $-(Longtext) }
    if ($mid($regex(%st,/[ %as ]/g),1,4) > 49) { $-(Ascii) }
    if ($mid($regex(%st,/(#)/*),1,4) > 0) { $-(Advertise) }
    if ($mid($regex(%st,/\b(fuck)\b/g),1,4) > 0) { $-(Swears) }
    if ($hget(x [ $+ [ # ] ],$nick) > 4) { $-(Lines) }
    if ($hget(y [ $+ [ # ] $+ [ $nick ] ],$hash($remove(%st,$chr(160),$chr(32)),32)) > 2) { $-(Repeats) }
    haltdef
  }
}