[mircscript] controleren of een text caps is

[Verwijderd]

Is er een manier om in mirc te zien of een text die iemand typt caps is?
Ik heb het wel eens gezien.. maar weet nie meer waar
als iemand dan 3 keer in caps typt word ie gekicked

[Verwijderd]

niemand een oplossing

[D2k]

[topic=194670/1/25]

[Bierkameel]

code:

[script]
n0=alias setchannel { .set %nocaps $1- }
n1=
n2=#Capskick off
n3=On @1:TEXT:*:%nocaps: {
n4=  if ($len($1-) <= 15) { goto end }
n5=  if ($upper($1-) === $1-) { goto abuse }
n6=  else { goto end }
n7=  :abuse
n8=  if ($level($address($nick,3)) == ignore) { goto end }
n9=  elseif ($level($address($nick,3)) == 14) { nocapsfirst }
n10=  elseif ($level($address($nick,3)) == 15) { nocapssec }
n11=  else {
n12=    .guser 14 $nick 3 
n13=    .echo -a $nick speelt met uw voeten in $chan $+ . Eerste waarschuwing werd verzonden :]
n14=    .notice $nick Gij gebruikt teveel FUCKING CAPS in $chan $+ . Stop er mee!! De volgende keer worde gekickt ! (en nee ik lach er nie mee) 
n15=    .goto end  
n16=  }
n17=  :end
n18=}
n19=
n20=
n21=On @1:ACTION:*:%nocaps: {
n22=  if ($len($1-) <= 15) { goto end }
n23=  if ($upper($1-) === $1-) { goto abuse }
n24=  else { goto end }
n25=  :abuse
n26=  if ($level($address($nick,3)) == ignore) { goto end }
n27=  elseif ($level($address($nick,3)) == 14) { nocapsfirst }
n28=  elseif ($level($address($nick,3)) == 15) { nocapssec }
n29=  else {
n30=    .guser 14 $nick 3 
n31=    .echo -a $nick speelt met uw voeten in $chan $+ . Eerste waarschuwing werd verzonden :]
n32=    .notice $nick Gij gebruikt teveel FUCKING CAPS in $chan $+ . Stop er mee!! De volgende keer worde gekickt ! (en nee ik lach er nie mee) 
n33=    .goto end  
n34=  }
n35=  :end
n36=}
n37=
n38=
n39=On @1:NOTICE:*:%nocaps: {
n40=  if ($len($1-) <= 15) { goto end }
n41=  if ($upper($1-) === $1-) { goto abuse }
n42=  else { goto end }
n43=  :abuse
n44=  if ($level($address($nick,3)) == ignore) { goto end }
n45=  elseif ($level($address($nick,3)) == 14) { nocapsfirst }
n46=  elseif ($level($address($nick,3)) == 15) { nocapssec }
n47=  else {
n48=    .guser 14 $nick 3
n49=    .echo -a $nick speelt met uw voeten in $chan $+ . Eerste waarschuwing werd verzonden :]
n50=    .notice $nick Gij gebruikt teveel FUCKING CAPS in $chan $+ . Stop er mee!! De volgende keer worde gekickt ! (en nee ik lach er nie mee) 
n51=    .goto end  
n52=  }
n53=  :end
n54=}
n55=
n56=
n57=alias nocapsfirst {
n58=  .guser 15 $nick 3
n59=  .kick $chan $nick Caps Abuse. You were warned... 
n60=  .echo 4 -a $nick gebruikt weeral teveel CAPS in $chan $+ . Tweede waarschuwing werd verzonden en ne free kick werd uitgedeeld!
n61=  .notice $nick Ma gij gvd nu gebruikte weeral teveel CAPS in $chan $+ . Laatste waarschuwing ze! De volgende keer ne ban aan uw kloten/eierstokken!
n62=}
n63=alias nocapssec {
n64=  .ruser 15 $nick 3
n65=  .echo 12 -a $nick werd buiten $chan geschopt wegens meerdere overtredingen van overdreven caps.
n66=  .ban $chan $nick 1
n67=  .kick $chan $nick Banned for Caps Abuse. Don't Say I Didn't Warned Ya ... Sucker
n68=}
n69=#Capskick end

[Verwijderd]

ty