How To Add Last Warp in Warper?

sacrox · January 8, 2021

hello good to all! I'm trying to add the last warp to this script,
 I've tried several ways but it doesn't work for me, could you please help me? Thanks a lot

//===== eAthena Script =======================================
//= Warper Script
//===== By: ==================================================
//= Darkchild
//===== Current Version: =====================================
//= 1.8
//===== Compatible With: =====================================
//= Any eAthena Version;
//===== Description: =========================================
//= Generic warper...
//===== Additional Comments: =================================
//= 1.0 by Darkchild
//= 1.1 by jabs
//= 1.2 by Lupus (placement fixed in Amatsu)
//= 1.3 fixed Louyang label typo, added warp and WARPRA into
//= Nifleheim. Also sorted all names in alphabet order [Lupus]
//= 1.4 fixed morroc warp npc overlaying kafra [Aria]
//= 1.4a Added Ayothaya and Einbroch to list, and town Warpra's [Fredzilla]
//= 1.4b fixed Izlude warp npc overlaying BBS [Justin84]
//= 1.5 Added this NPC to more places [Lupus]
//= 1.6 Rewrote a lot. Changed the sprite, some locations. [Poki#3]
//= TODO Add an option for selecting the level of the dungeon. [Poki#3]
//= 1.7 Temporary? Added F_ClearGarbage to clear unused/outdated variables [Lupus]
//= 1.8 Removed Duplicates [Silent]
//============================================================
//============================================================
//= To allow selecting the Level of the Dungeon you want to
//= Warp to set the @lvlselect variable to 1 (Not implemented yet!)
//============================================================

