i have the following code
Code:
  
alias caps {
  return $calc($regex($1,/[A-ZÄÖÜ]/g)/$len($1)*100)
}


and also
Code:
 
on 1:TEXT:*:*: {
  set %capscheck $remove($1-,$chr(32))
  set %capscheck1 $strip(%capscheck)
  if ($caps(%capscheck1) >= 50) { 
    msg $chan 04 $+ $nick 02you are using 04 $+ $caps($1-) $+ % Caps. 02this is 04VERY 02annoying 
  }
}


the problem is if someone types
<hfhfhfh> HHHHHHHHHH
<caps> hfhfhfh you are using 100% Caps. this is VERY annoying
if they type
<hfhfhfh> AAAAAAAA HHHHHHHH BBBBBBBBBBB CCCCCCCCC
<caps> hfhfhfh you are using 92.307692% Caps. this is VERY annoying
why doesnt it return 100% also ?