ragnarok rathena 

//===== eAthena Script =======================================
//= Warper Script
//===== By: ==================================================
//= Darkchild
//===== Current Version: =====================================
//= 2.1
//===== 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]
//= 1.9 Optimized for the greater good. [Kisuka]
//= 2.0 Fixed warp for AntHell and Yuno. [Kisuka]
//= 2.1 Moved AntHell warp agent to the new anthell entrance. [brianluau]
//============================================================
//============================================================
//= To allow selecting the Level of the Dungeon you want to
//= Warp to set the @lvlselect variable to 1 (Not implemented yet!)
//============================================================
// Edited by Freya

-	script	Warp Agent#01::warpra	859,{
//	set @lvlselect,0;

	callfunc "F_ClearGarbage"; //Clear outdated, unused variables

	mes "[Warp Agent]";
	mes "Hello " + strcharinfo(0) + ",";
	mes "I can teleport you to any Town or Dungeon!";
	mes "Where do you want to go?";
	next;
	switch(select("To a Town:To a Dungeon")) {
		case 1:
			mes "[Warp Agent]";
			mes "Please select which town you would like to be teleported to.";
			next;
			switch(select("Alberta:Aldebaran:Amatsu:Ayothaya:Comodo:Einbroch:Einbech:Geffen:Gonryun:Hugel:Izlude:Lighthalzen:Louyang:Lutie:Morroc:Payon:Prontera:Umbala:Yuno")) {
				case 1:
					warp "alberta",27,236;
					break;
				case 2:
					warp "aldebaran",145,120;
					break;
				case 3:
					warp "amatsu",197,86;
					break;
				case 4:
					warp "ayothaya",149,118;
					break;
				case 5:
					warp "comodo",188,161;
					break;
				case 6:
					warp "einbroch",64,200;
					break;
				case 7:
					warp "einbech",70,95;
					break;
				case 8:
					warp "geffen",119,66;
					break;
				case 9:
					warp "gonryun",150,130;
					break;
				case 10:
					warp "hugel",96,145;
					break;
				case 11:
					warp "izlude",128,111;
					break;
				case 12:
					warp "lighthalzen",158,92;
					break;
				case 13:
					warp "louyang",210,108;
					break;
				case 14:
					warp "xmas",150,133;
					break;
				case 15:
					warp "morocc",159,93;
					break;
				case 16:
					warp "payon",152,75;
					break;
				case 17:
					warp "prontera",156,187;
					break;
				case 18:
					warp "umbala",130,130;
					break;
				case 19:
					warp "yuno",160,168;
					break;
			}
			break;
		case 2:
			mes "[Warp Agent]";
			mes "Please select which dungeon you would like to be teleported to.";
			next;
			switch(select("Abyss Lake:Amatsu Dungeon:Anthell:Ayothaya Dungeon:Byalan Dungeon:Coal Mine (Dead Pit):Culvert:Einbech Dungeon:Glast Heim:Gonryun Dungeon:Ice Dungeon:Juperos:Lighthalzen Bio Lab:Magma Dungeon:Odin Temple:Orc Dungeon:Payon Dungeon:Pyramids:Sphinx:Sunken Ship:Thanatos Tower:Turtle Dungeon:Guild Dungeon")) {
				case 1:
					mes "[Warp Agent]";
					mes "What level of the dungeon would you like to go?";
					menu "Level 1",Abyss1,"Level 2",Abyss2,"Level 3",Abyss3;
					Abyss1:
						warp "abyss_01",262,273;
						break;
					Abyss2:
						warp "abyss_02",271,270;
						break;
					Abyss3:
						warp "abyss_03",115,30;
						break;
				case 2:
					mes "[Warp Agent]";
					mes "What level of the dungeon would you like to go?";
					menu "Level 1",Amatsu1,"Level 2",Amatsu2,"Level 3",Amatsu3;
				Amatsu1:
					warp "ama_dun01",229,12;
					break;
				Amatsu2:
					warp "ama_dun02",33,40;
					break;
				Amatsu3:
					warp "ama_dun03",120,12;
					break;
				case 3:
					mes "[Warp Agent]";
					mes "What level of the dungeon would you like to go?";
					menu "Level 1",Anthell1,"Level 2",Anthell2;
				Anthell1:
					warp "anthell01",35,262;
					break;
				Anthell2:
					warp "anthell02",34,263;
					break;
				case 4:
					mes "[Warp Agent]";
					mes "What level of the dungeon would you like to go?";
					menu "Level 1",Ayothaya1,"Level 2",Ayothaya2;
				Ayothaya1:
					warp "ayo_dun01",275,18;
					break;
				Ayothaya2:
					warp "ayo_dun02",24,15;
					break;
				case 5:
					mes "[Warp Agent]";
					mes "What level of the dungeon would you like to go?";
					menu "Level 1",IzDun1,"Level 2",IzDun2,"Level 3",IzDun3,"Level 4",IzDun4;
				IzDun1:
					warp "iz_dun00",168,168;
					break;
				IzDun2:
					warp "iz_dun01",41,37;
					break;
				IzDun3:
					warp "iz_dun02",236,204;
					break;
				IzDun4:
					warp "iz_dun03",32,63;
					break;
				IzDun5:
					warp "iz_dun04",26,67;
					break;
				case 6:
					mes "[Warp Agent]";
					mes "What level of the dungeon would you like to go?";
					menu "Level 1",DeadPit1,"Level 2",DeadPit2,"Level 3",DeadPit3;
				DeadPit1:
					warp "mjo_dun01",52,17;
					break;
				DeadPit2:
					warp "mjo_dun02",381,343;
					break;
				DeadPit3:
					warp "mjo_dun03",302,262;
					break;
				case 7:
					mes "[Warp Agent]";
					mes "What level of the dungeon would you like to go?";
					menu "Level 1",Sewb1,"Level 2",Sewb2,"Level 3",Sewb3,"Level 4",Sewb4;
				Sewb1:
					warp "prt_sewb1",126,248;
					break;
				Sewb2:
					warp "prt_sewb2",19,19;
					break;
				Sewb3:
					warp "prt_sewb3",180,169;
					break;
				Sewb4:
					warp "prt_sewb4",100,92;
					break;
				case 8:
					mes "[Warp Agent]";
					mes "What level of the dungeon would you like to go?";
					menu "Level 1",EinDun1,"Level 2",EinDun2;
				EinDun1:
					warp "ein_dun01",22,14;
					break;
				EinDun2:
					warp "ein_dun02",291,292;
					break;
				case 9:
					mes "[Warp Agent]";
					mes "What level of the dungeon would you like to go?";
					menu "Entrance",Glast_01,"Castle 1",GL_Cas1,"Castle 2",GL_Cas2,"Chivalry 1",GL_Knt1,"Chivalry 2",GL_Knt2,"Churchyard",GL_Chyard,"Culvert 1",GL_Sew1,"Culvert 2",GL_Sew2,"Culvert 3",GL_Sew3,"Culvert 4",GL_Sew4,"St. Abbey",GL_Church,"Staircase Dungeon",GL_Step,"Underground Cave 1",GL_Dun01,"Underground Cave 2",GL_Dun02,"Underground Prison 1",GL_Prison,"Underground Prison 2",GL_Prison1;
				Glast_01:
					warp "glast_01",368,303;
					break;
				GL_Cas1:
					warp "gl_cas01",199,29;
					break;
				GL_Cas2:
					warp "gl_cas02",104,25;
					break;
				GL_Knt1:
					warp "gl_knt01",150,15;
					break:
				GL_Knt2:
					warp "gl_knt02",15,140;
					break;
				GL_CHyard:
					warp "gl_chyard",147,15;
					break;
				GL_Sew1:
					warp "gl_sew01",258,255;
					break;
				GL_Sew2:
					warp "gl_sew02",29,270;
					break;
				GL_Sew3:
					warp "gl_sew03",171,283;
					break;
				GL_Sew4:
					warp "gl_sew04",68,277;
					break;
				GL_Church:
					warp "gl_church",156,7;
					break;
				GL_Step:
					warp "gl_step",12,7;
					break;
				GL_Dun01:
					warp "gl_dun01",133,271;
					break;
				GL_Dun02:
					warp "gl_dun02",224,274;
					break;
				GL_Prison:
					warp "gl_prison",14,70;
					break;
				GL_Prison1:
					warp "gl_prison1",150,14;
					break;
				case 10:
					mes "[Warp Agent]";
					mes "What level of the dungeon would you like to go?";
					menu "Level 1",Gon_dun01,"Level 2",Gon_dun02,"Level 3",Gon_dun03;
				Gon_dun01:
					warp "gon_dun01",153,48;
					break;
				Gon_dun02:
					warp "gon_dun02",17,113;
					break;
				Gon_dun03:
					warp "gon_dun03",68,9;
					break;
				case 11:
					mes "[Warp Agent]";
					mes "What level of the dungeon would you like to go?";
					menu "Level 1",Ice_dun01,"Level 2",Ice_dun02,"Level 3",Ice_dun03;
				Ice_dun01:
					warp "ice_dun01",157,15;
					break;
				Ice_dun02:
					warp "ice_dun02",151,139;
					break;
				Ice_dun03:
					warp "ice_dun03",149,24;
					break;
				case 12:
					mes "[Warp Agent]";
					mes "What level of the dungeon would you like to go?";
					menu "Entrance Juperos 1",Juperos_01,"Juperos 2",Juperos_02; //,"Core",Jupe_core;
				Juperos_01:
					warp "jupe_cave",143,52;
					break;
				Juperos_02:
					warp "juperos_02",37,62;
					break;
//				Jupe_core:
//					warp "jupe_core",150,18;
//					break;
				case 13:
					mes "[Warp Agent]";
					mes "What level of the dungeon would you like to go?";
					menu "Lighthalzen Biolab 1",Lhz_dun01,"Lighthalzen Biolab 2",Lhz_dun02,"Lighthalzen Biolab 3",Lhz_dun03;
				Lhz_dun01:
					warp "lhz_dun01",149,288;
					break;
				Lhz_dun02:
					warp "lhz_dun02",17,150;
					break;
				Lhz_dun03:
					warp "lhz_dun03",140,133;
					break;
				case 14:
					mes "[Warp Agent]";
					mes "What level of the dungeon would you like to go?";
					menu "Level 1",Mag_dun01,"Level 2",Mag_dun02;
				Mag_dun01:
					warp "mag_dun01",126,28;
					break;
				Mag_dun02:
					warp "mag_dun02",47,30;
					break;
				case 15:
					mes "[Warp Agent]";
					mes "What level of the dungeon would you like to go?";
					menu "Level 1",Odin_tem01,"Level 2",Odin_tem02,"Level 3",Odin_tem03;
				Odin_tem01:
					warp "odin_tem01",97,146;
					break;
				Odin_tem02:
					warp "odin_tem02",28,180;
					break;
				Odin_tem03:
					warp "odin_tem03",247,40;
					break;
				case 16:
					mes "[Warp Agent]";
					mes "What level of the dungeon would you like to go?";
					menu "Level 1",Orcsdun01,"Level 2",Orcsdun02;
				Orcsdun01:
					warp "orcsdun01",32,170;
					break;
				Orcsdun02:
					warp "orcsdun02",21,185;
					break;
				case 17:
					mes "[Warp Agent]";
					mes "What level of the dungeon would you like to go?";
					menu "Level 1",Pay_dun00,"Level 2",Pay_dun01,"Level 3",Pay_dun02,"Level 4",Pay_dun03,"Level 5",Pay_dun04;
				Pay_dun00:
					warp "pay_dun00",171,35;
				Pay_dun01:
					warp "pay_dun01",19,33;
					break;
				Pay_dun02:
					warp "pay_dun02",19,63;
					break;
				Pay_dun03:
					warp "pay_dun03",155,159;
					break;
				Pay_dun04:
					warp "pay_dun04",201,204;
					break;
				case 18:
					mes "[Warp Agent]";
					mes "What level of the dungeon would you like to go?";
					menu "Pyramids 1",Moc_pryd01,"Pyramids 2",Moc_pryd02,"Pyramids 3",Moc_pryd03,"Pyramids 4",Moc_pryd04,"Basement 1",Moc_pryd05,"Basement 2",Moc_pryd06;
				Moc_pryd01:
					warp "moc_pryd01",192,9;
					break;
				Moc_pryd02:
					warp "moc_pryd02",10,192;
					break;
				Moc_pryd03:
					warp "moc_pryd03",100,92;
					break;
				Moc_pryd04:
					warp "moc_pryd04",181,11;
					break;
				Moc_pryd05:
					warp "moc_pryd05",94,96;
					break;
				Moc_pryd06:
					warp "moc_pryd06",192,10;
					break;
				case 19:
					mes "[Warp Agent]";
					mes "What level of the dungeon would you like to go?";
					menu "Sphinx 1",In_sphinx1,"Sphinx 2",In_sphinx2,"Sphinx 3",In_sphinx3,"Sphinx 4",In_sphinx4,"Sphinx 5",In-sphinx5;
				In_sphinx1:
					warp "in_sphinx1",288,9;
					break;
				In_sphinx2:
					warp "in_sphinx2",149,81;
					break;
				In_sphinx3:
					warp "in_sphinx3",210,54;
					break;
				In_sphinx4:
					warp "in_sphinx4",10,222;
					break;
				In_sphinx5:
					warp "in_sphinx5",100,99;
					break;
				case 20:
					mes "[Warp Agent]";
					mes "What level of the dungeon would you like to go?";
					menu "Level 1",Treasure01,"Level 2",Treasure02;
				Treasure01:
					warp "treasure01",69,24;
					break;
				Treasure02:
					warp "treasure02",102,27;
					break;
				case 21:
					mes "[Warp Agent]";
					mes "What level of the dungeon would you like to go?";
					menu "Level 1",Tha_t01,"Level 2",Tha_t02,"Level 3",Tha_t03,"Level 4",Tha_t04,"Level 5",Tha_t05,"Level 6",Tha_t06,"Level 7",Tha_t07,"Level 8",Tha_t08,"Level 9",Tha_t09,"Level 10",Tha_t10,"Level 11",Tha_t11,"Level 12",Tha_t12;
				Tha_t01:
					warp "tha_01",150,39;
					break;
				Tha_t02:
					warp "tha_02",150,136;
					break;
				Tha_t03:
					warp "tha_03",220,158;
					break;
				Tha_t04:
					warp "tha_04",59,143;
					break;
				Tha_t05:
					warp "tha_05",62,11;
					break;
				Tha_t06:
					warp "tha_06",89,221;
					break;
				Tha_t07:
					warp "tha_07",35,166;
					break;
				Tha_t08:
					warp "tha_08",93,148;
					break;
				Tha_t09:
					warp "tha_09",29,107;
					break;
				Tha_t10:
					warp "tha_10",159,138;
					break;
				Tha_t11:
					warp "tha_11",19,20;
					break;
				Tha_t12:
					warp "tha_12",130,52;
					break;
				case 23:
					mes "[Warp Agent]";
					mes "What level of the dungeon would you like to go?";
					menu "Level 1",Tur_dun01,"Level 2",Tur_dun02,"Level 3",Tur_dun03;
				Tur_dun01:
					warp "tur_dun01",148,261;
					break;
				Tur_dun02:
					warp "tur_dun02",132,189;
					break;
				Tur_dun03:
					warp "tur_dun03",100,192;
					break;
				case 24:
					mes "[Warp Agent]";
					mes "What level of the dungeon would you like to go?";
					menu "Level 1",Gld_dun01,"Level 2",Gld_dun02,"Level 3",Gld_dun03,"Level 4",Gld_dun04;
				Gld_dun01:
						warp "gld_dun01",53,143;
						break;
				Gld_dun02:
						warp "gld_dun02",231,185;
						break;
				Gld_dun03:
						warp "gld_dun03",252,249;
						break;
				Gld_dun04:
						warp "gld_dun04",44,331;
						break;
			}
			break;
	}
	end;
}

check my code