Responder al mensaje

Advertencia: No se ha publicado ninguna respuesta a este tema desde hace 40 días como mínimo.
A menos que estés seguro de que quieres responder, por favor, considera el empezar un nuevo tema.

Nota: este mensaje no se mostrará hasta que sea aprobado por un moderador.

Nombre:
Email:
Asunto:
Icono del mensaje:

Verificación:
Escribe las letras mostradas en la imagen
Escuchar el texto / Solicitar otra imagen

Escribe las letras mostradas en la imagen:
¿Cuánto es uno menos uno? (en letra y en minúscula):

teclas método abreviado (sólo IE y Mozilla): presiona alt+s para enviar formulario/publicar o alt+p para previsualizar


Sumario de Temas

Publicado por: Hanna
« en: Abril 08, 2020, 06:29:03 pm »

Buenas Cadaver

Pensaba que podría añadir más frases compuestas, hubiera sido una opción muy buena al poder ponerse palabras entre comillas, pero si no puede ser no puede ser.

Gracias.
Publicado por: Cadaver
« en: Abril 08, 2020, 05:28:08 pm »

Este código funciona para buscar palabra por palabra, me supongo que estas agregando *busco*sexo*oral* en el archivo es por eso que no funciona, te recomiendo agregar palabra por palabra y no frases compuestas.
Publicado por: Hanna
« en: Abril 08, 2020, 02:32:00 pm »

Hola.

Muy buen código el único pero... es que solo puedes ponerlo una vez, o sea me explico

*puta* y si quieres poner *busco*sexo*oral* (no hace nada)

¿Se podría modificar eso?

PD: Por alguna razón no lo pilla en mirc 6.2 (Lo probé también)

Un saludo.
Publicado por: Novatisima
« en: Abril 07, 2020, 07:31:34 am »

Buenas Cadaver

Lo he probado con,  mIRC 6.2 / IRcap 8.72  * Invalid format: $wildtok (line 5,  PALABRAS PROHIBIDAS.MRC)
 con mIRC 7.57 / IRcap 8.72  funciona bien
 con mIRC 7.29 / IRcap 8.72  funciona bien

Asi que, me seguire quedando, con el Mirc 7.29, y en reserva el Mirc 7.57, por los problemas de dialogos, que  el 7.29 no me los da

Bueno comentarte, lo tengo para subir completo, con sus explicaciones  y los creditos a tu nobre, que eres quien los merece
Le he añadido un  popups, para poder usar unos alias, que guardan  las palabras, las borran o las listan, asi como con las excepciones

Si tu me dices  "adelante" lo subire sino se quedara para mi uso

Muchas  gracias 
Publicado por: Cadaver
« en: Abril 06, 2020, 11:40:54 pm »

Prueba con este código en las versiones que no te funcionaba (incluida en la que si te funciona) ya no te debe de dar problemas:

Código: [Seleccionar]
on *:TEXT:*:#:{
  if ($me isop $chan) && ($nick !isop $chan) {
    var %x 1, %t $strip($1-)
    while %x <= $lines(palabras.txt) {
      var %z 1, %y $wildtok(%t,$($read(palabras.txt,%x)),0,32)
      while %z <= %y {
        var %p $wildtok(%t,$($read(palabras.txt,%x)),%z,32)
        if  (%p != $null) && ($read(excepciones.txt, w, %p) == $null) {
          mode $chan +b $address($nick,2)
          kick $chan $nick Por educación no esta permitido decir $+(,%p,) en $+(,$chan,.)
          halt
        }
        inc %z
      }
      inc %x
    }
  }
}
Publicado por: Novatisima
« en: Abril 06, 2020, 04:09:44 pm »

Hola Cadaver, ya esta solucionado, me funciona con Mirc 7.29

Asi, que un placer por tu ayuda (bueno como antes he dicho mas que ayuda  tu lo has realizado)y si me permites, me  gustaria ponerlo de nuevo entero, pero con los creditos, a tu nick
Publicado por: Novatisima
« en: Abril 06, 2020, 03:23:06 am »

Hola Cadaver, muchas gracias  por  ayudarme   ( mas bien hacerlo )

Decirte, que no me funciona, en    mIRC 6.2 / IRcap 8.72    * Invalid format: $wildtok (line 6, - ban MALAS PALABRAS.mrc)

Pero en mIRC 7.57 / IRcap 8.72  si me funciona y eso que al abrir  pone :      VERSIÓN INCORRECTA de mIRC. IRcap 8.72 necesita mIRC 6.2 / 7.25 / 7.27 / 7.32. Con esta versión ( 7.57 ) puede no funcionar correctamente.

He intentado buscar el mIRC7.32, y cual es mi sorpresa, que no lo encuentro por ningun lado, sin que tenga virus claro

Tambien, ya es pregunta, si puede haber algun problema, con los dialogos en esta version, por que todos los addons me funcionan,  menos los dialogos  y con un dialogo tenia para poner palabras y excepciones, dandole a los botones,trabajaba  con alias y si no hay solucion, tendre que reconfigurar esa parte

