Autor Tema: Ayuda con este código.  (Leído 1182 veces)

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

Desconectado rank

  • Novato
  • *
  • Mensajes: 14
  • Karma: +0/-104
Ayuda con este código.
« en: Octubre 08, 2019, 04:33:16 am »
Hola.

Hace tiempo que uso este addon para palabras prohibidas, pero me gustaría añadir que segun que palabras, las pueda poner en excepción, o sea si tengo añadido *puta* que pueda yo poner en excepción *diputada* etc...



Código: [Seleccionar]
; ##################################################
; #### [ Programa PalabrasProhibidas versión 1.0 creado por Príncipe_Azul ] ####
; ##################################################
;
; Instalación/Desinstalación:
; Para instalar el programa ejecutá el comando /load -rs PalabrasProhibidas.mrc en cualquier ventana del mIRC.
; Para descargarlo ejecutá /unload -rs PalabrasProhibidas.mrc
;
; Modo de uso:
; Este programa cuando se instala crea un archivo de texto llamado PalabrasProhibidas.txt y en el se almacenan todas las palabras prohibidas que quieras, puedes agregar
; muchísimas si lo deseas.
; Cuando ejecutés el comando para agregar una mala palabra se te abrirá una ventana de Entrada de datos, ahí debes escribir la palabra y pulsar la tecla ENTER o hacer clic
; en el botón OK (recomiendo el ENTER, es más rápido y fácil) para que se guarde la palabra y así seguir agregando más. Si no deseas agregar más entónces pulsá la
; tecla Cancelar.
; pulsando la tecla ENTER para agregar más palabras!
; Este programa tiene la posibilidad de Activarlo o Desactivarlo sin necesidad de descargarlo!
; Abajo dejo los comandos del programa para agregar, ver o borrar palabras:
; /palabrasprohibidas on --> Activa el programa
; /palabrasprohibidas off --> Desactiva el programa
; /agrpal Palabra --> Agrega una palabra
; /borrarpal Palabra --> Elimina una mala palabra de la base de datos
; /listapals --> Con este comando podés ver el listado de palabras que tenés actualmente agregadas!
; /kickrazon Razón del kick --> Comando para agregar una razón cuando un usuario sea expulsado de un canal
;
; Funcionamiento:
; Cuando un usuario escribe una mala palabra en cualquier canal, el script comprueba que seas operador de ese canal en donde se dijo la mala palabra, si es asi, entónces
; el programa baneará permanentemente la IP del usuario y también lo expulsará del canal con la razón que especificaste.
;
; Nota: Si deseas modificar el programa para tus preferencias, hazlo, pero sólo te pido que conserves el Autor.

#PalabrasProhibidas on
on *:text:*:#canal: {
  if ($level($nick) == 1) {
  var %comptexto = $strip($1-)
  var %nums = 1
    while (%nums <= $lines(%PalPro.dir)) {
      var %leepal = $read(%PalPro.dir,%nums)
      if (%leepal iswm %comptexto) {
        mode #canal +b *!*@ $+ $gettok($address,2,64) | kick # $nick Aquí no.
        return
      }
      inc %nums
    }
  }
}
#PalabrasProhibidas end

