Mensajes recientes

Páginas: 1 2 [3] 4 5 ... 10
21
Ayuda scripting IRcap / Re:Ayuda con este código.
« Último mensaje por Cadaver 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-) } }
22
Ayuda scripting IRcap / Re:Ayuda con este código.
« Último mensaje por Cadaver 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. }
}
23
Ayuda scripting IRcap / Re:Ayuda con este código.
« Último mensaje por rank 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.
24
Ayuda scripting IRcap / Re:Ayuda con este código.
« Último mensaje por Quetzalcoatl 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
25
Ayuda scripting IRcap / Ayuda con este código.
« Último mensaje por rank 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.
26
Ayuda IRC y otras cosas relacionadas / Re:Orden de comando names en chathispano
« Último mensaje por ManuelB en Septiembre 26, 2019, 10:45:07 pm »
Buenas, tengo una experiencia similar ¿Alguien tiene la dirección email para hacer la conexión?

Por otra parte, esta compañía debería crear un chat laboral con la modalidad del chat hispano y donde las personas puedan enviar sus currículum vitae para obtener trabajo. Sería todo un éxito. 

Ojalá que la compañía se anime a crearlo.
27
Ayuda scripting IRcap / Re:Código de cuando CHaN da registro
« Último mensaje por rank en Septiembre 25, 2019, 08:23:16 pm »
Hola.

Muchas gracias, me ha servido mucho de ayuda!!!!

Un saludo
28
Ayuda scripting IRcap / Re:Código de cuando CHaN da registro
« Último mensaje por Quetzalcoatl en Septiembre 25, 2019, 01:25:41 am »
rank el ejemplo fue para el que colocaste de:
09:01p -CHaN:#salamanca- KuBoX pone a pepe con nivel 100

para las otras comparaciones de:
else if (cambia en isin $1-)  y else if (quita a isin $1-)

Ignoro cual sea la salida de los otros dos eventos al hacer el cambio de nivel o al eliminar el access del canal, pero puedes basarte en el ejemplo y hacer el conteo para determinar cual identificador, corresponde en los dos casos de arriba mencionados
Citar
09:01p -CHaN:#salamanca- KuBoX pone a pepe con nivel 100
       <      EVENTO   >          $1        $2 $3 $4     $5   $6  $7
$1= KuBoX
$2= pone
$3= a
$4= pepe
$5= con
$6= nivel
$7= 100

Saludos
29
Ayuda scripting IRcap / Re:Código de cuando CHaN da registro
« Último mensaje por rank en Septiembre 24, 2019, 11:17:36 pm »
Hola.

Muchas gracias por la ayuda, entonces, si no lo he entendido mal, se cambia todo lo de $6 por $4 , no?

Y el $7 también lo cambio por $4?

¡Gracias!
30
Ayuda scripting IRcap / Re:ayuda con codigo de lineas y stats
« Último mensaje por rank en Septiembre 24, 2019, 09:30:17 pm »
Hola!!!!!

Muchísimas gracias por la explicación!
Páginas: 1 2 [3] 4 5 ... 10
anything