//=======================================================//
//==by:==================================================//
//=                   ________                          =//
//=                  /_______/\                         =//
//=                  \       \ \                        =//
//=               ___ \    ___\/    ___                 =//
//=              /__/\ \   \ \     /__/\                =//
//=              \__\/  \   \ \____\__\/                =//
//=                      \   \/___/\                    =//
//=                       \       \ \                   =//
//=                        \_______\/                   =//
//=                                                     =//
//=======================================================//
//====== eAthena Script =================================//
//=  Super Warper NPC                                   =//
//====== Description:====================================//
//=  This is a multilang-warper including               =//
//=  all new maps and towns                             =//
//=======================================================//
//=======================================================//

prontera.gat,153,187,5	script	Warper	859,{

set @n$, "[Warp NPC]";
set @lang,#lang;

//================= Pay menue =================\\
// Set any amount you want the players have to \\
// pay for.                                    \\

if($payfor) {
	set @townc,10000;	//Town
	set @fielc,20000;	//Field
	set @dunc,30000;	//Dungeon
	set @gdunc,80000;	//Guild Dungeon
	set @castc,100000;	//Castle
		if(ltownw) {
		set @plastwarp,@townc/10;
		}
		if(ldunw) {
		set @plastwarp,@dunc/10;
		}
		if(lfieldw) {
		set @plastwarp,@fielc/10;
		}
	} else {
// clears the buffer
	set @townc,0;		//Town
	set @fielc,0;		//Field
	set @dunc,0;		//Dungeon
	set @gdunc,0;		//Guild Dungeon
	set @castc,0;		//Castle
	set @plastwarp,0;	//Last Warp
}

if(getgmlevel() >= 80) {

	switch(@lang) {
		case 1:
							//======== English ========\\
			setarray @pay$[0],		"Enable the pay-option?",
							"Enable:Disable",
							"Pay-Option: Enabled",
							"Pay-Option: Disabled",
							"You have to select an option",
							"GM-Menu:NPC",
							"[GM-Menu]",
							"Option is already on.",
							"Option is already off.",
							"Please choose an option.",
							"Paymenu:WoE-Warpmenu:Guild Dungeon-Menu";

			setarray @woewarp$[0],	"Enable Woe-Warps?",
							"Woe-Warps: Enabled",
							"Woe-Warps: Disabled",
							"Woe-Warps:Permanent Castle-Warp",
							"Enable permanent Castle-Warp?",
							"Perm-Warp: Enabled",
							"Perm-Warp: Disabled";

			setarray @gwarp$[0],		"Enable Guild Dungeon-Warps?",
							"Guild Dungeon-Warps: Enabled",
							"Guild Dungeon-Warps: Disabled";
			break;

		case 2:
							//======== German ========\\
			setarray @pay$[0],		"Zahl-Option anschalten?",
							"An:Aus",
							"Zahl-Option: An",
							"Zahl-Option: Aus",
							"Du musst eine Option ausw‰hlen.",
							"GM-Men¸:NPC",
							"[GM-Men¸]",
							"Option ist bereits an.",
							"Option ist bereits aus.",
							"Bitte eine Option w‰hlen.",
							"Zahlmen¸:WoE-Warpmen¸:Guild Dungeon-Men¸";

			setarray @woewarp$[0],	"Woe-Warps anschalten?",
							"Woe-Warps: An",
							"Woe-Warps: Aus",
							"WoE-Warps:Permanenter Schlˆsser-Warp",
							"Permanenter Schlˆsser-Warp an?",
							"Perm-Warp: An",
							"Perm-Warp: Aus";

			setarray @gwarp$[0],		"Guild Dungeon-Warps anschalten?",
							"Guild Dungeon-Warps: An",
							"Guild Dungeon-Warps: Aus";
			break;
	}

set @m, select(@pay$[5]);
	mes @pay$[6];
	while(1) {
		if(@m == 2)
		break;
	mes @pay$[9];
	switch (prompt(@pay$[10])) {
		case 1:
			mes @pay$[0];
			switch(prompt(@pay$[1])) {
				case 1:
					if($payfor) {
						mes @pay$[7];
						close;
					}
					mes @pay$[2];
					set $payfor,1;
					close;
				case 2:
					if(!$payfor) {
						mes @pay$[8];
						close;
					}
					mes @pay$[3];
					set $payfor,0;
					close;
				case 255:
					mes @pay$[6];
					mes @pay$[4];
					break;
			}

		case 2:
			mes @woewarp$[0];
			switch(prompt(@woewarp$[3])) {
				case 1:
					switch(prompt(@pay$[1])) {
						case 1:
							if($caswrp) {
								mes @pay$[7];
								close;
							}
							if($woeon) {
								mes @pay$[7];
								close;
							}
							mes @woewarp$[1];
							set $woeon,1;
							mes @woewarp$[0];
							close;
						case 2:
							if(!$woeon) {
								mes @pay$[8];
								close;
							}	
							mes @woewarp$[2];
							set $woeon,0;
								close;
						case 255:
							mes @pay$[6];
							mes @pay$[4];
							break;
					}
				case 2:
					mes @woewarp$[4];
					switch(prompt(@pay$[1])) {
						case 1:
							if($caswrp) {
								mes @pay$[7];
								close;
							}
							mes @woewarp$[5];
							set $caswrp,1;
							close;
						case 2:
							if(!$caswrp) {
								mes @pay$[8];
								close;
							}
							mes @woewarp$[6];
							set $caswrp,0;
							close;
						case 255:
							mes @pay$[6];
							mes @pay$[4];
							break;
					}
							

			}

		case 3:
			mes @gwarp$[0];
			switch(prompt(@pay$[1])) {
				case 1:
					if($gwrp) {
						mes @pay$[7];
						close;
					}
					mes @gwarp$[1];
					set $gwrp,1;
					close;
				case 2:
					if(!$gwrp) {
						mes @pay$[8];
						close;
					}
					mes @gwarp$[2];
					set $gwrp,0;
					close;
				case 255:
					mes @pay$[6];
					mes @pay$[4];
					break;
			}
	}
	}
}

//======== Main Script ========\\

	switch(@lang) {

		case 1:
						//======== English ========\\
			setarray @warp$[0],	"Hi!, I can warp you to any Town, Field, or Dungeon you would like to go to.",
						"Where would you like to be warped to?",
						"Towns:Dungeons:Fields:Last Warp",
						"Please select a Town.",
						"Please select a Level. Beware that you will be warped directly into the dungeon.",
						"Please select a Guild Dungeon. Beware that you will be warped directly into the dungeon.",
						"Please select a Field. You will be warped to the center of that map.",
						"Please select a Castle. You will be warped in front of the Castle.",
						"This Service costs:",
						"Town: "+@townc+"z",
						"Field: "+@fielc+"z",
						"Dungeon: "+@dunc+"z",
						"Guild-Dungeon: "+@gdunc+"z",
						"Castle: "+@castc+"z",
						"Last Warp:",
						"Town:       "+@townc/10+"z",
						"Dungeon:    "+@dunc/10+"z",
						"Field:      "+@fielc/10+"z",
						"Would you like to be warped to your last warppoint?",
						"Yes:No",
						"You dont have a 'Last Warp'.";

				if($gwrp) {
					setarray @warp$[2],	"Towns:Dungeons:Fields:Guild-Dungeons:Last Warp";
					setarray @warp$[12],	"Guild-Dungeon: "+@gdunc+"z";
				}
				if(!$caswrp) {
					if($woeon) {
						setarray @warp$[13], "Castle: "+@castc+"z";
						if(agitcheck()) {
							if($gwrp) {
								setarray @warp$[2],	"Towns:Dungeons:Fields:Guild Dungeons:Guild-Castles:Last Warp";
							}
							setarray @warp$[2],	"Towns:Dungeons:Fields:Guild-Castles:Last Warp";
						}
					}
				} else {
				setarray @warp$[13], "Castle: "+@castc+"z";
					if($gwrp) {
						setarray @warp$[2],	"Towns:Dungeons:Fields:Guild Dungeons:Guild-Castles:Last Warp";
					} else { 
					setarray @warp$[2],	"Towns:Dungeons:Fields:Guild-Castles:Last Warp";
					}
				}

			setarray @pay$[0],	"You don't have enough Zeny to use the Warp.";

			break;

		case 2:
						//======== German ========\\
			setarray @warp$[0],	"Hallo, ich kann dich in jede Stadt, jedes Feld, oder jeden Dungeon warpen, wenn du willst.",
						"Wohin soll die Reise gehen?",
						"St‰dte:Dungeons:Felder:Last Warp",
						"Bitte w‰hle eine Stadt.",
						"Bitte w‰hle einen Dungeon und eine Ebene. Du wirst direkt in den Dungeon gewarpt, vergiss das nicht.",
						"Bitte w‰hle einen Gilden Dungeon.  Du wirst direkt in den Dungeon gewarpt, vergiss das nicht.",
						"Bitte w‰hle ein Feld. Du wirst auf die Mitte der Map teleportiert.",
						"Bitte w‰hle ein Schloss. Du wirst direkt vor das Schloss teleportiert.",
						"Dieser Service kostet dich:",
						"Stadt: "+@townc+"z",
						"Feld: "+@fielc+"z",
						"Dungeon: "+@dunc+"z",
						"Gilden-Dungeon: "+@gdunc+"z",
						"Schloss: "+@castc+"z",
						"Last Warp:",
						"Stadt:      "+@townc/10+"z",
						"Dungeon:    "+@dunc/10+"z",
						"Feld:       "+@fielc/10+"z",
						"Willst du zu deinem letzten Warppunkt zur¸ckkehren?",
						"Ja:Nein",
						"Du hast keinen 'Last Warp'.";
				if(!$caswrp) {
					if($woeon) {
						if(agitcheck()) {
							if($gwrp) {
								setarray @warp$[2],	"St‰dte:Dungeons:Felder:Gilden-Dungeons:Gilden-Schlˆsser:Last Warp";
							}
							setarray @warp$[2],	"St‰dte:Dungeons:Felder:Gilden-Schlˆsser:Last Warp";
						}
					}
				} else {
					if($gwrp) {
						setarray @warp$[2],	"St‰dte:Dungeons:Felder:Gilden-Dungeons:Gilden-Schlˆsser:Last Warp";
					} else {
					setarray @warp$[2],	"St‰dte:Dungeons:Felder:Gilden-Schlˆsser:Last Warp";
					}
				}

			setarray @pay$[0],	"Du hast nicht genug Zeny, um diesen Service zu nutzen.";

			break;

	}

			setarray @men$[0],	"Alberta:Aldebaran:Amatsu:Ayothaya:Comodo:Einbech:Einbroch:Geffen:Gonryun:Hugel:Izlude:Jawaii:Lighthalzen:Louyang:Lutie:Morroc:Moscovia:Nameless:Niflheim:Payon:Prontera:Rachel:Thor Camp:Umbala:Veins:Yuno",
						"Abbey, Cursed Monastery:Abyss Lake:Amatsu Dungeon:Anthell:Ayothaya Dungeon:Beach Dungeon:Byalan Dungeon:Clock Tower:Coal Mines:Culverts:Einbroch Dungeon:Endless Tower:Gefenia:Geffen Dungeon:Glast Heim:Gonryun Dungeon:Hidden Dungeon:Ice Dungeon:Juperos Dungeons:Kiel Dungeons:Lighthalzen:Louyang Dungeon:Magma Dungeon:Moscovia Dungeon:Orc Dungeon:Payon Dungeon:Pyramids:Rachel Sanctuary:Sphinx:Sunken Ship:Thanatos Tower:Thor Volcano:Toy Factory:Turtle Dungeon:Umbala Dungeons",
						"Baldur Guild Dungeon:Luina Guild Dungeon:Valkyrie Guild Dungeon:Britoniah Guild Dungeon",
						"Amatsu Field:Ayothaya Field:Comodo Field:Einbroch Field:Geffen Field:Gonryun Field:Hugel Field:Lighthalzen Field:Louyang Field:Lutie Field:Mjolnir Field:Moscovia Field:Nameless:Niflheim Field:Odin Temple:Payon Forest:Prontera Field:Rachel Fields:Sograt Desert:Umbala Field:Veins Field:Yuno Field",
						"Al De Baran:Geffen:Payon:Prontera";

						//======== Dungons ========\\
			setarray @dun$[0],	"Level 1:Level 2",
						"Level 1:Level 2:Level 3",
						"Level 1:Level 2:Level 3:Level 4",
						"Level 1:Level 2:Level 3:Level 4:Level 5",
						"Level 1:Level 2:Level 3:Level 4:Basement 1:Basement 2",
						"Level 1:Level 2:Level 3:Level 4:Basement 1:Basement 2:Basement 3:Basement 4",
						"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",
						"Level 1:Level 2:Core",
						"Ancient Shrine Maze:Inside Ancient Shrine",
						"The Royal Tomb:Inside the Royal Tomb:Suei Long Gon",
						"Level 1:Level 2:Level 3:Level 4:Level 5:Level 6:Level 7:Level 8:Level 9:Level 10:Level 11:Level 12",
						"Carpenter's Shop in the Tree:Passage to a foreign World:Hvergermil's Fountain",
						"Catacomb 1:Catacomb 2:Stage 1:Stage 2:Stage 3:Stage 4:Stage 5:Final Stage";

						//======== Fields ========\\
			setarray @field$[0],	"Amatsu Field",
						"Ayothaya Field 1:Ayothaya Field 2",
						"Comodo Field 1:Comodo Field 2:Comodo Field 3:Comodo Field 4:Comodo Field 5:Comodo Field 6:Comodo Field 7:Comodo Field 8:Comodo Field 9",
						"Einbroch Field 1:Einbroch Field 2:Einbroch Field 3:Einbroch Field 4:Einbroch Field 5:Einbroch Field 6:Einbroch Field 7:Einbroch Field 8:Einbroch Field 9:Einbroch Field 10",
						"Geffen Field 1:Geffen Field 2:Geffen Field 3:Geffen Field 4:Geffen Field 5:Geffen Field 6:Geffen Field 7:Geffen Field 8:Geffen Field 9:Geffen Field 10:Geffen Field 11:Geffen Field 12:Geffen Field 13:Geffen Field 14:Geffen Field 15",
						"Gonryun Field",
						"Hugel Field 1:Hugel Field 2:Hugel Field 3:Hugel Field 4:Hugel Field 5:Hugel Field 6:Hugel Field 7", 
						"Lighthalzen Field 1:Lighthalzen Field 2:Lighthalzen Field 3",
						"Louyang Field",
						"Lutie Field",
						"Mjolnir Field 1:Mjolnir Field 2:Mjolnir Field 3:Mjolnir Field 4:Mjolnir Field 5:Mjolnir Field 6:Mjolnir Field 7:Mjolnir Field 8:Mjolnir Field 9:Mjolnir Field 10:Mjolnir Field 11:Mjolnir Field 12",
						"Moscovia Field 1:Moscovia Field 2",
						"Nameless Field",
						"Niflheim Field 1:Niflheim Field 2",
						"Odin Temple 1:Odin Temple 2:Odin Temple 3",
						"Payon Forest 1:Payon Forest 2:Payon Forest 3:Payon Forest 4:Payon Forest 5:Payon Forest 6:Payon Forest 7:Payon Forest 8:Payon Forest 9:Payon Forest 10:Payon Forest 11",
						"Prontera Field 1:Prontera Field 2:Prontera Field 3:Prontera Field 4:Prontera Field 5:Prontera Field 6:Prontera Field 7:Prontera Field 8:Prontera Field 9:Prontera Field 10:Prontera Field 11",
						"Rachel Field 1:Rachel Field 2:Rachel Field 3:Rachel Field 4:Rachel Field 5:Rachel Field 6:Rachel Field 7:Rachel Field 8:Rachel Field 9:Rachel Field 10:Rachel Field 11:Rachel Field 12:Rachel Field 13",
						"Sograt Desert 1:Sograt Desert 2:Sograt Desert 3:Sograt Desert 4:Sograt Desert 5:Sograt Desert 6:Sograt Desert 7:Sograt Desert 8:Sograt Desert 9:Sograt Desert 10:Sograt Desert 11:Sograt Desert 12:Sograt Desert 13:Sograt Desert 14:Sograt Desert 15:Sograt Desert 16:Sograt Desert 17:Sograt Desert 18:Sograt Desert 19",
						"Umbala Field 1:Umbala Field 2:Umbala Field 3:Umbala Field 4",
						"Veins Field 1:Veins Field 2:Veins Field 3:Veins Field 4:Veins Field 5:Veins Field 6:Veins Field 7",
						"Yuno Field 1:Yuno Field 2:Yuno Field 3:Yuno Field 4:Yuno Field 5:Yuno Field 6:Yuno Field 7:Yuno Field 8:Yuno Field 9:Yuno Field 10:Yuno Field 11:Yuno Field 12";

						//======== iRO Castle names ========\\
			setarray @cas$[0],	"Hohenschwangau:Neuschwanstein:Nuernberg:Rothenburg:Wuerzburg",
						"Bergel:Eeyolbriggar:Mersetzdeitz:Repherion:Yesnelph",
						"Bamboo Grove Hill:Bright Arbor:Holy Shadow:Sacred Altar:Scarlet Palace",
						"Fadhgridh:Gondul:Kriemhild:Skoegul:Swanhild";

						//======== kRO Castle names ========\\
			//setarray @cas$[0],	"Hohensyubangawoo:Noisyubantian:Nyirenverk:Rotenburk:Byirtsburi",
			//			"Berigel:Yolbriger:Melsedetsu:Reprion:Isinlife",
			//			"Zhulinxian:Mingting:Fuying:Tiantan:Honglou",
			//			"Lazrigees:Guindull:Creamhilt:Squagul:Sbanhealt";

	mes @n$;
	mes @warp$[0];
	next;
	if($payfor) {
		mes @n$;
		mes @warp$[8];
		mes @warp$[9];
		mes @warp$[10];
		mes @warp$[11];
			if($gwrp) {
				mes @warp$[12];
			}
			if(!$caswrp) {
				if($woeon) {
					mes @warp$[13];
				}
			} else {
			mes @warp$[13];
			}
		mes @warp$[14];
		mes @warp$[15];
		mes @warp$[16];
		mes @warp$[17];
		next;
	}
	mes @n$;
	mes @warp$[1];
	next;
		select(@warp$[2]);
		setarray @warpl[1], 1, 2, 3, 6;
		switch(@warpl[@menu]) {
			case 1:
				mes @n$;
				if($payfor) {
					if(@townc>Zeny) {
						mes @pay$[0];
						close;
					}
				}
				mes @warp$[3];
				set @twarp,select(@men$[0]);
				set Zeny,Zeny-@townc;
				switch(@twarp) {
					case 1:
						warp "alberta.gat",28,234;
						set lmap$,"alberta.gat";		set lx,28;	set ly,234;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
						end;
					case 2:
						warp "aldebaran.gat",140,131;
						set lmap$,"aldebaran.gat";		set lx,140;	set ly,131;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
						end;
					case 3:
						warp "amatsu.gat",198,84;
						set lmap$,"amatsu.gat";		set lx,198;	set ly,84;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
						end;
					case 4:
						warp "ayothaya.gat",150,163;
						set lmap$,"ayothaya.gat";		set lx,150;	set ly,163;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
						end;
					case 5:
						warp "comodo.gat",209,143;
						set lmap$,"comodo.gat";		set lx,209;	set ly,143;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
						end;
					case 6:
						warp "einbech.gat",140,245;
						set lmap$,"einbech.gat";		set lx,140;	set ly,245;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
						end;
					case 7:
						warp "einbroch.gat",64,200;
						set lmap$,"einbroch.gat";		set lx,64;	set ly,200;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
						end;
					case 8:
						warp "geffen.gat",119,59;
						set lmap$,"geffen.gat";		set lx,119;	set ly,59;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
						end;
					case 9:
						warp "gonryun.gat",160,121;
						set lmap$,"gonryun.gat";		set lx,160;	set ly,121;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
						end;
					case 10:
						warp "hugel.gat",96,145;
						set lmap$,"hugel.gat";		set lx,96;	set ly,145;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
						end;
					case 11:
						warp "izlude.gat",128,114;
						set lmap$,"izlude.gat";		set lx,128;	set ly,114;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
						end;
					case 12:
						warp "jawaii.gat",213,230;
						set lmap$,"jawaii.gat";		set lx,213;	set ly,230;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
						end;
					case 13:
						warp "lighthalzen.gat",158,92;
						set lmap$,"lighthalzen.gat";	set lx,158;	set ly,92;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
						end;
					case 14:
						warp "louyang.gat",210,108;
						set lmap$,"louyang.gat";		set lx,210;	set ly,108;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
						end;
					case 15:
						warp "xmas.gat",147,134;
						set lmap$,"xmas.gat";		set lx,147;	set ly,134;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
						end;
					case 16:
						warp "morocc.gat",156,93;
						set lmap$,"morocc.gat";		set lx,156;	set ly,93;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
						end;
					case 17:
						warp "moscovia.gat",165,50;
						set lmap$,"moscovia.gat";		set lx,165;	set ly,50;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
						end;
					case 18:
						warp "nameless_i.gat",258,215;
						set lmap$,"nameless_i.gat";		set lx,258;	set ly,215;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
						end;
					case 19:
						warp "niflheim.gat",195,180;
						set lmap$,"niflheim.gat";		set lx,195;	set ly,180;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
						end;
					case 20:
						warp "payon.gat",185,100;
						set lmap$,"payon.gat";		set lx,185;	set ly,100;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
						end;
					case 21:
						warp "prontera.gat",155,183;
						set lmap$,"prontera.gat";		set lx,155;	set ly,183;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
						end;
					case 22:
						warp "rachel.gat",130,137;
						set lmap$,"rachel.gat";		set lx,130;	set ly,137;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
						end;
					case 23:
						warp "thor_camp.gat",254,90;
						set lmap$,"thor_camp.gat";		set lx,254;	set ly,90;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
						end;
					case 24:
						warp "umbala.gat",120,130;
						set lmap$,"umbala.gat";		set lx,120;	set ly,130;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
						end;
					case 25:
						warp "veins.gat",216,123;
						set lmap$,"veins.gat";		set lx,216;	set ly,123;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
						end;
					case 26:
						warp "yuno.gat",157,181;
						set lmap$,"yuno.gat";		set lx,157;	set ly,181;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
						end;
				}

			case 2:

				mes @n$;
				if($payfor) {
					if(@dunc>Zeny) {
						mes @pay$[0];
						close;
					}
				}
				mes @warp$[4];
				switch(select(@men$[1])) {
					case 1:
						set @dwarp,select(@dun$[1]);
						set Zeny,Zeny-@dunc;
						switch(@dwarp) {
							case 1:
								warp "abbey01.gat",51,14;
								set lmap$,"abbey01.gat";		set lx,51;	set ly,14;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 2:
								warp "abbey02.gat",150,11;
								set lmap$,"abbey02.gat";		set lx,150;	set ly,11;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 3:
								warp "abbey03.gat",120,10;
								set lmap$,"abbey03.gat";		set lx,120;	set ly,10;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
						}
					case 2:
						set @dwarp,select(@dun$[1]);
						set Zeny,Zeny-@dunc;
						switch(@dwarp) {
							case 1:
								warp "abyss_01.gat",261,271;
								set lmap$,"abyss_01.gat";		set lx,261;	set ly,271;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 2:
								warp "abyss_02.gat",275,270;
								set lmap$,"abyss_02.gat";		set lx,275;	set ly,270;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 3:
								warp "abyss_03.gat",116,27;
								set lmap$,"abyss_03.gat";		set lx,116;	set ly,27;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
						}
					case 3:
						set @dwarp,select(@dun$[1]);
						set Zeny,Zeny-@dunc;
						switch(@dwarp) {
							case 1:
								warp "ama_dun01.gat",228,11;
								set lmap$,"ama_dun01.gat";		set lx,228;	set ly,11;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 2:
								warp "ama_dun02.gat",34,41;
								set lmap$,"ama_dun02.gat";		set lx,34;	set ly,41;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 3:
								warp "ama_dun03.gat",119,14;
								set lmap$,"ama_dun03.gat";		set lx,119;	set ly,14;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
						}
					case 4:
						set @dwarp,select(@dun$[0]);
						set Zeny,Zeny-@dunc;
						switch(@dwarp) {
							case 1:
								warp "anthell01.gat",35,262;
								set lmap$,"anthell01.gat";		set lx,35;	set ly,262;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 2:
								warp "anthell02.gat",168,170;
								set lmap$,"anthell02.gat";		set lx,168;	set ly,170;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
						}
					case 5:
						set @dwarp,select(@dun$[8]);
						set Zeny,Zeny-@dunc;
						switch(@dwarp) {
							case 1:
								warp "ayo_dun01.gat",275,19;
								set lmap$,"ayo_dun01.gat";		set lx,275;	set ly,19;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 2:
								warp "ayo_dun02.gat",24,26;
								set lmap$,"ayo_dun02.gat";		set lx,24;	set ly,26;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
						}

					case 6:
						set @dwarp,select(@dun$[1]);
						set Zeny,Zeny-@dunc;
						switch(@dwarp) {
							case 1:
								warp "beach_dun.gat",266,67;
								set lmap$,"beach_dun.gat";		set lx,266;	set ly,67;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 2:
								warp "beach_dun2.gat",255,244;
								set lmap$,"beach_dun2.gat";		set lx,255;	set ly,244;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 3:
								warp "beach_dun3.gat",23,260;
								set lmap$,"beach_dun3.gat";		set lx,23;	set ly,260;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
						}
					case 7:
						set @dwarp,select(@dun$[3]);
						set Zeny,Zeny-@dunc;
						switch(@dwarp) {
							case 1:
								warp "iz_dun00.gat",168,168;
								set lmap$,"iz_dun00.gat";		set lx,168;	set ly,168;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 2:
								warp "iz_dun01.gat",253,252;
								set lmap$,"iz_dun01.gat";		set lx,253;	set ly,252;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 3:
								warp "iz_dun02.gat",236,204;
								set lmap$,"iz_dun02.gat";		set lx,236;	set ly,204;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 4:
								warp "iz_dun03.gat",32,63;
								set lmap$,"iz_dun03.gat";		set lx,32;	set ly,63;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 5:
								warp "iz_dun04.gat",26,27;
								set lmap$,"iz_dun04.gat";		set lx,26;	set ly,27;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
						}
					case 8:
						set @dwarp,select(@dun$[5]);
						set Zeny,Zeny-@dunc;
						switch(@dwarp) {
							case 1:
								warp "c_tower1.gat",199,159;
								set lmap$,"c_tower1.gat";		set lx,199;	set ly,159;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 2:
								warp "c_tower2.gat",148,283;
								set lmap$,"c_tower2.gat";		set lx,148;	set ly,283;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 3:
								warp "c_tower3.gat",65,147;
								set lmap$,"c_tower3.gat";		set lx,65;	set ly,147;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 4:
								warp "c_tower4.gat",56,155;
								set lmap$,"c_tower4.gat";		set lx,56;	set ly,155;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 5:
								warp "alde_dun01.gat",297,25;
								set lmap$,"alde_dun01.gat";		set lx,297;	set ly,25;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 6:
								warp "alde_dun02.gat",127,169;
								set lmap$,"alde_dun02.gat";		set lx,127;	set ly,169;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 7:
								warp "alde_dun03.gat",277,178;
								set lmap$,"alde_dun03.gat";		set lx,277;	set ly,178;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 8:
								warp "alde_dun04.gat",268,74;
								set lmap$,"alde_dun04.gat";		set lx,268;	set ly,74;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
						}
					case 9:
						set @dwarp,select(@dun$[1]);
						set Zeny,Zeny-@dunc;
						switch(@dwarp) {
							case 1:
								warp "mjo_dun01.gat",52,17;
								set lmap$,"mjo_dun01.gat";		set lx,52;	set ly,17;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 2:
								warp "mjo_dun02.gat",381,343;
								set lmap$,"mjo_dun02.gat";		set lx,381;	set ly,343;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 3:
								warp "mjo_dun03.gat",302,262;
								set lmap$,"mjo_dun03.gat";		set lx,302;	set ly,262;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
						}
					case 10:
						set @dwarp,select(@dun$[2]);
						set Zeny,Zeny-@dunc;
						switch(@dwarp) {
							case 1:
								warp "prt_sewb1.gat",131,247;
								set lmap$,"prt_sewb1.gat";		set lx,131;	set ly,247;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 2:
								warp "prt_sewb2.gat",19,19;
								set lmap$,"prt_sewb2.gat";		set lx,19;	set ly,19;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 3:
								warp "prt_sewb3.gat",180,169;
								set lmap$,"prt_sewb3.gat";		set lx,180;	set ly,169;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 4:
								warp "prt_sewb4.gat",100,92;
								set lmap$,"prt_sewb4.gat";		set lx,100;	set ly,92;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
						}
					case 11:
						set @dwarp,select(@dun$[0]);
						set Zeny,Zeny-@dunc;
						switch(@dwarp) {
							case 1:
								warp "ein_dun01.gat",22,14;
								set lmap$,"ein_dun01.gat";		set lx,22;	set ly,14;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 2:
								warp "ein_dun02.gat",292,290;
								set lmap$,"ein_dun02.gat";		set lx,292;	set ly,290;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
						}
					case 12:
						set @dwarp,select(@dun$[12]);
						set Zeny,Zeny-@dunc;
						switch(@dwarp) {
							case 1:
								warp "1@cata.gat",282,11;
								set lmap$,"1@cata.gat";			set lx,282;	set ly,11;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 2:
								warp "2@cata.gat",79,146;
								set lmap$,"2@cata.gat";			set lx,79;	set ly,146;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 3:
								warp "1@tower.gat",218,363;
								set lmap$,"1@tower.gat";		set lx,218;	set ly,363;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 4:
								warp "2@tower.gat",130,191;
								set lmap$,"2@tower.gat";		set lx,130;	set ly,191;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 5:
								warp "3@tower.gat",304,21;
								set lmap$,"3@tower.gat";		set lx,304;	set ly,21;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 6:
								warp "4@tower.gat",304,279;
								set lmap$,"4@tower.gat";		set lx,304;	set ly,279;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 7:
								warp "5@tower.gat",66,68;
								set lmap$,"5@tower.gat";		set lx,66;	set ly,68;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 8:
								warp "6@tower.gat",155,64;
								set lmap$,"6@tower.gat";		set lx,155;	set ly,64;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;								
						}
					case 13:
						set @dwarp,select(@dun$[2]);
						set Zeny,Zeny-@dunc;
						switch(@dwarp) {
							case 1:
								warp "gefenia01.gat",40,103;
								set lmap$,"gefenia01.gat";		set lx,40;	set ly,103;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 2:
								warp "gefenia02.gat",203,34;
								set lmap$,"gefenia02.gat";		set lx,203;	set ly,34;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 3:
								warp "gefenia03.gat",266,168;
								set lmap$,"gefenia03.gat";		set lx,266;	set ly,168;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 4:
								warp "gefenia04.gat",130,272;
								set lmap$,"gefenia04.gat";		set lx,130;	set ly,272;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
						}
					case 14:
						set @dwarp,select(@dun$[2]);
						set Zeny,Zeny-@dunc;
						switch(@dwarp) {
							case 1:
								warp "gef_dun00.gat",104,99;
								set lmap$,"gef_dun00.gat";		set lx,104;	set ly,99;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 2:
								warp "gef_dun01.gat",115,236;
								set lmap$,"gef_dun01.gat";		set lx,115;	set ly,236;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 3:
								warp "gef_dun02.gat",106,132;
								set lmap$,"gef_dun02.gat";		set lx,106;	set ly,132;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 4:
								warp "gef_dun03.gat",203,200;
								set lmap$,"gef_dun03.gat";		set lx,203;	set ly,200;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
						}
					case 15:
						set @dwarp,select(@dun$[6]);
						set Zeny,Zeny-@dunc;
						switch(@dwarp) {
							case 1:
								warp "glast_01.gat",375,304;
								set lmap$,"glast_01.gat";		set lx,375;	set ly,304;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 2:
								warp "gl_cas01.gat",199,29;
								set lmap$,"gl_cas01.gat";		set lx,199;	set ly,29;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 3:
								warp "gl_cas02.gat",104,25;
								set lmap$,"gl_cas02.gat";		set lx,104;	set ly,25;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 4:
								warp "gl_knt01.gat",150,15;
								set lmap$,"gl_knt01.gat";		set lx,150;	set ly,15;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 5:
								warp "gl_knt02.gat",157,287;
								set lmap$,"gl_knt02.gat";		set lx,157;	set ly,287;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 6:
								warp "gl_chyard.gat",147,15;
								set lmap$,"gl_chyard.gat";		set lx,147;	set ly,15;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 7:
								warp "gl_sew01.gat",258,255;
								set lmap$,"gl_sew01.gat";		set lx,258;	set ly,255;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 8:
								warp "gl_sew02.gat",108,291;
								set lmap$,"gl_sew02.gat";		set lx,108;	set ly,291;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 9:
								warp "gl_sew03.gat",171,283;
								set lmap$,"gl_sew03.gat";		set lx,171;	set ly,283;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 10:
								warp "gl_sew04.gat",68,277;
								set lmap$,"gl_sew04.gat";		set lx,68;	set ly,277;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 11:
								warp "gl_church.gat",156,7;
								set lmap$,"gl_church.gat";		set lx,156;	set ly,7;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 12:
								warp "gl_step.gat",12,7;
								set lmap$,"gl_step.gat";		set lx,12;	set ly,7;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 13:
								warp "gl_dun01.gat",133,271;
								set lmap$,"gl_dun01.gat";		set lx,133;	set ly,271;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 14:
								warp "gl_dun02.gat",224,274;
								set lmap$,"gl_dun02.gat";		set lx,224;	set ly,274;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 15:
								warp "gl_prison.gat",14,70;
								set lmap$,"gl_prison.gat";		set lx,14;	set ly,70;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 16:
								warp "gl_prison1.gat",150,14;
								set lmap$,"gl_prison1.gat";		set lx,150;	set ly,14;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
						}
					case 16:
						set @dwarp,select(@dun$[1]);
						set Zeny,Zeny-@dunc;
						switch(@dwarp) {
							case 1:
								warp "gon_dun01.gat",153,53;
								set lmap$,"gon_dun01.gat";		set lx,153;	set ly,53;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 2:
								warp "gon_dun02.gat",28,113;
								set lmap$,"gon_dun02.gat";		set lx,28;	set ly,113;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 3:
								warp "gon_dun03.gat",68,16;
								set lmap$,"gon_dun03.gat";		set lx,68;	set ly,16;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
						}
					case 17:
						set @dwarp,select(@dun$[1]);
						set Zeny,Zeny-@dunc;
						switch(@dwarp) {
							case 1:
								warp "prt_maze01.gat",176,7;
								set lmap$,"prt_maze01.gat";		set lx,176;	set ly,7;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 2:
								warp "prt_maze02.gat",94,9;
								set lmap$,"prt_maze02.gat";		set lx,94;	set ly,9;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 3:
								warp "prt_maze03.gat",23,8;
								set lmap$,"prt_maze03.gat";		set lx,23;	set ly,8;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
						}
					case 18:
						set @dwarp,select(@dun$[2]);
						set Zeny,Zeny-@dunc;
						switch(@dwarp) {
							case 1:
								warp "ice_dun01.gat",157,14;
								set lmap$,"ice_dun01.gat";		set lx,157;	set ly,14;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 2:
								warp "ice_dun02.gat",151,155;
								set lmap$,"ice_dun02.gat";		set lx,151;	set ly,155;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 3:
								warp "ice_dun03.gat",149,22;
								set lmap$,"ice_dun03.gat";		set lx,149;	set ly,22;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 4:
								warp "ice_dun04.gat",33,158;
								set lmap$,"ice_dun04.gat";		set lx,33;	set ly,158;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
						}
					case 19:
						set @dwarp,select(@dun$[7]);
						set Zeny,Zeny-@dunc;
						switch(@dwarp) {
							case 1:
								warp "juperos_01.gat",53,247;
								set lmap$,"juperos_01.gat";		set lx,53;	set ly,247;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 2:
								warp "juperos_02.gat",37,63;
								set lmap$,"juperos_02.gat";		set lx,37;	set ly,63;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 3:
								warp "jupe_core.gat",150,285;
								set lmap$,"jupe_core.gat";		set lx,150;	set ly,285;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
						}
					case 20:
						set @dwarp,select(@dun$[0]);
						set Zeny,Zeny-@dunc;
						switch(@dwarp) {
							case 1:
								warp "kh_dun01.gat",28,226;
								set lmap$,"kh_dun01.gat";		set lx,28;	set ly,226;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 2:
								warp "kh_dun02.gat",41,198;
								set lmap$,"kh_dun02.gat";		set lx,41;	set ly,198;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
						}
					case 21:
						set @dwarp,select(@dun$[1]);
						set Zeny,Zeny-@dunc;
						switch(@dwarp) {
							case 1:
								warp "lhz_dun01.gat",150,288;
								set lmap$,"lhz_dun01.gat";		set lx,150;	set ly,288;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 2:
								warp "lhz_dun02.gat",150,18;
								set lmap$,"lhz_dun02.gat";		set lx,150;	set ly,18;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 3:
								warp "lhz_dun03.gat",140,137;
								set lmap$,"lhz_dun03.gat";		set lx,140;	set ly,137;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
						}
					case 22:
						set @dwarp,select(@dun$[9]);
						set Zeny,Zeny-@dunc;
						switch(@dwarp) {
							case 1:
								warp "lou_dun01.gat",218,196;
								set lmap$,"lou_dun01.gat";		set lx,218;	set ly,196;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 2:
								warp "lou_dun02.gat",282,20;
								set lmap$,"lou_dun02.gat";		set lx,282;	set ly,20;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 3:
								warp "lou_dun03.gat",165,38;
								set lmap$,"lou_dun03.gat";		set lx,165;	set ly,38;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
						}
					case 23:
						set @dwarp,select(@dun$[0]);
						set Zeny,Zeny-@dunc;
						switch(@dwarp) {
							case 1:
								warp "mag_dun01.gat",126,68;
								set lmap$,"mag_dun01.gat";		set lx,126;	set ly,68;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 2:
								warp "mag_dun02.gat",47,30;
								set lmap$,"mag_dun02.gat";		set lx,47;	set ly,30;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
						}
					case 24:
						set @dwarp,select(@dun$[1]);
						set Zeny,Zeny-@dunc;
						switch(@dwarp) {
							case 1:
								warp "mosk_dun01.gat",189,48;
								set lmap$,"mosk_dun01.gat";		set lx,189;	set ly,48;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 2:
								warp "mosk_dun02.gat",163,31;
								set lmap$,"mosk_dun02.gat";		set lx,163;	set ly,31;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 3:
								warp "mosk_dun03.gat",31,139;
								set lmap$,"mosk_dun03.gat";		set lx,31;	set ly,139;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
						}
					case 25:
						set @dwarp,select(@dun$[0]);
						set Zeny,Zeny-@dunc;
						switch(@dwarp) {
							case 1:
								warp "orcsdun01.gat",32,170;
								set lmap$,"orcsdun01.gat";		set lx,32;	set ly,170;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 2:
								warp "orcsdun02.gat",21,185;
								set lmap$,"orcsdun02.gat";		set lx,21;	set ly,185;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
						}
					case 26:
						set @dwarp,select(@dun$[3]);
						set Zeny,Zeny-@dunc;
						switch(@dwarp) {
							case 1:
								warp "pay_dun00.gat",21,183;
								set lmap$,"pay_dun00.gat";		set lx,21;	set ly,183;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 2:
								warp "pay_dun01.gat",19,33;
								set lmap$,"pay_dun01.gat";		set lx,19;	set ly,33;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 3:
								warp "pay_dun02.gat",19,63;
								set lmap$,"pay_dun02.gat";		set lx,19;	set ly,63;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 4:
								warp "pay_dun03.gat",155,159;
								set lmap$,"pay_dun03.gat";		set lx,155;	set ly,159;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 5:
								warp "pay_dun04.gat",201,204;
								set lmap$,"pay_dun04.gat";		set lx,201;	set ly,204;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
						}
					case 27:
						set @dwarp,select(@dun$[4]);
						set Zeny,Zeny-@dunc;
						switch(@dwarp) {
							case 1:
								warp "moc_pryd01.gat",192,9;
								set lmap$,"moc_pryd01.gat";		set lx,192;	set ly,9;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 2:
								warp "moc_pryd02.gat",10,192;
								set lmap$,"moc_pryd02.gat";		set lx,10;	set ly,192;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 3:
								warp "moc_pryd03.gat",100,92;
								set lmap$,"moc_pryd03.gat";		set lx,100;	set ly,92;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 4:
								warp "moc_pryd04.gat",181,11;
								set lmap$,"moc_pryd04.gat";		set lx,181;	set ly,11;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 5:
								warp "moc_pryd05.gat",94,96;
								set lmap$,"moc_pryd05.gat";		set lx,94;	set ly,96;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 6:
								warp "moc_pryd06.gat",192,8;
								set lmap$,"moc_pryd06.gat";		set lx,192;	set ly,8;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
						}
					case 28:
						set @dwarp,select(@dun$[3]);
						set Zeny,Zeny-@dunc;
						switch(@dwarp) {
							case 1:
								warp "ra_san01.gat",140,11;
								set lmap$,"ra_san01.gat";		set lx,140;	set ly,11;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 2:
								warp "ra_san02.gat",32,21;
								set lmap$,"ra_san02.gat";		set lx,32;	set ly,21;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 3:
								warp "ra_san03.gat",4,149;
								set lmap$,"ra_san03.gat";		set lx,4;	set ly,149;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 4:
								warp "ra_san04.gat",204,218;
								set lmap$,"ra_san04.gat";		set lx,204;	set ly,218;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 5:
								warp "ra_san05.gat",150,9;
								set lmap$,"ra_san05.gat";		set lx,150;	set ly,9;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
						}
					case 29:
						set @dwarp,select(@dun$[3]);
						set Zeny,Zeny-@dunc;
						switch(@dwarp) {
							case 1:
								warp "in_sphinx1.gat",288,9;
								set lmap$,"in_sphinx1.gat";		set lx,288;	set ly,9;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 2:
								warp "in_sphinx2.gat",149,81;
								set lmap$,"in_sphinx2.gat";		set lx,149;	set ly,81;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 3:
								warp "in_sphinx3.gat",210,54;
								set lmap$,"in_sphinx3.gat";		set lx,210;	set ly,54;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 4:
								warp "in_sphinx4.gat",10,222;
								set lmap$,"in_sphinx4.gat";		set lx,10;	set ly,222;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 5:
								warp "in_sphinx5.gat",100,99;
								set lmap$,"in_sphinx5.gat";		set lx,100;	set ly,99;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
						}
					case 30:
						set @dwarp,select(@dun$[0]);
						set Zeny,Zeny-@dunc;
						switch(@dwarp) {
							case 1:
								warp "treasure01.gat",69,24;
								set lmap$,"treasure01.gat";		set lx,69;	set ly,24;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 2:
								warp "treasure02.gat",102,27;
								set lmap$,"treasure02.gat";		set lx,102;	set ly,27;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
						}
					case 31:
						set @dwarp,select(@dun$[10]);
						set Zeny,Zeny-@dunc;
						switch(@dwarp) {
							case 1:
								warp "tha_t01.gat",150,39;
								set lmap$,"tha_t01.gat";		set lx,150;	set ly,39;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 2:
								warp "tha_t02.gat",150,136;
								set lmap$,"tha_t02.gat";		set lx,150;	set ly,136;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 3:
								warp "tha_t03.gat",220,158;
								set lmap$,"tha_t03.gat";		set lx,220;	set ly,158;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 4:
								warp "tha_t04.gat",59,143;
								set lmap$,"tha_t04.gat";		set lx,59;	set ly,143;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 5:
								warp "tha_t05.gat",62,11;
								set lmap$,"tha_t05.gat";		set lx,62;	set ly,11;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 6:
								warp "tha_t06.gat",89,221;
								set lmap$,"tha_t06.gat";		set lx,89;	set ly,221;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 7:
								warp "tha_t07.gat",35,166;
								set lmap$,"tha_t07.gat";		set lx,35;	set ly,166;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 8:
								warp "tha_t08.gat",93,148;
								set lmap$,"tha_t08.gat";		set lx,93;	set ly,148;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 9:
								warp "tha_t09.gat",29,107;
								set lmap$,"tha_t09.gat";		set lx,29;	set ly,107;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 10:
								warp "tha_t10.gat",159,138;
								set lmap$,"tha_t10.gat";		set lx,159;	set ly,138;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 11:
								warp "tha_t11.gat",19,20;
								set lmap$,"tha_t11.gat";		set lx,19;	set ly,20;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 12:
								warp "tha_t12.gat",130,52;
								set lmap$,"tha_t12.gat";		set lx,130;	set ly,52;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
						}
					case 32:
						set @dwarp,select(@dun$[1]);
						set Zeny,Zeny-@dunc;
						switch(@dwarp) {
							case 1:
								warp "thor_v01.gat",21,228;
								set lmap$,"thor_v01.gat";		set lx,21;	set ly,228;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 2:
								warp "thor_v02.gat",75,205;
								set lmap$,"thor_v02.gat";		set lx,75;	set ly,205;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 3:
								warp "thor_v03.gat",34,272;
								set lmap$,"thor_v03.gat";		set lx,34;	set ly,272;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
						}
					case 33:
						set @dwarp,select(@dun$[0]);
						set Zeny,Zeny-@dunc;
						switch(@dwarp) {
							case 1:
								warp "xmas_dun01.gat",205,15;
								set lmap$,"xmas_dun01.gat";		set lx,205;	set ly,15;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 2:
								warp "xmas_dun02.gat",129,133;
								set lmap$,"xmas_dun02.gat";		set lx,129;	set ly,133;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
						}
					case 34:
						set @dwarp,select(@dun$[2]);
						set Zeny,Zeny-@dunc;
						switch(@dwarp) {
							case 1:
								warp "tur_dun01.gat",154,49;
								set lmap$,"tur_dun01.gat";		set lx,154;	set ly,49;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 2:
								warp "tur_dun02.gat",148,261;
								set lmap$,"tur_dun02.gat";		set lx,148;	set ly,261;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 3:
								warp "tur_dun03.gat",132,189;
								set lmap$,"tur_dun03.gat";		set lx,132;	set ly,189;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 4:
								warp "tur_dun04.gat",100,192;
								set lmap$,"tur_dun04.gat";		set lx,100;	set ly,192;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
						}
					case 35:
						set @dwarp,select(@dun$[11]);
						set Zeny,Zeny-@dunc;
						switch(@dwarp) {
							case 1:
								warp "um_dun01.gat",42,31;
								set lmap$,"um_dun01.gat";		set lx,42;	set ly,31;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 2:
								warp "um_dun01.gat",48,30;
								set lmap$,"um_dun01.gat";		set lx,48;	set ly,30;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
							case 3:
								warp "yggdrasil01.gat",204,78;
								set lmap$,"yggdrasil01.gat";	set lx,204;	set ly,78;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
								end;
						}
				}

			case 3:
				mes @n$;
				if($payfor) {
					if(@fielc>Zeny) {
						mes @pay$[0];
						close;
					}
				}
				mes @warp$[6];
				switch(select(@men$[3])) {
					case 1:
						set @fwarp,select(@field$[0]);
						set Zeny,Zeny-@fielc;
						switch(@fwarp) {
							case 1:
								warp "ama_fild01.gat",190,197;
								set lmap$,"ama_fild01.gat";		set lx,190;	set ly,197;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
						}
					case 2:
						set @fwarp,select(@field$[1]);
						set Zeny,Zeny-@fielc;
						switch(@fwarp) {
							case 1:
								warp "ayo_fild01.gat",173,134;
								set lmap$,"ayo_fild01.gat";		set lx,173;	set ly,134;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 2:
								warp "ayo_fild02.gat",212,150;
								set lmap$,"ayo_fild02.gat";		set lx,212;	set ly,150;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
						}
					case 3:
						set @fwarp,select(@field$[2]);
						set Zeny,Zeny-@fielc;
						switch(@fwarp) {
							case 1:
								warp "cmd_fild01.gat",180,178;
								set lmap$,"cmd_fild01.gat";		set lx,180;	set ly,178;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 2:
								warp "cmd_fild02.gat",231,160;
								set lmap$,"cmd_fild02.gat";		set lx,231;	set ly,160;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 3:
								warp "cmd_fild03.gat",191,172;
								set lmap$,"cmd_fild03.gat";		set lx,191;	set ly,172;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 4:
								warp "cmd_fild04.gat",228,194;
								set lmap$,"cmd_fild04.gat";		set lx,228;	set ly,194;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 5:
								warp "cmd_fild05.gat",224,203;
								set lmap$,"cmd_fild05.gat";		set lx,224;	set ly,203;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 6:
								warp "cmd_fild06.gat",190,223;
								set lmap$,"cmd_fild06.gat";		set lx,190;	set ly,223;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 7:
								warp "cmd_fild07.gat",234,177;
								set lmap$,"cmd_fild07.gat";		set lx,234;	set ly,177;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 8:
								warp "cmd_fild08.gat",194,175;
								set lmap$,"cmd_fild08.gat";		set lx,194;	set ly,175;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 9:
								warp "cmd_fild09.gat",172,172;
								set lmap$,"cmd_fild09.gat";		set lx,172;	set ly,172;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
						}
					case 4:
						set @fwarp,select(@field$[3]);
						set Zeny,Zeny-@fielc;
						switch(@fwarp) {
							case 1:
								warp "ein_fild01.gat",142,225;
								set lmap$,"ein_fild01.gat";		set lx,142;	set ly,225;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 2:
								warp "ein_fild02.gat",182,141;
								set lmap$,"ein_fild02.gat";		set lx,182;	set ly,141;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 3:
								warp "ein_fild03.gat",187,228;
								set lmap$,"ein_fild03.gat";		set lx,187;	set ly,228;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 4:
								warp "ein_fild04.gat",185,173;
								set lmap$,"ein_fild04.gat";		set lx,185;	set ly,173;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 5:
								warp "ein_fild05.gat",216,173;
								set lmap$,"ein_fild05.gat";		set lx,216;	set ly,173;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 6:
								warp "ein_fild06.gat",195,148;
								set lmap$,"ein_fild06.gat";		set lx,195;	set ly,148;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 7:
								warp "ein_fild07.gat",272,220;
								set lmap$,"ein_fild07.gat";		set lx,272;	set ly,220;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 8:
								warp "ein_fild08.gat",173,214;
								set lmap$,"ein_fild08.gat";		set lx,173;	set ly,214;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 9:
								warp "ein_fild09.gat",207,174;
								set lmap$,"ein_fild09.gat";		set lx,207;	set ly,174;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 10:
								warp "ein_fild10.gat",196,200;
								set lmap$,"ein_fild10.gat";		set lx,196;	set ly,200;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
						}
					case 5:
						set @fwarp,select(@field$[4]);
						set Zeny,Zeny-@fielc;
						switch(@fwarp) {
							case 1:
								warp "gef_fild00.gat",46,199;
								set lmap$,"gef_fild00.gat";		set lx,46;	set ly,199;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 2:
								warp "gef_fild01.gat",213,204;
								set lmap$,"gef_fild01.gat";		set lx,213;	set ly,204;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 3:
								warp "gef_fild02.gat",195,212;
								set lmap$,"gef_fild02.gat";		set lx,195;	set ly,212;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 4:
								warp "gef_fild03.gat",257,192;
								set lmap$,"gef_fild03.gat";		set lx,257;	set ly,192;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 5:
								warp "gef_fild04.gat",188,171;
								set lmap$,"gef_fild04.gat";		set lx,188;	set ly,171;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 6:
								warp "gef_fild05.gat",166,263;
								set lmap$,"gef_fild05.gat";		set lx,166;	set ly,263;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 7:
								warp "gef_fild06.gat",248,158;
								set lmap$,"gef_fild06.gat";		set lx,248;	set ly,158;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 8:
								warp "gef_fild07.gat",195,191;
								set lmap$,"gef_fild07.gat";		set lx,195;	set ly,191;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 9:
								warp "gef_fild08.gat",186,183;
								set lmap$,"gef_fild08.gat";		set lx,186;	set ly,183;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 10:
								warp "gef_fild09.gat",221,117;
								set lmap$,"gef_fild09.gat";		set lx,221;	set ly,117;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 11:
								warp "gef_fild10.gat",178,218;
								set lmap$,"gef_fild10.gat";		set lx,178;	set ly,218;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 12:
								warp "gef_fild11.gat",136,328;
								set lmap$,"gef_fild11.gat";		set lx,136;	set ly,328;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 13:
								warp "gef_fild12.gat",240,181;
								set lmap$,"gef_fild12.gat";		set lx,240;	set ly,181;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 14:
								warp "gef_fild13.gat",235,235;
								set lmap$,"gef_fild13.gat";		set lx,235;	set ly,235;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 15:
								warp "gef_fild14.gat",211,185;
								set lmap$,"gef_fild14.gat";		set lx,211;	set ly,185;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
						}
					case 6:
						set @fwarp,select(@field$[5]);
						set Zeny,Zeny-@fielc;
						switch(@fwarp) {
							case 1:
								warp "gon_fild01.gat",220,227;
								set lmap$,"gon_fild01.gat";		set lx,220;	set ly,227;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
						}
					case 7:
						set @fwarp,select(@field$[6]);
						set Zeny,Zeny-@fielc;
						switch(@fwarp) {
							case 1:
								warp "hu_fild01.gat",268,101;
								set lmap$,"hu_fild01.gat";		set lx,268;	set ly,101;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 2:
								warp "hu_fild02.gat",222,193;
								set lmap$,"hu_fild02.gat";		set lx,222;	set ly,193;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 3:
								warp "hu_fild03.gat",232,185;
								set lmap$,"hu_fild03.gat";		set lx,232;	set ly,185;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 4:
								warp "hu_fild04.gat",252,189;
								set lmap$,"hu_fild04.gat";		set lx,252;	set ly,189;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 5:
								warp "hu_fild05.gat",196,106;
								set lmap$,"hu_fild05.gat";		set lx,196;	set ly,106;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 6:
								warp "hu_fild06.gat",216,220;
								set lmap$,"hu_fild06.gat";		set lx,216;	set ly,220;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 7:
								warp "hu_fild07.gat",227,197;
								set lmap$,"hu_fild07.gat";		set lx,227;	set ly,197;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
						}
					case 8:
						set @fwarp,select(@field$[7]);
						set Zeny,Zeny-@fielc;
						switch(@fwarp) {
							case 1:
								warp "lhz_fild01.gat",240,179;
								set lmap$,"lhz_fild01.gat";		set lx,240;	set ly,179;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 2:
								warp "lhz_fild02.gat",185,235;
								set lmap$,"lhz_fild02.gat";		set lx,185;	set ly,235;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 3:
								warp "lhz_fild03.gat",240,226;
								set lmap$,"lhz_fild03.gat";		set lx,240;	set ly,226;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
						}
					case 9:
						set @fwarp,select(@field$[8]);
						set Zeny,Zeny-@fielc;
						switch(@fwarp) {
							case 1:
								warp "lou_fild01.gat",229,187;
								set lmap$,"lou_fild01.gat";		set lx,229;	set ly,187;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
						}
					case 10:
						set @fwarp,select(@field$[9]);
						set Zeny,Zeny-@fielc;
						switch(@fwarp) {
							case 1:
								warp "xmas_fild01.gat",115,145;
								set lmap$,"xmas_fild01.gat";	set lx,115;	set ly,145;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
						}
					case 11:
						set @fwarp,select(@field$[10]);
						set Zeny,Zeny-@fielc;
						switch(@fwarp) {
							case 1:
								warp "mjolnir_01.gat",204,120;
								set lmap$,"mjolnir_01.gat";		set lx,204;	set ly,120;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 2:
								warp "mjolnir_02.gat",175,193;
								set lmap$,"mjolnir_02.gat";		set lx,175;	set ly,193;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 3:
								warp "mjolnir_03.gat",208,213;
								set lmap$,"mjolnir_03.gat";		set lx,208;	set ly,213;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 4:
								warp "mjolnir_04.gat",179,180;
								set lmap$,"mjolnir_04.gat";		set lx,179;	set ly,180;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 5:
								warp "mjolnir_05.gat",181,240;
								set lmap$,"mjolnir_05.gat";		set lx,181;	set ly,240;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 6:
								warp "mjolnir_06.gat",195,270;
								set lmap$,"mjolnir_06.gat";		set lx,195;	set ly,270;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 7:
								warp "mjolnir_07.gat",235,202;
								set lmap$,"mjolnir_07.gat";		set lx,235;	set ly,202;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 8:
								warp "mjolnir_08.gat",188,215;
								set lmap$,"mjolnir_08.gat";		set lx,188;	set ly,215;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 9:
								warp "mjolnir_09.gat",205,144;
								set lmap$,"mjolnir_09.gat";		set lx,205;	set ly,144;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 10:
								warp "mjolnir_10.gat",245,223;
								set lmap$,"mjolnir_10.gat";		set lx,245;	set ly,223;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 11:
								warp "mjolnir_11.gat",180,206;
								set lmap$,"mjolnir_11.gat";		set lx,180;	set ly,206;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 12:
								warp "mjolnir_12.gat",196,208;
								set lmap$,"mjolnir_12.gat";		set lx,196;	set ly,208;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
						}

					case 12:
						set @fwarp,select(@field$[11]);
						set Zeny,Zeny-@fielc;
						switch(@fwarp) {
							case 1:
								warp "mosk_fild01.gat",95,93;
								set lmap$,"mosk_fild01.gat";	set lx,95;	set ly,93;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 2:
								warp "mosk_fild02.gat",204,56;
								set lmap$,"mosk_fild02.gat";	set lx,204;	set ly,56;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
						}
					case 13:
						set @fwarp,select(@field$[12]);
						set Zeny,Zeny-@fielc;
						switch(@fwarp) {
							case 1:
								warp "nameless_n.gat",258,215;
								set lmap$,"nameless_n.gat";		set lx,258;	set ly,215;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
						}
					case 14:
						set @fwarp,select(@field$[13]);
						set Zeny,Zeny-@fielc;
						switch(@fwarp) {
							case 1:
								warp "nif_fild01.gat",215,229;
								set lmap$,"nif_fild01.gat";		set lx,215;	set ly,229;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 2:
								warp "nif_fild02.gat",167,234;
								set lmap$,"nif_fild02.gat";		set lx,167;	set ly,234;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
						}
					case 15:
						set @fwarp,select(@field$[14]);
						set Zeny,Zeny-@fielc;
						switch(@fwarp) {
							case 1:
								warp "odin_tem01.gat",298,167;
								set lmap$,"odin_tem01.gat";		set lx,298;	set ly,167;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 2:
								warp "odin_tem02.gat",224,149;
								set lmap$,"odin_tem02.gat";		set lx,224;	set ly,149;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 3:
								warp "odin_tem03.gat",266,280;
								set lmap$,"odin_tem03.gat";		set lx,266;	set ly,280;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
						}
					case 16:
						set @fwarp,select(@field$[15]);
						set Zeny,Zeny-@fielc;
						switch(@fwarp) {
							case 1:
								warp "pay_fild01.gat",158,206;
								set lmap$,"pay_fild01.gat";		set lx,158;	set ly,206;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 2:
								warp "pay_fild02.gat",151,219;
								set lmap$,"pay_fild02.gat";		set lx,151;	set ly,219;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 3:
								warp "pay_fild03.gat",205,148;
								set lmap$,"pay_fild03.gat";		set lx,205;	set ly,148;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 4:
								warp "pay_fild04.gat",186,247;
								set lmap$,"pay_fild04.gat";		set lx,186;	set ly,247;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 5:
								warp "pay_fild05.gat",134,204;
								set lmap$,"pay_fild05.gat";		set lx,134;	set ly,204;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 6:
								warp "pay_fild06.gat",193,235;
								set lmap$,"pay_fild06.gat";		set lx,193;	set ly,235;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 7:
								warp "pay_fild07.gat",200,177;
								set lmap$,"pay_fild07.gat";		set lx,200;	set ly,177;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 8:
								warp "pay_fild08.gat",137,189;
								set lmap$,"pay_fild08.gat";		set lx,137;	set ly,189;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 9:
								warp "pay_fild09.gat",201,224;
								set lmap$,"pay_fild09.gat";		set lx,201;	set ly,224;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 10:
								warp "pay_fild10.gat",160,205;
								set lmap$,"pay_fild10.gat";		set lx,160;	set ly,205;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 11:
								warp "pay_fild11.gat",194,150;
								set lmap$,"pay_fild11.gat";		set lx,194;	set ly,150;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
						}
					case 17:
						set @fwarp,select(@field$[16]);
						set Zeny,Zeny-@fielc;
						switch(@fwarp) {
							case 1:
								warp "prt_fild00.gat",184,235;
								set lmap$,"prt_fild00.gat";		set lx,184;	set ly,235;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 2:
								warp "prt_fild01.gat",190,206;
								set lmap$,"prt_fild01.gat";		set lx,190;	set ly,206;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 3:
								warp "prt_fild02.gat",240,206;
								set lmap$,"prt_fild02.gat";		set lx,240;	set ly,206;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 4:
								warp "prt_fild03.gat",190,143;
								set lmap$,"prt_fild03.gat";		set lx,190;	set ly,143;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 5:
								warp "prt_fild04.gat",307,252;
								set lmap$,"prt_fild04.gat";		set lx,307;	set ly,252;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 6:
								warp "prt_fild05.gat",239,213;
								set lmap$,"prt_fild05.gat";		set lx,239;	set ly,213;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 7:
								warp "prt_fild06.gat",185,188;
								set lmap$,"prt_fild06.gat";		set lx,185;	set ly,188;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 8:
								warp "prt_fild07.gat",193,194;
								set lmap$,"prt_fild07.gat";		set lx,193;	set ly,194;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 9:
								warp "prt_fild08.gat",187,218;
								set lmap$,"prt_fild08.gat";		set lx,187;	set ly,218;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 10:
								warp "prt_fild09.gat",210,183;
								set lmap$,"prt_fild09.gat";		set lx,210;	set ly,183;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 11:
								warp "prt_fild10.gat",195,149;
								set lmap$,"prt_fild10.gat";		set lx,195;	set ly,149;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 12:
								warp "prt_fild11.gat",198,164;
								set lmap$,"prt_fild11.gat";		set lx,198;	set ly,164;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
						}
					case 18:
						set @fwarp,select(@field$[17]);
						set Zeny,Zeny-@fielc;
						switch(@fwarp) {
							case 1:
								warp "ra_fild01.gat",192,162;
								set lmap$,"ra_fild01.gat";		set lx,192;	set ly,162;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 2:
								warp "ra_fild02.gat",235,166;
								set lmap$,"ra_fild02.gat";		set lx,235;	set ly,166;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 3:
								warp "ra_fild03.gat",202,206;
								set lmap$,"ra_fild03.gat";		set lx,202;	set ly,206;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 4:
								warp "ra_fild04.gat",202,208;
								set lmap$,"ra_fild04.gat";		set lx,202;	set ly,208;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 5:
								warp "ra_fild05.gat",225,202;
								set lmap$,"ra_fild05.gat";		set lx,225;	set ly,202;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 6:
								warp "ra_fild06.gat",202,214;
								set lmap$,"ra_fild06.gat";		set lx,202;	set ly,214;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 7:
								warp "ra_fild07.gat",263,196;
								set lmap$,"ra_fild07.gat";		set lx,263;	set ly,196;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 8:
								warp "ra_fild08.gat",217,201;
								set lmap$,"ra_fild08.gat";		set lx,217;	set ly,201;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 9:
								warp "ra_fild09.gat",87,121;
								set lmap$,"ra_fild09.gat";		set lx,87;	set ly,121;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 10:
								warp "ra_fild10.gat",277,181;
								set lmap$,"ra_fild10.gat";		set lx,277;	set ly,181;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 11:
								warp "ra_fild11.gat",221,185;
								set lmap$,"ra_fild11.gat";		set lx,221;	set ly,185;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 12:
								warp "ra_fild12.gat",175,200;
								set lmap$,"ra_fild12.gat";		set lx,175;	set ly,200;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 13:
								warp "ra_fild13.gat",174,197;
								set lmap$,"ra_fild13.gat";		set lx,174;	set ly,197;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
						}
					case 19:
						set @fwarp,select(@field$[18]);
						set Zeny,Zeny-@fielc;
						switch(@fwarp) {
							case 1:
								warp "moc_fild01.gat",219,205;
								set lmap$,"moc_fild01.gat";		set lx,219;	set ly,205;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 2:
								warp "moc_fild02.gat",177,206;
								set lmap$,"moc_fild02.gat";		set lx,177;	set ly,206;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 3:
								warp "moc_fild03.gat",194,182;
								set lmap$,"moc_fild03.gat";		set lx,194;	set ly,182;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 4:
								warp "moc_fild04.gat",184,217;
								set lmap$,"moc_fild04.gat";		set lx,184;	set ly,217;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 5:
								warp "moc_fild05.gat",203,213;
								set lmap$,"moc_fild05.gat";		set lx,203;	set ly,213;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 6:
								warp "moc_fild06.gat",213,208;
								set lmap$,"moc_fild06.gat";		set lx,213;	set ly,208;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 7:
								warp "moc_fild07.gat",224,170;
								set lmap$,"moc_fild07.gat";		set lx,224;	set ly,170;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 8:
								warp "moc_fild08.gat",229,177;
								set lmap$,"moc_fild08.gat";		set lx,229;	set ly,177;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 9:
								warp "moc_fild09.gat",195,198;
								set lmap$,"moc_fild09.gat";		set lx,195;	set ly,198;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 10:
								warp "moc_fild10.gat",209,168;
								set lmap$,"moc_fild10.gat";		set lx,209;	set ly,168;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 11:
								warp "moc_fild11.gat",198,216;
								set lmap$,"moc_fild11.gat";		set lx,198;	set ly,216;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 12:
								warp "moc_fild12.gat",156,187;
								set lmap$,"moc_fild12.gat";		set lx,156;	set ly,187;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 13:
								warp "moc_fild13.gat",185,263;
								set lmap$,"moc_fild13.gat";		set lx,185;	set ly,263;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 14:
								warp "moc_fild14.gat",209,219;
								set lmap$,"moc_fild14.gat";		set lx,209;	set ly,219;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 15:
								warp "moc_fild15.gat",223,188;
								set lmap$,"moc_fild15.gat";		set lx,223;	set ly,188;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 16:
								warp "moc_fild16.gat",206,228;
								set lmap$,"moc_fild16.gat";		set lx,206;	set ly,228;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 17:
								warp "moc_fild17.gat",208,238;
								set lmap$,"moc_fild17.gat";		set lx,208;	set ly,238;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 18:
								warp "moc_fild18.gat",209,223;
								set lmap$,"moc_fild18.gat";		set lx,209;	set ly,223;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 19:
								warp "moc_fild19.gat",85,97;
								set lmap$,"moc_fild19.gat";		set lx,85;	set ly,97;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
						}
					case 20:
						set @fwarp,select(@field$[19]);
						set Zeny,Zeny-@fielc;
						switch(@fwarp) {
							case 1:
								warp "um_fild01.gat",217,206;
								set lmap$,"um_fild01.gat";		set lx,217;	set ly,206;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 2:
								warp "um_fild02.gat",223,221;
								set lmap$,"um_fild02.gat";		set lx,223;	set ly,221;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 3:
								warp "um_fild03.gat",237,215;
								set lmap$,"um_fild03.gat";		set lx,237;	set ly,215;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 4:
								warp "um_fild04.gat",202,197;
								set lmap$,"um_fild04.gat";		set lx,202;	set ly,197;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
						}
					case 21:
						set @fwarp,select(@field$[20]);
						set Zeny,Zeny-@fielc;
						switch(@fwarp) {
							case 1:
								warp "ve_fild01",186,175;
								set lmap$,"ve_fild01";			set lx,186;	set ly,175;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 2:
								warp "ve_fild02",196,370;
								set lmap$,"ve_fild02";			set lx,196;	set ly,370;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 3:
								warp "ve_fild03",222,45;
								set lmap$,"ve_fild03";			set lx,222;	set ly,45;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 4:
								warp "ve_fild04",51,250;
								set lmap$,"ve_fild04";			set lx,51;	set ly,250;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 5:
								warp "ve_fild05",202,324;
								set lmap$,"ve_fild05";			set lx,202;	set ly,324;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 6:
								warp "ve_fild06",150,223;
								set lmap$,"ve_fild06";			set lx,150;	set ly,223;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 7:
								warp "ve_fild07",149,307;
								set lmap$,"ve_fild07";			set lx,149;	set ly,307;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
						}
					case 22:
						set @fwarp,select(@field$[21]);
						set Zeny,Zeny-@fielc;
						switch(@fwarp) {
							case 1:
								warp "yuno_fild01.gat",189,224;
								set lmap$,"yuno_fild01.gat";	set lx,189;	set ly,224;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 2:
								warp "yuno_fild02.gat",192,207;
								set lmap$,"yuno_fild02.gat";	set lx,192;	set ly,207;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 3:
								warp "yuno_fild03.gat",221,157;
								set lmap$,"yuno_fild03.gat";	set lx,221;	set ly,157;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 4:
								warp "yuno_fild04.gat",226,199;
								set lmap$,"yuno_fild04.gat";	set lx,226;	set ly,199;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 5:
								warp "yuno_fild05.gat",223,177;
								set lmap$,"yuno_fild05.gat";	set lx,223;	set ly,177;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 6:
								warp "yuno_fild06.gat",187,232;
								set lmap$,"yuno_fild06.gat";	set lx,187;	set ly,232;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 7:
								warp "yuno_fild07.gat",231,174;
								set lmap$,"yuno_fild07.gat";	set lx,231;	set ly,174;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 8:
								warp "yuno_fild08.gat",196,203;
								set lmap$,"yuno_fild08.gat";	set lx,196;	set ly,203;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 9:
								warp "yuno_fild09.gat",183,214;
								set lmap$,"yuno_fild09.gat";	set lx,183;	set ly,214;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 10:
								warp "yuno_fild10.gat",200,124;
								set lmap$,"yuno_fild10.gat";	set lx,200;	set ly,124;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 11:
								warp "yuno_fild11.gat",195,226;
								set lmap$,"yuno_fild11.gat";	set lx,195;	set ly,226;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
							case 12:
								warp "yuno_fild12.gat",210,304;
								set lmap$,"yuno_fild12.gat";	set lx,210;	set ly,304;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
								end;
						}
				}

			case 4:
				if($woeon) {
					if(!$gwrp) {
						mes @n$;
						if($payfor) {
							if(@castc>Zeny) {
								mes @pay$[0];
								close;
							}
						}
						mes @warp$[7];
						switch(select(@men$[4])) {
							case 1:
								set @cwarp,select(@cas$[0]);
								set Zeny,Zeny-@castc;
								switch(@cwarp) {
									case 1:
										warp "alde_gld.gat",95,244;	end;
									case 2:
										warp "alde_gld.gat",48,87;	end;
									case 3:
										warp "alde_gld.gat",142,87;	end;
									case 4:
										warp "alde_gld.gat",271,90;	end;
									case 5:
										warp "alde_gld.gat",235,242;	end;
								}
							case 2:
								set @cwarp,select(@cas$[1]);
								set Zeny,Zeny-@castc;
								switch(@cwarp) {
									case 1:
										warp "gef_fild13.gat",188,273;	end;
									case 2:
										warp "gef_fild13.gat",297,239;	end;
									case 3:
										warp "gef_fild13.gat",309,88;	end;
									case 4:
										warp "gef_fild13.gat",216,75;	end;
									case 5:
										warp "gef_fild13.gat",77,296;	end;
								}
							case 3:
								set @cwarp,select(@cas$[2]);
								set Zeny,Zeny-@castc;
								switch(@cwarp) {
									case 1:
										warp "pay_gld.gat",187,269;	end;
									case 2:
										warp "pay_gld.gat",121,229;	end;
									case 3:
										warp "pay_gld.gat",314,294;	end;
									case 4:
										warp "pay_gld.gat",139,163;	end;
									case 5:
										warp "pay_gld.gat",298,117;	end;	
								}
							case 4:
								set @cwarp,select(@cas$[3]);
								set Zeny,Zeny-@castc;
								switch(@cwarp) {
									case 1:
										warp "prt_gld.gat",152,130;	end;
									case 2:
										warp "prt_gld.gat",194,240;	end;
									case 3:
										warp "prt_gld.gat",140,64;	end;
									case 4:
										warp "prt_gld.gat",124,240;	end;
									case 5:
										warp "prt_gld.gat",240,132;	end;
								}
						}
					}
				}

				mes @n$;
				if($payfor) {
					if(@gdunc>Zeny) {
						mes @pay$[0];
						close;
					}
				}
				mes @warp$[5];
				set @gdwarp,select(@men$[2]);
				set Zeny,Zeny-@gdunc;
				switch(@gdwarp) {
					case 1:
						warp "gld_dun01.gat",119,93;	end;
					case 2:
						warp "gld_dun02.gat",39,161;	end;
					case 3:
						warp "gld_dun03.gat",50,44;	end;
					case 4:
						warp "gld_dun04.gat",116,45;	end; 
				}

			case 5:
				mes @n$;
				if($payfor) {
					if(@castc>Zeny) {
						mes @pay$[0];
						close;
					}
				}
				mes @warp$[7];
				switch(select(@men$[4])) {
					case 1:
						set @cwarp,select(@cas$[0]);
						set Zeny,Zeny-@castc;
						switch(@cwarp) {
							case 1:
								warp "alde_gld.gat",95,244;	end;
							case 2:
								warp "alde_gld.gat",48,87;	end;
							case 3:
								warp "alde_gld.gat",142,87;	end;
							case 4:
								warp "alde_gld.gat",271,90;	end;
							case 5:
								warp "alde_gld.gat",235,242;	end;
						}
					case 2:
						set @cwarp,select(@cas$[1]);
						set Zeny,Zeny-@castc;
						switch(@cwarp) {
							case 1:
								warp "gef_fild13.gat",188,273;	end;
							case 2:
								warp "gef_fild13.gat",297,239;	end;
							case 3:
								warp "gef_fild13.gat",309,88;	end;
							case 4:
								warp "gef_fild13.gat",216,75;	end;
							case 5:
								warp "gef_fild13.gat",77,296;	end;
						}
					case 3:
						set @cwarp,select(@cas$[2]);
						set Zeny,Zeny-@castc;
						switch(@cwarp) {
							case 1:
								warp "pay_gld.gat",187,269;	end;
							case 2:
								warp "pay_gld.gat",121,229;	end;
							case 3:
								warp "pay_gld.gat",314,294;	end;
							case 4:
								warp "pay_gld.gat",139,163;	end;
							case 5:
								warp "pay_gld.gat",298,117;	end;	
						}
					case 4:
						set @cwarp,select(@cas$[3]);
						set Zeny,Zeny-@castc;
						switch(@cwarp) {
							case 1:
								warp "prt_gld.gat",152,130;	end;
							case 2:
								warp "prt_gld.gat",194,240;	end;
							case 3:
								warp "prt_gld.gat",140,64;	end;
							case 4:
								warp "prt_gld.gat",124,240;	end;
							case 5:
								warp "prt_gld.gat",240,132;	end;
						}
				}
			case 6:
				mes @n$;
					if(lx || ly) {
						mes @warp$[18];
						switch(select(@warp$[19])) {
							case 1:
								if($payfor) {
									if(@plastwarp>Zeny) {
										mes @pay$[0];
										close;
									}
								}
								set Zeny,Zeny-@plastwarp;
								warp lmap$,lx,ly;	end;
							case 2:
								close;
						}
					}else{
						mes @warp$[20];
						close;
					}
		}
	
}

