nombremapa,x,y,pos<tab>script<tab>Nombredelnpc<tab>idspr,{

mes "Por favor escribe la contraseña para acceder";
next;
input .@password$;
if(getstrlen(.@password$)<4){
mes "La contraseña debe de ser de 4 carácteres como mínimo";
close;
}
mes "¿Estás seguro que quieres poner";
mes +.@password$+" como contraseña?";
next;
menu "Sí",-, "No",Lno;
mes "La contraseña ha sido establecida con";
mes "éxito, si la sala queda vacía durante";
mes "más de un minuto, la contraseña será";
mes "retirada automáticamente.";
set $@passwordDB$,.@password$;
donpcevent "Nombrequelepongasalnpc::OnTiempo";
close;

Lno:
 mes "Ok.....";
 close;

OnTiempo: //a partir de aquí cambia lo que te especifique,
                // es para que si la sala queda vacía, la contraseña se retire automáticamente para
                // que pueda entrar más gente que esté en la cola.
detachnpctimer("nombredelnpc"); //escribe el nombre del npc
while(1){
 initnpctimer;
 setnpctimer 0;
 end;

OnTimer120000: //tiempo en el que se retira la contraseña, en milisegundos, ahora son 2 minutos.
 if(getmapusers("saladeadbranch")<1){ set $@passwordDB$,""; stopnpctimer; end; } //escribe el nombre del mapa del DeadBranch
 stopnpctimer;
 } //no se pone "end" para que se repita la cuenta atrás si la sala aun no está vacía
}

nombremapa,x,y,pos<tab>script<tab>Nombredelnpc#02<tab>idspr,{
if($@passwordDB$ == ""){
mes "¿Deseas ir a la sala?";
next;
menu "Sí",-,"No",Lno;
goto Lwarp;
}
if($@passwordDB$ != ""){ //si la contraseña es incorrecta no le deja pasar
mes "La sala ha sido protegida por";
mes "una contraseña, por favor";
mes "escribe la contraseña correcta.";
next;
input .@password$;
if(.@password$ != $@passwordDB$){
mes "Contraseña incorrecta";
close;
 }
 goto Lwarp;
}

Lno:
 mes "Ok, vuelve cuando quieras";
 close;

Lwarp:
 mes "Muy bien, ahora te llevo";
 close2;
 warp "nombredelmapa",x,y; //escribe el nombre del mapa DeadBranch
 end;
}