Forums Scripts & Popups caps

on *:JOIN:#:{
var %i 1
var %cap 0
while (%i <= $len($nick)) {
if ($isalpha($isupper($mid($nick,%i,1)))) {
inc %cap
}
inc %i
}
if (%cap >= 8) {
mode # +b $nick
kick # $nick
}
}
that doesnt work, as you may have guessed its supposed to kick someone if they have more than 8 capitals in there name but $isupper seems to include numbers as well, so i thought if i used $isalpha it would just be ABCDEFG etc, but it doesnt work at all
any ideas? thanx in advance

if ($isupper($mid($nick,%i,1)) && $mid($nick,%i,1) isalpha) {

also, u could use $regex
$regex($nick,/[A-Z]/g) will return the number of caps in the nick

thanks