I have this code:
Code:
on CAPS1:TEXT:*:#:{
  if ($me isop $chan) {
    var %1-
    .echo -q $regsub($1-,/[^a-zA-Z0-9ÄÖ]/g,,%1-)
    if (%dkickop == off) && ($nick isop $chan) { return }
    if (%dkickvo == off) && ($nick isvo $chan) { return }
    if ($ulevel == 200) && (%ctcp.op == Enabled) { return }
    if ($ulevel == 125) && (%Group.AutoOp == Enabled) { return }
    if ($ulevel == 100) && (%friend == Enabled) { return }
    if ($ulevel == 75) && (%a.voice == Enabled) { return }
    else {
      if ($read($mircdir\dontckick.mrc,w,* $+ $chan $+ *)) { return }
      if ($int($calc(($regex(%1-,/[A-ZÄÖ]/g) / $len(%1-)) * 100)) > 75) { .ruser CAPS1 $nick | ban -u $+ %caps.b # $nick %bs | kick $chan $nick You have been warned. turn off your CAPSLOCK. }
    }
  }
}

but from time to time it "miss fire", it kick a user that dont use caps, somone that have a bether way to do this ? not nice to kick people that dont derseve it :tongue:

they get the user level CAPS1 by the same code, but thats triggered by everyone.. so no need to paste that part too here..

if ($me != tired) { return } | else { echo -a Get a pot of coffee now $+($me,.) }