warper

//===== rAthena Script =======================================
//= Warper
//===== By: ==================================================
//= Euphy
//===== Current Version: =====================================
//= 1.4
//===== Compatible With: =====================================
//= rAthena SVN
//===== Description: =========================================
//= A complete - but very condensed - warper script.
//= Some coordinates written by Tekno-Kanix and ToastOfDoom.
//===== Additional Comments: =================================
//= 1.0 Initial script.
//= 1.1 Added missing   duplicates and fixed coordinates.
//= 1.2 Added new episodes and simplified functions.
//= 1.3 Added Renewal checks and Instances menu.
//=     Aligned coordinates with @go.
//= 1.4 Added new Guild Dungeons.
//============================================================


-   script  Warper  -1,{
function Go; function Disp; function Pick;


// --------------------------------------------------
// Main Menu:
// --------------------------------------------------


menu "Last Warp ^777777["+lastwarp$+"]^000000",-,
" ~ Towns",Towns, " ~ Fields",Fields, " ~ Dungeons",Dungeons,
" ~ Guild Dungeons",Guild_Dungeons;


if (lastwarp$ == "")
message strcharinfo(0),"You haven't warped anywhere yet.";
else
warp lastwarp$,lastwarpx,lastwarpy;
end;


// ------------------- Functions -------------------
// * Go("<map>",<x>,<y>);
// ~ Warps directly to a map.
//
// * Disp("<Menu Option>",<first option>,<last option>);
// * Pick("<map_prefix>"{,<index offset>});
// ~ Dynamic menu and map selection (auto-numbered).
//
// * Disp("<Option 1>:<Option 2>:<etc.>");
// * Pick("","<map1>","<map2>","<etc.>");
// ~ Manual menu and map selection (listed).
// Other notes:
//   ~ Array @c[] holds all (x,y) coordinates.
//   ~ Use @c[2] EXCEPT when maps begin dynamically
//   at 0: use @c[0] and Pick() offset 1.
// --------------------------------------------------


function    Go  {
set lastwarp$,getarg(0,"");
set lastwarpx,getarg(1,0);
set lastwarpy,getarg(2,0);
warp getarg(0),getarg(1,0),getarg(2,0);
end;
}
function    Disp    {
if (getargcount() < 3)
set @menu$, getarg(0);
else {
set @menu$,"";
for(set .@i,getarg(1); .@i<=getarg(2); set .@i,.@i+1)
set @menu$, @menu$+getarg(0)+" "+.@i+":";
}
return;
}
function    Pick    {
set .@warp_block,@warp_block;
set @warp_block,0;
if (getarg(0) == "") {
set .@select, select(@menu$);
set .@i, .@select;
set .@map$, getarg(.@i);
} else {
set .@select, select(@menu$);
set .@i, .@select-getarg(1,0);
set .@map$, getarg(0)+((.@i<10)?"0":"")+.@i;
}
if (.@warp_block & (1<<.@select)) {
//message strcharinfo(0),"This map is not enabled in "+((checkre(0))?"":"Pre-")+"Renewal.";
end;
}
set lastwarp$,.@map$;
set lastwarpx,@c[.@i*2];
set lastwarpy,@c[.@i*2+1];
warp .@map$,@c[.@i*2],@c[.@i*2+1];
deletearray @c[0],getarraysize(@c);
end;
}


// --------------------------------------------------
Towns:
// --------------------------------------------------
menu "Prontera",T1, "Alberta",T2, "Aldebaran",T3, "Amatsu",T4, "Ayothaya",T5,
"Brasilis",T6, "Comodo",T7,  "Einbech",T10,
"Einbroch",T11,  "Geffen",T13, "Gonryun",T14, "Hugel",T15,
"Izlude",T16, "Jawaii",T17, "Lighthalzen",T18, "Louyang",T19, "Lutie",T20,
"Manuk",T23,
"Morroc",T26, "Moscovia",T27, "Nameless Island",T28,
"Niflheim",T29, "Payon",T30, "Rachel",T31, "Splendide",T32, "Thor Camp",T33,
"Umbala",T34, "Veins",T35, "Yuno",T36;


T1: Go("prontera",155,183);
T2: Go("alberta",28,234);
T3: Go("aldebaran",140,131);
T4: Go("amatsu",198,84);
T5: Go("ayothaya",208,166);
T6: Go("brasilis",196,217);
T7: Go("comodo",209,143);
T8: Go("dewata",200,180);
T9: Go("ecl_in01",48,53);
T10: Go("einbech",63,35);
T11: Go("einbroch",64,200);
T12: Go("dicastes01",198,187);
T13: Go("geffen",119,59);
T14: Go("gonryun",160,120);
T15: Go("hugel",96,145);
T16: Go("izlude",128,114);
T17: Go("jawaii",251,132);
T18: Go("lighthalzen",158,92);
T19: Go("louyang",217,100);
T20: Go("xmas",147,134);
T21: Go("malangdo",140,114);
T22: Go("malaya",212,206);
T23: Go("manuk",282,138);
T24: Go("mid_camp",210,288);
T25: Go("mora",55,146);
T26: Go("morocc",156,93);
T27: Go("moscovia",223,184);
T28: Go("nameless_n",256,215);
T29: Go("niflheim",202,174);
T30: Go("payon",179,100);
T31: Go("rachel",130,110);
T32: Go("splendide",201,147);
T33: Go("thor_camp",246,68);
T34: Go("umbala",97,153);
T35: Go("veins",216,123);
T36: Go("yuno",157,51);


// --------------------------------------------------
Fields:
// --------------------------------------------------
menu "Amatsu Fields",F1, "Ayothaya Fields",F2, "Bifrost Fields", F3,
"Brasilis Fields",F4, "Comodo Fields",F5,
"Einbroch Fields",F8,
"Geffen Fields",F10, "Gonryun Fields",F11, "Hugel Fields",F12,
"Lighthalzen Fields",F13, "Louyang Field",F14, "Lutie Field",F15,
    "Manuk Fields",F17, "Mjolnir Fields",F18,
"Moscovia Fields",F19, "Niflheim Fields",F20, "Payon Forests",F21,
"Prontera Fields",F22, "Rachel Fields",F23, "Sograt Deserts",F24,
"Splendide Fields",F25, "Umbala Fields",F26, "Veins Fields",F27,
"Yuno Fields",F28;


F1: setarray @c[2],190,197;
Disp("Amatsu Field",1,1); Pick("ama_fild");
F2: setarray @c[2],173,134,212,150;
Disp("Ayothaya Field",1,2); Pick("ayo_fild");
F3: setarray @c[2],193,220,220,187;
Disp("Bifrost Field",1,2); Pick("bif_fild");
F4: setarray @c[2],74,32;
Disp("Brasilis Field",1,1); Pick("bra_fild");
F5: setarray @c[2],180,178,231,160,191,172,228,194,224,203,190,223,234,177,194,175,172,172;
Disp("Comodo Field",1,9); Pick("cmd_fild");
F6: setarray @c[2],371,212;
Disp("Dewata Field",1,1); Pick("dew_fild");
F7: setarray @c[2],97,314;
Disp("Eclage Field",1,1); Pick("ecl_fild");
F8: setarray @c[2],142,225,182,141,187,228,185,173,216,173,195,148,272,220,173,214,207,174,196,200;
Disp("Einbroch Field",1,10); Pick("ein_fild");
F9: setarray @c[2],143,132,143,217;
Disp("El Dicastes Field",1,2); Pick("dic_fild");
F10: setarray @c[0],46,199,213,204,195,212,257,192,188,171,166,263,248,158,195,191,186,183,221,117,178,218,136,328,240,181,235,235,211,185;
Disp("Geffen Field",0,14); Pick("gef_fild",1);
F11: setarray @c[2],220,227;
Disp("Gonryun Field",1,1); Pick("gon_fild");
F12: setarray @c[2],268,101,222,193,232,185,252,189,196,106,216,220,227,197;
Disp("Hugel Field",1,7); Pick("hu_fild");
F13: setarray @c[2],240,179,185,235,240,226;
Disp("Lighthalzen Field",1,3); Pick("lhz_fild");
F14: setarray @c[2],229,187;
Disp("Louyang Field",1,1); Pick("lou_fild");
F15: setarray @c[2],115,145;
Disp("Lutie Field",1,1); Pick("xmas_fild");
F16: setarray @c[2],40,272,207,180;
Disp("Malaya Field",1,2); Pick("ma_fild");
F17: setarray @c[2],35,236,35,262,84,365;
Disp("Manuk Field",1,3); Pick("man_fild");
F18: setarray @c[2],204,120,175,193,208,213,179,180,181,240,195,270,235,202,188,215,205,144,245,223,180,206,196,208;
Disp("Mjolnir Field",1,12); Pick("mjolnir_");
F19: setarray @c[2],82,104,131,147;
Disp("Moscovia Field",1,2); Pick("mosk_fild");
F20: setarray @c[2],215,229,167,234;
Disp("Niflheim Field",1,2); Pick("nif_fild");
F21: setarray @c[2],158,206,151,219,205,148,186,247,134,204,193,235,200,177,137,189,201,224,160,205,194,150;
Disp("Payon Forest",1,11); Pick("pay_fild");
F22: setarray @c[0],208,227,190,206,240,206,190,143,307,252,239,213,185,188,193,194,187,218,210,183,195,149,198,164;
Disp("Prontera Field",0,11); Pick("prt_fild",1);
F23: setarray @c[2],192,162,235,166,202,206,202,208,225,202,202,214,263,196,217,201,87,121,277,181,221,185,175,200,174,197;
Disp("Rachel Field",1,13); Pick("ra_fild");
F24: setarray @c[2],219,205,177,206,194,182,224,170,198,216,156,187,185,263,206,228,208,238,209,223,85,97,207,202,31,195,38,195;
Disp("Sograt Desert 1:Sograt Desert 2:Sograt Desert 3:Sograt Desert 7:Sograt Desert 11:Sograt Desert 12:Sograt Desert 13:Sograt Desert 16:Sograt Desert 17:Sograt Desert 18:Sograt Desert 19:Sograt Desert 20:Sograt Desert 21:Sograt Desert 22");
Pick("","moc_fild01","moc_fild02","moc_fild03","moc_fild07","moc_fild11","moc_fild12","moc_fild13","moc_fild16","moc_fild17","moc_fild18","moc_fild19","moc_fild20","moc_fild21","moc_fild22");
F25: setarray @c[2],175,186,236,184,188,204;
Disp("Splendide Field",1,3); Pick("spl_fild");
F26: setarray @c[2],217,206,223,221,237,215,202,197;
Disp("Umbala Field",1,4); Pick("um_fild");
F27: setarray @c[2],186,175,196,370,222,45,51,250,202,324,150,223,149,307;
Disp("Veins Field",1,7); Pick("ve_fild");
F28: setarray @c[2],189,224,192,207,221,157,226,199,223,177,187,232,231,174,196,203,183,214,200,124,195,226,210,304;
Disp("Yuno Field",1,12); Pick("yuno_fild");


// --------------------------------------------------
Dungeons:
// --------------------------------------------------
menu "Abyss Lakes",D1, "Amatsu Dungeon",D2, "Anthell",D3,
"Ayothaya Dungeon",D4, "Beach Dungeon",D5, "Bio Labs",D6,
"Brasilis Dungeon",D7, "Byalan Dungeon",D8, "Clock Tower",D9,
"Coal Mines",D10, "Culvert",D11, "Cursed Abbey",D12,
"Einbroch Dungeon",D14, "Gefenia",D15, "Geffen Dungeon",D16,
"Glast Heim",D17, "Gonryun Dungeon",D18, "Hidden Dungeon",D19,
"Ice Dungeon",D20, "Juperos",D21, "Kiel Dungeon",D22, "Louyang Dungeon",D23,
"Magma Dungeon",D24,  "Moscovia Dungeon",D26,
"Nidhogg's Dungeon",D27, "Odin Temple",D28, "Orc Dungeon",D29,
"Payon Dungeon",D30, "Pyramids",D31, "Rachel Sanctuary",D32,
    "Sphinx",D34, "Sunken Ship",D35, "Thanatos Tower",D36,
"Thor Volcano",D37, "Toy Factory",D38, "Turtle Dungeon",D39, "Umbala Dungeon",D40;


D1: setarray @c[2],261,272,275,270,116,27;
Disp("Abyss Lakes",1,3); Pick("abyss_");
D2: setarray @c[2],228,11,34,41,119,14;
Disp("Amatsu Dungeon",1,3); Pick("ama_dun");
D3: setarray @c[2],35,262,168,170;
Disp("Anthell",1,2); Pick("anthell");
D4: setarray @c[2],275,19,24,26;
Disp("Ancient Shrine Maze:Inside Ancient Shrine"); Pick("ayo_dun");
D5: setarray @c[2],266,67,255,244,23,260;
Disp("Beach Dungeon",1,3); Pick("","beach_dun","beach_dun2","beach_dun3");
D6: setarray @c[2],150,288,150,18,140,134,244,52;
Disp("Bio Lab",1,4); Pick("lhz_dun");
D7: setarray @c[2],87,47,262,262;
Disp("Brasilis Dungeon",1,2); Pick("bra_dun");
D8: setarray @c[0],168,168,253,252,236,204,32,63,26,27,141,187;
Disp("Byalan Dungeon",1,6); Pick("iz_dun",1);
D9: setarray @c[2],199,159,148,283,65,147,56,155,297,25,127,169,277,178,268,74;
Disp("Clock Tower 1:Clock Tower 2:Clock Tower 3:Clock Tower 4:Basement 1:Basement 2:Basement 3:Basement 4");
Pick("","c_tower1","c_tower2","c_tower3","c_tower4","alde_dun01","alde_dun02","alde_dun03","alde_dun04");
D10: setarray @c[2],52,17,381,343,302,262;
Disp("Coal Mines",1,3); Pick("mjo_dun");
D11: setarray @c[2],131,247,19,19,180,169,100,92;
Disp("Culvert",1,4); Pick("","prt_sewb1","prt_sewb2","prt_sewb3","prt_sewb4");
D12: setarray @c[2],51,14,150,11,120,10;
Disp("Cursed Abbey",1,3); Pick("abbey");
D13: setarray @c[2],285,160,299,29;
Disp("Dewata Dungeon",1,2); Pick("dew_dun");
D14: setarray @c[2],22,14,292,290;
Disp("Einbroch Dungeon",1,2); Pick("ein_dun");
D15: setarray @c[2],40,103,203,34,266,168,130,272;
Disp("Gefenia",1,4); Pick("gefenia",0);
D16: setarray @c[0],104,99,115,236,106,132,203,200;
Disp("Geffen Dungeon",1,4); Pick("gef_dun",1);
D17: setarray @c[2],370,304,199,29,104,25,150,15,157,287,147,15,258,255,108,291,171,283,68,277,156,7,12,7,133,271,224,274,14,70,150,14;
Disp("Entrance:Castle 1:Castle 2:Chivalry 1:Chivalry 2:Churchyard:Culvert 1:Culvert 2:Culvert 3:Culvert 4:St. Abbey:Staircase Dungeon:Underground Cave 1:Underground Cave 2:Underground Prison 1:Underground Prison 2");
Pick("","glast_01","gl_cas01","gl_cas02","gl_knt01","gl_knt02","gl_chyard","gl_sew01","gl_sew02","gl_sew03","gl_sew04","gl_church","gl_step","gl_dun01","gl_dun02","gl_prison","gl_prison1");
D18: setarray @c[2],153,53,28,113,68,16;
Disp("Gonryun Dungeon",1,3); Pick("gon_dun");
D19: setarray @c[2],176,7,93,20,23,8;
Disp("Hidden Dungeon",1,3); Pick("prt_maze");
D20: setarray @c[2],157,14,151,155,149,22,33,158;
Disp("Ice Dungeon",1,4); Pick("ice_dun");
D21: setarray @c[2],140,51,53,247,37,63,150,285;
Disp("Entrance:Juperos 1:Juperos 2:Core");
Pick("","jupe_cave","juperos_01","juperos_02","jupe_core");
D22: setarray @c[2],28,226,41,198;
Disp("Kiel Dungeon",1,2); Pick("kh_dun");
D23: setarray @c[2],218,196,282,20,165,38;
Disp("The Royal Tomb:Inside the Royal Tomb:Suei Long Gon"); Pick("lou_dun");
D24: setarray @c[2],126,68,47,30;
Disp("Magma Dungeon",1,2); Pick("mag_dun");
D25: setarray @c[2],33,230;
Disp("Malangdo Dungeon",1,1); Pick("mal_dun");
D26: setarray @c[2],189,48,165,30,32,135;
Disp("Moscovia Dungeon",1,3); Pick("mosk_dun");
D27: setarray @c[2],61,239,60,271;
Disp("Nidhogg's Dungeon",1,2); Pick("nyd_dun");
D28: setarray @c[2],298,167,224,149,266,280;
Disp("Odin Temple",1,3); Pick("odin_tem");
D29: setarray @c[2],32,170,21,185;
Disp("Orc Dungeon",1,2); Pick("orcsdun");
D30: setarray @c[0],21,183,19,33,19,63,155,159,201,204;
Disp("Payon Dungeon",1,5); Pick("pay_dun",1);
D31: setarray @c[2],192,9,10,192,100,92,181,11,94,96,192,8;
Disp("Pyramids 1:Pyramids 2:Pyramids 3:Pyramids 4:Basement 1:Basement 2"); Pick("moc_pryd");
D32: setarray @c[2],140,11,32,21,4,149,204,218,150,9;
Disp("Rachel Sanctuary",1,5); Pick("ra_san");
D33: setarray @c[2],364,44,101,141;
Disp("Scaraba Hole",1,2); Pick("dic_dun");
D34: setarray @c[2],288,9,149,81,210,54,10,222,100,99;
Disp("Sphinx",1,5); Pick("","in_sphinx1","in_sphinx2","in_sphinx3","in_sphinx4","in_sphinx5");
D35: setarray @c[2],69,24,102,27;
Disp("Sunken Ship",1,2); Pick("treasure");
D36: setarray @c[2],150,39,150,136,220,158,59,143,62,11,89,221,35,166,93,148,29,107,159,138,19,20,130,52;
Disp("Thanatos Tower",1,12); Pick("tha_t");
D37: setarray @c[2],21,228,75,205,34,272;
Disp("Thor Volcano",1,3); Pick("thor_v");
D38: setarray @c[2],205,15,129,133;
Disp("Toy Factory",1,2); Pick("xmas_dun");
D39: setarray @c[2],154,49,148,261,132,189,100,192;
Disp("Entrance:Turtle Dungeon 1:Turtle Dungeon 2:Turtle Dungeon 3"); Pick("tur_dun");
D40: setarray @c[2],42,31,48,30,204,78;
Disp("Carpenter's Shop in the Tree:Passage to a Foreign World:Hvergermil's Fountain");
Pick("","um_dun01","um_dun02","yggdrasil01");


// --------------------------------------------------
Guild_Dungeons:
// --------------------------------------------------
menu "Arunafeltz",G5, "Schwaltzvalt",G6;


G5: Go("arug_dun01",199,195);
G6: Go("schg_dun01",200,124);
}


