hello again maroon.
I'm sorry if I misspoke, I copied the whole script as you put it, I just modified it about the rooms.

on *:OP:#:{
if ($opnick != $me) return
var %i 1
while ($nick($chan,%i,a) != $null) {
noop $BaneaUsuarios( $v1 , $chan )
inc %i
}
}

alias BaneaUsuarios {
var %cuentaNicks = 1 , %badwords_total $lines(patrones.txt) , %except_total $lines(patrones-exceptuados.txt)
while (%cuentaNicks <= %badwords_total) {
var %linetext $read(patrones.txt,nt,%cuentaNicks)
if (%linetext isin $1) || (%linetext iswm $1) {
var %cuentaExcepciones = 1

while (%cuentaExcepciones <= except_total) {
var %except_linetext $read(patrones.txt,nt,%cuentaNicks)
if (%except_linetext isin $1) || (%except_linetext iswm $1) {
;halt
return
}
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.
return
;halt
}
inc %cuentaNicks
}

}





and it doesn't work in any way, neither by entering or changing inside the room, let alone by me entering the room and putting on my @