Help Warper I want this script to be paid warper

[itsmeyoe]

//===== eAthena Script =======================================

//= Euphy's Warper

//===== By: ==================================================

//= Euphy

//===== Current Version: =====================================

//= 1.2

//===== Description: =========================================

//= A complete - but very condensed - warper script.

//= Coordinates written largely by Tekno-Kanix and ToastOfDoom.

//============================================================

- script Warper -1,{

function Go; function Disp; function Pick;

// --------------------------------------------------

// Main Menu:

// --------------------------------------------------

menu "Last Warp ^777777["+lastwarp$+"]^000000",-,

" ~ Dungeons",Dungeons;

if (lastwarp$ == "") dispbottom "You have not 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.

// * Disp("","<Option 1>:<Option 2>:<etc.>");

// * Pick("","<map1>","<map2>","<etc.>");

// ~ Manual menu and map selection.

//

// 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 {

warp getarg(0),getarg(1,0),getarg(2,0);

getmapxy(lastwarp$,lastwarpx,lastwarpy,0);

end; }

function Disp {

set @menu$,"";

if(getarg(0)=="") {

set @menu$,getarg(1);

return; }

for(set .@i,getarg(1); .@i<=getarg(2); set .@i,.@i+1)

set @menu$, @menu$+getarg(0)+" "+.@i+":";

return; }

function Pick {

if(getarg(0)=="") {

set .@i, select(@menu$);

warp getarg(.@i),@c[.@i*2],@c[.@i*2+1]; }

else {

set .@i, select(@menu$)-getarg(1,0);

warp getarg(0)+((.@i<10)?"0":"")+.@i,@c[.@i*2],@c[.@i*2+1]; }

getmapxy(lastwarp$,lastwarpx,lastwarpy,0);

end; }

// --------------------------------------------------

Towns:

// --------------------------------------------------

menu "Prontera",T1, "Alberta",T2, "Aldebaran",T3, "Amatsu",T4, "Ayothaya",T5,

"Brasilis",T6, "Comodo",T7, "Dewata",T33, "Eclage",T34, "Einbech",T8,

"Einbroch",T9, "El Dicastes",T10, "Geffen",T11, "Gonryun",T12, "Hugel",T13,

"Izlude",T14, "Jawaii",T15, "Lighthalzen",T16, "Louyang",T17, "Lutie",T18,

"Malangdo",T35, "Malaya",T36, "Manuk",T19, "Midgarts Expedition Camp",T20,

"Mora",T21, "Morroc",T22, "Moscovia",T23, "Nameless Island",T24,

"Niflheim",T25, "Payon",T26, "Rachel",T27, "Splendide",T28, "Thor Camp",T29,

"Umbala",T30, "Veins",T31, "Yuno",T32;

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",195,220);

T7: Go("comodo",209,143);

T8: Go("einbech",138,243);

T9: Go("einbroch",64,200);

T10: Go("dicastes01",197,187);

T11: Go("geffen",120,68);

T12: Go("gonryun",160,121);

T13: Go("hugel",96,145);

T14: Go("izlude",128,114);

T15: Go("jawaii",213,230);

T16: Go("lighthalzen",158,92);

T17: Go("louyang",217,100);

T18: Go("xmas",147,134);

T19: Go("manuk",260,175);

T20: Go("mid_camp",210,288);

T21: Go("mora",111,97);

T22: Go("morocc",156,93);

T23: Go("moscovia",219,193);

T24: Go("nameless_n",256,215);

T25: Go("niflheim",202,174);

T26: Go("payon",179,100);

T27: Go("rachel",130,111);

T28: Go("splendide",200,153);

T29: Go("thor_camp",246,68);

T30: Go("umbala",127,128);

T31: Go("veins",216,123);

T32: Go("yuno",157,51);

T33: Go("dewata",199,179);

T34: Go("eclage",111,39);

T35: Go("malangdo",224,184);

T36: Go("malaya",212,206);

// --------------------------------------------------

Fields:

// --------------------------------------------------

menu "Amatsu Fields",F1, "Ayothaya Fields",F2, "Bifrost Fields", F3,