prontera,160,185,4	script	Viajar	811,{

	mes "[Viajar]";
	mes "Hola,";
	mes "Puedo teletransportarte a una ciudad o mazmorra!";
	mes "Donde quieres ir?";
	next;
	menu "Ciudad",-,"Mazmorra",L_dungeon;
	next;
	mes "[Warp Agent]";
	mes "Porfavor elige tu destino.";
	next;
	menu "Alberta",walberta,"Aldebaran",waldebaran,"Amatsu",wamatsu,"Ayothaya",wayothaya,"Comodo",wcomodo,"Einbroch",weinbroch,"Einbech",weinbech,"Geffen",wgeffen,"Gonryun",wgonryun,"Hugel",whugel,"Izlude",wizlude,"Lighthalzen",wlighthalzen,"Louyang",wlouyang,"Lutie",wxmas,"Morroc",wmorroc,"Nameless",wnameless,"Payon",wpayon,"Prontera",wprontera,"Umbala",wumbala,"Yuno",wyuno;
L_dungeon:
	mes "[Warp Agent]";
	mes "Porfavor elige tu destino.";
	next;
	menu "Abyss Lake",dabbys,"Amatsu Dungeon",damatsu,"Anthell",dant,"Ayothaya Dungeon",dayothaya,"Bibilan Dungeon",dbibilan,"Coal Mine (Dead Pit)",dcoal,"Culvert",dculvert,"Einbech Dungeon",dein,"Glast Heim",dglast,"Gonryun Dungeon",dgonryun,"Juperos",djuperos,"Lighthalzen Bio Lab",dlighthalzen,"Magma Dungeon",dmagma,"Niflheim",dniflheim,"Odin Temple",dodin,"Orc Dungeon",dorc,"Payon Dungeon",dpayon,"Pyramids",dpyramids,"Sphinx",dsphinx,"Sunken Ship",dsunken,"Thanatos Tower",dthanatos,"Turtle Dungeon",dturtle;


//----------------Towns----------------\\
walberta:	warp "alberta",	27,	236;	end;
waldebaran:	warp "aldebaran",	145,	120;	end;
wamatsu:	warp "amatsu",	197,	86;	end;
wayothaya:	warp "ayothaya",	149,	118;	end;
wcomodo:   	warp "comodo",	188,	161;    end;
weinbroch:   	warp "einbroch",	64, 	200;	end;
weinbech:   	warp "einbech",	70, 	95;	end;
wgeffen:	warp "geffen",	119,	66;	end;
wgonryun:	warp "gonryun",	150,    130; 	end;
whugel:   	warp "hugel",	96,	145;    end;
wizlude:	warp "izlude",	128,	111;	end;
wlighthalzen:	warp "lighthalzen",	158,	92;	end;
wlouyang:	warp "louyang",	210,	108;	end;
wnameless:      warp "nameless",        255,    215;    end;   
wmorroc:	warp "morocc",	159,	93;	end;
wprontera:	warp "prontera",	156,	187;	end;
wpayon:		warp "payon",	152,	75;	end;
wumbala:	warp "umbala",	130,    130; 	end;
wxmas:		warp "xmas",	148,	131;	end;
wyuno:   	warp "yuno",	160,	168;    end;

//----------------Dungeons----------------\\
dabbys:	switch(select("Nivel 1:Nivel 2:Nivel 3")) {
	case 1: warp "abyss_01",	262,	271;	end;
close;
	case 2: warp "abyss_02",	271,    270;    end;
close;
	case 3: warp "abyss_03",	115,    28;    end;
close;
}
damatsu: switch(select("Nivel 1:Nivel 2:Nivel 3")) {
	case 1: warp "ama_dun01",	228,	10;	end;
close;
	case 2: warp "ama_dun02",	234,    262;    end;
close;
	case 3: warp "ama_dun03",	120,    14;    end;
close;
}
dant:	switch(select("Nivel 1:Nivel 2")) {
	case 1: warp "anthell01",	36,	263;	end;
close;
	case 2: warp "anthell02",	169,     169;    end;
close;
}
dayothaya: switch(select("Nivel 1:Nivel 2")) {
	case 1: warp "ayo_dun01",	26,	31;	end;
close;
	case 2: warp "ayo_dun02",	24,     29;    end;
close;
}
dbibilan: switch(select("Nivel 1:Nivel 2:Nivel 3:Nivel 4")) {
	case 1: warp "iz_dun00",	40,	44;	end;
close;
	case 2: warp "iz_dun01",	236,    206;    end;
close;
	case 3: warp "iz_dun02",	 34,     61;    end;
close;
        case 4: warp "iz_dun03",         183,    156;    end;
close;
}
dculvert: switch(select("Nivel 1:Nivel 2:Nivel 3:Nivel 4")) {
	case 1: warp "prt_sewb1",	128,	248;	end;
close;
	case 2: warp "prt_sewb2",	 19,    23;     end;
close;
	case 3: warp "prt_sewb3",	 180,    169;    end;
close;
        case 4: warp "prt_sewb4",         100,    92;    end;
close;
}
dcoal: switch(select("Nivel 1:Nivel 2:Nivel 3")) {
	case 1: warp "mjo_dun01",	52,	19;	end;
close;
	case 2: warp "mjo_dun02",	381,    343;    end;
close;
	case 3: warp "mjo_dun03",	308,    262;    end;
close;
}
dein: switch(select("Nivel 1:Nivel 2:Nivel 3")) {
	case 1: warp "ein_dun01",	 20,	18;	end;
close;
	case 2: warp "ein_dun02",	381,    343;    end;
close;
	case 3: warp "ein_dun03",	308,    262;    end;
close;
}
dglast: switch(select("Nivel 1:Nivel 2:Nivel 3:Nivel 4:Nivel 5:Nivel 6:Nivel 7:Nivel 8:Nivel 9:Nivel 10:Nivel 11:Nivel 12:Nivel 13:Nivel 14")) {
	case 1: warp "gl_church",		159,	14;	end;
close;
	case 2: warp "gl_chyard",		29,    269;    end;
close;
	case 3: warp "gl_cas01",	 	34,     61;    end;
close;
        case 4: warp "gl_cas02",         	98,     80;    end;
close;
        case 5: warp "gl_prison",         	151,    12;    end;
close; 
        case 6: warp "gl_prison1",		17,     139;    end;
close;
        case 7: warp "gl_knt01",          	200,     31;    end;
close;
	case 8: warp "gl_knt02",	 	104,	  19;	end;
close;
	case 9: warp "gl_in01",	 		156,      7;    end;
close;
	case 10: warp "gl_step",         	16,     148;    end;
close;
	case 11: warp "gl_sew01",	  	15,	  70;	end;
close;
	case 12: warp "gl_sew02",	  	14,    17;    end;
close;
	case 13: warp "gl_sew03",	 	150,    14;    end;
close;
        case 14: warp "gl_chyard",		138,    139;   end;   
close;
}
dgonryun: switch(select("Nivel 1:Nivel 2:Nivel 3")) {
	case 1: warp "gon_dun01",		143,	41;	end;
close;
	case 2: warp "gon_dun02",		150,    46;    end;
close;
	case 3: warp "gon_dun03",		17,    109;    end;
close;
}
djuperos: switch(select("Nivel 1:Nivel 2:Nivel 3")) {
 	case 1: warp "juperos_01",		103,	118;	end;
close;
	case 2: warp "juperos_02",		150,     19;    end;
close;
	case 3: warp "juperos_core",		139,     134;    end;
close;
}
dlighthalzen: switch(select("Nivel 1:Nivel 2")) {
	case 1: warp "lhz_dun01",		149,	281;	end;
close;
	case 2: warp "lhz_dun02",		150,    46;    end;
close;
}
dmagma: switch(select("Nivel 1:Nivel 2")) { 
	case 1: warp "mag_dun01",		125,	68;	end;
close;
	case 2: warp "mag_dun02",		47,      30;    end;
close;
}
dniflheim:	warp "niflheim",	35,	161;	end;
dodin: switch(select("Nivel 1:Nivel 2:Nivel 3")) {
	case 1: warp "odin_tem01",		97,	146;	end;
close;
	case 2: warp "odin_tem02",		27,     334;    end;
close;
	case 3: warp "odin_tem03",		247,     39;    end;
close;
}
dorc: switch(select("Nivel 1:Nivel 2")) {
	case 1: warp "orcsdun01",		32,	169;	end;
close;
	case 2: warp "orcsdun02",		21,     185;    end;
close;
}
dpayon: switch(select("Nivel 1:Nivel 2:Nivel 3:Nivel 4:Nivel 5:Nivel 6")) {
	case 1: warp "pay_dun00",		21,	182;    end;
close;
	case 2: warp "pay_dun01",		20,      33;    end;
close;
	case 3: warp "pay_dun02",		19,	 63;	end;
close;
	case 4: warp "pay_dun03",		150,    46;    end;
close;
	case 5: warp "pay_dun04",		154,	154;	end;
close;
}
dpyramids: switch(select("Nivel 1:Nivel 2:Nivel 3:Nivel 4:Nivel 5:Nivel 6")) {
	case 1: warp "moc_pryd01",	 	10,	191;	end;
close;
	case 2: warp "moc_pryd02",	 	10,    192;    end;
close;	
	case 3: warp "moc_pryd03",		100,	 93;	end;
close;
	case 4: warp "moc_pryd04",		181,     11;    end;
close;
	case 5: warp "moc_pryd05",		 93,	 91;	end;
close;
	case 6: warp "moc_pryd06",		193,      9;    end;
close;
}
dsphinx: switch(select("Nivel 1:Nivel 2:Nivel 3:Nivel 4:Nivel 5:Nivel 6")) {
	case 1: warp "in_sphinx1",		281,	 13;	end;
close;
	case 2: warp "in_sphinx2",		150,	 84;	end;
close;
	case 3: warp "in_sphinx3",		 12,     80;    end;
close;
	case 4: warp "in_sphinx4",	 	10,	221;	end;
close;
	case 5: warp "in_sphinx5",		150,    46;    end;
close;
	case 6: warp "in_sphinx6",		100,	101;	end;
close;
}
dsunken: switch(select("Nivel 1:Nivel 2")) {
	case 1: warp "treasure01",		68,	 27;	end;
close;
	case 2: warp "treasure02",		101,     30;    end;
close;
}
dthanatos: switch(select("Nivel 1:Nivel 2:Nivel 3:Nivel 4:Nivel 5:Nivel 6:Nivel 7:Nivel 8:Nivel 9:Nivel 10:Nivel 11:Nivel 12:Nivel 13:Nivel 14")) {
        case 1: warp "tha_t01",			149,	 38;	end;
close;
        case 2: warp "tha_t02",			149,	271;	end;
close;
	case 3: warp "tha_t03",			219,    161;    end;
close;
	case 4: warp "tha_t04",			85,	 34;	end;
close;
	case 5: warp "tha_t05",			62,     160;    end;	
close;
	case 6: warp "tha_t06",         	119,	116;	end;
close;
	case 7: warp "tha_t07",			99,     71;    end;
close;	
	case 8: warp "tha_t08",			75,	116;	end;
close;
	case 9: warp "tha_t09",			81,     162;    end;
close;
	case 10: warp "tha_t10",		157,	143;	end;
close;
	case 11: warp "tha_t11",		63,      21;    end;
close;
	case 12: warp "tha_t12",		154,    24;    end;
close;
	case 13: warp "tha_t13",		262,	271;	end;
close;
	case 14: warp "tha_t14",		150,    46;    end;
close;
}
dturtle:	warp "tur_dun01",	149,	238;	end;
}

Edited January 8, 2021 by sacrox

Poring King · January 8, 2021

If your char warp to somewhere . Get the map coordinates by using

*getmapxy("<variable for map name>",<variable for x>,<variable for y>{,<type>,"<search value>"})

Then create a variable to store the data..

Ex:

set lastwarp$, getarg(0);
set lastwarpx, getarg(1,0);
set lastwarpy, getarg(2,0);

Then when he select the menu for last warp do this

warp lastwarp$,lastwarpx,lastwarpy;

Skorm · January 9, 2021

@Poring King is right but unfortunately for you @sacrox the script you've posted above isn't very dynamic and would require editing almost every line to create an effective last warp option.

Sign In

How To Add Last Warp in Warper?

Question

sacrox

Link to comment

Share on other sites

2 answers to this question

Recommended Posts

Poring King

Link to comment

Share on other sites

Skorm

Link to comment

Share on other sites

Join the conversation

Recently Browsing 0 members

Docs

Get Started

Github

Community

My Account