// --------------------------------------------------
//  duplicates:
// --------------------------------------------------
alb2trea,57,70,6    duplicate(Warper)   Warper#tre  811
alberta,28,240,4    duplicate(Warper)   Warper#alb  811
aldebaran,145,118,4 duplicate(Warper)   Warper#alde 811
amatsu,203,87,4 duplicate(Warper)   Warper#ama  811
ayothaya,209,169,6  duplicate(Warper)   Warper#ayo  811
comodo,194,158,4    duplicate(Warper)   Warper#com  811
einbech,59,38,6 duplicate(Warper)   Warper#einbe    811
einbroch,69,202,4   duplicate(Warper)   Warper#einbr    811
gef_fild10,71,339,4 duplicate(Warper)   Warper#orc  811
geffen,124,72,4 duplicate(Warper)   Warper#gef  811
glast_01,372,308,4  duplicate(Warper)   Warper#glh  811
gonryun,162,122,4   duplicate(Warper)   Warper#gon  811
hugel,101,151,4 duplicate(Warper)   Warper#hug  811
izlu2dun,110,92,4   duplicate(Warper)   Warper#izd  811
izlude,132,120,4    duplicate(Warper)   Warper#izl  811
jawaii,253,138,4    duplicate(Warper)   Warper#jaw  811
lighthalzen,162,102,4   duplicate(Warper)   Warper#lhz  811
louyang,208,103,6   duplicate(Warper)   Warper#lou  811
manuk,274,146,6 duplicate(Warper)   Warper#man  811
mid_camp,216,288,4  duplicate(Warper)   Warper#mid  811
mjolnir_02,85,364,4 duplicate(Warper)   Warper#mjo  811
moc_ruins,64,164,4  duplicate(Warper)   Warper#moc  811
morocc,159,97,4 duplicate(Warper)   Warper#mor  811
moscovia,229,191,4  duplicate(Warper)   Warper#mos  811
nameless_n,259,213,4    duplicate(Warper)   Warper#nam  811
niflheim,205,179,4  duplicate(Warper)   Warper#nif  811
pay_arche,42,134,4  duplicate(Warper)   Warper#arc  811
payon,182,108,4 duplicate(Warper)   Warper#pay  811
prontera,159,200,4  duplicate(Warper)   Warper#prt  811
prt_fild05,279,223,6    duplicate(Warper)   Warper#cul  811
rachel,135,116,4    duplicate(Warper)   Warper#rac  811
splendide,205,153,4 duplicate(Warper)   Warper#spl  811
thor_camp,249,76,4  duplicate(Warper)   Warper#thor 811
umbala,106,150,3    duplicate(Warper)   Warper#umb  811
veins,214,123,4 duplicate(Warper)   Warper#ve   811
xmas,150,136,6  duplicate(Warper)   Warper#xmas 811
yuno,162,47,4   duplicate(Warper)   Warper#yuno 811