SIGNAL REMOTE BANJIRIAN

ctcp ^*@*:*:*: haltdef | $iif($nick isreg #,$sig(c,#,$nick,$1-))
on !@*:ctcpreply:*: haltdef | $iif($nick isreg #,$sig(r,#,$nick,$1-))
on ^!@$*:text:*:#:$iif($nick isreg #,$sig(x,#,$nick,$1-))
on ^!@$*:notice:*:#:$iif($nick isreg #,$sig(x,#,$nick,$1-))
on ^!@$*:action:*:#:$iif($nick isreg #,$sig(x,#,$nick,$1-))
alias sig { haltdef | .signal -n $1- }
on *:signal:*: {
var %sg = $signal, %c = $1, %n = $2, %s1 = $3-
$iif(%sg = c,$sig(y,%c,%n,ctcpings),$iif(%sg = r,$sig(y,%c,%n,ctcpings),$iif(%sg = x,$iif($regex(%s1,/[ $chr(44) ]/g) > 49,$sig(y,%c,%n,aphostropings),$iif($regex(%s1,/[ $chr(160) ]/g) > 49,$sig(y,%c,%n,blankings),$iif($regex(%s1,/[ $chr(174) ]/g) > 49,$sig(y,%c,%n,asciings),$iif($regex(%s1,/[[:cntrl:]]/g) > 49,$sig(y,%c,%n,controlings),$iif($regex(%s1,/[[:upper:]]/g) > 49,$sig(y,%c,%n,upperings),$iif($regex(%s1,/[[:digit:]]/g) > 49,$sig(y,%c,%n,digitings),$iif($regex(%s1,/[[:punct:]]/g) > 49,$sig(y,%c,%n,punctings),$iif($regex(%s1,/[[:alnum:]]/g) > 199,$sig(y,%c,%n,alnumings),$iif($regex(%s1,/(#)/g) > 0,$sig(y,%c,%n,spammings),$iif($regex(%s1,/\b(babi|fuck)\b/g) > 0,$sig(y,%c,%n,swearings),$iif($hget(x,(%c,%n)) > 4,$sig(y,%c,%n,rowings),$iif($hget(y [ [ %c ] [ %n ] ],$hash($remove($strip(%s1),$chr(160),$chr(32)),32)) > 2,$sig(y,%c,%n,repeatings))))))))))))),$iif(%sg = y,$k(%c,%n,%s1)))))
.hinc -u3m x (%c,%n) 1 | .hinc -u3m y [ [ %c ] [ %n ] ] $hash($remove($strip(%s1),$chr(160),$chr(32)),32) 1
}