alias allowedcaps { return 70 }
on @*:TEXT:*:#:{ 
if ($len($1-) < 10) { return }
var %caps.letters = $calc($len($1-) + 1 - $len($removecs(A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z)))
var %caps = $calc($len($1-) - $len($removecs($1-,($1-),A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z)))
var %caps.percent = $round($calc(%caps / %caps.letters * 100),0)
if ((%caps.percent > $allowedcaps) && ($nick !isop #)) { 
	ban # $nick 2
	kick # $nick Caps Allowed: $allowedcaps $+ $chr(37) Caps Used: %caps.percent $+ $chr(37) ) 
}
}