//-------------------------------
//       Duplicate NPCs
//-------------------------------

alberta.gat,28,240,5	duplicate(Warper)	Warp NPC#01	859
alb2trea.gat,73,101,4	duplicate(Warper)	Warp NPC#02	859
aldebaran.gat,145,118,4	duplicate(Warper)	Warp NPC#03	859
amatsu.gat,200,79,1	duplicate(Warper)	Warp NPC#04	859
ayothaya.gat,143,162,4	duplicate(Warper)	Warp NPC#05	859
comodo.gat,194,158,4	duplicate(Warper)	Warp NPC#06	859
einbech.gat,142,246,4	duplicate(Warper)	Warp NPC#07	859
einbroch.gat,69,202,4	duplicate(Warper)	Warp NPC#08	859
gef_fild10.gat,71,340,5	duplicate(Warper)	Warp NPC#09	859
geffen.gat,115,70,6	duplicate(Warper)	Warp NPC#10	859
glast_01.gat,370,308,4	duplicate(Warper)	Warp NPC#11	859
gonryun.gat,151,130,4	duplicate(Warper)	Warp NPC#12	859
hugel.gat,90,159,4	duplicate(Warper)	Warp NPC#13	859
izlude.gat,131,121,5	duplicate(Warper)	Warp NPC#14	859
izlu2dun.gat,104,96,5	duplicate(Warper)	Warp NPC#15	859
lighthalzen.gat,154,105,5	duplicate(Warper)	Warp NPC#16	859
louyang.gat,207,104,5	duplicate(Warper)	Warp NPC#17	859
mjolnir_02.gat,85,363,4	duplicate(Warper)	Warp NPC#18	859
moc_fild04.gat,207,331,4	duplicate(Warper)	Warp NPC#19	859
moc_ruins.gat,64,164,5	duplicate(Warper)	Warp NPC#20	859
moc_fild19.gat,106,97,4	duplicate(Warper)	Warp NPC#21	859
morocc.gat,154,97,4	duplicate(Warper)	Warp NPC#22	859
pay_arche.gat,55,125,2	duplicate(Warper)	Warp NPC#23	859
payon.gat,182,110,4	duplicate(Warper)	Warp NPC#24	859
prt_fild05.gat,290,218,3	duplicate(Warper)	Warp NPC#25	859
rachel.gat,129,146,5	duplicate(Warper)	Warp NPC#26	859
tur_dun01.gat,148,239,4	duplicate(Warper)	Warp NPC#27	859
umbala.gat,132,130,4	duplicate(Warper)	Warp NPC#28	859
yuno.gat,144,187,4	duplicate(Warper)	Warp NPC#29	859
yuno_fild03.gat,37,135,4	duplicate(Warper)	Warp NPC#30	859
xmas.gat,150,136,4	duplicate(Warper)	Warp NPC#31	859
jawaii.gat,203,242,4	duplicate(Warper)	Warp NPC#32	859
moscovia.gat,170,67,2	duplicate(Warper)	Warp NPC#33	859
nameless_i.gat,232,218,4	duplicate(Warper)	Warp NPC#34	859
niflheim.gat,204,179,3	duplicate(Warper)	Warp NPC#35	859
thor_camp.gat,249,78,3	duplicate(Warper)	Warp NPC#36	859
veins.gat,208,125,5	duplicate(Warper)	Warp NPC#37	859
prt_fild01.gat,133,364,4	duplicate(Warper)	Warp NPC#38	859