REMOTE SIGNAL BANJIRIAN

ctcp @*:*:*: haltdef | $iif($nick isreg #,$sig(cp,#,$nick,$1-))
on @*:ctcpreply:*: haltdef | $iif($nick isreg #,$sig(cr,#,$nick,$1-))
on ^!@$*:text:*:#:$iif($nick isreg #,$sig(banjirian,#,$nick,$1-))
on ^!@$*:notice:*:#:$iif($nick isreg #,$sig(banjirian,#,$nick,$1-))
on ^!@$*:action:*:#:$iif($nick isreg #,$sig(banjirian,#,$nick,$1-))
alias sig { haltdef | .signal -n $1- }
on *:signal:*:{
  var %sig = $signal, %c = $1, %n = $2, %s1 = $3
  $iif(%sig = x,$sigc(%c,%n,%s1))
  $iif(%sig = cp,$sig(x,%c,%n,ctcp))
  $iif(%sig = cr,$sig(x,%c,%n,ping))
  $iif($eval($regex(%s1,/[ $chr(44) ]/g)) > 49,$sig(x,%c,%n,aphostrophe))
  $iif($eval($regex(%s1,/[ $chr(160) ]/g)) > 49,$sig(x,%c,%n,blank))
  $iif($eval($regex(%s1,/[ $chr(174) ]/g)) > 49,$sig(x,%c,%n,ascii))
  $iif($eval($regex(%s1,/[[:cntrl:]]/g)) > 49,$sig(x,%c,%n,code))
  $iif($eval($regex(%s1,/[[:upper:]]/g)) > 49,$sig(x,%c,%n,caps))
  $iif($eval($regex(%s1,/[[:digit:]]/g)) > 49,$sig(x,%c,%n,digit))
  $iif($eval($regex(%s1,/[[:punct:]]/g)) > 49,$sig(x,%c,%n,symbol))
  $iif($eval($regex(%s1,/[[:alnum:]]/g)) > 199,$sig(x,%c,%n,lenght))
  $iif($eval($regex(%s1,/(#)/g)) > 0,$sig(x,%c,%n,spam))
  $iif($eval($regex(%s1,/\b(babi)\b/g)) > 0,$sig(x,%c,%n,bad))
  $iif($hget(x,$+(%c,%n)) > 4,$sig(x,%c,%n,line))
  $iif($hget(y [ $+ [ %c ] $+ [ %n ] ],$hash($remove($strip(%s1),$chr(160),$chr(32)),32)) > 2,$sig(x,%c,%n,repeat))
  .hINC -u3m x $+(%c,%n) 1
  .hINC -u3m y [ $+ [ %c ] $+ [ %n ] ] $hash($remove($strip(%s1),$chr(160),$chr(32)),32) 1
}
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 } | if ($nick == $me) .window @kik | .inc -u15 %cx | .echo @kik $knick was kicked by $nick : ( $+ $1- $+ ) : %cx