Foro IRcap

eso es debido a lo que tu mencionas un ANTIMAYUSCULAS, obviamente si agregan alternando mayúsculas y minúsculas, por lo tanto solo reaccionara a las mayúsculas comparando en porcentaje en la frase.
parte de la condición del código esta al 90% que se usen las mayúsculas por lo tanto la condición es
$calc(((%lon_frase - %lon_frase_sin_may) * 100 ) / %lon_frase ) > 90

segun tu ejemplo es

[16:55] «mincht» oK EsTa bIEn

entonces tenemos que :
%lon_frase = 10  ; %lon_frase_sin_may = 5
con esos datos facilmente podemos ver que 5/10 = 1/2 = 50% pero hagamos el proceso
por lo tanto
((10-5)*100)/10 = ((5)*100)/10 = 500/10 = 50
50 > 90 = falso
 y en la frase de:

[16:55] «mincht» oK EsTa bIEn mAlO

%lon_frase = 14  ; %lon_frase_sin_may = 7
lo mismo que en el ejemplo anterior 7/14 = 1/2 =0.5 = 50% y haciendo el proceso de la condicion:
((14-7)*100)/14 = ((7)*100)/14 = 700/14 = 50
50 > 90 = falso

No hay ningún error en el código, aunque yo mejoraría el bucle para hacerlo mas rápido, pero aun así cumple su cometido, tal como esta, si reconoce las mayúsculas pero si alternas las compara en proporción a las mayúsculas, lo único que se podría hacer es modificar el 90 que es el 90% de la frase, el IRCap ya trae esa protección en la configuración de canales asi como el ajuste del porcentaje desde el menu de configuración de protecciones de canales.

eso es debido a la variable %_cuenta. [ $+ [ $nick ] ]
debido a que solo esta en función del nick y no existe un parametro de canal, mas que la comparación si es op, entonces solo habría que añadirla al if para que actué en el canal o modificar la variable para que la incluya por ejemplo que use

%_cuenta. [ $+ [ $nick $+ . $+ $chan ] ]
o con
%_cuenta. [ $+ [ $+($nick,.,$chan) ] ]

espero que te sea util

es que en realidad no tiene ningún identificador llamado $text pero si solo son xd xd xd entonces lo mas fácil seria poner un seguro para ello

if ($strip($1-) == xd xd xd) { halt }esto va de preferencia al inicio de la declaración de variables.

oki gracias provare

por lo que veo tienes el NC en toda la palabra, es por eso que no lo detecta como nick por los colores/bold/italicas, etc.