"Brasilis Fields",F4, "Comodo Fields",F5, "Dewata Fields",F26,

"Eclage Fields",F27, "Einbroch Fields",F6, "El Dicastes Fields",F7,

"Geffen Fields",F8, "Gonryun Fields",F9, "Hugel Fields",F10,

"Lighthalzen Fields",F11, "Louyang Field",F12, "Lutie Field",F13,

"Malaya Fields",F28, "Manuk Fields",F14, "Mjolnir Fields",F15,

"Moscovia Fields",F16, "Niflheim Fields",F17, "Payon Forests",F18,

"Prontera Fields",F19, "Rachel Fields",F20, "Sograt Deserts",F21,

"Splendide Fields",F22, "Umbala Fields",F23, "Veins Fields",F24,

"Yuno Fields",F25;

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],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");

F7: setarray @c[2],143,132,143,217;

Disp("El Dicastes Field",1,2); Pick("dic_fild");

F8: 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);

F9: setarray @c[2],220,227;

Disp("Gonryun Field",1,1); Pick("gon_fild");

F10: 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");

F11: setarray @c[2],240,179,185,235,240,226;

Disp("Lighthalzen Field",1,3); Pick("lhz_fild");

F12: setarray @c[2],229,187;

Disp("Louyang Field",1,1); Pick("lou_fild");

F13: setarray @c[2],115,145;

Disp("Lutie Field",1,1); Pick("xmas_fild");

F14: setarray @c[2],35,236,35,262,84,365;

Disp("Manuk Field",1,3); Pick("man_fild");

F15: 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_");

F16: setarray @c[2],82,104,131,147;

Disp("Moscovia Field",1,2); Pick("mosk_fild");

F17: setarray @c[2],215,229,167,234;

Disp("Niflheim Field",1,2); Pick("nif_fild");

F18: 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");

F19: 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);

F20: 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");

F21: setarray @c[2],219,205,177,206,194,182,184,217,203,213,213,208,224,170,229,177,195,198,209,168,198,216,156,187,185,263,209,219,223,188,206,228,208,238,209,223,85,97,207,202,31,195,38,195;

Disp("Sograt Desert",1,22); Pick("moc_fild");

F22: setarray @c[2],175,186,236,184,188,204;

Disp("Splendide Field",1,3); Pick("spl_fild");

F23: setarray @c[2],217,206,223,221,237,215,202,197;

Disp("Umbala Field",1,4); Pick("um_fild");

F24: 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");

F25: 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");

F26: setarray @c[2],371,212;

Disp("Dewata Field",1,1); Pick("dew_fild");

F27: setarray @c[2],97,314;

Disp("Eclage Field",1,1); Pick("ecl_fild");

F28: setarray @c[2],40,272,207,180;

Disp("Malaya Field",1,2); Pick("ma_fild");

// --------------------------------------------------

Dungeons:

// --------------------------------------------------

menu "Abyss Lakes",D1, "Amatsu Dungeon",D2, "Anthell",D3,

"Ayothaya Dungeon",D4, "Beach Dungeon",D5,

"Brasilis Dungeon",D7, "Byalan Dungeon",D8, "Clock Tower",D9,

"Coal Mines",D10, "Culvert",D11, "Cursed Abbey",D12,

"Einbroch Dungeon",D13, "Endless Tower",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",D25,

"Odin Temple",D27, "Orc Dungeon",D28, "Payon Dungeon",D29,

"Pyramids",D30, "Rachel Sanctuary",D31, "Scaraba Hole",D32, "Sealed Shrine",D33,

"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;

Disp("Abyss Lakes",1,1); Pick("abyss_");

D2: setarray @c[2],228,11;

Disp("Amatsu Dungeon",1,1); Pick("ama_dun");

D3: setarray @c[2],35,262;

Disp("Anthell",1,1); Pick("anthell");

D4: setarray @c[2],275,19;

Disp("","Ancient Shrine Maze"); Pick("ayo_dun");

D5: setarray @c[2],266,67;

Disp("Beach Dungeon",1,1); Pick("beach_dun");

