#capskicker off
on *:TEXT:*:#: {
  var %c = 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,%b = $len($1-) - $len($remove($1-, [ %c ] )),%a = $calc(($len($1-)-$len($removecs($1-, [ %c ] )))/$iif(%b < 10,0,%b)*100)
  if %a > %capslimit kick # $nick :- Allowed caps limit is %capslimit $+ % $+ , $nick you used %a $+ % $+ , Please do not shout.
}
#capskicker end
menu menubar {
  Caps limit %capslimit $+ $chr(37)
  .$iif($group(#capskicker) == on,Turn Off): disable #capskicker | echo -as 4Caps kicker disabled.
  .$iif($group(#capskicker) == off,Turn On): enable #capskicker | echo -as 4Caps kicker enabled.
  .Set new limit:var %cl $$?="Enter new caps limit ( without the % )" | set %capslimit %cl | unset %cl | echo -as 4New caps limit set to %capslimit $+ $chr(37)
}