On ^!*:text:*:#:$iif($nick isreg # && $me isop #,$banjirian($1-)) 
On ^!*:notice:*:#:$iif($nick isreg # && $me isop #,$banjirian($1-)) 
On ^!*:action:*:#:$iif($nick isreg # && $me isop #,$banjirian($1-)) 
alias -l banjirian { 
  hinc -u2m remote banjirian $regex($1-,/[[:cntrl:]]/g) | $iif($hget(remote,banjirian) > 50,$kick(CODES))
  hinc -u2m remote banjirian $regex($1-,/[A-Z]/g) | $iif($hget(remote,banjirian) > 50,$kick(CAPS))
  hinc -u2m remote banjirian $regex($1-,/\d/g) | $iif($hget(remote,banjirian) > 50,$kick(DIGIT))
  hinc -u2m remote banjirian $regex($1-,/[(,)]/g) | $iif($hget(remote,banjirian) > 50,$kick(APHOSTROPHE))
  hinc -u2m remote banjirian $regex($1-,/[[:punct:]]/g) | $iif($hget(remote,banjirian) > 50,$kick(SYMBOL))
  hinc -u2m remote banjirian $regex($1-,/[ $chr(160) ]/g) | $iif($hget(remote,banjirian) > 50,$kick(BLANK))
  hinc -u2m remote banjirian $regex($1-,/[a-z]/g) | $iif($hget(remote,banjirian) > 200,$kick(LONGTEXT))
  hinc -u2m remote banjirian $regex($1-,/[ $chr(174) ]/g) | $iif($hget(remote,banjirian) > 50,$kick(ASCII))
  hinc -u2m remote banjirian $pos($level($1-),adv,0) | $iif($hget(remote,banjirian) = 1,$kick(ADVERTISE))
  hinc -u2m remote banjirian $pos($level($1-),bad,0) | $iif($hget(remote,banjirian) = 1,$kick(SWEAR))
  haltdef
}

On ^!*:text:*:#:$iif($nick isreg # && $me isop #,$banjirian($1-)) 
On ^!*:notice:*:#:$iif($nick isreg # && $me isop #,$banjirian($1-)) 
On ^!*:action:*:#:$iif($nick isreg # && $me isop #,$banjirian($1-)) 
alias -l banjirian { 
  hinc -u2m remote banjirian $regex($1-,/[[:cntrl:]]/g)
  hinc -u2m remote banjirian $regex($1-,/[A-Z]/g) 
  hinc -u2m remote banjirian $regex($1-,/\d/g) 
  hinc -u2m remote banjirian $regex($1-,/[(,)]/g)  
  hinc -u2m remote banjirian $regex($1-,/[[:punct:]]/g) 
  hinc -u2m remote banjirian $regex($1-,/[ $chr(160) ]/g) 
  hinc -u2m remote banjirian $regex($1-,/[a-z]/g) 
  hinc -u2m remote banjirian $regex($1-,/[ $chr(174) ]/g) 
  hinc -u2m remote banjirian $pos($level($1-),adv,0) 
  hinc -u2m remote banjirian $pos($level($1-),bad,0)  
  $iif($hget(remote,banjirian) > 50,$kick(CODES),$iif($hget(remote,banjirian) > 50,$kick(CAPS),$iif($hget(remote,banjirian) > 50,$kick(DIGIT),$iif($hget(remote,banjirian) > 50,$kick(APHOSTROPHE),$iif($hget(remote,banjirian) > 50,$kick(SYMBOL),$iif($hget(remote,banjirian) > 50,$kick(BLANK),$iif($hget(remote,banjirian) > 200,$kick(LONGTEXT),$iif($hget(remote,banjirian) > 50,$kick(ASCII),$iif($hget(remote,banjirian) = 1,$kick(ADVERTISE),$iif($hget(remote,banjirian) = 1,$kick(SWEAR)))))))))))
  haltdef
}