Assuming the above script works well.
menu "Last Warp ^777777["+lastwarp$+"]^000000",-,
getcharid(1)?"Party Warp ^CCCCCC["+getpartyname(getcharid(1))+"]^000000":"",Party,
" ~ Towns",Towns,
" ~ Fields",Fields,
" ~ Dungeons",Dungeons,
" ~ Guild Castles",Castles,
" ~ Guild Dungeons",Guild_Dungeons,
" ~ Instances",Instances,
" ~ Special Areas",Special;
if (lastwarp$ == "")
message strcharinfo(0),"You haven't warped anywhere yet.";
else
warp lastwarp$,lastwarpx,lastwarpy;
end;
Party:
deletearray .@aid[0],128;
deletearray @aid[0],128;
set @j,0;
set @select$,"";
getpartymember getcharid(1),2;
set .@num,$@partymembercount;
copyarray .@aid[0],$@partymemberaid[0],.@num;
set .@num,getarraysize(.@aid);
for(set .@i,0;.@i<.@num;set .@i,.@i+1)
if(isloggedin(.@aid[.@i]))
{
set @aid[@j],.@aid[.@i];
set @j,@j+1;
set @select$,@select$+":"+rid2name(.@aid[.@i]);
}
set @menu,select(@select$)-2;
if(isloggedin(@aid[@menu])) {
getmapxy(@m$,@x,@y,0,rid2name(@aid[@menu]));
if( getmapflag(@m$,mf_pvp) || @m$ == "mapname" || @m$ == "mapname" ) {
mes "You cant warp to his map now.";
close;
} else {
warp @m$,@x,@y;
}
}
end;
P.S: Please use code brackets next time, tyvm!