Stuff

alias allowedcaps { return 70 }
on *:TEXT:*:#:{ 
  if (*swiftirc* !iswm $server) {
    if ($nick isvoice $chan) { halt }
    else {
      if ($len($1-) < 10) { return }
      var %caps.letters = $calc($len($1-) + 1 - $len($removecs(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 %caps = $calc($len($1-) - $len($removecs($1-,($1-),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 %caps.percent = $round($calc(%caps / %caps.letters * 100),0)
      if ((%caps.percent > $allowedcaps) && ($nick !isop #)) {
        if ($eval($+(%,capskicked.,$nick),2) > 2) {
          /kb $nick You were warned about caps. GTFO
          halt
        }
        if ($eval($+(%,capskick.,$nick),2) > 1) {
          /k $nick Caps Allowed: $allowedcaps $+ $chr(37) Caps Used: %caps.percent $+ $chr(37)
          inc -u120 $+(%,capskicked.,$nick) 1
          .notice $nick No more Warnings, next will be a KB.
          halt
        }
        inc -u120 $+(%,capskick.,$nick) 1
      .notice $nick You have been warned $eval($+(%,capskick.,$nick),2) times about talking in caps. 3 times will be a Kick, then later a ban.    }
    }
  }
}