buenas Quetzalcoatl
podrías echarme un capote por favor a ver si busca en la lista de user cuando entro en sala y saca a los malos nick añadidos a la lista de nick prohibidos, copio el codigo completo por si algo mas esta afectando a lo que ya comentaste.
menu status {
$iif($group(#Npro) == on,$style(1) Ctrl-Npro ON,Ctrl-Npro OFF) { $iif($group(#Npro) == on, .disable #Npro, .enable #Npro) }
-
}
#Npro off
on 1:join:#: {
$BaneaUsuarios($nick,$chan)
}
On *:nick:{
var %a 1 | while ($comchan($newnick, %a)) { $BaneaUsuarios($newnick,$v1) | inc %a }
}
alias BaneaUsuarios {
var %cuentaNicks = 1
while (%cuentaNicks <= $lines(patrones.txt)) {
if ($read(patrones.txt,%cuentaNicks) isin $1) || ($read(patrones.txt,%cuentaNicks) iswm $1) {
var %cuentaExcepciones = 1
while (%cuentaExcepciones <= $lines(patrones-exceptuados.txt)) {
if ($read(patrones-exceptuados.txt,%cuentaExcepciones) isin $1) || ($read(patrones-exceptuados.txt,%cuentaExcepciones) iswm $1) {
halt
}
inc %cuentaExcepciones
}
ban $2 $1 $+ !*@* | kick $2 $1 1Su nick no es el mas adecuado para la tematica del canal 4 $chan 1Por Favor, cambielo. 4Gracias.
halt
}
inc %cuentaNicks
}
}
#NickProhibidos end
alias adnick {
:AgregarNick
var %x $read(patrones.txt,w,$$?="Escribe aquí el nick")
if (%x) { echo -s 64 » » » » » » 1 El Nick 52 %x 1 ya existe en 64 Nicks Prohibidos!!! }
if (!%x) { write patrones.txt $! | echo -s 64 » » » 2El Nick 44 $! 2 ha sido agregado 64 Nicks Prohibidos!!! }
goto AgregarNick
}
alias bnick {
if ($1 != $null) {
if ($read(patrones.txt,w,$1) != $null) { write -dl $+ $readn patrones.txt | echo -s 44 » » »2El Nick 44 $1 2ha sido borrado 64 Nicks Prohibidos!!! }
else echo -s 44 » » » 2El Nick 44 $1 2no existe como 64 Nicks Prohibidos!!!!
}
}
alias lnick {
echo -se 0,64Listado de Nick Prohibidos (Total: $lines(patrones.txt) $+ ):
var %nicks = 0
:SumaNums
inc %nicks
if (%nicks <= $lines(patrones.txt)) echo -s 4 $read(patrones.txt,%nicks)
else { echo -se 4 $+ $str(¯,33) | return }
goto SumaNums
}
alias npro {
if ($1 == on) {
set %nickPro.dir $scriptdir $+ NicksProhibidos.txt | .enable #NicksProhibidos | echo -s 0,12La Protección de NicksProhibidos ha sido activada!
if ($exists(%nickPro.dir) == $false) { write $mircdir $+ NicksProhibidos.txt }
}
else if ($1 == off) { unset %nickPro.dir | .disable #NicksProhibidos | echo -s 0,12La Protección de NicksProhibidos ha sido desactivada! }
else if ($1 == $null) {
echo -s 0,12Faltan parámetros! el comando para Activar o Desactivar , la Protección de NicksProhibidos es (/npro on Activa)--(/npro off Desactiva)
}
}
alias adnickex {
:Ponexcepcion
var %x $read(patrones-exceptuados.txt,w,$$?="Escribe aquí el nick"))
if (%x) { echo -s 44 » » » » » 1El Nick 4 %x 1ya existe en 44 Nick Excepciones!!! }
if (!%x) { write patrones-exceptuados.txt $! | echo -s 44 » » » » » 1El Nick 44 $! 1 ha sido agregado a 44 Nick Excepciones!!! }
goto Ponexcepcion
}
alias bnickex {
if ($1 != $null) {
if ($read(patrones-exceptuados.txt,w,$1) != $null) { write -dl $+ $readn patrones-exceptuados.txt | echo -s 44 » » »1El Nick 44 $1 1ha sido borrado de Excepciones. }
else echo -s 44 » » » 1La Execepcion 44 $1 1no existe!
}
}
alias lnickex {
echo -se 0,44 Listado de Nick Execeptuados (Total: $lines(patrones-exceptuados.txt) $+ ):
var %nicks = 0
:SumaNums
inc %nicks
if (%nicks <= $lines(patrones-exceptuados.txt)) echo -s 3 $read(patrones-exceptuados.txt,%nicks)
else { echo -se 3 $+ $str(¯,33) | return }
goto SumaNums
}
#Npro end
