on @*:text:*:#:{
var %p = $int($calc(($regex($1-,/[A-ZÄÖ]/g) / $len($1-)) * 100))
if (%p > 75) && (!$hget($+(warn,$cid,$chan),$nick)) {
hinc -m $+(warn,$cid,$chan) $nick
msg $chan $nick $+ , Turn the caps off please.
}
elseif (%p > 75) && ($hget($+(warn,$cid,$chan),$nick)) {
ban -ku60 $chan $nick 2 You were told to stop using caps.
hdel $+(warn,$cid,$chan) $nick
}
}