alias palabrasprohibidas {
  if ($1 == on) {
    set %PalPro.dir $scriptdir $+ PalabrasProhibidas.txt | .enable #PalabrasProhibidas | echo -s 0,12La Protección ha sido activada!
    if ($exists(%PalPro.dir) == $false) { write $mircdir $+ PalabrasProhibidas.txt }
  }
  else if ($1 == off) { unset %PalPro.dir | .disable #PalabrasProhibidas | echo -s 0,1La Protección ha sido desactivada! }
  else if ($1 == $null) {
    echo -s 0,2Faltan parámetros! el comando para activar la Protección de Palabras Prohibidas es /palabrasprohibidas on
    echo -s 0,10y para desactivar es /palabrasprohibidas off
  }
}

alias agrpal {
  :AgregarPalabras
  write $scriptdirPalabrasProhibidas.txt $$?="Escribí aquí la mala palabra:"
  goto AgregarPalabras
}

alias borrarpal {
  if ($1 != $null) {
    if ($read($scriptdirPalabrasProhibidas.txt,w,$1) != $null) { write -dl $+ $readn $scriptdirPalabrasProhibidas.txt | echo -s 2La palabra $1 ha sido borrada }
    else echo -s La palabra $1 no existe!
  }
}

alias listapals {
  echo -se 12Listado de Palabras Prohibidas (Total: $lines($scriptdirPalabrasProhibidas.txt) $+ ):
  var %pals = 0
  :SumaNums
  inc %pals
  if (%pals <= $lines($scriptdirPalabrasProhibidas.txt)) echo -s $read($scriptdirPalabrasProhibidas.txt,%pals)
  else { echo -se 12 $+ $str(¯,33) | return }
  goto SumaNums
}

alias kickrazon if ($1 != $null) set %KickRazon $1-

on 99:text:*:#: {
  var %TextoUser = $strip($2)
  if ($1 == .añade) { write $scriptdirPalabrasProhibidas.txt $strip($2) | msg #canal_ops La frase1 $2 ha sido añadida como frase prohibida! }
  else if ($1 == .borrado) && ($2 != $null) {
    if ($read($scriptdirPalabrasProhibidas.txt,w,%TextoUser) != $null) {
      write -dl $+ $readn $scriptdirPalabrasProhibidas.txt
      msg #canal_ops La frase1 %TextoUser ha sido borrada como frase prohibida!
    }
    else msg #canal_ops No existe la palabra1 %TextoUser en el modulo de frases prohibidas!
  }
}

; Fin del código!

Muchas gracias!!!

Un saludo.

Desconectado Quetzalcoatl

  • Novato
  • *
  • Mensajes: 30
  • Karma: +58/-1
  • HipercomputoHipermegared
    • elchatirc
Re:Ayuda con este código.
« Respuesta #1 en: Octubre 08, 2019, 06:24:57 am »
Hola.

Hace tiempo que uso este addon para palabras prohibidas, pero me gustaría añadir que segun que palabras, las pueda poner en excepción, o sea si tengo añadido *puta* que pueda yo poner en excepción *diputada* etc...
Código: [Seleccionar]
bla bla bla bla !!!!!! y mas bla
Muchas gracias!!!

Un saludo.

busca la linea
Código: [Seleccionar]
  var %comptexto = $strip($1-) y reemplazala por
Código: [Seleccionar]
  var %comptexto = $depurapalabras($1-)
y al final del codigo que has puesto(donde dice ; Fin del código!). Agrega esto en una linea nueva:
Código: [Seleccionar]
alias depurapalabras {
  var %excepciones diputada penelope vergara palpito
  var %i 1, %txt, %v | tokenize 32 $strip($1-)
  while ($gettok($1-,%i,32)) { %v = $v1 | if ($istok(%excepciones,%v,32) != $true) { %txt = %txt %v } | inc %i }
  return %txt
}
en donde la variable %excepciones son las palabras con excepciones separadas por espacio.

Saludos rank

PD: Probado en mirc version 6.2 y 7.57
« última modificación: Octubre 08, 2019, 06:39:18 am por Quetzalcoatl »

Desconectado rank

  • Novato
  • *
  • Mensajes: 14
  • Karma: +0/-104
Re:Ayuda con este código.
« Respuesta #2 en: Octubre 08, 2019, 08:17:30 pm »
Hola.

Muchísimas gracias, y se podría añadir un comando tipo .excepciones "palabra" y que se añadiera, para no ir entrando el bot, cada vez que tenga que añadir una palabra

Un saludo.

Desconectado Cadaver

  • Novato
  • *
  • Mensajes: 32
  • Karma: +71/-1
  • Sexo: Masculino
    • ElChatIRC.com
Re:Ayuda con este código.
« Respuesta #3 en: Octubre 09, 2019, 05:39:10 pm »
Del alias depurapalabras elimina la linea var %excepciones diputada penelope vergara palpito:
Código: [Seleccionar]
alias depurapalabras {
  var %excepciones diputada penelope vergara palpito
  var %i 1, %txt, %v | tokenize 32 $strip($1-)
  while ($gettok($1-,%i,32)) { %v = $v1 | if ($istok(%excepciones,%v,32) != $true) { %txt = %txt %v } | inc %i }
  return %txt
}

Agrega este nuevo alias para agregar o eliminar palabras usa /excepciones + o - mas la palabra
Código: [Seleccionar]
alias excepciones {
  if ($1 == +) {
    var %x $strip($2)
    if ($findtok(%excepciones,%x,32) != $null) { echo -s $+(,%x,) ya esta en la lista de excepciones. | halt }
    else { set %excepciones $addtok(%excepciones,%x,32) | echo -s Agregado $+(,%x,) a la lista de excepciones. | halt }
  }
  if ($1 == -) {
    var %x $strip($2)
    if ($findtok(%excepciones,%x,32) == $null) { echo -s $+(,%x,) no esta en la lista de excepciones. | halt }
    else { set %excepciones $deltok(%excepciones,$findtok(%excepciones,%x,1,32),32) | echo -s Eliminado $+(,%x,) de la lista de excepciones. | halt }
  }
  if ($1 != +) && ($1 != -) { echo -s Usa +/- para agregar o eliminar. }
}
« última modificación: Octubre 09, 2019, 05:48:12 pm por Cadaver »

Desconectado Cadaver

  • Novato
  • *
  • Mensajes: 32
  • Karma: +71/-1
  • Sexo: Masculino
    • ElChatIRC.com
Re:Ayuda con este código.
« Respuesta #4 en: Octubre 09, 2019, 07:50:23 pm »
Para que funcione como quieres cambia el alias excepciones por este:

Código: [Seleccionar]
alias excepciones {
  if ($1 == +) {
    var %x $strip($2)
    if ($findtok(%excepciones,%x,32) != $null) { return $+(,%x,) ya esta en la lista de excepciones. }
    else { set %excepciones $addtok(%excepciones,%x,32) | return Agregado $+(,%x,) a la lista de excepciones. }
  }
  if ($1 == -) {
    var %x $strip($2)
    if ($findtok(%excepciones,%x,32) == $null) { return $+(,%x,) no esta en la lista de excepciones. }
    else { set %excepciones $deltok(%excepciones,$findtok(%excepciones,%x,1,32),32) | return Eliminado $+(,%x,) de la lista de excepciones. }
  }
  if ($1 != +) && ($1 != -) { return Usa +/- para agregar o eliminar. }
}

Y sustituye el evento on TEXT que tienes por:

Código: [Seleccionar]
on 99:text:*:#: { if ($1 == .excepciones) { msg $chan $excepciones($2-) } }
« última modificación: Octubre 09, 2019, 08:01:32 pm por Cadaver »

Desconectado rank

  • Novato
  • *
  • Mensajes: 14
  • Karma: +0/-104
Re:Ayuda con este código.
« Respuesta #5 en: Octubre 10, 2019, 04:56:27 am »
Hola.

Muchas gracias a los 2 por la ayuda, pero tengo una última duda.

¿Todo el evento ON TEXT?

Código: [Seleccionar]
on 99:text:*:#: {
  var %TextoUser = $strip($2)
  if ($1 == .añade) { write $scriptdirPalabrasProhibidas.txt $strip($2) | msg #canal_ops La frase1 $2 ha sido añadida como frase prohibida! }
  else if ($1 == .borrado) && ($2 != $null) {
    if ($read($scriptdirPalabrasProhibidas.txt,w,%TextoUser) != $null) {
      write -dl $+ $readn $scriptdirPalabrasProhibidas.txt
      msg #canal_ops La frase1 %TextoUser ha sido borrada como frase prohibida!
    }
    else msg #canal_ops No existe la palabra1 %TextoUser en el modulo de frases prohibidas!
  }
}

Si lo quito entero solo por ese, no podre añadir ni borrar palabras o frases.

Un saludo y gracias!

Desconectado Cadaver

  • Novato
  • *
  • Mensajes: 32
  • Karma: +71/-1
  • Sexo: Masculino
    • ElChatIRC.com
Re:Ayuda con este código.
« Respuesta #6 en: Octubre 10, 2019, 04:12:42 pm »
Pues para eso esta el otro código.  ::)

