REMOTE VARIABLES 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 {
  var %1 $regex($1-,/[ $chr(44) ]/g)
  var %2 $regex($1-,/[ $chr(160) ]/g)
  var %3 $regex($1-,/[ $chr(174) ]/g)
  var %4 $regex($1-,/(#)/g)
  var %5 $regex($1-,/\b(babi)\b/g)
  var %6 $regex($1-,/[[:cntrl:]]/g)
  var %7 $regex($1-,/[[:upper:]]/g)
  var %8 $regex($1-,/[[:digit:]]/g)
  var %9 $regex($1-,/[[:punct:]]/g)
  var %10 $regex($1-,/[[:alnum:]]/g)
  var %11 $hget(x,$+(#,$nick))
  var %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
}