Caps Flood Protect for Aabye v1.0

ON *:TEXT:*:#: {
  var %op = $msgtags(user-type).key
  var %sub = $msgtags(subscriber).key
  if (%op) || (%sub) { return }
  if ($len($1-) < 9) { return }
  var %text = $strip($remove($1-,$chr(32)))
  var %non.caps = $len($removecs(%text,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,Æ,Ø,Å))
  var %full.line = $len($strip($remove(%text,$chr(32))))
  var %percent = $calc(1 - (%non.caps / %full.line))
  if (%percent >= 0.6) {
    .msg $chan .timeout $nick 1
    .msg $chan $nick Ingen capslock tak. [Advarsel]
    .timer 1 2 .msg $chan .timeout $nick 1
  }
}