ON @*:TEXT:*:#: {
IF (($len($1-) < 9) || ($nick isop #)) { RETURN }
var %a = $regex($1-,/[A-Z]/Sg) / $regex($1-,/[^ ]/Sg)
if (%a >= 0.8) {
inc -e $+(%,caps,$cid,#,.,$site)
if ($($+(%,caps,$cid,#,.,$site),2) > 3) {
msg $chan .timeout $nick 600
msg $chan $nick has been timed out for 10 minutes for using excessive ammounts of caps.
unset $+(%,caps,$cid,#,.,$site) }
else msg $chan $nick $+ : Please use less caps, $ord($v1) warning.
}
}