07 April 2012

ReGsuB 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:#: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
}

No comments: