on *:TEXT:#: {
 if ($nick isreg $chan) {
  if ($len($1-) > 10) && ($round($calc($regex($1-,/[A-Z]/g) / $len($remove($1-,$chr(32))) * 100),0) > 66) {
   ban -ku120 $chan $nick 2 Drop the caps 4- $+($v1,%) used 12[2-Minute Ban]3
  }
 }
}