REMOTE ALIASES BANJIRIAN

on ^*:text:*:#:if ($nick isreg #) .banjirian $1-
on ^*:notice:*:#:if ($nick isreg #) .banjirian $1-
on ^*:action:*:#:if ($nick isreg #) .banjirian $1-
on @*:ctcpreply:*: haltdef | if ($nick isreg #) .kik # $nick CTCPREPLY
ctcp @*:*:*: haltdef | if ($nick isreg #) .kik # $nick CTCP
on ^*:join:#:halt
on ^*:part:#:halt
on ^*:ban:#:halt
on ^*:unban:#:halt
on ^*:kick:#:if ($nick != $me) .halt
alias banjirian {
  alias 1 $regex($1-,/[ $chr(44) ]/g)
  alias 2 $regex($1-,/[ $chr(160) ]/g)
  alias 3 $regex($1-,/[ $chr(174) ]/g)
  alias 4 $regex($1-,/(#)/g)
  alias 5 $regex($1-,/\b(babi)\b/g)
  alias 6 $regex($1-,/[[:cntrl:]]/g)
  alias 7 $regex($1-,/[[:upper:]]/g)
  alias 8 $regex($1-,/[[:digit:]]/g)
  alias 9 $regex($1-,/[[:punct:]]/g)
  alias 10 $regex($1-,/[[:alnum:]]/g)
  alias 11 $hget(x,$+(#,$nick))
  alias 12 $hget(y [ $+ [ # ] $+ [ $nick ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32))
  .hINC -u3m x $+(#,$nick) 1
  .hINC -u3m y [ $+ [ # ] $+ [ $nick ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32) 1
  if ($1 > 49) .kik # $nick APHOSTROPHE
  if ($2 > 49) .kik # $nick BLANK
  if ($3 > 49) .kik # $nick ASCII
  if ($4 > 0) .kik # $nick ADVERTISE
  if ($5 > 0) .kik # $nick BADWORD
  if ($6 > 49) .kik # $nick CONTROLCODE
  if ($7 > 49) .kik # $nick CAPSLOCK
  if ($8 > 49) .kik # $nick NUMERIC
  if ($9 > 49) .kik # $nick SYMBOLIC
  if ($10 > 199) .kik # $nick LONGTEXT
  if ($11 > 49) .kik # $nick LINES
  if ($12 > 49) .kik # $nick REPEAT
  haltdef
}