prontera,152,186 ,4 script PartyWarp 864,{
mes "[ParWarp]";
mes "Hello there. Do you need help?";
mes "Want to go to your party mate?";
next;
mes "[ParWarp]";
mes "Please choose one of this two option. Choose wisely.";
mes "You can warp to your party member";
next;
set @helper,select("Party Warp","Quit");
switch(@helper)
{
case 1:
if (agitcheck() == 1) {
mes "[^0000FFParty Warper^000000]";
mes "Party warper is ^FF0000DISABLED^000000 during KoE, WoE and Events.";
close;
}
setarray $nowarpmaps$[0], "map.gat", "map2.gat", "map3.gat", "map4.gat", "map5.gat", "map6.gat", "map7.gat", "map8.gat", "map9.gat";
getpartymember(getcharid(1));
set @partymembercount,$@partymembercount;
copyarray @partymembername$[0],$@partymembername$[0],@partymembercount;
mes "[^0000FFParty Warper^000000]";
mes "Select the member to warp to.";
set @menu$,"";
for (set @i,0; @i < @partymembercount; set @i,@i+1) {
if (@i) set @menu$,@menu$+":";
set @menu$,@menu$+@partymembername$[@i];
}
next;
set @selection,select(@menu$)-1;
mes "[^0000FFParty Warper^000000]";
mes "Warp to "+@partymembername$[@selection]+"?";
if (select("Yes","No") == 2) close;
if (getmapxy(@mapname$,@mapx,@mapy,0,@partymembername$[@selection])!=0) goto L_Notfound;
for (set @i,0; @i < getarraysize($nowarpmaps$); set @i,@i+1) {
if (@mapname$ == $nowarpmaps$[@i]) goto mapfail;
warp @mapname$,@mapx,@mapy;
close;
}
L_Notfound:
next;
mes "[^0000FFParty Warper^000000]";
mes "That player isn't online";
close;
mapfail:
next;
mes "[^0000FFParty Warper^000000]";
mes "You cannot warp to that map using this function";
close;
nozeny:
next;
mes "[^0000FFParty Warper^000000]";
mes "You do not have enough zeny";
close;
}}
case 2: close;
}
