on *:TEXT:*:#: {
if ($me isop $chan || $me ishop $chan) {
var %percent = 70
if ($calc($regex($1-,/[A-Z]/Sg) / $len($1-)) >= $calc(%percent / 100)) {
ban -ku60 $chan $nick $+(%percent,+) percent caps. 1 minute ban.
}
}
}