Si escriben .excepciones +/- palabra agregara o eliminara palabras prohibidas. El otro codigo ya no lo necesitaras pero puedes dejarlo si es que tiene alguna utilidad.

Hola.

Muchas gracias a los 2 por la ayuda, pero tengo una última duda.

¿Todo el evento ON TEXT?

Código: [Seleccionar]
on 99:text:*:#: {
  var %TextoUser = $strip($2)
  if ($1 == .añade) { write $scriptdirPalabrasProhibidas.txt $strip($2) | msg #canal_ops La frase1 $2 ha sido añadida como frase prohibida! }
  else if ($1 == .borrado) && ($2 != $null) {
    if ($read($scriptdirPalabrasProhibidas.txt,w,%TextoUser) != $null) {
      write -dl $+ $readn $scriptdirPalabrasProhibidas.txt
      msg #canal_ops La frase1 %TextoUser ha sido borrada como frase prohibida!
    }
    else msg #canal_ops No existe la palabra1 %TextoUser en el modulo de frases prohibidas!
  }
}

Si lo quito entero solo por ese, no podre añadir ni borrar palabras o frases.

Un saludo y gracias!

Desconectado rank

  • Novato
  • *
  • Mensajes: 14
  • Karma: +0/-104
Re:Ayuda con este código.
« Respuesta #7 en: Octubre 11, 2019, 02:56:30 am »
Hola.

