Caps Flood

[Cult]

PHP Code:

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.
    }
  }
}


[Cult]

On @*:TEXT:*:#: {
if ($nick !isop #) && ($len($1-) > 3) {
var %caps.percent = $calc($regex($1-,/[A-Z]/g)/$len($1-)*100)
if (%caps.percent > 60) {
ban -k # $nick 2 Since you will not listen, its best you leave coz you too loud in CAPS text.
}
}
}

I THINK THIS IS BETTER :p

[Cult]

Caps Kicker Using $regex Again, Working 100 % Id Someone Typed 40 % In Caps Letters.
***NOTICE: If You Are Using An Old Version Of miRc, Means Below 6.03, You Will Have To change this code:

ban -k $chan $nick Please do not overuse capital letters.

and it will be:

ban $chan $nick 2
kick $chan $nick Please Do Not OverUse Capital Letters.

on $@*:TEXT:/([A-Z])/g:#: { 
  if ($calc($regml(0) / $len($1-)) >= .40) && ($nick isreg $chan) && ($len($1-) > 4) { 
    ban -k $chan $nick Please Do Not OverUse Capital Letters. 
  } 
}

[Cult]

on @*:text:*:#: {
  var %c = 1, %u = 0, %l = 0
  while (%c <= $len($1-)) {
    if ($mid($1-,%c,1) isupper) {
      inc %u
    }
    if ($mid($1-,%c,1) islower) {
      inc %l
    }
    inc %c
  }
  if ($gettok($calc(%u / $len($1-) * 100),1,46) >= 70) {
    ban -k $chan $nick 2 Caps Lock Kicker! $gettok($calc(%u / $len($1-) * 100),1,46) $+ % caps.

  }
}

[ZAcK]

Too many loops! I wouldn't go that way, count the characters instead.
Here is something I was working on some time ago; I don't understand a lot about $regex, but I mixed my code with yours on top and this is what I came up with:

On @*:TEXT:*:#: { 
  if ($nick isreg $chan) && ($len($1-) > 20) { 
    var %caps.percent = $calc($regex($1-,/[A-Z]/g)/$len($1-)*100) 
    if (%caps.percent > 50) ban -k $chan $nick 2  Execess CAPS $+( [ ,%,$ceil(%caps.percent),/%100 CAPS ] ) 
  } 
}

It will only re-act if the characters are more than 20 and the UPPER case characters are more than %50 of the total characters and of course it will only be triggered if you are an OP.
The kick message will look something like this:

* CAPS-FLOODER was kicked from #Channel by Some-OP ( Execess CAPS [ %51/%100 CAPS ]  )

You can even make it a simpler and faster code if you take out the percentage from the kick line:

On @*:TEXT:*:#: {
  if ($nick isreg $chan) && ($len($1-) > 20) && ($calc($regex($1-,/[A-Z]/g)/$len($1-)) > .5) {
  ban -k $chan $nick 2 Execess CAPS
  }
}

The other code you had, I think you are calling the $regex in the event line, not bad. I'm not sure which is faster though. I think since you are calling the $regex later on (using $regml) and only once, it doesn't make a difference; but again I might be wrong.

Got questions? I got answers ("I don't know" is an answer by the way!)