Something like this maybe, it only counts the actual ^BURKO chars
Code:
on $@*:text:/[]/:#:if $regex($1-,/[[:cntrl:]]/g) >= 40 { ban -ku60 # $nick 2 Attribute abuse: $v1 codes }