Es que el ON TEXT que has puesto solo servirá para añadir/quitar palabras en excepciones.

Pero si quiero añadir palabras o borrarlas (sin excepcionarlas), si quito el ON TEXT que está ahora, ya no podre usarlo.

A eso me refería.

Un saludo.

Desconectado Quetzalcoatl

  • Novato
  • *
  • Mensajes: 30
  • Karma: +58/-1
  • HipercomputoHipermegared
    • elchatirc
Re:Ayuda con este código.
« Respuesta #8 en: Octubre 11, 2019, 04:58:39 am »
NO es necesario quitarlo, solo combinar los eventos TEXT, tal cual menciona cadaver
Código: [Seleccionar]
on 99:text:*:#: { if ($1 == .excepciones) { msg $chan $excepciones($2-) } }es una solución rápida y sencilla.

Saludos.

Desconectado rank

  • Novato
  • *
  • Mensajes: 14
  • Karma: +0/-104
Re:Ayuda con este código.
« Respuesta #9 en: Octubre 18, 2019, 12:29:14 pm »
Hola.

He probado y no me caes caso :/

12:22p <@rank> .excepciones + putada
12:22p <@rank> .excepciones +putada

Código: [Seleccionar]
; ##################################################
; #### [ Programa PalabrasProhibidas versión 1.0 creado por Principe_Azul ] ####
; ##################################################
;
; Instalación/Desinstalación:
; Para instalar el programa ejecutá el comando /load -rs PalabrasProhibidas.mrc en cualquier ventana del mIRC.
; Para descargarlo ejecutá /unload -rs PalabrasProhibidas.mrc
;
; Modo de uso:
; Este programa cuando se instala crea un archivo de texto llamado PalabrasProhibidas.txt y en el se almacenan todas las palabras prohibidas que quieras, puedes agregar
; muchísimas si lo deseas.
; Cuando ejecutés el comando para agregar una mala palabra se te abrirá una ventana de Entrada de datos, ahí debes escribir la palabra y pulsar la tecla ENTER o hacer clic
; en el botón OK (recomiendo el ENTER, es más rápido y fácil) para que se guarde la palabra y así seguir agregando más. Si no deseas agregar más entónces pulsá la
; tecla Cancelar.
; pulsando la tecla ENTER para agregar más palabras!
; Este programa tiene la posibilidad de Activarlo o Desactivarlo sin necesidad de descargarlo!
; Abajo dejo los comandos del programa para agregar, ver o borrar palabras:
; /palabrasprohibidas on --> Activa el programa
; /palabrasprohibidas off --> Desactiva el programa
; /agrpal Palabra --> Agrega una palabra
; /borrarpal Palabra --> Elimina una mala palabra de la base de datos
; /listapals --> Con este comando podés ver el listado de palabras que tenés actualmente agregadas!
; /kickrazon Razón del kick --> Comando para agregar una razón cuando un usuario sea expulsado de un canal
;
; Funcionamiento:
; Cuando un usuario escribe una mala palabra en cualquier canal, el script comprueba que seas operador de ese canal en donde se dijo la mala palabra, si es asi, entónces
; el programa baneará permanentemente la IP del usuario y también lo expulsará del canal con la razón que especificaste.
;
; Nota: Si deseas modificar el programa para tus preferencias, hazlo, pero sólo te pido que conserves el Autor.

