Someone

on *:TEXT:*:#:{
  var %. = ,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z, %; = $len($remove($1- [ %. ] )), %: = $len($1-) - %;
  if $calc(100*($len($removecs($1- [ %. ] ))-%;)/%:) > 50 && %: > 9 {
    kick # $nick Excessive caps: $calc(100*($len($removecs($1- [ %. ] ))-%;)/%:) $+ %
    halt
  }
  tokenize 32 $strip($1-)
  var %a = 1
  while (%a <= $len($1-)) {
    var %b = 1
    while (%b <= $mid($1-,%a,0)) {
      var %str = $mid($1-,%a,%b)
      if ($str(%str,15) isin $1-) || ($left($str($+(%str,$chr(32)),15),-1) isin $1-) {
        kick # $nick Repetition of the $iif($len(%str) == 1,character,string) $qt(%str) 15+ times.
        halt
      }
      inc %b
    }
    inc %a
  }
}