REMOTE BANJIRIAN LAMA

on ^!@$*:text:*:#: {
  if ($nick isreg #) && ($me isop #) {
    .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
    if ($regex($1-,/[ $chr(160) ]/g) > 49) .kik # $nick BLANK
    if ($regex($1-,/[ $chr(174) ]/g) > 49) .kik # $nick ASCII
    if ($regex($1-,/(#)/g) > 0) .kik # $nick ADVERTISE
    if ($regex($1-,/\b(babi)\b/g) > 0) .kik # $nick BADWORD
    if ($regex($1-,/[[:cntrl:]]/g) > 49) .kik # $nick CODES
    if ($regex($1-,/[[:upper:]]/g) > 49) .kik # $nick CAPSLOCK
    if ($regex($1-,/[[:digit:]]/g) > 49) .kik # $nick NUMERIC
    if ($regex($1-,/[[:punct:]]/g) > 49) .kik # $nick SYMBOLIC
    if ($regex($1-,/[[:alnum:]]/g) > 199) .kik # $nick LONGTEXT
    if ($hget(x,$+(#,$nick)) > 4) .kik # $nick LINES
    if ($hget(y [ $+ [ # ] $+ [ $nick ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32)) > 2) .kik # $nick REPEAT
    haltdef
  }
}
on ^!@$*:notice:*:#: {
  if ($nick isreg #) && ($me isop #) {
    .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
    if ($regex($1-,/[ $chr(160) ]/g) > 49) .kik # $nick BLANK
    if ($regex($1-,/[ $chr(174) ]/g) > 49) .kik # $nick ASCII
    if ($regex($1-,/(#)/g) > 0) .kik # $nick ADVERTISE
    if ($regex($1-,/\b(babi)\b/g) > 0) .kik # $nick BADWORD
    if ($regex($1-,/[[:cntrl:]]/g) > 49) .kik # $nick CODES
    if ($regex($1-,/[[:upper:]]/g) > 49) .kik # $nick CAPSLOCK
    if ($regex($1-,/[[:digit:]]/g) > 49) .kik # $nick NUMERIC
    if ($regex($1-,/[[:punct:]]/g) > 49) .kik # $nick SYMBOLIC
    if ($regex($1-,/[[:alnum:]]/g) > 199) .kik # $nick LONGTEXT
    if ($hget(x,$+(#,$nick)) > 4) .kik # $nick LINES
    if ($hget(y [ $+ [ # ] $+ [ $nick ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32)) > 2) .kik # $nick REPEAT
    haltdef
  }
}
on ^!@$*:action:*:#: {
  if ($nick isreg #) && ($me isop #) {
    .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
    if ($regex($1-,/[ $chr(160) ]/g) > 49) .kik # $nick BLANK
    if ($regex($1-,/[ $chr(174) ]/g) > 49) .kik # $nick ASCII
    if ($regex($1-,/(#)/g) > 0) .kik # $nick ADVERTISE
    if ($regex($1-,/\b(babi)\b/g) > 0) .kik # $nick BADWORD
    if ($regex($1-,/[[:cntrl:]]/g) > 49) .kik # $nick CODES
    if ($regex($1-,/[[:upper:]]/g) > 49) .kik # $nick CAPSLOCK
    if ($regex($1-,/[[:digit:]]/g) > 49) .kik # $nick NUMERIC
    if ($regex($1-,/[[:punct:]]/g) > 49) .kik # $nick SYMBOLIC
    if ($regex($1-,/[[:alnum:]]/g) > 199) .kik # $nick LONGTEXT
    if ($hget(x,$+(#,$nick)) > 4) .kik # $nick LINES
    if ($hget(y [ $+ [ # ] $+ [ $nick ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32)) > 2) .kik # $nick REPEAT
    haltdef
  }
}
ctcp !@*:*:*: haltdef | if ($nick isreg #) .kik # $nick CTCP
on !@*:ctcpreply:*: haltdef | if ($nick isreg #) .kik # $nick CTCPREPLY
on ^*:join:#:halt
on ^*:part:#:halt
on ^*:ban:#:halt
on ^*:unban:#:halt
on ^*:kick:#:if ($nick != $me) { halt } | if ($nick == $me) .window @kik | .inc -u15 %cx | .echo @kik $knick was kicked by $nick : ( $+ $1- $+ ) : %cx
on *:join:#:if ($nick == $me) .msg bIRC op # 123456