#PalabrasProhibidas on
on *:text:*:#canal: {
  if ($level($nick) == 1) {
    var %comptexto = $depurapalabras($1-)
    var %nums = 1
    while (%nums <= $lines(%PalPro.dir)) {
      var %leepal = $read(%PalPro.dir,%nums)
      if (%leepal iswm %comptexto) {
        mode #canal +b *!*@ $+ $gettok($address,2,64) | kick # $nick [Auto] Actividades no permitidas en el canal.
        msg #canal_adm 1[BL] Caneando a 1 $nick  ( $address ) por: $1-
        return
      }
      inc %nums
    }
  }
}
#PalabrasProhibidas end

alias palabrasprohibidas {
  if ($1 == on) {
    set %PalPro.dir $scriptdir $+ PalabrasProhibidas.txt | .enable #PalabrasProhibidas | echo -s 0,12La Protección ha sido activada!
    if ($exists(%PalPro.dir) == $false) { write $mircdir $+ PalabrasProhibidas.txt }
  }
  else if ($1 == off) { unset %PalPro.dir | .disable #PalabrasProhibidas | echo -s 0,1La Protección ha sido desactivada! }
  else if ($1 == $null) {
    echo -s 0,2Faltan parámetros! el comando para activar la Protección de Palabras Prohibidas es /palabrasprohibidas on
    echo -s 0,10y para desactivar es /palabrasprohibidas off
  }
}

alias agrpal {
  :AgregarPalabras
  write $scriptdirPalabrasProhibidas.txt $$?="Escribí aquí la mala palabra:"
  goto AgregarPalabras
}

alias borrarpal {
  if ($1 != $null) {
    if ($read($scriptdirPalabrasProhibidas.txt,w,$1) != $null) { write -dl $+ $readn $scriptdirPalabrasProhibidas.txt | echo -s 2La palabra $1 ha sido borrada }
    else echo -s La palabra $1 no existe!
  }
}

alias listapals {
  echo -se 12Listado de Palabras Prohibidas (Total: $lines($scriptdirPalabrasProhibidas.txt) $+ ):
  var %pals = 0
  :SumaNums
  inc %pals
  if (%pals <= $lines($scriptdirPalabrasProhibidas.txt)) echo -s $read($scriptdirPalabrasProhibidas.txt,%pals)
  else { echo -se 12 $+ $str(¯,33) | return }
  goto SumaNums
}

alias kickrazon if ($1 != $null) set %KickRazon $1-

on 99:text:*:#: {
  var %TextoUser = $strip($2)
  if ($1 == .añade) { write $scriptdirPalabrasProhibidas.txt $strip($2) | msg #canal La frase1 $2 ha sido añadida como frase prohibida! }
  else if ($1 == .borrado) && ($2 != $null) {
    if ($read($scriptdirPalabrasProhibidas.txt,w,%TextoUser) != $null) {
      write -dl $+ $readn $scriptdirPalabrasProhibidas.txt
      msg #canal_adm La frase1 %TextoUser ha sido borrada como frase prohibida!
    }
    else msg #canal_adm No existe la palabra1 %TextoUser en el modulo de frases prohibidas!
  }
}

alias excepciones {
  if ($1 == +) {
    var %x $strip($2)
    if ($findtok(%excepciones,%x,32) != $null) { return $+(,%x,) ya esta en la lista de excepciones. }
    else { set %excepciones $addtok(%excepciones,%x,32) | return Agregado $+(,%x,) a la lista de excepciones. }
  }
  if ($1 == -) {
    var %x $strip($2)
    if ($findtok(%excepciones,%x,32) == $null) { return $+(,%x,) no esta en la lista de excepciones. }
    else { set %excepciones $deltok(%excepciones,$findtok(%excepciones,%x,1,32),32) | return Eliminado $+(,%x,) de la lista de excepciones. }
  }
  if ($1 != +) && ($1 != -) { return Usa +/- para agregar o eliminar. }
}

on 99:text:*:#: { if ($1 == .excepciones) { msg $chan $excepciones($2-) } }

Un saludo.

Desconectado Cadaver

  • Novato
  • *
  • Mensajes: 32
  • Karma: +71/-1
  • Sexo: Masculino
    • ElChatIRC.com
Re:Ayuda con este código.
« Respuesta #10 en: Octubre 18, 2019, 05:03:44 pm »
Se supone que el que lo debe escribir es otro nick con nivel de acceso 99 para eso es:
Código: [Seleccionar]
on 99:text:*:#: { if ($1 == .excepciones) { msg $chan $excepciones($2-) } }Si quieres que al escribirlo tu funcione cambialo por:
Código: [Seleccionar]
on *:text:*:#: { if ($1 == .excepciones) && ($nick == $me) { msg $chan $excepciones($2-) } }
Hola.

He probado y no me caes caso :/

12:22p <@rank> .excepciones + putada
12:22p <@rank> .excepciones +putada

Código: [Seleccionar]
; ##################################################
; #### [ Programa PalabrasProhibidas versión 1.0 creado por Principe_Azul ] ####
; ##################################################
;
; Instalación/Desinstalación:
; Para instalar el programa ejecutá el comando /load -rs PalabrasProhibidas.mrc en cualquier ventana del mIRC.
; Para descargarlo ejecutá /unload -rs PalabrasProhibidas.mrc
;
; Modo de uso:
; Este programa cuando se instala crea un archivo de texto llamado PalabrasProhibidas.txt y en el se almacenan todas las palabras prohibidas que quieras, puedes agregar
; muchísimas si lo deseas.
; Cuando ejecutés el comando para agregar una mala palabra se te abrirá una ventana de Entrada de datos, ahí debes escribir la palabra y pulsar la tecla ENTER o hacer clic
; en el botón OK (recomiendo el ENTER, es más rápido y fácil) para que se guarde la palabra y así seguir agregando más. Si no deseas agregar más entónces pulsá la
; tecla Cancelar.
; pulsando la tecla ENTER para agregar más palabras!
; Este programa tiene la posibilidad de Activarlo o Desactivarlo sin necesidad de descargarlo!
; Abajo dejo los comandos del programa para agregar, ver o borrar palabras:
; /palabrasprohibidas on --> Activa el programa
; /palabrasprohibidas off --> Desactiva el programa
; /agrpal Palabra --> Agrega una palabra
; /borrarpal Palabra --> Elimina una mala palabra de la base de datos
; /listapals --> Con este comando podés ver el listado de palabras que tenés actualmente agregadas!
; /kickrazon Razón del kick --> Comando para agregar una razón cuando un usuario sea expulsado de un canal
;
; Funcionamiento:
; Cuando un usuario escribe una mala palabra en cualquier canal, el script comprueba que seas operador de ese canal en donde se dijo la mala palabra, si es asi, entónces
; el programa baneará permanentemente la IP del usuario y también lo expulsará del canal con la razón que especificaste.
;
; Nota: Si deseas modificar el programa para tus preferencias, hazlo, pero sólo te pido que conserves el Autor.

#PalabrasProhibidas on
on *:text:*:#canal: {
  if ($level($nick) == 1) {
    var %comptexto = $depurapalabras($1-)
    var %nums = 1
    while (%nums <= $lines(%PalPro.dir)) {
      var %leepal = $read(%PalPro.dir,%nums)
      if (%leepal iswm %comptexto) {
        mode #canal +b *!*@ $+ $gettok($address,2,64) | kick # $nick [Auto] Actividades no permitidas en el canal.
        msg #canal_adm 1[BL] Caneando a 1 $nick  ( $address ) por: $1-
        return
      }
      inc %nums
    }
  }
}
#PalabrasProhibidas end

