A single pvp map warper

[zmref]

Please help me I need an NPC warper where it warps players and display the players inside the map using the chat room like interface.

[Euphy]

prontera,150,150,0	script	PVP Warper	100,{
end;
OnInit:
set .map$, "pvp_y_1-1";
set .limit, 20;
initnpctimer;
OnTimer2000:
stopnpctimer;
set .@i, getmapusers(.map$);
delwaitingroom;
waitingroom "PVP :: "+.@i+"/"+.limit+" players",((.@i < .limit)?2:0),strnpcinfo(0)+"::OnStartArena",1;
if (.@i < .limit)
	enablewaitingroomevent;
else
	disablewaitingroomevent;
initnpctimer;
end;
OnStartArena:
warpwaitingpc .map$,0,0;
if (getmapusers(.map$) >= .limit)
	disablewaitingroomevent;
end;
}