seria modificar
if ( %c ison # ) { inc %b | goto bucle }por
if ( $strip(%c) ison # ) { inc %b | goto bucle }
pero toma en cuenta que solo quitara los colores(underline/bold/colores/italicas), si el nick nombrado usa cosas como:

Hola [DINO] no funcionara por que habrá que remover los [], hay un post donde se trato ese tema de los NC, tema abierto con respecto a ANTICOLORES iniciado por Diablo donde se da una solucion a los caracteres especiales en los nicks con Completion.

Saludos.

pues lo acabo de probar y me funciona

//echo -s $sinnc(-[nick04])

alias sinNC { var %a 1, %b | tokenize 32 $remove($1,$chr(91),$chr(92),$chr(45)) | while ($mid($strip($1),%a,1)) { if (($v1 isalnum) || ($v1 isin -_)) { %b =  $+(%b,$v1) } | inc %a } | return %b }

solo quite el -l para usarlo normalmente ya que es un alias local. Algo estas haciendo mal.

pd:Un alias local es igual que cualquier alias en remotes, solo que debe estar en el mismo script donde es llamado para que funcione, por lo tanto si se llama desde una editbox no sera llamado al igual si es llamado desde otro proceso donde no este donde esta escrito.

despues de muchas pruebas note que no reconoce mayusculas cuando la palabra tiene espacios largos ejemplo
heyyy que hacen o como estan AMIGOS saludos...

porfa ayuda.

baje el porcentaje de 90 a 20 funciona pero cuando dan mas espacio ya no reconoce lo ideal seria que envez de porcentaje mejor contara las letras mayusculas

tu depurador funciona muy bien
alias sinNC { var %a 1, %b | tokenize 32 $remove($1,$chr(91),$chr(92),$chr(45)) | while ($mid($strip($1),%a,1)) { if (($v1 isalnum) || ($v1 isin -_)) { %b =  $+(%b,$v1) } | inc %a } | return %b }pero detecte que tambien si los usuarios nombra nicks con mayusculas iniciando o terminando en dos puntos : o punto y coma ;
igual les advierte la solucion que veo es que a tu depurador se añada para que omita los dos puntos y punto y coma y coma y punto y coma.... se puede añadir añadir por favor???

como por ejemplo que omita cuando saluden a dino:
Hola [DINO]:
Hola [DINO];
Hola [DINO].
Hola [DINO],

lo agregue y no funciona //echo -a $asc(
58
alias sinNC { var %a 1, %b | tokenize 32 $remove($1,$chr(91),$chr(92),$chr(45),$chr(58),$chr(59),$chr(55357)) | while ($mid($strip($1),%a,1)) { if (($v1 isalnum) || ($v1 isin -_)) { %b =  $+(%b,$v1) } | inc %a } | return %b }

dumkan> MININHA: gracias 😉
<@dinn> [ dumkan ] Desactive las Mayusculas. Se consideran gritos y el uso excesivo de ellas puede generar lag. Gracias. (Ultimo aviso)

POS Ahora si me funciono de maravilla gracias eres un genio

me sigue fallando el script... y agregue los caracteres nuevos como me enseñaste
//echo -a $asc(:) =58  //echo -a $asc(;) =59   y como sugeriste añadi if ( $sinNC($strip(%c)) ison # ) { inc %b | goto bucle }
  pero pese a todo eso cuando alguien menciona un nick en mayusculas en el canal
  como por ejemplo :BUZA_KAPERUZA  o BUZA_KAPERUZA:  lanza el mensaje de advertencia
  y pese a que esos caracteres ya estan agregados en el alias sinNC
  no se mucho de scripting pero mi opinion el detalle esta en esta ruta
  if ( $sinNC($strip(%c)) ison # ) { inc %b | goto bucle }  que sigue mal y no omite los caracteres como : o ; como por ejemplo :BUZA_KAPERUZA  o BUZA_KAPERUZA:
 
 
 
on *:text:*:#: {
  var %a = $numtok($1-,32)
  var %b = 1
  :bucle
  var %c = $gettok($1-,%b,32)
  if ( $sinNC($strip(%c)) ison # ) { inc %b | goto bucle }
  var %d = %d %c
  if ( %b > %a ) { goto continua }
  inc %b
  goto bucle
  :continua

  var %lon_frase = $len(%d)
  var %lon_frase_sin_may = $len($removecs(%d,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))
  If ( $me isop # ) && ( $nick !isop # ) && ( %lon_frase >= 4 ) && ( $calc(((%lon_frase - %lon_frase_sin_may) * 100 ) / %lon_frase ) > 90 ) {
    inc %_cuenta. [ $+ [ $nick ] ]
    if (%_cuenta. [ $+ [ $nick ] ] == 1) { msg # Por favor $nick Desactiva tus Mayusculas (Primer aviso) }
    if (%_cuenta. [ $+ [ $nick ] ] == 2) { msg # $nick Desactiva  (Ultimo aviso) }   
    if (%_cuenta. [ $+ [ $nick ] ] == 3) { ban -u120 $chan $address($nick,2) | kick $chan $nick No Mayusculas (Ya te avise) Baneado por 2 minutos. | unset %_cuenta. [ $+ [ $nick ] ] }
} }

alias sinNC { var %a 1, %b | tokenize 32 $remove($1,$chr(91),$chr(92),$chr(95),$chr(59),$chr(58),$chr(45)) | while ($mid($strip($1),%a,1)) { if (($v1 isalnum) || ($v1 isin -_)) { %b =  $+(%b,$v1) } | inc %a } | return %b }puedes revisarlo el codigo completo por favor para ver en que falla
en el alias sinNC ya agregue esos caracteres a omitir y solo la el detalle es el
if ( $sinNC($strip(%c)) ison # ) { inc %b | goto bucle }

Y porque no mejor omitir si el token es un nick?, además por lo que veo no se considera el largo de la cadena de texto.