Mensajes recientes

Páginas: [1] 2 3 ... 10
1
Ayuda general IRcap / Re:bot mirc
« Último mensaje por Quetzalcoatl en Ayer a las 08:15:32 pm »
@Quetzalcoatl pues ni el aplaudir ni el gracias.  :-\
Gracias por responder, tenga su aplauso buen Hombre.  ;D
2
Ayuda general IRcap / Re:bot mirc
« Último mensaje por Cadaver en Ayer a las 05:58:55 pm »
@Quetzalcoatl pues ni el aplaudir ni el gracias.  :-\
3
Ayuda general IRcap / Re:bot mirc
« Último mensaje por Quetzalcoatl en Noviembre 11, 2019, 06:07:49 pm »
saludos joselillo

Quizas esto pueda ser lo que requieres
Código: [Seleccionar]
;================ Inicio de sección de saludos ============================
;================ En %especiales especifica los nicks separados por espacio
alias -l eltipo {
  var %especiales nick1 ejemploNICK otronick
  if ($istok(%especiales,$1,32)) return e | else return c
}
;================ En %c se configura el mensaje común y %e es para especiales
alias -l msgjoin {
var %c = Bienvenido <nick> al canal <canal>, pasatela bien.
var %e = Saludos <nick>, hace tiempo sin verte por <canal>
; ------- no mover esta parte -----------
  if (c == $1) return %c | else return %e
}
;================ aqui manda el mensaje al canal
on ^&*:JOIN:#TUCANAL:{
  if ($nick != $me) msg $chan $replace($msgjoin($eltipo($nick)),<nick>,$nick,<canal>,$chan)
}
;================ Fin de la sección de saludos ==================================

en donde los alias son locales, para evitar problemas con otros códigos que tengas
1.- En el alias eltipo, la variable %especiales se especifican los nicks separados por espacios.
2.- El alias de msgjoin, usa las variables %c y %e deben cambiarse si así lo requieres.
    Ten en cuenta que <nick> y <canal>, son parámetros que se reemplazan automáticamente al enviar el mensaje.
3.- En el evento JOIN, cambia #TUCANAL por el el canal donde quieres que se aplique.

Ten en cuenta que si entra varios nicks al mismo tiempo, es posible que el bot de desconecte si es que no tiene el modo +k

hola amigos de antemano agradecer a las personas que ayudais sin esperar nada a cambio eso ya se merece un 10
del lado izquierdo se ve quien responde el mensaje, podrias dar en aplaudir, para agradecer la ayuda ;D ;D ;D

Espero te sirva.
4
Ayuda general IRcap / bot mirc
« Último mensaje por joselillo en Noviembre 11, 2019, 11:13:32 am »
hola amigos de antemano agradecer a las personas que ayudais sin esperar nada a cambio eso ya se merece un 10
mi pregunta es tengo un bot mirc y quisiera ponerle en un canal un saludo personalizado y diferente para varios usuarios seria posible? gracias un saludo y mil agradecimientos
5
Ayuda general IRcap / Re:sobre el modo de nick +I
« Último mensaje por Quetzalcoatl en Octubre 24, 2019, 03:20:48 pm »
No es posible a menos que el usuario se lo quite.
6
Ayuda general IRcap / sobre el modo de nick +I
« Último mensaje por joselillo en Octubre 24, 2019, 11:47:14 am »
hola amigos sabéis si hay alguna forma de ver la idle (tiempo inactivo) de un usuario que usa el modo +I con ircap en chathispano? gracias un saludo
7
Ayuda general IRcap / sobre el modo de nick +I
« Último mensaje por joselillo en Octubre 24, 2019, 11:38:10 am »
hola amigos del foro sabeis si hay alguna forma de ber la idle de un usuario de ircap que utiliza el modo +I en el nick? gracias un saludo
8
Ayuda scripting IRcap / Re:Ayuda con este código.
« Último mensaje por rank 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
9
Ayuda scripting IRcap / Re:Ayuda con este código.
« Último mensaje por Cadaver 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.
10
Ayuda scripting IRcap / Re:Ayuda con este código.
« Último mensaje por rank 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.
Páginas: [1] 2 3 ... 10
anything