Mine

alias allowedcaps { return 70 } 
on @*:TEXT:*:#PC:{ 
  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 #)) { 
    inc %kicks 1
    ban -ku600 # $nick 2 Caps Allowed: $allowedcaps $+ $chr(37) Caps Used: %caps.percent $+ $chr(37) You have been banned for 10mins » %kicks «
  } 
}