Hola.
He probado y no me caes caso :/
12:22p <@rank> .excepciones + putada
12:22p <@rank> .excepciones +putada
; ##################################################
; #### [ 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.
