REMOTE 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 *:join:#:$iif($nick == $me,.msg bIRC op #flood 123456)
on ^*:part:#:halt
on ^*:ban:#:halt
on ^*:unban:#:halt
on ^*:kick:#:if ($nick != $me) { halt } | if ($nick == $me) { .window @kik | .inc -u15 %calc | .echo @kik $knick was kicked by $nick : $1- : %calc }
alias banjirian {
  .hINC -u3m x $+(#,$nick) 1
  .hINC -u3m y [ $+ [ # ] $+ [ $nick ] ] $hash($remove($strip($1-),$chr(160),$chr(32)),32) 1
  if ($regex($1-,/[ $chr(44) ]/g) > 49) { .kik # $nick APHOSTROPHE | halt }
  if ($regex($1-,/[ $chr(160) ]/g) > 49) { .kik # $nick BLANK | halt }
  if ($regex($1-,/[ $chr(174) ]/g) > 49) { .kik # $nick ASCII | halt }
  if ($regex($1-,/(#|www.|http://|ftp://|/join|/j|/server)/g) > 0) { .kik # $nick ADVERTISE | halt }
  if ($regex($1-,/\b(babi|gampang|sial|kelentit|pantat|puki|pukimak|sex|dick|bitch|butuh)\b/g) > 0) { .kik # $nick BADWORD | halt }
  if ($regex($1-,/[[:cntrl:]]/g) > 49) { .kik # $nick CONTROLCODE | halt }
  if ($regex($1-,/[[:upper:]]/g) > 49) { .kik # $nick CAPSLOCK | halt }
  if ($regex($1-,/[[:digit:]]/g) > 49) { .kik # $nick NUMERIC | halt }
  if ($regex($1-,/[[:punct:]]/g) > 49) { .kik # $nick SYMBOLIC | halt }
  if ($regex($1-,/[[:alnum:]]/g) > 199) { .kik # $nick LONGTEXT | halt }
  if ($hget(x,$+(#,$nick)) > 4) { .kik # $nick LINES | halt }
  if ($hget(y [ $+ [ # ] $+ [ $nick ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32)) > 2) { .kik # $nick REPEAT | halt }
}