Autor Tema: duda sobre anticolores de ircap  (Leído 851 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado Diablo

  • Novato
  • *
  • Mensajes: 19
  • Karma: +0/-165
Re:duda sobre anticolores de ircap
« Respuesta #15 en: Enero 17, 2020, 11:40:17 am »
Banea  por WEB e IRCAP los colores y no  el nick completion de IRCAP

Programa Baneo por colores                     
  Con la ayuda de  Quetzalcoatl y Cadaver preparado por Diablo 
  Mi agradecimiento , porque sin los cuales , no habria sido capaz terminar
 Eso si jajajajaja, me las habeis hecho pasar moradas , vosotros sabeis yo practicamente nada

Código: [Seleccionar]
on 1:text:*:#: {
 var %a 1, %b $2 | while ($gettok(%b,%a,32)) { inc %a
if ($chr(3) isin $1-) { msg # $nick No use texto con COLORES estan prohibidos en #  | Ban -u600 $chan $address($nick,2) | kick $chan $nick }
  }
 }

Bueno pues eso muchas gracias y  a partir de aqui imaginacion
Yo le he hechado mucha , ya lo tengo  preparado para 4 canales con contador
No lo pongo entero , por que yo asi he aprendido , haciendolo error , acierto y al final salio , pero ya , con una base para empezar , que yo no la tenia


Desconectado Quetzalcoatl

  • Miembro Junior
  • **
  • Mensajes: 54
  • Karma: +116/-2
  • HipercomputoHipermegared
    • elchatirc
Re:duda sobre anticolores de ircap
« Respuesta #16 en: Febrero 17, 2020, 07:36:29 pm »
Hola que tal Diablo

No había podido responder este post, por que por cuestiones laborales me ocupe y cuando regrese a leer el foro ya había otros post mas recientes.
Acabo de ver el código mas reciente y noto que evalúas si se usa color a partir de la segunda palabra de la frases(supongo para evitar lo del nickcompletation) y sanciona después si se vuelve insertar el carácter de color, por lo tanto si alguien escribe con color en la primera palabra de la frase este no sera sancionado.

lo mas simple es como te lo puso Cadaver, así que resumiré esto  ;D
Código de detección simple, solo mensaje
Código: [Seleccionar]
on 1:text:*:#canal: {
if ( $chr(3) isin $1- ) {  .msg $chan $nick --> esta Baneado : no use TEXTO CON COLORES!
}
}
Codigo que evalua el cambio de color en cada palabra de una frase
Código: [Seleccionar]
on 1:text:*:#: {
 var %a 1, %msg No use texto con COLORES estan prohibidos en $remove($chan,$chr(35))
 while ($gettok($1-,%a,32)) {
  if ($chr(3) isin $v1) { msg $chan $nick %msg | Ban -ku600 $chan $nick 2 %msg | return } | inc %a
 }
}
*NOTA: si se requiere que se evalué después de la segunda palabra cambiar el $1- por $2-

Lo mismo que el anterior, pero con advertencias si el usuario no hace caso se le advierte y sanciona después del segundo aviso y al tercero aviso patea(obviamente después de que la sanción del 2do aviso concluya)
Código: [Seleccionar]
on 1:text:*:#: {
  if (($me !isop $chan) || ($nick isop $chan) || ($nick isvoice $chan) ) { return }
  if (($sinNC($1) ison $chan) && ($chr(3) !isin $2-)) { return }
  var %quien $+(NoColor,~,$nick,~,$chan)
  set -u300 % [ $+ [ %quien ] ] $iif(% [ $+ [ %quien ] ],$calc($v1 +1), 1)
  if (1 == % [ $+ [ %quien ] ]) { msg $chan No uses colores en su texto $+($nick,.) Aviso $v2 }
  if (2 == % [ $+ [ %quien ] ]) { msg $chan No uses colores en su texto $nick Aviso $v2 | ban -u120 $chan  $address($nick,2) }
  if (3 == % [ $+ [ %quien ] ]) { ban -ku3600 $chan $nick 2 Se le advirtio de que no deberia usar colores en $chan }
}
alias -l sinNC { var %a 1, %b | tokenize 32 $remove($1,$chr(91),$chr(92),$chr(45)) | while ($mid($strip($1),%a,1)) { if ($v1 isalnum) { %b =  $+(%b,$v1) } | inc %a } | return %b }

el control esta dado por
if (($sinNC($1) ison $chan) && ($chr(3) !isin $2-)) { return }
Donde usa una alias llamado sinNC el cual depura que contenga caracteres raros la palabra y solo permite los alfanbumericos y si esa palabra es un nick en el canal y no hay una inserción del carácter en el color en el canal, entonces no hace nada, de lo contrario entra en el proceso.

Saludos.
PD: Probado en mirc version 7.57 en otras versiones posteriores ignoro si funcione se tendría que verificar que el operador logico isalnum este incluido en esa version
PD2: en repuesta a http://foroircap.org/ayuda-scripting-ircap/un-codigo-que-no-me-funciona/msg7297/#msg7297
« última modificación: Febrero 17, 2020, 07:45:23 pm por Quetzalcoatl »

Desconectado Novatisima

  • Novato
  • *
  • Mensajes: 2
  • Karma: +0/-2
Re:duda sobre anticolores de ircap
« Respuesta #17 en: Ayer a las 12:04:08 pm »
 Hola Quetzalcoatl

He hecho como pones en la nota cambiar el $1-  por el $2- y se si lo hare mal pero no va bien

Despues he probado  el segundo que pones
Tampoco me ha ido bien ya que los dos de entrada  explusan las frases sin color bueno este segundo cuando ha explusado 3 veces ya no expulsa nada

Como dices que lo has probado con mirc 7.57 y yo no tengo ni diea de que version tengo he descargado y pagado mirc 7.57 me lo han instalado con un ircap 8.72 y los fallos son los mismos
Yo no se si se podra hacer pero si se podria estaria muy agradecida


Desconectado Quetzalcoatl

  • Miembro Junior
  • **
  • Mensajes: 54
  • Karma: +116/-2
  • HipercomputoHipermegared
    • elchatirc
Re:duda sobre anticolores de ircap
« Respuesta #18 en: Ayer a las 06:00:43 pm »
Ya veo, lo que creo que este pasando es que el ban ha sido removido de manera manual y no expiro después de los 5 minutos. Es por eso eso que el contador de sanción se sigue incrementando, si es así solo bastaría que agregar un if cuando llegue a cuatro para hacer un decremento o en su defecto colocar el valor a 2 cuando se da el ban.
una ves dicho esto entonces me gustaría saber ¿El ban fue removido de manera manual antes de que expirara?

Saludos.

pd: Escribir con color negro también utiliza el carácter de color 2. Si se van a hacer pruebas es bueno usar //msg #elcanal el mensaje(opcional el uso de colores)
« última modificación: Ayer a las 06:17:35 pm por Quetzalcoatl »