alias palabrasprohibidas {
  if ($1 == on) {
    set %PalPro.dir $scriptdir $+ PalabrasProhibidas.txt | .enable #PalabrasProhibidas | echo -s 0,12La Protección ha sido activada!
    if ($exists(%PalPro.dir) == $false) { write $mircdir $+ PalabrasProhibidas.txt }
  }
  else if ($1 == off) { unset %PalPro.dir | .disable #PalabrasProhibidas | echo -s 0,1La Protección ha sido desactivada! }
  else if ($1 == $null) {
    echo -s 0,2Faltan parámetros! el comando para activar la Protección de Palabras Prohibidas es /palabrasprohibidas on
    echo -s 0,10y para desactivar es /palabrasprohibidas off
  }
}

alias agrpal {
  :AgregarPalabras
  write $scriptdirPalabrasProhibidas.txt $$?="Escribí aquí la mala palabra:"
  goto AgregarPalabras
}

alias borrarpal {
  if ($1 != $null) {
    if ($read($scriptdirPalabrasProhibidas.txt,w,$1) != $null) { write -dl $+ $readn $scriptdirPalabrasProhibidas.txt | echo -s 2La palabra $1 ha sido borrada }
    else echo -s La palabra $1 no existe!
  }
}

alias listapals {
  echo -se 12Listado de Palabras Prohibidas (Total: $lines($scriptdirPalabrasProhibidas.txt) $+ ):
  var %pals = 0
  :SumaNums
  inc %pals
  if (%pals <= $lines($scriptdirPalabrasProhibidas.txt)) echo -s $read($scriptdirPalabrasProhibidas.txt,%pals)
  else { echo -se 12 $+ $str(¯,33) | return }
  goto SumaNums
}

alias kickrazon if ($1 != $null) set %KickRazon $1-

on 99:text:*:#: {
  var %TextoUser = $strip($2)
  if ($1 == .añade) { write $scriptdirPalabrasProhibidas.txt $strip($2) | msg #canal La frase1 $2 ha sido añadida como frase prohibida! }
  else if ($1 == .borrado) && ($2 != $null) {
    if ($read($scriptdirPalabrasProhibidas.txt,w,%TextoUser) != $null) {
      write -dl $+ $readn $scriptdirPalabrasProhibidas.txt
      msg #canal_adm La frase1 %TextoUser ha sido borrada como frase prohibida!
    }
    else msg #canal_adm No existe la palabra1 %TextoUser en el modulo de frases prohibidas!
  }
}

alias excepciones {
  if ($1 == +) {
    var %x $strip($2)
    if ($findtok(%excepciones,%x,32) != $null) { return $+(,%x,) ya esta en la lista de excepciones. }
    else { set %excepciones $addtok(%excepciones,%x,32) | return Agregado $+(,%x,) a la lista de excepciones. }
  }
  if ($1 == -) {
    var %x $strip($2)
    if ($findtok(%excepciones,%x,32) == $null) { return $+(,%x,) no esta en la lista de excepciones. }
    else { set %excepciones $deltok(%excepciones,$findtok(%excepciones,%x,1,32),32) | return Eliminado $+(,%x,) de la lista de excepciones. }
  }
  if ($1 != +) && ($1 != -) { return Usa +/- para agregar o eliminar. }
}

on 99:text:*:#: { if ($1 == .excepciones) { msg $chan $excepciones($2-) } }

Un saludo.

Desconectado rank

  • Novato
  • *
  • Mensajes: 14
  • Karma: +0/-104
Re:Ayuda con este código.
« Respuesta #11 en: Octubre 18, 2019, 09:27:32 pm »
Hola.

Si te fijas en el código es el ON TEXT que tengo puesto.

Pero cuando intento añadir una palabra no me dice que ha sido agregada ni nada (el nick del bot es otro y lo quiero añadir desde rank).

Pegue todo el código pos si he puesto algo mal en el alias y en on text.

Un saludo