Publicado por: Quetzalcoatl
« en: Enero 09, 2021, 04:58:45 am »Gracias por notificar, quizás a alguien le pueda servir en un futuro.
Saludos Dino
Saludos Dino
Postea tus dudas sobre IRC o IRcap. Nosotros te ayudaremos.
pero detecte que tambien si los usuarios nombra nicks con mayusculas iniciando o terminando en dos puntos : o punto y coma ;y te da como resultado una advertencia para que desactive las mayúsculas.
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???
blablabla
if ( $sinNC($strip(%c)) ison # ) { inc %b | goto bucle }
donde se están quitando los colores de %c y removiendo caracteres especiales y una ves realizado eso, verificando si es una palabra que corresponde a un nick en el canal.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 ;Hola [DINO]:
Hola [DINO];
Hola [DINO].
Hola [DINO],
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 }
if ( %c ison # ) { inc %b | goto bucle }
por if ( $strip(%c) ison # ) { inc %b | goto bucle }
on *:text:*:#: {
var %a = $numtok($1-,32)
var %b = 1
:bucle
var %c = $gettok($1-,%b,32)
if ( %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 ] ] }
} }