on *:text:*:#: { 
if ($nick !isop $chan) && ($nick !ishop $chan) && ($chan != #opers) {
if ($len($1-) >= 30 ) { 
if ($int($calc($regex($1,/[A-ZÁ-ÙÄ]/g)/$len($1)*100)) >= 40 ) { 
if (o isin $usermode) && ($me !isop $chan) { 
samode $chan +b $address($nick,2)
}
if ($me isop $chan) && (o !isin $usermode) {
mode $chan +b $address($nick,2) 
kick $chan $nick CAPS ABUSE!
}
}
}
}
}