Okay, I found this one:
Code:
On @*:TEXT:*:#testchan: {
  var %t = $remove($1-,$chr(32)), %percent = 50
  if ($nick !isop #) &&  ($calc($regex($1-,/[A-Z]/g) / $len(%t) * 100) >= %percent) {
    if ( $hget(bold,$+($chan,.,$cid,.,$nick)) == 2) ban -k # $nick 2 Since you will not listen, its best you leave coz you're too loud in CAPS text.
    elseif ( !$hget(bold,$+($chan,.,$cid,.,$nick)) ) {
      hinc -mu10 bold $+($chan,.,$cid,.,$nick)
      msg $chan Warning, Drop the CAPS Please, $nick $+ .
    }
    else {
      ban -ku15 # $nick 2 You were warned not to type in CAPS - Take a 15 Seconds Ban and decide.
      hinc -m bold $+($chan,.,$cid,.,$nick)
    }
  }
}

Wich works, but even if I change the % to 50 it kicks even if only 1 letter is used.