Something

on *:TEXT:#: {
  if ($nick isreg $chan) && ($len($1-) > 10) && ($round($calc($regex($1-,/[A-Z]/g) / $len($remove($1-,$chr(32))) * 100),0) > 66) {
    if (!%caps. [ $+ [ $nick ] ]) {
      notice $nick Please don't use so many capitals in $chan $+ .
      set %caps. [ $+ [ $nick ] ] 1
    }
    elseif (%caps. [ $+ [ $nick ] ] == 1) {
      kick $chan $nick Drop the caps 4- $+($v1,%) used.
      inc %caps. [ $+ [ $nick ] ]
    }
    elseif (%caps. [ $+ [ $nick ] ] == 2) {
      ban -ku300 $chan $nick 2 Drop the caps 4- $+($v1,%) used 12[5-Minute Ban]3
      unset %caps. [ $+ [ $nick ] ]
    }
  }
}