D6: setarray @c[2],150,288;

Disp("Bio Lab",1,1); Pick("lhz_dun");

D7: setarray @c[2],87,47;

Disp("Brasilis Dungeon",1,1); Pick("bra_dun");

D8: setarray @c[0],168,168;

Disp("Byalan Dungeon",1,1); Pick("iz_dun",1);

D9: setarray @c[2],199,159,297,25;

Disp("","Clock Tower 1:Basement 1");

Pick("","c_tower1","alde_dun01");

D10: setarray @c[2],52,17;

Disp("Coal Mines",1,1); Pick("mjo_dun");

D11: setarray @c[2],131,247;

Disp("Culvert",1,1); Pick("prt_sewb1");

D12: setarray @c[2],51,14;

Disp("Cursed Abbey",1,1); Pick("abbey");

D13: setarray @c[2],22,14;

Disp("Einbroch Dungeon",1,1); Pick("ein_dun");

D14: setarray @c[2],72,112;

Disp("","Misty Island"); Pick("","e_tower");

D15: setarray @c[2],40,103;

Disp("Gefenia",1,1); Pick("gefenia");

D16: setarray @c[0],104,99;

Disp("Geffen Dungeon",1,1); Pick("gef_dun",1);

D17: setarray @c[2],375,304,199,29,150,15,147,15,258,255,156,7,12,7,133,271,14,70;

Disp("","Entrance:Castle 1:Chivalry 1:Churchyard:Culvert 1:St. Abbey:Staircase Dungeon:Underground Cave 1:Underground Prison 1");

Pick("","glast_01","gl_cas01","gl_knt01","gl_chyard","gl_sew01","gl_church","gl_step","gl_dun01","gl_prison");

D18: setarray @c[2],153,53;

Disp("Gonryun Dungeon",1,1); Pick("gon_dun");

D19: setarray @c[2],176,7;

Disp("Hidden Dungeon",1,1); Pick("prt_maze");

D20: setarray @c[2],157,14;

Disp("Ice Dungeon",1,1); Pick("ice_dun");

D21: setarray @c[2],140,51;

Disp("","Entrance");

Pick("","jupe_cave");

D22: setarray @c[2],28,226;

Disp("Kiel Dungeon",1,1); Pick("kh_dun");

D23: setarray @c[2],218,196;

Disp("","The Royal Tomb"); Pick("lou_dun");

D24: setarray @c[2],126,68;

Disp("Magma Dungeon",1,1); Pick("mag_dun");

D25: setarray @c[2],189,48;

Disp("Moscovia Dungeon",1,1); Pick("mosk_dun");

D26: setarray @c[2],61,239;

Disp("Nidhogg's Dungeon",1,1); Pick("nyd_dun");

D27: setarray @c[2],298,167;

Disp("Odin Temple",1,1); Pick("odin_tem");

D28: setarray @c[2],32,170;

Disp("Orc Dungeon",1,1); Pick("orcsdun");

D29: setarray @c[0],21,183;

Disp("Payon Dungeon",1,1); Pick("pay_dun",1);

D30: setarray @c[2],192,9,94,96;

Disp("","Pyramids 1:Basement 1"); Pick("moc_pryd");

D31: setarray @c[2],140,11;

Disp("Rachel Sanctuary",1,1); Pick("ra_san");

D32: setarray @c[2],364,44;

Disp("Scaraba Hole",1,1); Pick("dic_dun");

D33: setarray @c[2],306,143;

Disp("","Friar Patrick"); Pick("","monk_test");

D34: setarray @c[2],288,9;

Disp("Sphinx",1,1); Pick("","in_sphinx1");

D35: setarray @c[2],69,24;

Disp("Sunken Ship",1,1); Pick("treasure");

D36: setarray @c[2],150,39;

Disp("Thanatos Tower",1,1); Pick("tha_t");

D37: setarray @c[2],21,228,75;

Disp("Thor Volcano",1,1); Pick("thor_v");

D38: setarray @c[2],205,15;

Disp("Toy Factory",1,1); Pick("xmas_dun");

