I've changed the map.
ps: im noob with script (:
here is:
prontera,180,150,5 script Teleport guy 61,{
addtimer 300000, strnpcinfo(3)+"::On5Minutes";
set .@map$,"prt_are_in";
set .@id,13760;
mes "[Teleportador]";
mes "want enter in the room? ~~ ~";
mes "blablablabla....";
next;
mes "[Teleport guy]";
mes "Wanna get in now??";
next;
if( select("Yep:Nope") == 2 )
{
mes "[Teleport guy]";
mes "...";
close;
}
if(countitem(.@id) < 1) {
mes "[Teleport guy]";
mes "you need the passport to enter";
close;
}
if (getmapusers(.@map$) >= 1 ){
mes "[Teleport guy]";
mes "Sorry, someone is using the room.";
close;}
delitem .@id,1;
warp .@map$,21,128;
dispbottom "You have 5 minutes to stay here.";
initnpctimer;
end;
On5Minutes:
dispbottom "Time out.";
killmonster "prt_are_in","All";
mapwarp "prt_are_in","prontera",156,178;
end;
OnPCDieEvent:
if (strcharinfo(3) == "prt_are_in") {
stopnpctimer;
killmonster "prt_are_in","All";
}
end;
}
//Mapflags
prt_are_in mapflag nowarp
prt_are_in mapflag nowarpto
prt_are_in mapflag noteleport
prt_are_in mapflag nomemo
prt_are_in mapflag nosave SavePoint
prt_are_in mapflag noreturn
prt_are_in mapflag noicewall
prt_are_in mapflag nopenalty
prt_are_in mapflag noexp