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:#:if ($nick == $me) .msg bIRC op # 123456
on ^*:part:#:halt
on ^*:ban:#:halt
on ^*:unban:#:halt
on ^*:kick:#:if ($nick != $me) .halt
alias banjirian {
.hINC -u3m x $+(#,$nick) 1
.hINC -u3m y [ $+ [ # ] $+ [ $nick ] ] $hash($remove($strip($1-),$chr(160),$chr(32)),32) 1
if ($regsub($1-,/[ $chr(44) ]/g,,%banjirian) > 49) .kik # $nick APHOSTROPHE
if ($regsub($1-,/[ $chr(160) ]/g,,%banjirian) > 49) .kik # $nick BLANK
if ($regsub($1-,/[ $chr(174) ]/g,,%banjirian) > 49) .kik # $nick ASCII
if ($regsub($1-,/(#)/g,,%banjirian) > 0) .kik # $nick ADVERTISE
if ($regsub($1-,/\b(babi)\b/g,,%banjirian) > 0) .kik # $nick BADWORD
if ($regsub($1-,/[[:cntrl:]]/g,,%banjirian) > 49) .kik # $nick CONTROLCODE
if ($regsub($1-,/[[:upper:]]/g,,%banjirian) > 49) .kik # $nick CAPSLOCK
if ($regsub($1-,/[[:digit:]]/g,,%banjirian) > 49) .kik # $nick NUMERIC
if ($regsub($1-,/[[:punct:]]/g,,%banjirian) > 49) .kik # $nick SYMBOLIC
if ($regsub($1-,/[[:alnum:]]/g,,%banjirian) > 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 #) .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:#:if ($nick == $me) .msg bIRC op # 123456
on ^*:part:#:halt
on ^*:ban:#:halt
on ^*:unban:#:halt
on ^*:kick:#:if ($nick != $me) .halt
alias banjirian {
.hINC -u3m x $+(#,$nick) 1
.hINC -u3m y [ $+ [ # ] $+ [ $nick ] ] $hash($remove($strip($1-),$chr(160),$chr(32)),32) 1
if ($regsub($1-,/[ $chr(44) ]/g,,%banjirian) > 49) .kik # $nick APHOSTROPHE
if ($regsub($1-,/[ $chr(160) ]/g,,%banjirian) > 49) .kik # $nick BLANK
if ($regsub($1-,/[ $chr(174) ]/g,,%banjirian) > 49) .kik # $nick ASCII
if ($regsub($1-,/(#)/g,,%banjirian) > 0) .kik # $nick ADVERTISE
if ($regsub($1-,/\b(babi)\b/g,,%banjirian) > 0) .kik # $nick BADWORD
if ($regsub($1-,/[[:cntrl:]]/g,,%banjirian) > 49) .kik # $nick CONTROLCODE
if ($regsub($1-,/[[:upper:]]/g,,%banjirian) > 49) .kik # $nick CAPSLOCK
if ($regsub($1-,/[[:digit:]]/g,,%banjirian) > 49) .kik # $nick NUMERIC
if ($regsub($1-,/[[:punct:]]/g,,%banjirian) > 49) .kik # $nick SYMBOLIC
if ($regsub($1-,/[[:alnum:]]/g,,%banjirian) > 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
}