Si sabes algo o alguien, bien donde encontrar el 7.32, o bien sobre los dialogos, seguire visitando el foro,por si encuentro una respuesta

De nuevo, agradecerte la paciencia que has tenido, conmigo 

Un besito (virtual) y agradecida
Publicado por: Gyk
« en: Abril 04, 2020, 10:28:00 pm »

Hola.

Tengo una pregunta a todo esto, no se si se puede hacer.

Se podría añadir al código que has hecho que se pueda agregar por comandos ?

Código: [Seleccionar]
on *:TEXT:*:#:{
  if ($me isop $chan) && ($nick !isop $chan) {
    var %x 1, %t $1-
    while %x <= $lines(palabras.txt) {
      var %z 1, %y $wildtok(%t,$read(palabras.txt,%x),0,32)
      while %z <= %y {
        var %p $wildtok(%t,$read(palabras.txt,%x),%z,32)
        if  (%p != $null) && ($read(excepciones.txt, w, %p) == $null) {
          mode $chan +b $address($nick,2)
          kick $chan $nick Por educación no esta permitido decir $+(,%p,) en $+(,$chan,.)
          halt
        }
        inc %z
      }
      inc %x
    }
  }
}

on 1000:TEXT:*:#cdebug: {
  tokenize 32 $strip($1-)
  if (!addpal == $1) {
    msg $chan Palabra añadida en la lista
    write palabras.txt
  }
  else if (!delpal == $1) {
    msg $chan Palabra borrada de la lista
    write -ds $+ $2 palabras.txt
  }
  else if (!exadd == $1) {
    msg $chan Palabra añadida en excepción
    write excepciones.txt
  }
  else if (!delex == $1) {
    msg $chan Borrada palabra de excepción
    write -ds $+ excepciones.txt
  }
}

Un saludo.
Publicado por: Cadaver
« en: Abril 04, 2020, 08:42:21 pm »

Faltaba remover el uso de colores,

Código: [Seleccionar]
on *:TEXT:*:#:{
  if ($me isop $chan) && ($nick !isop $chan) {
    var %x 1, %t $strip($1-)
    while %x <= $lines(palabras.txt) {
      var %z 1, %y $wildtok(%t,$read(palabras.txt,%x),0,32)
      while %z <= %y {
        var %p $wildtok(%t,$read(palabras.txt,%x),%z,32)
        if  (%p != $null) && ($read(excepciones.txt, w, %p) == $null) {
          mode $chan +b $address($nick,2)
          kick $chan $nick Por educación no esta permitido decir $+(,%p,) en $+(,$chan,.)
          halt
        }
        inc %z
      }
      inc %x
    }
  }
}
Publicado por: Cadaver
« en: Abril 04, 2020, 07:40:03 pm »

La red no tiene nada que ver, prueba con mIRC7.32 ó superior, otra cosa la linea 6 y 7 deben de ir juntas cuando copias el código aquí lo corta por el tamaño de la línea, lo voy a poner linea por linea, pegalo directamente en mIRC escribiendo ALT+R en la pestaña de REMOTES, a mi me funciona bien incluso ya le hice otro ajuste para que trabaje mejor, dejo el código y doy por terminada mi ayuda en este tema.

Código: [Seleccionar]
on *:TEXT:*:#:{
  if ($me isop $chan) && ($nick !isop $chan) {
    var %x 1, %t $1-
    while %x <= $lines(palabras.txt) {
      var %z 1, %y $wildtok(%t,$read(palabras.txt,%x),0,32)
      while %z <= %y {
        var %p $wildtok(%t,$read(palabras.txt,%x),%z,32)
        if  (%p != $null) && ($read(excepciones.txt, w, %p) == $null) {
          mode $chan +b $address($nick,2)
          kick $chan $nick Por educación no esta permitido decir $+(,%p,) en $+(,$chan,.)
          halt
        }
        inc %z
      }
      inc %x
    }
  }
}
Publicado por: Novatisima
« en: Abril 04, 2020, 03:10:55 pm »

Hola Cadaver, puede parecer increible, pero  no me funciona , he estado apunto de llorar al ver el resultado, por que no entiendo ya nada de nada

Te digo los pasos que he dado, nunca he tenido el IRcap  en la carpeta  ( C: )   siempre en un pen drive y me ha funcionado bien, ante esa duda, he instalado un nuevo mICR/IRcap, en  ( C: ) y he seguido, creo que todas tus indicaciones, lo he dejado tal cual viene , sin ningun addons mas ni ninguna cosa mas

//echo -s $mircdir   contesta  C:\mIRC\   

Veras por la capturas, que esta tal y como te digo, que los archivos de  palabras.txt y excepciones.txt , tienen bien su nombre y estan en el directorio mIRC





