on *:TEXT:*:#:{
  if ($nick !isreg $chan) { return }
  var %capcount $calc($regex($1-,/[A-Z]/g) / $regex($1-,/[A-Z]/gi) * 100)
  if ( %capcount >= 65 ) {
    if ($me isop $chan) ban -ku600 $chan $nick 3 Turn off the CAPS! (65% Allowed. %capcount $+ % Used.) - 10 Min. Ban $kcount
    else echo $chan *** %capcount $+ % Caps detected from $nick $+ .
  }
}


You can modify the %capcount >= 65 to whatever you want to kick at (this being 65% caps.)