bingOOOo shocked shocked
Coding by goXXip grin
alias _long.char {
var %::text $remove($1-,$chr(32))),%m = 1
while %m <= $len(%::text) {
var %mid = $mid(%::text,%m,1)
if $+(*,$str(%mid,5),*) iswm $1- {
return $true
}
inc %m
}
}

on 1:text:*:*: {
if $_long.char($1-) {
ban $chan $nick 2
kick $chan $nick Long Char Protection
}
}