En los modulos, he quitados todos los addons que vienen cuando pones uno nuevo y he dejado solo malas  palabras.mrc y hasta lo he renombrado como malas_palabras.mrc



He abierto el codigo con  block de notas y con notepad++ y no aprecio diferencias



El codigo lo he copiado directamente de aqui, tengo un addons que con un dialogo capturo los nicks, tengo puesto write botijos.txt  $$snick($active,1), para  borrar los nicks, write -dl $+ $readn $mircdirbotijos.txt y hasta ahora me funciona bien,por eso mi estrañeza de tener que poner toda la direccion de la carpeta del c:\mirc\palabras.txt  y c:\mirc\excepciones.txt

La conclusion es que ami, por la razon que sea, no me funciona, como veras me da el error (  * Invalid format: $wildtok (line 5, malas palabras .mrc)  )
-




La unica duda que me queda, es que en la red  Zonachat por alguna razon no funcione, por que me paso igual,  con otro scrip que me ayudo  Quetzalcoatl,  no le he comentado nada mas, pero tampoco me funciona, como debiera y eso que segui todas sus instrucciones a pie de letra, por eso pienso que pueda ser algo de la red

Cadaver, siento las molestias causadas, pero si te funciona (que no lo dudo) y a mi haciendo todo eso no me funciona , te juro que no me queda mas que agradecerte,  todas las molestias,mandarte un besito virtual y quedarme si nada

Gracias Novatisima


Publicado por: Cadaver
« en: Abril 03, 2020, 10:43:22 pm »

Creo que tampoco entendiste los comodines, si agregas a la lista *subnormal* no es necesario agregar *subnormales* ya que subnormales las ultimas dos letras están cubiertas por el * después de subnormal*, sobre todo cuando son plurales, otros ejemplos serian *maricon* no es necesario agregar *maricones* ya que es el mismo caso.
Publicado por: Cadaver
« en: Abril 03, 2020, 07:10:23 pm »

Te has dado cuenta que tienes el archivo como *palabras.txt? Revisa también que los archivos estén en la ruta correcta escribe //echo -s $mircdir y ambos archivos debes colocarlos ahí o bien especificar la ruta completa en el script, por ejemplo:

Código: [Seleccionar]
on *:TEXT:*:#:{
  if ($me isop $chan) && ($nick !isop $chan) {
    var %x 1, %t $1-
    while %x <= $lines(palabras.txt) {
      var %p $wildtok(%t,$read(c:\mi\directorio\mirc\palabras.txt,%x),1,32)
      if  (%p != $null) && ($read(c:\mi\directorio\mirc\excepciones.txt, w, %p) == $null) { mode # +b $address($nick,2) | kick # $nick Por educacion no estan permitidas ciertas palabras en $chan }
      inc %x
    }
  }
}

Las palabras van como en esta imagen:




Aquí están unas capturas donde se muestra que no hay ningún problema:





Publicado por: Novatisima
« en: Abril 03, 2020, 04:26:44 pm »

Buenas Cadaver , debo de ser  muy gafe, (en España que todo me sale mal )  por que no entiendo , hago todo como me has dicho, incluso mas por que he probado con *subnormal*, *subnormal, subnormal*,  &subnormal&, &subnormal, subnormal & y con ? y con todos me dice lo mismo

Incluso como ves todos en una linea  con dos asteriscos con uno solo delante y detras  sin espacios y con espacios
Mas no se que hacer, estoy totalmente perdida ya que hasta he probados con dos  IRcap diferentes

Lo de linea 6  es por que la primera es esa de  ;IRcap8 e527c77c74d6 y todo lo demas

mIRC 6.2 / IRcap 8.72    * Invalid format: $wildtok (line 6, - ban MALAS PALABRAS.mrc)
mIRC 7.57 / IRcap 8.72   * Too few parameters: $wildtok (line 6, - ban MALAS PALABRAS.mrc)

Con lo   poco que entiendo ( 0 patatero ) es que ni me lo creo que me pase





Muchas gracias por tu atencion, y perdona por las molestias
Publicado por: Cadaver
« en: Abril 02, 2020, 08:25:25 pm »

En el archivo palabras.txt vas a agregar de la siguiente manera linea por linea ejemplo *puta* (si con los * para trabajar con comodines) y en el archivo excepciones.txt agregaras linea por linea las palabras ejemplo computadora (sin los *), el código ya esta probado y es funcional.

Código: [Seleccionar]
on *:TEXT:*:#:{
  if ($me isop $chan) && ($nick !isop $chan) {
    var %x 1, %t $1-
    while %x <= $lines(palabras.txt) {
      var %p $wildtok(%t,$read(palabras.txt,%x),1,32)
      if  (%p != $null) && ($read(excepciones.txt, w, %p) == $null) { mode # +b $address($nick,2) | kick # $nick Por educacion no estan permitidas ciertas palabras en $chan }
      inc %x
    }
  }
}

Los comodines que puedes usar son:

? para un carácter simple * todos los caracteres & para una palabra completa.