Caps Flood

[Cult]

;Capital letters protection

alias caps { 
  set -l %caps $regex(caps,$strip($1-),/[A-Z]/g) 
  set -l %norm $regex(caps,$strip($1-),/[^A-Z]/g) 
  set -l %total $len($strip($1-)) 
  if ($prop == caps) { return %caps } 
  elseif ($prop == ncaps) { return %norm } 
  else { return $calc((%caps / %total) * 100) } 
} 
on *:text:*:#:{ 
  if ($nick isop $chan) { halt } 
  elseif { ($caps($1-) > 50) && ($len($strip($1-)) >= 6)) { 
      ban $chan $nick 
      kick $chan $nick Caps flood detected. $caps($1-) $+ % in sentence are capitalized. 
    } 
  } 
}