D39: setarray @c[2],154,49;

Disp("","Entrance"); Pick("tur_dun");

D40: setarray @c[2],42,31;

Disp("","Carpenter's Shop in the Tree");

Pick("","um_dun01");

D41: setarray @c[2],285,160;

Disp("Dewata Dungeon",1,1); Pick("dew_dun");

D42: setarray @c[2],33,230;

Disp("Malangdo Dungeon",1,1); Pick("mal_dun");

//GD: setarray @c[2],119,93,39,161,50,44,116,45,199,195,200,124;

// Disp("","Baldur:Luina:Valkyrie:Britoniah:Arunafeltz:Schwaltzvalt");

// Pick("","gld_dun01","gld_dun02","gld_dun03","gld_dun04","arug_dun01","schg_dun01");

// --------------------------------------------------

Castles:

// --------------------------------------------------

menu "Aldebaran Castles",C1, "Geffen Castles",C2, "Payon Castles",C3,

"Prontera Castles",C4, "Arunafeltz Castles",C5, "Schwaltzvalt Castles",C6;

C1: setarray @c[2],48,83,95,249,142,85,239,242,264,90;

Disp("","Neuschwanstein:Hohenschwangau:Nuenberg:Wuerzburg:Rothenburg");

Pick("","alde_gld","alde_gld","alde_gld","alde_gld","alde_gld");

C2: setarray @c[2],214,75,308,240,143,240,193,278,305,87;

Disp("","Repherion:Eeyolbriggar:Yesnelph:Bergel:Mersetzdeitz");

Pick("","gef_fild13","gef_fild13","gef_fild13","gef_fild13","gef_fild13");

C3: setarray @c[2],121,233,295,116,317,293,140,160,204,266;

Disp("","Bright Arbor:Scarlet Palace:Holy Shadow:Sacred Altar:Bamboo Grove Hill");

Pick("","pay_gld","pay_gld","pay_gld","pay_gld","pay_gld");

C4: setarray @c[2],134,65,240,128,153,137,111,240,208,240;

Disp("","Kriemhild:Swanhild:Fadhgridh:Skoegul:Gondul");

Pick("","prt_gld","prt_gld","prt_gld","prt_gld","prt_gld");

C5: setarray @c[2],158,272,83,47,68,155,299,345,292,107;

Disp("","Mardol:Cyr:Horn:Gefn:Banadis");

Pick("","aru_gld","aru_gld","aru_gld","aru_gld","aru_gld");

C6: setarray @c[2],293,100,288,252,97,196,137,90,71,315;

Disp("","Himinn:Andlangr:Viblainn:Hljod:Skidbladnir");

Pick("","sch_gld","sch_gld","sch_gld","sch_gld","sch_gld");

// --------------------------------------------------

Special:

// --------------------------------------------------

menu "Auction Hall",S1, "Battlegrounds",S2, "Casino",S3, "Gonryun Arena",S4,

"Izlude Arena",S5, "Monster Race Arena",S6, "Turbo Track",S7;

S1: Go("auction_01",22,68);

S2: Go("bat_room",154,150);

S3: Go("cmd_in02",179,129);

S4: Go("gon_test",48,10);

S5: Go("arena_room",100,88);

S6: Go("p_track01",62,41);

S7: Go("turbo_room",99,114);

}

// --------------------------------------------------

// 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,134,150,4 duplicate(Warper) Warper#izl 811 //Pre-RE: (132,120)

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,192,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

// --------------------------------------------------

// Duplicates (Renewal):

// --------------------------------------------------

brasilis,201,222,4 duplicate(Warper) Warper#bra 811

dewata,204,186,6 duplicate(Warper) Warper#dew 811

dicastes01,194,194,6 duplicate(Warper) Warper#dic 811

ecl_in01,51,60,4 duplicate(Warper) Warper#ecl 811

malangdo,134,117,6 duplicate(Warper) Warper#mal 811

malaya,231,204,4 duplicate(Warper) Warper#ma 811

mora,57,152,4 duplicate(Warper) Warper#mora 811

Edited January 25, 2016 by Emistry
codebox