viewing paste Multiwarper v1.5 | Athena

Posted on the
Copied to clipboard 
  1. //=======================================================//
  2. //==by:==================================================//
  3. //=                   ________                          =//
  4. //=                  /_______/\                         =//
  5. //=                  \       \ \                        =//
  6. //=               ___ \    ___\/    ___                 =//
  7. //=              /__/\ \   \ \     /__/\                =//
  8. //=              \__\/  \   \ \____\__\/                =//
  9. //=                      \   \/___/\                    =//
  10. //=                       \       \ \                   =//
  11. //=                        \_______\/                   =//
  12. //=                                                     =//
  13. //=======================================================//
  14. //====== eAthena Script =================================//
  15. //=  Super Warper NPC                                   =//
  16. //====== Description:====================================//
  17. //=  This is a multilang-warper including               =//
  18. //=  all new maps and towns                             =//
  19. //=======================================================//
  20. //=======================================================//
  21.  
  22. prontera.gat,153,187,5	script	Warper	859,{
  23.  
  24. set @n$, "[Warp NPC]";
  25. set @lang,#lang;
  26.  
  27. //================= Pay menue =================\\
  28. // Set any amount you want the players have to \\
  29. // pay for.                                    \\
  30.  
  31. if($payfor) {
  32. 	set @townc,10000;	//Town
  33. 	set @fielc,20000;	//Field
  34. 	set @dunc,30000;	//Dungeon
  35. 	set @gdunc,80000;	//Guild Dungeon
  36. 	set @castc,100000;	//Castle
  37. 		if(ltownw) {
  38. 		set @plastwarp,@townc/10;
  39. 		}
  40. 		if(ldunw) {
  41. 		set @plastwarp,@dunc/10;
  42. 		}
  43. 		if(lfieldw) {
  44. 		set @plastwarp,@fielc/10;
  45. 		}
  46. 	} else {
  47. // clears the buffer
  48. 	set @townc,0;		//Town
  49. 	set @fielc,0;		//Field
  50. 	set @dunc,0;		//Dungeon
  51. 	set @gdunc,0;		//Guild Dungeon
  52. 	set @castc,0;		//Castle
  53. 	set @plastwarp,0;	//Last Warp
  54. }
  55.  
  56. if(getgmlevel() >= 80) {
  57.  
  58. 	switch(@lang) {
  59. 		case 1:
  60. 							//======== English ========\\
  61. 			setarray @pay$[0],		"Enable the pay-option?",
  62. 							"Enable:Disable",
  63. 							"Pay-Option: Enabled",
  64. 							"Pay-Option: Disabled",
  65. 							"You have to select an option",
  66. 							"GM-Menu:NPC",
  67. 							"[GM-Menu]",
  68. 							"Option is already on.",
  69. 							"Option is already off.",
  70. 							"Please choose an option.",
  71. 							"Paymenu:WoE-Warpmenu:Guild Dungeon-Menu";
  72.  
  73. 			setarray @woewarp$[0],	"Enable Woe-Warps?",
  74. 							"Woe-Warps: Enabled",
  75. 							"Woe-Warps: Disabled",
  76. 							"Woe-Warps:Permanent Castle-Warp",
  77. 							"Enable permanent Castle-Warp?",
  78. 							"Perm-Warp: Enabled",
  79. 							"Perm-Warp: Disabled";
  80.  
  81. 			setarray @gwarp$[0],		"Enable Guild Dungeon-Warps?",
  82. 							"Guild Dungeon-Warps: Enabled",
  83. 							"Guild Dungeon-Warps: Disabled";
  84. 			break;
  85.  
  86. 		case 2:
  87. 							//======== German ========\\
  88. 			setarray @pay$[0],		"Zahl-Option anschalten?",
  89. 							"An:Aus",
  90. 							"Zahl-Option: An",
  91. 							"Zahl-Option: Aus",
  92. 							"Du musst eine Option ausw‰hlen.",
  93. 							"GM-Men¸:NPC",
  94. 							"[GM-Men¸]",
  95. 							"Option ist bereits an.",
  96. 							"Option ist bereits aus.",
  97. 							"Bitte eine Option w‰hlen.",
  98. 							"Zahlmen¸:WoE-Warpmen¸:Guild Dungeon-Men¸";
  99.  
  100. 			setarray @woewarp$[0],	"Woe-Warps anschalten?",
  101. 							"Woe-Warps: An",
  102. 							"Woe-Warps: Aus",
  103. 							"WoE-Warps:Permanenter Schlˆsser-Warp",
  104. 							"Permanenter Schlˆsser-Warp an?",
  105. 							"Perm-Warp: An",
  106. 							"Perm-Warp: Aus";
  107.  
  108. 			setarray @gwarp$[0],		"Guild Dungeon-Warps anschalten?",
  109. 							"Guild Dungeon-Warps: An",
  110. 							"Guild Dungeon-Warps: Aus";
  111. 			break;
  112. 	}
  113.  
  114. set @m, select(@pay$[5]);
  115. 	mes @pay$[6];
  116. 	while(1) {
  117. 		if(@m == 2)
  118. 		break;
  119. 	mes @pay$[9];
  120. 	switch (prompt(@pay$[10])) {
  121. 		case 1:
  122. 			mes @pay$[0];
  123. 			switch(prompt(@pay$[1])) {
  124. 				case 1:
  125. 					if($payfor) {
  126. 						mes @pay$[7];
  127. 						close;
  128. 					}
  129. 					mes @pay$[2];
  130. 					set $payfor,1;
  131. 					close;
  132. 				case 2:
  133. 					if(!$payfor) {
  134. 						mes @pay$[8];
  135. 						close;
  136. 					}
  137. 					mes @pay$[3];
  138. 					set $payfor,0;
  139. 					close;
  140. 				case 255:
  141. 					mes @pay$[6];
  142. 					mes @pay$[4];
  143. 					break;
  144. 			}
  145.  
  146. 		case 2:
  147. 			mes @woewarp$[0];
  148. 			switch(prompt(@woewarp$[3])) {
  149. 				case 1:
  150. 					switch(prompt(@pay$[1])) {
  151. 						case 1:
  152. 							if($caswrp) {
  153. 								mes @pay$[7];
  154. 								close;
  155. 							}
  156. 							if($woeon) {
  157. 								mes @pay$[7];
  158. 								close;
  159. 							}
  160. 							mes @woewarp$[1];
  161. 							set $woeon,1;
  162. 							mes @woewarp$[0];
  163. 							close;
  164. 						case 2:
  165. 							if(!$woeon) {
  166. 								mes @pay$[8];
  167. 								close;
  168. 							}	
  169. 							mes @woewarp$[2];
  170. 							set $woeon,0;
  171. 								close;
  172. 						case 255:
  173. 							mes @pay$[6];
  174. 							mes @pay$[4];
  175. 							break;
  176. 					}
  177. 				case 2:
  178. 					mes @woewarp$[4];
  179. 					switch(prompt(@pay$[1])) {
  180. 						case 1:
  181. 							if($caswrp) {
  182. 								mes @pay$[7];
  183. 								close;
  184. 							}
  185. 							mes @woewarp$[5];
  186. 							set $caswrp,1;
  187. 							close;
  188. 						case 2:
  189. 							if(!$caswrp) {
  190. 								mes @pay$[8];
  191. 								close;
  192. 							}
  193. 							mes @woewarp$[6];
  194. 							set $caswrp,0;
  195. 							close;
  196. 						case 255:
  197. 							mes @pay$[6];
  198. 							mes @pay$[4];
  199. 							break;
  200. 					}
  201.  
  202.  
  203. 			}
  204.  
  205. 		case 3:
  206. 			mes @gwarp$[0];
  207. 			switch(prompt(@pay$[1])) {
  208. 				case 1:
  209. 					if($gwrp) {
  210. 						mes @pay$[7];
  211. 						close;
  212. 					}
  213. 					mes @gwarp$[1];
  214. 					set $gwrp,1;
  215. 					close;
  216. 				case 2:
  217. 					if(!$gwrp) {
  218. 						mes @pay$[8];
  219. 						close;
  220. 					}
  221. 					mes @gwarp$[2];
  222. 					set $gwrp,0;
  223. 					close;
  224. 				case 255:
  225. 					mes @pay$[6];
  226. 					mes @pay$[4];
  227. 					break;
  228. 			}
  229. 	}
  230. 	}
  231. }
  232.  
  233. //======== Main Script ========\\
  234.  
  235. 	switch(@lang) {
  236.  
  237. 		case 1:
  238. 						//======== English ========\\
  239. 			setarray @warp$[0],	"Hi!, I can warp you to any Town, Field, or Dungeon you would like to go to.",
  240. 						"Where would you like to be warped to?",
  241. 						"Towns:Dungeons:Fields:Last Warp",
  242. 						"Please select a Town.",
  243. 						"Please select a Level. Beware that you will be warped directly into the dungeon.",
  244. 						"Please select a Guild Dungeon. Beware that you will be warped directly into the dungeon.",
  245. 						"Please select a Field. You will be warped to the center of that map.",
  246. 						"Please select a Castle. You will be warped in front of the Castle.",
  247. 						"This Service costs:",
  248. 						"Town: "+@townc+"z",
  249. 						"Field: "+@fielc+"z",
  250. 						"Dungeon: "+@dunc+"z",
  251. 						"Guild-Dungeon: "+@gdunc+"z",
  252. 						"Castle: "+@castc+"z",
  253. 						"Last Warp:",
  254. 						"Town:       "+@townc/10+"z",
  255. 						"Dungeon:    "+@dunc/10+"z",
  256. 						"Field:      "+@fielc/10+"z",
  257. 						"Would you like to be warped to your last warppoint?",
  258. 						"Yes:No",
  259. 						"You dont have a 'Last Warp'.";
  260.  
  261. 				if($gwrp) {
  262. 					setarray @warp$[2],	"Towns:Dungeons:Fields:Guild-Dungeons:Last Warp";
  263. 					setarray @warp$[12],	"Guild-Dungeon: "+@gdunc+"z";
  264. 				}
  265. 				if(!$caswrp) {
  266. 					if($woeon) {
  267. 						setarray @warp$[13], "Castle: "+@castc+"z";
  268. 						if(agitcheck()) {
  269. 							if($gwrp) {
  270. 								setarray @warp$[2],	"Towns:Dungeons:Fields:Guild Dungeons:Guild-Castles:Last Warp";
  271. 							}
  272. 							setarray @warp$[2],	"Towns:Dungeons:Fields:Guild-Castles:Last Warp";
  273. 						}
  274. 					}
  275. 				} else {
  276. 				setarray @warp$[13], "Castle: "+@castc+"z";
  277. 					if($gwrp) {
  278. 						setarray @warp$[2],	"Towns:Dungeons:Fields:Guild Dungeons:Guild-Castles:Last Warp";
  279. 					} else { 
  280. 					setarray @warp$[2],	"Towns:Dungeons:Fields:Guild-Castles:Last Warp";
  281. 					}
  282. 				}
  283.  
  284. 			setarray @pay$[0],	"You don't have enough Zeny to use the Warp.";
  285.  
  286. 			break;
  287.  
  288. 		case 2:
  289. 						//======== German ========\\
  290. 			setarray @warp$[0],	"Hallo, ich kann dich in jede Stadt, jedes Feld, oder jeden Dungeon warpen, wenn du willst.",
  291. 						"Wohin soll die Reise gehen?",
  292. 						"St‰dte:Dungeons:Felder:Last Warp",
  293. 						"Bitte w‰hle eine Stadt.",
  294. 						"Bitte w‰hle einen Dungeon und eine Ebene. Du wirst direkt in den Dungeon gewarpt, vergiss das nicht.",
  295. 						"Bitte w‰hle einen Gilden Dungeon.  Du wirst direkt in den Dungeon gewarpt, vergiss das nicht.",
  296. 						"Bitte w‰hle ein Feld. Du wirst auf die Mitte der Map teleportiert.",
  297. 						"Bitte w‰hle ein Schloss. Du wirst direkt vor das Schloss teleportiert.",
  298. 						"Dieser Service kostet dich:",
  299. 						"Stadt: "+@townc+"z",
  300. 						"Feld: "+@fielc+"z",
  301. 						"Dungeon: "+@dunc+"z",
  302. 						"Gilden-Dungeon: "+@gdunc+"z",
  303. 						"Schloss: "+@castc+"z",
  304. 						"Last Warp:",
  305. 						"Stadt:      "+@townc/10+"z",
  306. 						"Dungeon:    "+@dunc/10+"z",
  307. 						"Feld:       "+@fielc/10+"z",
  308. 						"Willst du zu deinem letzten Warppunkt zur¸ckkehren?",
  309. 						"Ja:Nein",
  310. 						"Du hast keinen 'Last Warp'.";
  311. 				if(!$caswrp) {
  312. 					if($woeon) {
  313. 						if(agitcheck()) {
  314. 							if($gwrp) {
  315. 								setarray @warp$[2],	"St‰dte:Dungeons:Felder:Gilden-Dungeons:Gilden-Schlˆsser:Last Warp";
  316. 							}
  317. 							setarray @warp$[2],	"St‰dte:Dungeons:Felder:Gilden-Schlˆsser:Last Warp";
  318. 						}
  319. 					}
  320. 				} else {
  321. 					if($gwrp) {
  322. 						setarray @warp$[2],	"St‰dte:Dungeons:Felder:Gilden-Dungeons:Gilden-Schlˆsser:Last Warp";
  323. 					} else {
  324. 					setarray @warp$[2],	"St‰dte:Dungeons:Felder:Gilden-Schlˆsser:Last Warp";
  325. 					}
  326. 				}
  327.  
  328. 			setarray @pay$[0],	"Du hast nicht genug Zeny, um diesen Service zu nutzen.";
  329.  
  330. 			break;
  331.  
  332. 	}
  333.  
  334. 			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",
  335. 						"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",
  336. 						"Baldur Guild Dungeon:Luina Guild Dungeon:Valkyrie Guild Dungeon:Britoniah Guild Dungeon",
  337. 						"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",
  338. 						"Al De Baran:Geffen:Payon:Prontera";
  339.  
  340. 						//======== Dungons ========\\
  341. 			setarray @dun$[0],	"Level 1:Level 2",
  342. 						"Level 1:Level 2:Level 3",
  343. 						"Level 1:Level 2:Level 3:Level 4",
  344. 						"Level 1:Level 2:Level 3:Level 4:Level 5",
  345. 						"Level 1:Level 2:Level 3:Level 4:Basement 1:Basement 2",
  346. 						"Level 1:Level 2:Level 3:Level 4:Basement 1:Basement 2:Basement 3:Basement 4",
  347. 						"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",
  348. 						"Level 1:Level 2:Core",
  349. 						"Ancient Shrine Maze:Inside Ancient Shrine",
  350. 						"The Royal Tomb:Inside the Royal Tomb:Suei Long Gon",
  351. 						"Level 1:Level 2:Level 3:Level 4:Level 5:Level 6:Level 7:Level 8:Level 9:Level 10:Level 11:Level 12",
  352. 						"Carpenter's Shop in the Tree:Passage to a foreign World:Hvergermil's Fountain",
  353. 						"Catacomb 1:Catacomb 2:Stage 1:Stage 2:Stage 3:Stage 4:Stage 5:Final Stage";
  354.  
  355. 						//======== Fields ========\\
  356. 			setarray @field$[0],	"Amatsu Field",
  357. 						"Ayothaya Field 1:Ayothaya Field 2",
  358. 						"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",
  359. 						"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",
  360. 						"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",
  361. 						"Gonryun Field",
  362. 						"Hugel Field 1:Hugel Field 2:Hugel Field 3:Hugel Field 4:Hugel Field 5:Hugel Field 6:Hugel Field 7", 
  363. 						"Lighthalzen Field 1:Lighthalzen Field 2:Lighthalzen Field 3",
  364. 						"Louyang Field",
  365. 						"Lutie Field",
  366. 						"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",
  367. 						"Moscovia Field 1:Moscovia Field 2",
  368. 						"Nameless Field",
  369. 						"Niflheim Field 1:Niflheim Field 2",
  370. 						"Odin Temple 1:Odin Temple 2:Odin Temple 3",
  371. 						"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",
  372. 						"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",
  373. 						"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",
  374. 						"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",
  375. 						"Umbala Field 1:Umbala Field 2:Umbala Field 3:Umbala Field 4",
  376. 						"Veins Field 1:Veins Field 2:Veins Field 3:Veins Field 4:Veins Field 5:Veins Field 6:Veins Field 7",
  377. 						"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";
  378.  
  379. 						//======== iRO Castle names ========\\
  380. 			setarray @cas$[0],	"Hohenschwangau:Neuschwanstein:Nuernberg:Rothenburg:Wuerzburg",
  381. 						"Bergel:Eeyolbriggar:Mersetzdeitz:Repherion:Yesnelph",
  382. 						"Bamboo Grove Hill:Bright Arbor:Holy Shadow:Sacred Altar:Scarlet Palace",
  383. 						"Fadhgridh:Gondul:Kriemhild:Skoegul:Swanhild";
  384.  
  385. 						//======== kRO Castle names ========\\
  386. 			//setarray @cas$[0],	"Hohensyubangawoo:Noisyubantian:Nyirenverk:Rotenburk:Byirtsburi",
  387. 			//			"Berigel:Yolbriger:Melsedetsu:Reprion:Isinlife",
  388. 			//			"Zhulinxian:Mingting:Fuying:Tiantan:Honglou",
  389. 			//			"Lazrigees:Guindull:Creamhilt:Squagul:Sbanhealt";
  390.  
  391. 	mes @n$;
  392. 	mes @warp$[0];
  393. 	next;
  394. 	if($payfor) {
  395. 		mes @n$;
  396. 		mes @warp$[8];
  397. 		mes @warp$[9];
  398. 		mes @warp$[10];
  399. 		mes @warp$[11];
  400. 			if($gwrp) {
  401. 				mes @warp$[12];
  402. 			}
  403. 			if(!$caswrp) {
  404. 				if($woeon) {
  405. 					mes @warp$[13];
  406. 				}
  407. 			} else {
  408. 			mes @warp$[13];
  409. 			}
  410. 		mes @warp$[14];
  411. 		mes @warp$[15];
  412. 		mes @warp$[16];
  413. 		mes @warp$[17];
  414. 		next;
  415. 	}
  416. 	mes @n$;
  417. 	mes @warp$[1];
  418. 	next;
  419. 		select(@warp$[2]);
  420. 		setarray @warpl[1], 1, 2, 3, 6;
  421. 		switch(@warpl[@menu]) {
  422. 			case 1:
  423. 				mes @n$;
  424. 				if($payfor) {
  425. 					if(@townc>Zeny) {
  426. 						mes @pay$[0];
  427. 						close;
  428. 					}
  429. 				}
  430. 				mes @warp$[3];
  431. 				set @twarp,select(@men$[0]);
  432. 				set Zeny,Zeny-@townc;
  433. 				switch(@twarp) {
  434. 					case 1:
  435. 						warp "alberta.gat",28,234;
  436. 						set lmap$,"alberta.gat";		set lx,28;	set ly,234;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
  437. 						end;
  438. 					case 2:
  439. 						warp "aldebaran.gat",140,131;
  440. 						set lmap$,"aldebaran.gat";		set lx,140;	set ly,131;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
  441. 						end;
  442. 					case 3:
  443. 						warp "amatsu.gat",198,84;
  444. 						set lmap$,"amatsu.gat";		set lx,198;	set ly,84;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
  445. 						end;
  446. 					case 4:
  447. 						warp "ayothaya.gat",150,163;
  448. 						set lmap$,"ayothaya.gat";		set lx,150;	set ly,163;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
  449. 						end;
  450. 					case 5:
  451. 						warp "comodo.gat",209,143;
  452. 						set lmap$,"comodo.gat";		set lx,209;	set ly,143;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
  453. 						end;
  454. 					case 6:
  455. 						warp "einbech.gat",140,245;
  456. 						set lmap$,"einbech.gat";		set lx,140;	set ly,245;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
  457. 						end;
  458. 					case 7:
  459. 						warp "einbroch.gat",64,200;
  460. 						set lmap$,"einbroch.gat";		set lx,64;	set ly,200;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
  461. 						end;
  462. 					case 8:
  463. 						warp "geffen.gat",119,59;
  464. 						set lmap$,"geffen.gat";		set lx,119;	set ly,59;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
  465. 						end;
  466. 					case 9:
  467. 						warp "gonryun.gat",160,121;
  468. 						set lmap$,"gonryun.gat";		set lx,160;	set ly,121;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
  469. 						end;
  470. 					case 10:
  471. 						warp "hugel.gat",96,145;
  472. 						set lmap$,"hugel.gat";		set lx,96;	set ly,145;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
  473. 						end;
  474. 					case 11:
  475. 						warp "izlude.gat",128,114;
  476. 						set lmap$,"izlude.gat";		set lx,128;	set ly,114;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
  477. 						end;
  478. 					case 12:
  479. 						warp "jawaii.gat",213,230;
  480. 						set lmap$,"jawaii.gat";		set lx,213;	set ly,230;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
  481. 						end;
  482. 					case 13:
  483. 						warp "lighthalzen.gat",158,92;
  484. 						set lmap$,"lighthalzen.gat";	set lx,158;	set ly,92;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
  485. 						end;
  486. 					case 14:
  487. 						warp "louyang.gat",210,108;
  488. 						set lmap$,"louyang.gat";		set lx,210;	set ly,108;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
  489. 						end;
  490. 					case 15:
  491. 						warp "xmas.gat",147,134;
  492. 						set lmap$,"xmas.gat";		set lx,147;	set ly,134;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
  493. 						end;
  494. 					case 16:
  495. 						warp "morocc.gat",156,93;
  496. 						set lmap$,"morocc.gat";		set lx,156;	set ly,93;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
  497. 						end;
  498. 					case 17:
  499. 						warp "moscovia.gat",165,50;
  500. 						set lmap$,"moscovia.gat";		set lx,165;	set ly,50;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
  501. 						end;
  502. 					case 18:
  503. 						warp "nameless_i.gat",258,215;
  504. 						set lmap$,"nameless_i.gat";		set lx,258;	set ly,215;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
  505. 						end;
  506. 					case 19:
  507. 						warp "niflheim.gat",195,180;
  508. 						set lmap$,"niflheim.gat";		set lx,195;	set ly,180;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
  509. 						end;
  510. 					case 20:
  511. 						warp "payon.gat",185,100;
  512. 						set lmap$,"payon.gat";		set lx,185;	set ly,100;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
  513. 						end;
  514. 					case 21:
  515. 						warp "prontera.gat",155,183;
  516. 						set lmap$,"prontera.gat";		set lx,155;	set ly,183;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
  517. 						end;
  518. 					case 22:
  519. 						warp "rachel.gat",130,137;
  520. 						set lmap$,"rachel.gat";		set lx,130;	set ly,137;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
  521. 						end;
  522. 					case 23:
  523. 						warp "thor_camp.gat",254,90;
  524. 						set lmap$,"thor_camp.gat";		set lx,254;	set ly,90;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
  525. 						end;
  526. 					case 24:
  527. 						warp "umbala.gat",120,130;
  528. 						set lmap$,"umbala.gat";		set lx,120;	set ly,130;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
  529. 						end;
  530. 					case 25:
  531. 						warp "veins.gat",216,123;
  532. 						set lmap$,"veins.gat";		set lx,216;	set ly,123;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
  533. 						end;
  534. 					case 26:
  535. 						warp "yuno.gat",157,181;
  536. 						set lmap$,"yuno.gat";		set lx,157;	set ly,181;		set ltownw,1;	set ldunw,0;	set lfieldw,0;
  537. 						end;
  538. 				}
  539.  
  540. 			case 2:
  541.  
  542. 				mes @n$;
  543. 				if($payfor) {
  544. 					if(@dunc>Zeny) {
  545. 						mes @pay$[0];
  546. 						close;
  547. 					}
  548. 				}
  549. 				mes @warp$[4];
  550. 				switch(select(@men$[1])) {
  551. 					case 1:
  552. 						set @dwarp,select(@dun$[1]);
  553. 						set Zeny,Zeny-@dunc;
  554. 						switch(@dwarp) {
  555. 							case 1:
  556. 								warp "abbey01.gat",51,14;
  557. 								set lmap$,"abbey01.gat";		set lx,51;	set ly,14;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  558. 								end;
  559. 							case 2:
  560. 								warp "abbey02.gat",150,11;
  561. 								set lmap$,"abbey02.gat";		set lx,150;	set ly,11;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  562. 								end;
  563. 							case 3:
  564. 								warp "abbey03.gat",120,10;
  565. 								set lmap$,"abbey03.gat";		set lx,120;	set ly,10;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  566. 								end;
  567. 						}
  568. 					case 2:
  569. 						set @dwarp,select(@dun$[1]);
  570. 						set Zeny,Zeny-@dunc;
  571. 						switch(@dwarp) {
  572. 							case 1:
  573. 								warp "abyss_01.gat",261,271;
  574. 								set lmap$,"abyss_01.gat";		set lx,261;	set ly,271;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  575. 								end;
  576. 							case 2:
  577. 								warp "abyss_02.gat",275,270;
  578. 								set lmap$,"abyss_02.gat";		set lx,275;	set ly,270;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  579. 								end;
  580. 							case 3:
  581. 								warp "abyss_03.gat",116,27;
  582. 								set lmap$,"abyss_03.gat";		set lx,116;	set ly,27;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  583. 								end;
  584. 						}
  585. 					case 3:
  586. 						set @dwarp,select(@dun$[1]);
  587. 						set Zeny,Zeny-@dunc;
  588. 						switch(@dwarp) {
  589. 							case 1:
  590. 								warp "ama_dun01.gat",228,11;
  591. 								set lmap$,"ama_dun01.gat";		set lx,228;	set ly,11;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  592. 								end;
  593. 							case 2:
  594. 								warp "ama_dun02.gat",34,41;
  595. 								set lmap$,"ama_dun02.gat";		set lx,34;	set ly,41;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  596. 								end;
  597. 							case 3:
  598. 								warp "ama_dun03.gat",119,14;
  599. 								set lmap$,"ama_dun03.gat";		set lx,119;	set ly,14;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  600. 								end;
  601. 						}
  602. 					case 4:
  603. 						set @dwarp,select(@dun$[0]);
  604. 						set Zeny,Zeny-@dunc;
  605. 						switch(@dwarp) {
  606. 							case 1:
  607. 								warp "anthell01.gat",35,262;
  608. 								set lmap$,"anthell01.gat";		set lx,35;	set ly,262;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  609. 								end;
  610. 							case 2:
  611. 								warp "anthell02.gat",168,170;
  612. 								set lmap$,"anthell02.gat";		set lx,168;	set ly,170;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  613. 								end;
  614. 						}
  615. 					case 5:
  616. 						set @dwarp,select(@dun$[8]);
  617. 						set Zeny,Zeny-@dunc;
  618. 						switch(@dwarp) {
  619. 							case 1:
  620. 								warp "ayo_dun01.gat",275,19;
  621. 								set lmap$,"ayo_dun01.gat";		set lx,275;	set ly,19;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  622. 								end;
  623. 							case 2:
  624. 								warp "ayo_dun02.gat",24,26;
  625. 								set lmap$,"ayo_dun02.gat";		set lx,24;	set ly,26;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  626. 								end;
  627. 						}
  628.  
  629. 					case 6:
  630. 						set @dwarp,select(@dun$[1]);
  631. 						set Zeny,Zeny-@dunc;
  632. 						switch(@dwarp) {
  633. 							case 1:
  634. 								warp "beach_dun.gat",266,67;
  635. 								set lmap$,"beach_dun.gat";		set lx,266;	set ly,67;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  636. 								end;
  637. 							case 2:
  638. 								warp "beach_dun2.gat",255,244;
  639. 								set lmap$,"beach_dun2.gat";		set lx,255;	set ly,244;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  640. 								end;
  641. 							case 3:
  642. 								warp "beach_dun3.gat",23,260;
  643. 								set lmap$,"beach_dun3.gat";		set lx,23;	set ly,260;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  644. 								end;
  645. 						}
  646. 					case 7:
  647. 						set @dwarp,select(@dun$[3]);
  648. 						set Zeny,Zeny-@dunc;
  649. 						switch(@dwarp) {
  650. 							case 1:
  651. 								warp "iz_dun00.gat",168,168;
  652. 								set lmap$,"iz_dun00.gat";		set lx,168;	set ly,168;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  653. 								end;
  654. 							case 2:
  655. 								warp "iz_dun01.gat",253,252;
  656. 								set lmap$,"iz_dun01.gat";		set lx,253;	set ly,252;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  657. 								end;
  658. 							case 3:
  659. 								warp "iz_dun02.gat",236,204;
  660. 								set lmap$,"iz_dun02.gat";		set lx,236;	set ly,204;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  661. 								end;
  662. 							case 4:
  663. 								warp "iz_dun03.gat",32,63;
  664. 								set lmap$,"iz_dun03.gat";		set lx,32;	set ly,63;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  665. 								end;
  666. 							case 5:
  667. 								warp "iz_dun04.gat",26,27;
  668. 								set lmap$,"iz_dun04.gat";		set lx,26;	set ly,27;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  669. 								end;
  670. 						}
  671. 					case 8:
  672. 						set @dwarp,select(@dun$[5]);
  673. 						set Zeny,Zeny-@dunc;
  674. 						switch(@dwarp) {
  675. 							case 1:
  676. 								warp "c_tower1.gat",199,159;
  677. 								set lmap$,"c_tower1.gat";		set lx,199;	set ly,159;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  678. 								end;
  679. 							case 2:
  680. 								warp "c_tower2.gat",148,283;
  681. 								set lmap$,"c_tower2.gat";		set lx,148;	set ly,283;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  682. 								end;
  683. 							case 3:
  684. 								warp "c_tower3.gat",65,147;
  685. 								set lmap$,"c_tower3.gat";		set lx,65;	set ly,147;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  686. 								end;
  687. 							case 4:
  688. 								warp "c_tower4.gat",56,155;
  689. 								set lmap$,"c_tower4.gat";		set lx,56;	set ly,155;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  690. 								end;
  691. 							case 5:
  692. 								warp "alde_dun01.gat",297,25;
  693. 								set lmap$,"alde_dun01.gat";		set lx,297;	set ly,25;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  694. 								end;
  695. 							case 6:
  696. 								warp "alde_dun02.gat",127,169;
  697. 								set lmap$,"alde_dun02.gat";		set lx,127;	set ly,169;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  698. 								end;
  699. 							case 7:
  700. 								warp "alde_dun03.gat",277,178;
  701. 								set lmap$,"alde_dun03.gat";		set lx,277;	set ly,178;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  702. 								end;
  703. 							case 8:
  704. 								warp "alde_dun04.gat",268,74;
  705. 								set lmap$,"alde_dun04.gat";		set lx,268;	set ly,74;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  706. 								end;
  707. 						}
  708. 					case 9:
  709. 						set @dwarp,select(@dun$[1]);
  710. 						set Zeny,Zeny-@dunc;
  711. 						switch(@dwarp) {
  712. 							case 1:
  713. 								warp "mjo_dun01.gat",52,17;
  714. 								set lmap$,"mjo_dun01.gat";		set lx,52;	set ly,17;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  715. 								end;
  716. 							case 2:
  717. 								warp "mjo_dun02.gat",381,343;
  718. 								set lmap$,"mjo_dun02.gat";		set lx,381;	set ly,343;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  719. 								end;
  720. 							case 3:
  721. 								warp "mjo_dun03.gat",302,262;
  722. 								set lmap$,"mjo_dun03.gat";		set lx,302;	set ly,262;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  723. 								end;
  724. 						}
  725. 					case 10:
  726. 						set @dwarp,select(@dun$[2]);
  727. 						set Zeny,Zeny-@dunc;
  728. 						switch(@dwarp) {
  729. 							case 1:
  730. 								warp "prt_sewb1.gat",131,247;
  731. 								set lmap$,"prt_sewb1.gat";		set lx,131;	set ly,247;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  732. 								end;
  733. 							case 2:
  734. 								warp "prt_sewb2.gat",19,19;
  735. 								set lmap$,"prt_sewb2.gat";		set lx,19;	set ly,19;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  736. 								end;
  737. 							case 3:
  738. 								warp "prt_sewb3.gat",180,169;
  739. 								set lmap$,"prt_sewb3.gat";		set lx,180;	set ly,169;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  740. 								end;
  741. 							case 4:
  742. 								warp "prt_sewb4.gat",100,92;
  743. 								set lmap$,"prt_sewb4.gat";		set lx,100;	set ly,92;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  744. 								end;
  745. 						}
  746. 					case 11:
  747. 						set @dwarp,select(@dun$[0]);
  748. 						set Zeny,Zeny-@dunc;
  749. 						switch(@dwarp) {
  750. 							case 1:
  751. 								warp "ein_dun01.gat",22,14;
  752. 								set lmap$,"ein_dun01.gat";		set lx,22;	set ly,14;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  753. 								end;
  754. 							case 2:
  755. 								warp "ein_dun02.gat",292,290;
  756. 								set lmap$,"ein_dun02.gat";		set lx,292;	set ly,290;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  757. 								end;
  758. 						}
  759. 					case 12:
  760. 						set @dwarp,select(@dun$[12]);
  761. 						set Zeny,Zeny-@dunc;
  762. 						switch(@dwarp) {
  763. 							case 1:
  764. 								warp "[email protected]",282,11;
  765. 								set lmap$,"[email protected]";			set lx,282;	set ly,11;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  766. 								end;
  767. 							case 2:
  768. 								warp "[email protected]",79,146;
  769. 								set lmap$,"[email protected]";			set lx,79;	set ly,146;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  770. 								end;
  771. 							case 3:
  772. 								warp "[email protected]",218,363;
  773. 								set lmap$,"[email protected]";		set lx,218;	set ly,363;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  774. 								end;
  775. 							case 4:
  776. 								warp "[email protected]",130,191;
  777. 								set lmap$,"[email protected]";		set lx,130;	set ly,191;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  778. 								end;
  779. 							case 5:
  780. 								warp "[email protected]",304,21;
  781. 								set lmap$,"[email protected]";		set lx,304;	set ly,21;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  782. 								end;
  783. 							case 6:
  784. 								warp "[email protected]",304,279;
  785. 								set lmap$,"[email protected]";		set lx,304;	set ly,279;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  786. 								end;
  787. 							case 7:
  788. 								warp "[email protected]",66,68;
  789. 								set lmap$,"[email protected]";		set lx,66;	set ly,68;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  790. 								end;
  791. 							case 8:
  792. 								warp "[email protected]",155,64;
  793. 								set lmap$,"[email protected]";		set lx,155;	set ly,64;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  794. 								end;								
  795. 						}
  796. 					case 13:
  797. 						set @dwarp,select(@dun$[2]);
  798. 						set Zeny,Zeny-@dunc;
  799. 						switch(@dwarp) {
  800. 							case 1:
  801. 								warp "gefenia01.gat",40,103;
  802. 								set lmap$,"gefenia01.gat";		set lx,40;	set ly,103;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  803. 								end;
  804. 							case 2:
  805. 								warp "gefenia02.gat",203,34;
  806. 								set lmap$,"gefenia02.gat";		set lx,203;	set ly,34;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  807. 								end;
  808. 							case 3:
  809. 								warp "gefenia03.gat",266,168;
  810. 								set lmap$,"gefenia03.gat";		set lx,266;	set ly,168;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  811. 								end;
  812. 							case 4:
  813. 								warp "gefenia04.gat",130,272;
  814. 								set lmap$,"gefenia04.gat";		set lx,130;	set ly,272;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  815. 								end;
  816. 						}
  817. 					case 14:
  818. 						set @dwarp,select(@dun$[2]);
  819. 						set Zeny,Zeny-@dunc;
  820. 						switch(@dwarp) {
  821. 							case 1:
  822. 								warp "gef_dun00.gat",104,99;
  823. 								set lmap$,"gef_dun00.gat";		set lx,104;	set ly,99;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  824. 								end;
  825. 							case 2:
  826. 								warp "gef_dun01.gat",115,236;
  827. 								set lmap$,"gef_dun01.gat";		set lx,115;	set ly,236;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  828. 								end;
  829. 							case 3:
  830. 								warp "gef_dun02.gat",106,132;
  831. 								set lmap$,"gef_dun02.gat";		set lx,106;	set ly,132;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  832. 								end;
  833. 							case 4:
  834. 								warp "gef_dun03.gat",203,200;
  835. 								set lmap$,"gef_dun03.gat";		set lx,203;	set ly,200;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  836. 								end;
  837. 						}
  838. 					case 15:
  839. 						set @dwarp,select(@dun$[6]);
  840. 						set Zeny,Zeny-@dunc;
  841. 						switch(@dwarp) {
  842. 							case 1:
  843. 								warp "glast_01.gat",375,304;
  844. 								set lmap$,"glast_01.gat";		set lx,375;	set ly,304;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  845. 								end;
  846. 							case 2:
  847. 								warp "gl_cas01.gat",199,29;
  848. 								set lmap$,"gl_cas01.gat";		set lx,199;	set ly,29;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  849. 								end;
  850. 							case 3:
  851. 								warp "gl_cas02.gat",104,25;
  852. 								set lmap$,"gl_cas02.gat";		set lx,104;	set ly,25;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  853. 								end;
  854. 							case 4:
  855. 								warp "gl_knt01.gat",150,15;
  856. 								set lmap$,"gl_knt01.gat";		set lx,150;	set ly,15;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  857. 								end;
  858. 							case 5:
  859. 								warp "gl_knt02.gat",157,287;
  860. 								set lmap$,"gl_knt02.gat";		set lx,157;	set ly,287;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  861. 								end;
  862. 							case 6:
  863. 								warp "gl_chyard.gat",147,15;
  864. 								set lmap$,"gl_chyard.gat";		set lx,147;	set ly,15;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  865. 								end;
  866. 							case 7:
  867. 								warp "gl_sew01.gat",258,255;
  868. 								set lmap$,"gl_sew01.gat";		set lx,258;	set ly,255;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  869. 								end;
  870. 							case 8:
  871. 								warp "gl_sew02.gat",108,291;
  872. 								set lmap$,"gl_sew02.gat";		set lx,108;	set ly,291;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  873. 								end;
  874. 							case 9:
  875. 								warp "gl_sew03.gat",171,283;
  876. 								set lmap$,"gl_sew03.gat";		set lx,171;	set ly,283;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  877. 								end;
  878. 							case 10:
  879. 								warp "gl_sew04.gat",68,277;
  880. 								set lmap$,"gl_sew04.gat";		set lx,68;	set ly,277;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  881. 								end;
  882. 							case 11:
  883. 								warp "gl_church.gat",156,7;
  884. 								set lmap$,"gl_church.gat";		set lx,156;	set ly,7;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  885. 								end;
  886. 							case 12:
  887. 								warp "gl_step.gat",12,7;
  888. 								set lmap$,"gl_step.gat";		set lx,12;	set ly,7;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  889. 								end;
  890. 							case 13:
  891. 								warp "gl_dun01.gat",133,271;
  892. 								set lmap$,"gl_dun01.gat";		set lx,133;	set ly,271;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  893. 								end;
  894. 							case 14:
  895. 								warp "gl_dun02.gat",224,274;
  896. 								set lmap$,"gl_dun02.gat";		set lx,224;	set ly,274;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  897. 								end;
  898. 							case 15:
  899. 								warp "gl_prison.gat",14,70;
  900. 								set lmap$,"gl_prison.gat";		set lx,14;	set ly,70;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  901. 								end;
  902. 							case 16:
  903. 								warp "gl_prison1.gat",150,14;
  904. 								set lmap$,"gl_prison1.gat";		set lx,150;	set ly,14;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  905. 								end;
  906. 						}
  907. 					case 16:
  908. 						set @dwarp,select(@dun$[1]);
  909. 						set Zeny,Zeny-@dunc;
  910. 						switch(@dwarp) {
  911. 							case 1:
  912. 								warp "gon_dun01.gat",153,53;
  913. 								set lmap$,"gon_dun01.gat";		set lx,153;	set ly,53;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  914. 								end;
  915. 							case 2:
  916. 								warp "gon_dun02.gat",28,113;
  917. 								set lmap$,"gon_dun02.gat";		set lx,28;	set ly,113;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  918. 								end;
  919. 							case 3:
  920. 								warp "gon_dun03.gat",68,16;
  921. 								set lmap$,"gon_dun03.gat";		set lx,68;	set ly,16;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  922. 								end;
  923. 						}
  924. 					case 17:
  925. 						set @dwarp,select(@dun$[1]);
  926. 						set Zeny,Zeny-@dunc;
  927. 						switch(@dwarp) {
  928. 							case 1:
  929. 								warp "prt_maze01.gat",176,7;
  930. 								set lmap$,"prt_maze01.gat";		set lx,176;	set ly,7;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  931. 								end;
  932. 							case 2:
  933. 								warp "prt_maze02.gat",94,9;
  934. 								set lmap$,"prt_maze02.gat";		set lx,94;	set ly,9;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  935. 								end;
  936. 							case 3:
  937. 								warp "prt_maze03.gat",23,8;
  938. 								set lmap$,"prt_maze03.gat";		set lx,23;	set ly,8;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  939. 								end;
  940. 						}
  941. 					case 18:
  942. 						set @dwarp,select(@dun$[2]);
  943. 						set Zeny,Zeny-@dunc;
  944. 						switch(@dwarp) {
  945. 							case 1:
  946. 								warp "ice_dun01.gat",157,14;
  947. 								set lmap$,"ice_dun01.gat";		set lx,157;	set ly,14;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  948. 								end;
  949. 							case 2:
  950. 								warp "ice_dun02.gat",151,155;
  951. 								set lmap$,"ice_dun02.gat";		set lx,151;	set ly,155;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  952. 								end;
  953. 							case 3:
  954. 								warp "ice_dun03.gat",149,22;
  955. 								set lmap$,"ice_dun03.gat";		set lx,149;	set ly,22;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  956. 								end;
  957. 							case 4:
  958. 								warp "ice_dun04.gat",33,158;
  959. 								set lmap$,"ice_dun04.gat";		set lx,33;	set ly,158;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  960. 								end;
  961. 						}
  962. 					case 19:
  963. 						set @dwarp,select(@dun$[7]);
  964. 						set Zeny,Zeny-@dunc;
  965. 						switch(@dwarp) {
  966. 							case 1:
  967. 								warp "juperos_01.gat",53,247;
  968. 								set lmap$,"juperos_01.gat";		set lx,53;	set ly,247;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  969. 								end;
  970. 							case 2:
  971. 								warp "juperos_02.gat",37,63;
  972. 								set lmap$,"juperos_02.gat";		set lx,37;	set ly,63;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  973. 								end;
  974. 							case 3:
  975. 								warp "jupe_core.gat",150,285;
  976. 								set lmap$,"jupe_core.gat";		set lx,150;	set ly,285;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  977. 								end;
  978. 						}
  979. 					case 20:
  980. 						set @dwarp,select(@dun$[0]);
  981. 						set Zeny,Zeny-@dunc;
  982. 						switch(@dwarp) {
  983. 							case 1:
  984. 								warp "kh_dun01.gat",28,226;
  985. 								set lmap$,"kh_dun01.gat";		set lx,28;	set ly,226;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  986. 								end;
  987. 							case 2:
  988. 								warp "kh_dun02.gat",41,198;
  989. 								set lmap$,"kh_dun02.gat";		set lx,41;	set ly,198;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  990. 								end;
  991. 						}
  992. 					case 21:
  993. 						set @dwarp,select(@dun$[1]);
  994. 						set Zeny,Zeny-@dunc;
  995. 						switch(@dwarp) {
  996. 							case 1:
  997. 								warp "lhz_dun01.gat",150,288;
  998. 								set lmap$,"lhz_dun01.gat";		set lx,150;	set ly,288;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  999. 								end;
  1000. 							case 2:
  1001. 								warp "lhz_dun02.gat",150,18;
  1002. 								set lmap$,"lhz_dun02.gat";		set lx,150;	set ly,18;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1003. 								end;
  1004. 							case 3:
  1005. 								warp "lhz_dun03.gat",140,137;
  1006. 								set lmap$,"lhz_dun03.gat";		set lx,140;	set ly,137;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1007. 								end;
  1008. 						}
  1009. 					case 22:
  1010. 						set @dwarp,select(@dun$[9]);
  1011. 						set Zeny,Zeny-@dunc;
  1012. 						switch(@dwarp) {
  1013. 							case 1:
  1014. 								warp "lou_dun01.gat",218,196;
  1015. 								set lmap$,"lou_dun01.gat";		set lx,218;	set ly,196;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1016. 								end;
  1017. 							case 2:
  1018. 								warp "lou_dun02.gat",282,20;
  1019. 								set lmap$,"lou_dun02.gat";		set lx,282;	set ly,20;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1020. 								end;
  1021. 							case 3:
  1022. 								warp "lou_dun03.gat",165,38;
  1023. 								set lmap$,"lou_dun03.gat";		set lx,165;	set ly,38;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1024. 								end;
  1025. 						}
  1026. 					case 23:
  1027. 						set @dwarp,select(@dun$[0]);
  1028. 						set Zeny,Zeny-@dunc;
  1029. 						switch(@dwarp) {
  1030. 							case 1:
  1031. 								warp "mag_dun01.gat",126,68;
  1032. 								set lmap$,"mag_dun01.gat";		set lx,126;	set ly,68;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1033. 								end;
  1034. 							case 2:
  1035. 								warp "mag_dun02.gat",47,30;
  1036. 								set lmap$,"mag_dun02.gat";		set lx,47;	set ly,30;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1037. 								end;
  1038. 						}
  1039. 					case 24:
  1040. 						set @dwarp,select(@dun$[1]);
  1041. 						set Zeny,Zeny-@dunc;
  1042. 						switch(@dwarp) {
  1043. 							case 1:
  1044. 								warp "mosk_dun01.gat",189,48;
  1045. 								set lmap$,"mosk_dun01.gat";		set lx,189;	set ly,48;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1046. 								end;
  1047. 							case 2:
  1048. 								warp "mosk_dun02.gat",163,31;
  1049. 								set lmap$,"mosk_dun02.gat";		set lx,163;	set ly,31;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1050. 								end;
  1051. 							case 3:
  1052. 								warp "mosk_dun03.gat",31,139;
  1053. 								set lmap$,"mosk_dun03.gat";		set lx,31;	set ly,139;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1054. 								end;
  1055. 						}
  1056. 					case 25:
  1057. 						set @dwarp,select(@dun$[0]);
  1058. 						set Zeny,Zeny-@dunc;
  1059. 						switch(@dwarp) {
  1060. 							case 1:
  1061. 								warp "orcsdun01.gat",32,170;
  1062. 								set lmap$,"orcsdun01.gat";		set lx,32;	set ly,170;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1063. 								end;
  1064. 							case 2:
  1065. 								warp "orcsdun02.gat",21,185;
  1066. 								set lmap$,"orcsdun02.gat";		set lx,21;	set ly,185;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1067. 								end;
  1068. 						}
  1069. 					case 26:
  1070. 						set @dwarp,select(@dun$[3]);
  1071. 						set Zeny,Zeny-@dunc;
  1072. 						switch(@dwarp) {
  1073. 							case 1:
  1074. 								warp "pay_dun00.gat",21,183;
  1075. 								set lmap$,"pay_dun00.gat";		set lx,21;	set ly,183;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1076. 								end;
  1077. 							case 2:
  1078. 								warp "pay_dun01.gat",19,33;
  1079. 								set lmap$,"pay_dun01.gat";		set lx,19;	set ly,33;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1080. 								end;
  1081. 							case 3:
  1082. 								warp "pay_dun02.gat",19,63;
  1083. 								set lmap$,"pay_dun02.gat";		set lx,19;	set ly,63;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1084. 								end;
  1085. 							case 4:
  1086. 								warp "pay_dun03.gat",155,159;
  1087. 								set lmap$,"pay_dun03.gat";		set lx,155;	set ly,159;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1088. 								end;
  1089. 							case 5:
  1090. 								warp "pay_dun04.gat",201,204;
  1091. 								set lmap$,"pay_dun04.gat";		set lx,201;	set ly,204;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1092. 								end;
  1093. 						}
  1094. 					case 27:
  1095. 						set @dwarp,select(@dun$[4]);
  1096. 						set Zeny,Zeny-@dunc;
  1097. 						switch(@dwarp) {
  1098. 							case 1:
  1099. 								warp "moc_pryd01.gat",192,9;
  1100. 								set lmap$,"moc_pryd01.gat";		set lx,192;	set ly,9;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1101. 								end;
  1102. 							case 2:
  1103. 								warp "moc_pryd02.gat",10,192;
  1104. 								set lmap$,"moc_pryd02.gat";		set lx,10;	set ly,192;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1105. 								end;
  1106. 							case 3:
  1107. 								warp "moc_pryd03.gat",100,92;
  1108. 								set lmap$,"moc_pryd03.gat";		set lx,100;	set ly,92;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1109. 								end;
  1110. 							case 4:
  1111. 								warp "moc_pryd04.gat",181,11;
  1112. 								set lmap$,"moc_pryd04.gat";		set lx,181;	set ly,11;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1113. 								end;
  1114. 							case 5:
  1115. 								warp "moc_pryd05.gat",94,96;
  1116. 								set lmap$,"moc_pryd05.gat";		set lx,94;	set ly,96;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1117. 								end;
  1118. 							case 6:
  1119. 								warp "moc_pryd06.gat",192,8;
  1120. 								set lmap$,"moc_pryd06.gat";		set lx,192;	set ly,8;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1121. 								end;
  1122. 						}
  1123. 					case 28:
  1124. 						set @dwarp,select(@dun$[3]);
  1125. 						set Zeny,Zeny-@dunc;
  1126. 						switch(@dwarp) {
  1127. 							case 1:
  1128. 								warp "ra_san01.gat",140,11;
  1129. 								set lmap$,"ra_san01.gat";		set lx,140;	set ly,11;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1130. 								end;
  1131. 							case 2:
  1132. 								warp "ra_san02.gat",32,21;
  1133. 								set lmap$,"ra_san02.gat";		set lx,32;	set ly,21;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1134. 								end;
  1135. 							case 3:
  1136. 								warp "ra_san03.gat",4,149;
  1137. 								set lmap$,"ra_san03.gat";		set lx,4;	set ly,149;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1138. 								end;
  1139. 							case 4:
  1140. 								warp "ra_san04.gat",204,218;
  1141. 								set lmap$,"ra_san04.gat";		set lx,204;	set ly,218;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1142. 								end;
  1143. 							case 5:
  1144. 								warp "ra_san05.gat",150,9;
  1145. 								set lmap$,"ra_san05.gat";		set lx,150;	set ly,9;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1146. 								end;
  1147. 						}
  1148. 					case 29:
  1149. 						set @dwarp,select(@dun$[3]);
  1150. 						set Zeny,Zeny-@dunc;
  1151. 						switch(@dwarp) {
  1152. 							case 1:
  1153. 								warp "in_sphinx1.gat",288,9;
  1154. 								set lmap$,"in_sphinx1.gat";		set lx,288;	set ly,9;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1155. 								end;
  1156. 							case 2:
  1157. 								warp "in_sphinx2.gat",149,81;
  1158. 								set lmap$,"in_sphinx2.gat";		set lx,149;	set ly,81;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1159. 								end;
  1160. 							case 3:
  1161. 								warp "in_sphinx3.gat",210,54;
  1162. 								set lmap$,"in_sphinx3.gat";		set lx,210;	set ly,54;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1163. 								end;
  1164. 							case 4:
  1165. 								warp "in_sphinx4.gat",10,222;
  1166. 								set lmap$,"in_sphinx4.gat";		set lx,10;	set ly,222;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1167. 								end;
  1168. 							case 5:
  1169. 								warp "in_sphinx5.gat",100,99;
  1170. 								set lmap$,"in_sphinx5.gat";		set lx,100;	set ly,99;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1171. 								end;
  1172. 						}
  1173. 					case 30:
  1174. 						set @dwarp,select(@dun$[0]);
  1175. 						set Zeny,Zeny-@dunc;
  1176. 						switch(@dwarp) {
  1177. 							case 1:
  1178. 								warp "treasure01.gat",69,24;
  1179. 								set lmap$,"treasure01.gat";		set lx,69;	set ly,24;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1180. 								end;
  1181. 							case 2:
  1182. 								warp "treasure02.gat",102,27;
  1183. 								set lmap$,"treasure02.gat";		set lx,102;	set ly,27;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1184. 								end;
  1185. 						}
  1186. 					case 31:
  1187. 						set @dwarp,select(@dun$[10]);
  1188. 						set Zeny,Zeny-@dunc;
  1189. 						switch(@dwarp) {
  1190. 							case 1:
  1191. 								warp "tha_t01.gat",150,39;
  1192. 								set lmap$,"tha_t01.gat";		set lx,150;	set ly,39;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1193. 								end;
  1194. 							case 2:
  1195. 								warp "tha_t02.gat",150,136;
  1196. 								set lmap$,"tha_t02.gat";		set lx,150;	set ly,136;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1197. 								end;
  1198. 							case 3:
  1199. 								warp "tha_t03.gat",220,158;
  1200. 								set lmap$,"tha_t03.gat";		set lx,220;	set ly,158;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1201. 								end;
  1202. 							case 4:
  1203. 								warp "tha_t04.gat",59,143;
  1204. 								set lmap$,"tha_t04.gat";		set lx,59;	set ly,143;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1205. 								end;
  1206. 							case 5:
  1207. 								warp "tha_t05.gat",62,11;
  1208. 								set lmap$,"tha_t05.gat";		set lx,62;	set ly,11;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1209. 								end;
  1210. 							case 6:
  1211. 								warp "tha_t06.gat",89,221;
  1212. 								set lmap$,"tha_t06.gat";		set lx,89;	set ly,221;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1213. 								end;
  1214. 							case 7:
  1215. 								warp "tha_t07.gat",35,166;
  1216. 								set lmap$,"tha_t07.gat";		set lx,35;	set ly,166;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1217. 								end;
  1218. 							case 8:
  1219. 								warp "tha_t08.gat",93,148;
  1220. 								set lmap$,"tha_t08.gat";		set lx,93;	set ly,148;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1221. 								end;
  1222. 							case 9:
  1223. 								warp "tha_t09.gat",29,107;
  1224. 								set lmap$,"tha_t09.gat";		set lx,29;	set ly,107;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1225. 								end;
  1226. 							case 10:
  1227. 								warp "tha_t10.gat",159,138;
  1228. 								set lmap$,"tha_t10.gat";		set lx,159;	set ly,138;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1229. 								end;
  1230. 							case 11:
  1231. 								warp "tha_t11.gat",19,20;
  1232. 								set lmap$,"tha_t11.gat";		set lx,19;	set ly,20;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1233. 								end;
  1234. 							case 12:
  1235. 								warp "tha_t12.gat",130,52;
  1236. 								set lmap$,"tha_t12.gat";		set lx,130;	set ly,52;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1237. 								end;
  1238. 						}
  1239. 					case 32:
  1240. 						set @dwarp,select(@dun$[1]);
  1241. 						set Zeny,Zeny-@dunc;
  1242. 						switch(@dwarp) {
  1243. 							case 1:
  1244. 								warp "thor_v01.gat",21,228;
  1245. 								set lmap$,"thor_v01.gat";		set lx,21;	set ly,228;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1246. 								end;
  1247. 							case 2:
  1248. 								warp "thor_v02.gat",75,205;
  1249. 								set lmap$,"thor_v02.gat";		set lx,75;	set ly,205;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1250. 								end;
  1251. 							case 3:
  1252. 								warp "thor_v03.gat",34,272;
  1253. 								set lmap$,"thor_v03.gat";		set lx,34;	set ly,272;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1254. 								end;
  1255. 						}
  1256. 					case 33:
  1257. 						set @dwarp,select(@dun$[0]);
  1258. 						set Zeny,Zeny-@dunc;
  1259. 						switch(@dwarp) {
  1260. 							case 1:
  1261. 								warp "xmas_dun01.gat",205,15;
  1262. 								set lmap$,"xmas_dun01.gat";		set lx,205;	set ly,15;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1263. 								end;
  1264. 							case 2:
  1265. 								warp "xmas_dun02.gat",129,133;
  1266. 								set lmap$,"xmas_dun02.gat";		set lx,129;	set ly,133;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1267. 								end;
  1268. 						}
  1269. 					case 34:
  1270. 						set @dwarp,select(@dun$[2]);
  1271. 						set Zeny,Zeny-@dunc;
  1272. 						switch(@dwarp) {
  1273. 							case 1:
  1274. 								warp "tur_dun01.gat",154,49;
  1275. 								set lmap$,"tur_dun01.gat";		set lx,154;	set ly,49;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1276. 								end;
  1277. 							case 2:
  1278. 								warp "tur_dun02.gat",148,261;
  1279. 								set lmap$,"tur_dun02.gat";		set lx,148;	set ly,261;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1280. 								end;
  1281. 							case 3:
  1282. 								warp "tur_dun03.gat",132,189;
  1283. 								set lmap$,"tur_dun03.gat";		set lx,132;	set ly,189;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1284. 								end;
  1285. 							case 4:
  1286. 								warp "tur_dun04.gat",100,192;
  1287. 								set lmap$,"tur_dun04.gat";		set lx,100;	set ly,192;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1288. 								end;
  1289. 						}
  1290. 					case 35:
  1291. 						set @dwarp,select(@dun$[11]);
  1292. 						set Zeny,Zeny-@dunc;
  1293. 						switch(@dwarp) {
  1294. 							case 1:
  1295. 								warp "um_dun01.gat",42,31;
  1296. 								set lmap$,"um_dun01.gat";		set lx,42;	set ly,31;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1297. 								end;
  1298. 							case 2:
  1299. 								warp "um_dun01.gat",48,30;
  1300. 								set lmap$,"um_dun01.gat";		set lx,48;	set ly,30;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1301. 								end;
  1302. 							case 3:
  1303. 								warp "yggdrasil01.gat",204,78;
  1304. 								set lmap$,"yggdrasil01.gat";	set lx,204;	set ly,78;		set ltownw,0;	set ldunw,1;	set lfieldw,0;
  1305. 								end;
  1306. 						}
  1307. 				}
  1308.  
  1309. 			case 3:
  1310. 				mes @n$;
  1311. 				if($payfor) {
  1312. 					if(@fielc>Zeny) {
  1313. 						mes @pay$[0];
  1314. 						close;
  1315. 					}
  1316. 				}
  1317. 				mes @warp$[6];
  1318. 				switch(select(@men$[3])) {
  1319. 					case 1:
  1320. 						set @fwarp,select(@field$[0]);
  1321. 						set Zeny,Zeny-@fielc;
  1322. 						switch(@fwarp) {
  1323. 							case 1:
  1324. 								warp "ama_fild01.gat",190,197;
  1325. 								set lmap$,"ama_fild01.gat";		set lx,190;	set ly,197;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1326. 								end;
  1327. 						}
  1328. 					case 2:
  1329. 						set @fwarp,select(@field$[1]);
  1330. 						set Zeny,Zeny-@fielc;
  1331. 						switch(@fwarp) {
  1332. 							case 1:
  1333. 								warp "ayo_fild01.gat",173,134;
  1334. 								set lmap$,"ayo_fild01.gat";		set lx,173;	set ly,134;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1335. 								end;
  1336. 							case 2:
  1337. 								warp "ayo_fild02.gat",212,150;
  1338. 								set lmap$,"ayo_fild02.gat";		set lx,212;	set ly,150;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1339. 								end;
  1340. 						}
  1341. 					case 3:
  1342. 						set @fwarp,select(@field$[2]);
  1343. 						set Zeny,Zeny-@fielc;
  1344. 						switch(@fwarp) {
  1345. 							case 1:
  1346. 								warp "cmd_fild01.gat",180,178;
  1347. 								set lmap$,"cmd_fild01.gat";		set lx,180;	set ly,178;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1348. 								end;
  1349. 							case 2:
  1350. 								warp "cmd_fild02.gat",231,160;
  1351. 								set lmap$,"cmd_fild02.gat";		set lx,231;	set ly,160;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1352. 								end;
  1353. 							case 3:
  1354. 								warp "cmd_fild03.gat",191,172;
  1355. 								set lmap$,"cmd_fild03.gat";		set lx,191;	set ly,172;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1356. 								end;
  1357. 							case 4:
  1358. 								warp "cmd_fild04.gat",228,194;
  1359. 								set lmap$,"cmd_fild04.gat";		set lx,228;	set ly,194;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1360. 								end;
  1361. 							case 5:
  1362. 								warp "cmd_fild05.gat",224,203;
  1363. 								set lmap$,"cmd_fild05.gat";		set lx,224;	set ly,203;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1364. 								end;
  1365. 							case 6:
  1366. 								warp "cmd_fild06.gat",190,223;
  1367. 								set lmap$,"cmd_fild06.gat";		set lx,190;	set ly,223;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1368. 								end;
  1369. 							case 7:
  1370. 								warp "cmd_fild07.gat",234,177;
  1371. 								set lmap$,"cmd_fild07.gat";		set lx,234;	set ly,177;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1372. 								end;
  1373. 							case 8:
  1374. 								warp "cmd_fild08.gat",194,175;
  1375. 								set lmap$,"cmd_fild08.gat";		set lx,194;	set ly,175;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1376. 								end;
  1377. 							case 9:
  1378. 								warp "cmd_fild09.gat",172,172;
  1379. 								set lmap$,"cmd_fild09.gat";		set lx,172;	set ly,172;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1380. 								end;
  1381. 						}
  1382. 					case 4:
  1383. 						set @fwarp,select(@field$[3]);
  1384. 						set Zeny,Zeny-@fielc;
  1385. 						switch(@fwarp) {
  1386. 							case 1:
  1387. 								warp "ein_fild01.gat",142,225;
  1388. 								set lmap$,"ein_fild01.gat";		set lx,142;	set ly,225;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1389. 								end;
  1390. 							case 2:
  1391. 								warp "ein_fild02.gat",182,141;
  1392. 								set lmap$,"ein_fild02.gat";		set lx,182;	set ly,141;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1393. 								end;
  1394. 							case 3:
  1395. 								warp "ein_fild03.gat",187,228;
  1396. 								set lmap$,"ein_fild03.gat";		set lx,187;	set ly,228;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1397. 								end;
  1398. 							case 4:
  1399. 								warp "ein_fild04.gat",185,173;
  1400. 								set lmap$,"ein_fild04.gat";		set lx,185;	set ly,173;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1401. 								end;
  1402. 							case 5:
  1403. 								warp "ein_fild05.gat",216,173;
  1404. 								set lmap$,"ein_fild05.gat";		set lx,216;	set ly,173;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1405. 								end;
  1406. 							case 6:
  1407. 								warp "ein_fild06.gat",195,148;
  1408. 								set lmap$,"ein_fild06.gat";		set lx,195;	set ly,148;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1409. 								end;
  1410. 							case 7:
  1411. 								warp "ein_fild07.gat",272,220;
  1412. 								set lmap$,"ein_fild07.gat";		set lx,272;	set ly,220;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1413. 								end;
  1414. 							case 8:
  1415. 								warp "ein_fild08.gat",173,214;
  1416. 								set lmap$,"ein_fild08.gat";		set lx,173;	set ly,214;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1417. 								end;
  1418. 							case 9:
  1419. 								warp "ein_fild09.gat",207,174;
  1420. 								set lmap$,"ein_fild09.gat";		set lx,207;	set ly,174;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1421. 								end;
  1422. 							case 10:
  1423. 								warp "ein_fild10.gat",196,200;
  1424. 								set lmap$,"ein_fild10.gat";		set lx,196;	set ly,200;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1425. 								end;
  1426. 						}
  1427. 					case 5:
  1428. 						set @fwarp,select(@field$[4]);
  1429. 						set Zeny,Zeny-@fielc;
  1430. 						switch(@fwarp) {
  1431. 							case 1:
  1432. 								warp "gef_fild00.gat",46,199;
  1433. 								set lmap$,"gef_fild00.gat";		set lx,46;	set ly,199;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1434. 								end;
  1435. 							case 2:
  1436. 								warp "gef_fild01.gat",213,204;
  1437. 								set lmap$,"gef_fild01.gat";		set lx,213;	set ly,204;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1438. 								end;
  1439. 							case 3:
  1440. 								warp "gef_fild02.gat",195,212;
  1441. 								set lmap$,"gef_fild02.gat";		set lx,195;	set ly,212;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1442. 								end;
  1443. 							case 4:
  1444. 								warp "gef_fild03.gat",257,192;
  1445. 								set lmap$,"gef_fild03.gat";		set lx,257;	set ly,192;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1446. 								end;
  1447. 							case 5:
  1448. 								warp "gef_fild04.gat",188,171;
  1449. 								set lmap$,"gef_fild04.gat";		set lx,188;	set ly,171;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1450. 								end;
  1451. 							case 6:
  1452. 								warp "gef_fild05.gat",166,263;
  1453. 								set lmap$,"gef_fild05.gat";		set lx,166;	set ly,263;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1454. 								end;
  1455. 							case 7:
  1456. 								warp "gef_fild06.gat",248,158;
  1457. 								set lmap$,"gef_fild06.gat";		set lx,248;	set ly,158;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1458. 								end;
  1459. 							case 8:
  1460. 								warp "gef_fild07.gat",195,191;
  1461. 								set lmap$,"gef_fild07.gat";		set lx,195;	set ly,191;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1462. 								end;
  1463. 							case 9:
  1464. 								warp "gef_fild08.gat",186,183;
  1465. 								set lmap$,"gef_fild08.gat";		set lx,186;	set ly,183;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1466. 								end;
  1467. 							case 10:
  1468. 								warp "gef_fild09.gat",221,117;
  1469. 								set lmap$,"gef_fild09.gat";		set lx,221;	set ly,117;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1470. 								end;
  1471. 							case 11:
  1472. 								warp "gef_fild10.gat",178,218;
  1473. 								set lmap$,"gef_fild10.gat";		set lx,178;	set ly,218;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1474. 								end;
  1475. 							case 12:
  1476. 								warp "gef_fild11.gat",136,328;
  1477. 								set lmap$,"gef_fild11.gat";		set lx,136;	set ly,328;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1478. 								end;
  1479. 							case 13:
  1480. 								warp "gef_fild12.gat",240,181;
  1481. 								set lmap$,"gef_fild12.gat";		set lx,240;	set ly,181;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1482. 								end;
  1483. 							case 14:
  1484. 								warp "gef_fild13.gat",235,235;
  1485. 								set lmap$,"gef_fild13.gat";		set lx,235;	set ly,235;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1486. 								end;
  1487. 							case 15:
  1488. 								warp "gef_fild14.gat",211,185;
  1489. 								set lmap$,"gef_fild14.gat";		set lx,211;	set ly,185;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1490. 								end;
  1491. 						}
  1492. 					case 6:
  1493. 						set @fwarp,select(@field$[5]);
  1494. 						set Zeny,Zeny-@fielc;
  1495. 						switch(@fwarp) {
  1496. 							case 1:
  1497. 								warp "gon_fild01.gat",220,227;
  1498. 								set lmap$,"gon_fild01.gat";		set lx,220;	set ly,227;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1499. 								end;
  1500. 						}
  1501. 					case 7:
  1502. 						set @fwarp,select(@field$[6]);
  1503. 						set Zeny,Zeny-@fielc;
  1504. 						switch(@fwarp) {
  1505. 							case 1:
  1506. 								warp "hu_fild01.gat",268,101;
  1507. 								set lmap$,"hu_fild01.gat";		set lx,268;	set ly,101;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1508. 								end;
  1509. 							case 2:
  1510. 								warp "hu_fild02.gat",222,193;
  1511. 								set lmap$,"hu_fild02.gat";		set lx,222;	set ly,193;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1512. 								end;
  1513. 							case 3:
  1514. 								warp "hu_fild03.gat",232,185;
  1515. 								set lmap$,"hu_fild03.gat";		set lx,232;	set ly,185;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1516. 								end;
  1517. 							case 4:
  1518. 								warp "hu_fild04.gat",252,189;
  1519. 								set lmap$,"hu_fild04.gat";		set lx,252;	set ly,189;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1520. 								end;
  1521. 							case 5:
  1522. 								warp "hu_fild05.gat",196,106;
  1523. 								set lmap$,"hu_fild05.gat";		set lx,196;	set ly,106;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1524. 								end;
  1525. 							case 6:
  1526. 								warp "hu_fild06.gat",216,220;
  1527. 								set lmap$,"hu_fild06.gat";		set lx,216;	set ly,220;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1528. 								end;
  1529. 							case 7:
  1530. 								warp "hu_fild07.gat",227,197;
  1531. 								set lmap$,"hu_fild07.gat";		set lx,227;	set ly,197;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1532. 								end;
  1533. 						}
  1534. 					case 8:
  1535. 						set @fwarp,select(@field$[7]);
  1536. 						set Zeny,Zeny-@fielc;
  1537. 						switch(@fwarp) {
  1538. 							case 1:
  1539. 								warp "lhz_fild01.gat",240,179;
  1540. 								set lmap$,"lhz_fild01.gat";		set lx,240;	set ly,179;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1541. 								end;
  1542. 							case 2:
  1543. 								warp "lhz_fild02.gat",185,235;
  1544. 								set lmap$,"lhz_fild02.gat";		set lx,185;	set ly,235;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1545. 								end;
  1546. 							case 3:
  1547. 								warp "lhz_fild03.gat",240,226;
  1548. 								set lmap$,"lhz_fild03.gat";		set lx,240;	set ly,226;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1549. 								end;
  1550. 						}
  1551. 					case 9:
  1552. 						set @fwarp,select(@field$[8]);
  1553. 						set Zeny,Zeny-@fielc;
  1554. 						switch(@fwarp) {
  1555. 							case 1:
  1556. 								warp "lou_fild01.gat",229,187;
  1557. 								set lmap$,"lou_fild01.gat";		set lx,229;	set ly,187;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1558. 								end;
  1559. 						}
  1560. 					case 10:
  1561. 						set @fwarp,select(@field$[9]);
  1562. 						set Zeny,Zeny-@fielc;
  1563. 						switch(@fwarp) {
  1564. 							case 1:
  1565. 								warp "xmas_fild01.gat",115,145;
  1566. 								set lmap$,"xmas_fild01.gat";	set lx,115;	set ly,145;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1567. 								end;
  1568. 						}
  1569. 					case 11:
  1570. 						set @fwarp,select(@field$[10]);
  1571. 						set Zeny,Zeny-@fielc;
  1572. 						switch(@fwarp) {
  1573. 							case 1:
  1574. 								warp "mjolnir_01.gat",204,120;
  1575. 								set lmap$,"mjolnir_01.gat";		set lx,204;	set ly,120;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1576. 								end;
  1577. 							case 2:
  1578. 								warp "mjolnir_02.gat",175,193;
  1579. 								set lmap$,"mjolnir_02.gat";		set lx,175;	set ly,193;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1580. 								end;
  1581. 							case 3:
  1582. 								warp "mjolnir_03.gat",208,213;
  1583. 								set lmap$,"mjolnir_03.gat";		set lx,208;	set ly,213;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1584. 								end;
  1585. 							case 4:
  1586. 								warp "mjolnir_04.gat",179,180;
  1587. 								set lmap$,"mjolnir_04.gat";		set lx,179;	set ly,180;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1588. 								end;
  1589. 							case 5:
  1590. 								warp "mjolnir_05.gat",181,240;
  1591. 								set lmap$,"mjolnir_05.gat";		set lx,181;	set ly,240;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1592. 								end;
  1593. 							case 6:
  1594. 								warp "mjolnir_06.gat",195,270;
  1595. 								set lmap$,"mjolnir_06.gat";		set lx,195;	set ly,270;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1596. 								end;
  1597. 							case 7:
  1598. 								warp "mjolnir_07.gat",235,202;
  1599. 								set lmap$,"mjolnir_07.gat";		set lx,235;	set ly,202;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1600. 								end;
  1601. 							case 8:
  1602. 								warp "mjolnir_08.gat",188,215;
  1603. 								set lmap$,"mjolnir_08.gat";		set lx,188;	set ly,215;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1604. 								end;
  1605. 							case 9:
  1606. 								warp "mjolnir_09.gat",205,144;
  1607. 								set lmap$,"mjolnir_09.gat";		set lx,205;	set ly,144;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1608. 								end;
  1609. 							case 10:
  1610. 								warp "mjolnir_10.gat",245,223;
  1611. 								set lmap$,"mjolnir_10.gat";		set lx,245;	set ly,223;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1612. 								end;
  1613. 							case 11:
  1614. 								warp "mjolnir_11.gat",180,206;
  1615. 								set lmap$,"mjolnir_11.gat";		set lx,180;	set ly,206;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1616. 								end;
  1617. 							case 12:
  1618. 								warp "mjolnir_12.gat",196,208;
  1619. 								set lmap$,"mjolnir_12.gat";		set lx,196;	set ly,208;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1620. 								end;
  1621. 						}
  1622.  
  1623. 					case 12:
  1624. 						set @fwarp,select(@field$[11]);
  1625. 						set Zeny,Zeny-@fielc;
  1626. 						switch(@fwarp) {
  1627. 							case 1:
  1628. 								warp "mosk_fild01.gat",95,93;
  1629. 								set lmap$,"mosk_fild01.gat";	set lx,95;	set ly,93;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1630. 								end;
  1631. 							case 2:
  1632. 								warp "mosk_fild02.gat",204,56;
  1633. 								set lmap$,"mosk_fild02.gat";	set lx,204;	set ly,56;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1634. 								end;
  1635. 						}
  1636. 					case 13:
  1637. 						set @fwarp,select(@field$[12]);
  1638. 						set Zeny,Zeny-@fielc;
  1639. 						switch(@fwarp) {
  1640. 							case 1:
  1641. 								warp "nameless_n.gat",258,215;
  1642. 								set lmap$,"nameless_n.gat";		set lx,258;	set ly,215;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1643. 								end;
  1644. 						}
  1645. 					case 14:
  1646. 						set @fwarp,select(@field$[13]);
  1647. 						set Zeny,Zeny-@fielc;
  1648. 						switch(@fwarp) {
  1649. 							case 1:
  1650. 								warp "nif_fild01.gat",215,229;
  1651. 								set lmap$,"nif_fild01.gat";		set lx,215;	set ly,229;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1652. 								end;
  1653. 							case 2:
  1654. 								warp "nif_fild02.gat",167,234;
  1655. 								set lmap$,"nif_fild02.gat";		set lx,167;	set ly,234;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1656. 								end;
  1657. 						}
  1658. 					case 15:
  1659. 						set @fwarp,select(@field$[14]);
  1660. 						set Zeny,Zeny-@fielc;
  1661. 						switch(@fwarp) {
  1662. 							case 1:
  1663. 								warp "odin_tem01.gat",298,167;
  1664. 								set lmap$,"odin_tem01.gat";		set lx,298;	set ly,167;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1665. 								end;
  1666. 							case 2:
  1667. 								warp "odin_tem02.gat",224,149;
  1668. 								set lmap$,"odin_tem02.gat";		set lx,224;	set ly,149;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1669. 								end;
  1670. 							case 3:
  1671. 								warp "odin_tem03.gat",266,280;
  1672. 								set lmap$,"odin_tem03.gat";		set lx,266;	set ly,280;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1673. 								end;
  1674. 						}
  1675. 					case 16:
  1676. 						set @fwarp,select(@field$[15]);
  1677. 						set Zeny,Zeny-@fielc;
  1678. 						switch(@fwarp) {
  1679. 							case 1:
  1680. 								warp "pay_fild01.gat",158,206;
  1681. 								set lmap$,"pay_fild01.gat";		set lx,158;	set ly,206;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1682. 								end;
  1683. 							case 2:
  1684. 								warp "pay_fild02.gat",151,219;
  1685. 								set lmap$,"pay_fild02.gat";		set lx,151;	set ly,219;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1686. 								end;
  1687. 							case 3:
  1688. 								warp "pay_fild03.gat",205,148;
  1689. 								set lmap$,"pay_fild03.gat";		set lx,205;	set ly,148;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1690. 								end;
  1691. 							case 4:
  1692. 								warp "pay_fild04.gat",186,247;
  1693. 								set lmap$,"pay_fild04.gat";		set lx,186;	set ly,247;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1694. 								end;
  1695. 							case 5:
  1696. 								warp "pay_fild05.gat",134,204;
  1697. 								set lmap$,"pay_fild05.gat";		set lx,134;	set ly,204;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1698. 								end;
  1699. 							case 6:
  1700. 								warp "pay_fild06.gat",193,235;
  1701. 								set lmap$,"pay_fild06.gat";		set lx,193;	set ly,235;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1702. 								end;
  1703. 							case 7:
  1704. 								warp "pay_fild07.gat",200,177;
  1705. 								set lmap$,"pay_fild07.gat";		set lx,200;	set ly,177;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1706. 								end;
  1707. 							case 8:
  1708. 								warp "pay_fild08.gat",137,189;
  1709. 								set lmap$,"pay_fild08.gat";		set lx,137;	set ly,189;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1710. 								end;
  1711. 							case 9:
  1712. 								warp "pay_fild09.gat",201,224;
  1713. 								set lmap$,"pay_fild09.gat";		set lx,201;	set ly,224;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1714. 								end;
  1715. 							case 10:
  1716. 								warp "pay_fild10.gat",160,205;
  1717. 								set lmap$,"pay_fild10.gat";		set lx,160;	set ly,205;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1718. 								end;
  1719. 							case 11:
  1720. 								warp "pay_fild11.gat",194,150;
  1721. 								set lmap$,"pay_fild11.gat";		set lx,194;	set ly,150;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1722. 								end;
  1723. 						}
  1724. 					case 17:
  1725. 						set @fwarp,select(@field$[16]);
  1726. 						set Zeny,Zeny-@fielc;
  1727. 						switch(@fwarp) {
  1728. 							case 1:
  1729. 								warp "prt_fild00.gat",184,235;
  1730. 								set lmap$,"prt_fild00.gat";		set lx,184;	set ly,235;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1731. 								end;
  1732. 							case 2:
  1733. 								warp "prt_fild01.gat",190,206;
  1734. 								set lmap$,"prt_fild01.gat";		set lx,190;	set ly,206;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1735. 								end;
  1736. 							case 3:
  1737. 								warp "prt_fild02.gat",240,206;
  1738. 								set lmap$,"prt_fild02.gat";		set lx,240;	set ly,206;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1739. 								end;
  1740. 							case 4:
  1741. 								warp "prt_fild03.gat",190,143;
  1742. 								set lmap$,"prt_fild03.gat";		set lx,190;	set ly,143;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1743. 								end;
  1744. 							case 5:
  1745. 								warp "prt_fild04.gat",307,252;
  1746. 								set lmap$,"prt_fild04.gat";		set lx,307;	set ly,252;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1747. 								end;
  1748. 							case 6:
  1749. 								warp "prt_fild05.gat",239,213;
  1750. 								set lmap$,"prt_fild05.gat";		set lx,239;	set ly,213;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1751. 								end;
  1752. 							case 7:
  1753. 								warp "prt_fild06.gat",185,188;
  1754. 								set lmap$,"prt_fild06.gat";		set lx,185;	set ly,188;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1755. 								end;
  1756. 							case 8:
  1757. 								warp "prt_fild07.gat",193,194;
  1758. 								set lmap$,"prt_fild07.gat";		set lx,193;	set ly,194;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1759. 								end;
  1760. 							case 9:
  1761. 								warp "prt_fild08.gat",187,218;
  1762. 								set lmap$,"prt_fild08.gat";		set lx,187;	set ly,218;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1763. 								end;
  1764. 							case 10:
  1765. 								warp "prt_fild09.gat",210,183;
  1766. 								set lmap$,"prt_fild09.gat";		set lx,210;	set ly,183;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1767. 								end;
  1768. 							case 11:
  1769. 								warp "prt_fild10.gat",195,149;
  1770. 								set lmap$,"prt_fild10.gat";		set lx,195;	set ly,149;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1771. 								end;
  1772. 							case 12:
  1773. 								warp "prt_fild11.gat",198,164;
  1774. 								set lmap$,"prt_fild11.gat";		set lx,198;	set ly,164;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1775. 								end;
  1776. 						}
  1777. 					case 18:
  1778. 						set @fwarp,select(@field$[17]);
  1779. 						set Zeny,Zeny-@fielc;
  1780. 						switch(@fwarp) {
  1781. 							case 1:
  1782. 								warp "ra_fild01.gat",192,162;
  1783. 								set lmap$,"ra_fild01.gat";		set lx,192;	set ly,162;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1784. 								end;
  1785. 							case 2:
  1786. 								warp "ra_fild02.gat",235,166;
  1787. 								set lmap$,"ra_fild02.gat";		set lx,235;	set ly,166;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1788. 								end;
  1789. 							case 3:
  1790. 								warp "ra_fild03.gat",202,206;
  1791. 								set lmap$,"ra_fild03.gat";		set lx,202;	set ly,206;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1792. 								end;
  1793. 							case 4:
  1794. 								warp "ra_fild04.gat",202,208;
  1795. 								set lmap$,"ra_fild04.gat";		set lx,202;	set ly,208;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1796. 								end;
  1797. 							case 5:
  1798. 								warp "ra_fild05.gat",225,202;
  1799. 								set lmap$,"ra_fild05.gat";		set lx,225;	set ly,202;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1800. 								end;
  1801. 							case 6:
  1802. 								warp "ra_fild06.gat",202,214;
  1803. 								set lmap$,"ra_fild06.gat";		set lx,202;	set ly,214;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1804. 								end;
  1805. 							case 7:
  1806. 								warp "ra_fild07.gat",263,196;
  1807. 								set lmap$,"ra_fild07.gat";		set lx,263;	set ly,196;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1808. 								end;
  1809. 							case 8:
  1810. 								warp "ra_fild08.gat",217,201;
  1811. 								set lmap$,"ra_fild08.gat";		set lx,217;	set ly,201;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1812. 								end;
  1813. 							case 9:
  1814. 								warp "ra_fild09.gat",87,121;
  1815. 								set lmap$,"ra_fild09.gat";		set lx,87;	set ly,121;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1816. 								end;
  1817. 							case 10:
  1818. 								warp "ra_fild10.gat",277,181;
  1819. 								set lmap$,"ra_fild10.gat";		set lx,277;	set ly,181;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1820. 								end;
  1821. 							case 11:
  1822. 								warp "ra_fild11.gat",221,185;
  1823. 								set lmap$,"ra_fild11.gat";		set lx,221;	set ly,185;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1824. 								end;
  1825. 							case 12:
  1826. 								warp "ra_fild12.gat",175,200;
  1827. 								set lmap$,"ra_fild12.gat";		set lx,175;	set ly,200;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1828. 								end;
  1829. 							case 13:
  1830. 								warp "ra_fild13.gat",174,197;
  1831. 								set lmap$,"ra_fild13.gat";		set lx,174;	set ly,197;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1832. 								end;
  1833. 						}
  1834. 					case 19:
  1835. 						set @fwarp,select(@field$[18]);
  1836. 						set Zeny,Zeny-@fielc;
  1837. 						switch(@fwarp) {
  1838. 							case 1:
  1839. 								warp "moc_fild01.gat",219,205;
  1840. 								set lmap$,"moc_fild01.gat";		set lx,219;	set ly,205;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1841. 								end;
  1842. 							case 2:
  1843. 								warp "moc_fild02.gat",177,206;
  1844. 								set lmap$,"moc_fild02.gat";		set lx,177;	set ly,206;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1845. 								end;
  1846. 							case 3:
  1847. 								warp "moc_fild03.gat",194,182;
  1848. 								set lmap$,"moc_fild03.gat";		set lx,194;	set ly,182;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1849. 								end;
  1850. 							case 4:
  1851. 								warp "moc_fild04.gat",184,217;
  1852. 								set lmap$,"moc_fild04.gat";		set lx,184;	set ly,217;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1853. 								end;
  1854. 							case 5:
  1855. 								warp "moc_fild05.gat",203,213;
  1856. 								set lmap$,"moc_fild05.gat";		set lx,203;	set ly,213;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1857. 								end;
  1858. 							case 6:
  1859. 								warp "moc_fild06.gat",213,208;
  1860. 								set lmap$,"moc_fild06.gat";		set lx,213;	set ly,208;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1861. 								end;
  1862. 							case 7:
  1863. 								warp "moc_fild07.gat",224,170;
  1864. 								set lmap$,"moc_fild07.gat";		set lx,224;	set ly,170;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1865. 								end;
  1866. 							case 8:
  1867. 								warp "moc_fild08.gat",229,177;
  1868. 								set lmap$,"moc_fild08.gat";		set lx,229;	set ly,177;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1869. 								end;
  1870. 							case 9:
  1871. 								warp "moc_fild09.gat",195,198;
  1872. 								set lmap$,"moc_fild09.gat";		set lx,195;	set ly,198;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1873. 								end;
  1874. 							case 10:
  1875. 								warp "moc_fild10.gat",209,168;
  1876. 								set lmap$,"moc_fild10.gat";		set lx,209;	set ly,168;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1877. 								end;
  1878. 							case 11:
  1879. 								warp "moc_fild11.gat",198,216;
  1880. 								set lmap$,"moc_fild11.gat";		set lx,198;	set ly,216;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1881. 								end;
  1882. 							case 12:
  1883. 								warp "moc_fild12.gat",156,187;
  1884. 								set lmap$,"moc_fild12.gat";		set lx,156;	set ly,187;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1885. 								end;
  1886. 							case 13:
  1887. 								warp "moc_fild13.gat",185,263;
  1888. 								set lmap$,"moc_fild13.gat";		set lx,185;	set ly,263;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1889. 								end;
  1890. 							case 14:
  1891. 								warp "moc_fild14.gat",209,219;
  1892. 								set lmap$,"moc_fild14.gat";		set lx,209;	set ly,219;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1893. 								end;
  1894. 							case 15:
  1895. 								warp "moc_fild15.gat",223,188;
  1896. 								set lmap$,"moc_fild15.gat";		set lx,223;	set ly,188;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1897. 								end;
  1898. 							case 16:
  1899. 								warp "moc_fild16.gat",206,228;
  1900. 								set lmap$,"moc_fild16.gat";		set lx,206;	set ly,228;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1901. 								end;
  1902. 							case 17:
  1903. 								warp "moc_fild17.gat",208,238;
  1904. 								set lmap$,"moc_fild17.gat";		set lx,208;	set ly,238;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1905. 								end;
  1906. 							case 18:
  1907. 								warp "moc_fild18.gat",209,223;
  1908. 								set lmap$,"moc_fild18.gat";		set lx,209;	set ly,223;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1909. 								end;
  1910. 							case 19:
  1911. 								warp "moc_fild19.gat",85,97;
  1912. 								set lmap$,"moc_fild19.gat";		set lx,85;	set ly,97;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1913. 								end;
  1914. 						}
  1915. 					case 20:
  1916. 						set @fwarp,select(@field$[19]);
  1917. 						set Zeny,Zeny-@fielc;
  1918. 						switch(@fwarp) {
  1919. 							case 1:
  1920. 								warp "um_fild01.gat",217,206;
  1921. 								set lmap$,"um_fild01.gat";		set lx,217;	set ly,206;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1922. 								end;
  1923. 							case 2:
  1924. 								warp "um_fild02.gat",223,221;
  1925. 								set lmap$,"um_fild02.gat";		set lx,223;	set ly,221;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1926. 								end;
  1927. 							case 3:
  1928. 								warp "um_fild03.gat",237,215;
  1929. 								set lmap$,"um_fild03.gat";		set lx,237;	set ly,215;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1930. 								end;
  1931. 							case 4:
  1932. 								warp "um_fild04.gat",202,197;
  1933. 								set lmap$,"um_fild04.gat";		set lx,202;	set ly,197;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1934. 								end;
  1935. 						}
  1936. 					case 21:
  1937. 						set @fwarp,select(@field$[20]);
  1938. 						set Zeny,Zeny-@fielc;
  1939. 						switch(@fwarp) {
  1940. 							case 1:
  1941. 								warp "ve_fild01",186,175;
  1942. 								set lmap$,"ve_fild01";			set lx,186;	set ly,175;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1943. 								end;
  1944. 							case 2:
  1945. 								warp "ve_fild02",196,370;
  1946. 								set lmap$,"ve_fild02";			set lx,196;	set ly,370;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1947. 								end;
  1948. 							case 3:
  1949. 								warp "ve_fild03",222,45;
  1950. 								set lmap$,"ve_fild03";			set lx,222;	set ly,45;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1951. 								end;
  1952. 							case 4:
  1953. 								warp "ve_fild04",51,250;
  1954. 								set lmap$,"ve_fild04";			set lx,51;	set ly,250;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1955. 								end;
  1956. 							case 5:
  1957. 								warp "ve_fild05",202,324;
  1958. 								set lmap$,"ve_fild05";			set lx,202;	set ly,324;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1959. 								end;
  1960. 							case 6:
  1961. 								warp "ve_fild06",150,223;
  1962. 								set lmap$,"ve_fild06";			set lx,150;	set ly,223;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1963. 								end;
  1964. 							case 7:
  1965. 								warp "ve_fild07",149,307;
  1966. 								set lmap$,"ve_fild07";			set lx,149;	set ly,307;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1967. 								end;
  1968. 						}
  1969. 					case 22:
  1970. 						set @fwarp,select(@field$[21]);
  1971. 						set Zeny,Zeny-@fielc;
  1972. 						switch(@fwarp) {
  1973. 							case 1:
  1974. 								warp "yuno_fild01.gat",189,224;
  1975. 								set lmap$,"yuno_fild01.gat";	set lx,189;	set ly,224;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1976. 								end;
  1977. 							case 2:
  1978. 								warp "yuno_fild02.gat",192,207;
  1979. 								set lmap$,"yuno_fild02.gat";	set lx,192;	set ly,207;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1980. 								end;
  1981. 							case 3:
  1982. 								warp "yuno_fild03.gat",221,157;
  1983. 								set lmap$,"yuno_fild03.gat";	set lx,221;	set ly,157;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1984. 								end;
  1985. 							case 4:
  1986. 								warp "yuno_fild04.gat",226,199;
  1987. 								set lmap$,"yuno_fild04.gat";	set lx,226;	set ly,199;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1988. 								end;
  1989. 							case 5:
  1990. 								warp "yuno_fild05.gat",223,177;
  1991. 								set lmap$,"yuno_fild05.gat";	set lx,223;	set ly,177;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1992. 								end;
  1993. 							case 6:
  1994. 								warp "yuno_fild06.gat",187,232;
  1995. 								set lmap$,"yuno_fild06.gat";	set lx,187;	set ly,232;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  1996. 								end;
  1997. 							case 7:
  1998. 								warp "yuno_fild07.gat",231,174;
  1999. 								set lmap$,"yuno_fild07.gat";	set lx,231;	set ly,174;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  2000. 								end;
  2001. 							case 8:
  2002. 								warp "yuno_fild08.gat",196,203;
  2003. 								set lmap$,"yuno_fild08.gat";	set lx,196;	set ly,203;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  2004. 								end;
  2005. 							case 9:
  2006. 								warp "yuno_fild09.gat",183,214;
  2007. 								set lmap$,"yuno_fild09.gat";	set lx,183;	set ly,214;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  2008. 								end;
  2009. 							case 10:
  2010. 								warp "yuno_fild10.gat",200,124;
  2011. 								set lmap$,"yuno_fild10.gat";	set lx,200;	set ly,124;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  2012. 								end;
  2013. 							case 11:
  2014. 								warp "yuno_fild11.gat",195,226;
  2015. 								set lmap$,"yuno_fild11.gat";	set lx,195;	set ly,226;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  2016. 								end;
  2017. 							case 12:
  2018. 								warp "yuno_fild12.gat",210,304;
  2019. 								set lmap$,"yuno_fild12.gat";	set lx,210;	set ly,304;		set ltownw,0;	set ldunw,0;	set lfieldw,1;
  2020. 								end;
  2021. 						}
  2022. 				}
  2023.  
  2024. 			case 4:
  2025. 				if($woeon) {
  2026. 					if(!$gwrp) {
  2027. 						mes @n$;
  2028. 						if($payfor) {
  2029. 							if(@castc>Zeny) {
  2030. 								mes @pay$[0];
  2031. 								close;
  2032. 							}
  2033. 						}
  2034. 						mes @warp$[7];
  2035. 						switch(select(@men$[4])) {
  2036. 							case 1:
  2037. 								set @cwarp,select(@cas$[0]);
  2038. 								set Zeny,Zeny-@castc;
  2039. 								switch(@cwarp) {
  2040. 									case 1:
  2041. 										warp "alde_gld.gat",95,244;	end;
  2042. 									case 2:
  2043. 										warp "alde_gld.gat",48,87;	end;
  2044. 									case 3:
  2045. 										warp "alde_gld.gat",142,87;	end;
  2046. 									case 4:
  2047. 										warp "alde_gld.gat",271,90;	end;
  2048. 									case 5:
  2049. 										warp "alde_gld.gat",235,242;	end;
  2050. 								}
  2051. 							case 2:
  2052. 								set @cwarp,select(@cas$[1]);
  2053. 								set Zeny,Zeny-@castc;
  2054. 								switch(@cwarp) {
  2055. 									case 1:
  2056. 										warp "gef_fild13.gat",188,273;	end;
  2057. 									case 2:
  2058. 										warp "gef_fild13.gat",297,239;	end;
  2059. 									case 3:
  2060. 										warp "gef_fild13.gat",309,88;	end;
  2061. 									case 4:
  2062. 										warp "gef_fild13.gat",216,75;	end;
  2063. 									case 5:
  2064. 										warp "gef_fild13.gat",77,296;	end;
  2065. 								}
  2066. 							case 3:
  2067. 								set @cwarp,select(@cas$[2]);
  2068. 								set Zeny,Zeny-@castc;
  2069. 								switch(@cwarp) {
  2070. 									case 1:
  2071. 										warp "pay_gld.gat",187,269;	end;
  2072. 									case 2:
  2073. 										warp "pay_gld.gat",121,229;	end;
  2074. 									case 3:
  2075. 										warp "pay_gld.gat",314,294;	end;
  2076. 									case 4:
  2077. 										warp "pay_gld.gat",139,163;	end;
  2078. 									case 5:
  2079. 										warp "pay_gld.gat",298,117;	end;	
  2080. 								}
  2081. 							case 4:
  2082. 								set @cwarp,select(@cas$[3]);
  2083. 								set Zeny,Zeny-@castc;
  2084. 								switch(@cwarp) {
  2085. 									case 1:
  2086. 										warp "prt_gld.gat",152,130;	end;
  2087. 									case 2:
  2088. 										warp "prt_gld.gat",194,240;	end;
  2089. 									case 3:
  2090. 										warp "prt_gld.gat",140,64;	end;
  2091. 									case 4:
  2092. 										warp "prt_gld.gat",124,240;	end;
  2093. 									case 5:
  2094. 										warp "prt_gld.gat",240,132;	end;
  2095. 								}
  2096. 						}
  2097. 					}
  2098. 				}
  2099.  
  2100. 				mes @n$;
  2101. 				if($payfor) {
  2102. 					if(@gdunc>Zeny) {
  2103. 						mes @pay$[0];
  2104. 						close;
  2105. 					}
  2106. 				}
  2107. 				mes @warp$[5];
  2108. 				set @gdwarp,select(@men$[2]);
  2109. 				set Zeny,Zeny-@gdunc;
  2110. 				switch(@gdwarp) {
  2111. 					case 1:
  2112. 						warp "gld_dun01.gat",119,93;	end;
  2113. 					case 2:
  2114. 						warp "gld_dun02.gat",39,161;	end;
  2115. 					case 3:
  2116. 						warp "gld_dun03.gat",50,44;	end;
  2117. 					case 4:
  2118. 						warp "gld_dun04.gat",116,45;	end; 
  2119. 				}
  2120.  
  2121. 			case 5:
  2122. 				mes @n$;
  2123. 				if($payfor) {
  2124. 					if(@castc>Zeny) {
  2125. 						mes @pay$[0];
  2126. 						close;
  2127. 					}
  2128. 				}
  2129. 				mes @warp$[7];
  2130. 				switch(select(@men$[4])) {
  2131. 					case 1:
  2132. 						set @cwarp,select(@cas$[0]);
  2133. 						set Zeny,Zeny-@castc;
  2134. 						switch(@cwarp) {
  2135. 							case 1:
  2136. 								warp "alde_gld.gat",95,244;	end;
  2137. 							case 2:
  2138. 								warp "alde_gld.gat",48,87;	end;
  2139. 							case 3:
  2140. 								warp "alde_gld.gat",142,87;	end;
  2141. 							case 4:
  2142. 								warp "alde_gld.gat",271,90;	end;
  2143. 							case 5:
  2144. 								warp "alde_gld.gat",235,242;	end;
  2145. 						}
  2146. 					case 2:
  2147. 						set @cwarp,select(@cas$[1]);
  2148. 						set Zeny,Zeny-@castc;
  2149. 						switch(@cwarp) {
  2150. 							case 1:
  2151. 								warp "gef_fild13.gat",188,273;	end;
  2152. 							case 2:
  2153. 								warp "gef_fild13.gat",297,239;	end;
  2154. 							case 3:
  2155. 								warp "gef_fild13.gat",309,88;	end;
  2156. 							case 4:
  2157. 								warp "gef_fild13.gat",216,75;	end;
  2158. 							case 5:
  2159. 								warp "gef_fild13.gat",77,296;	end;
  2160. 						}
  2161. 					case 3:
  2162. 						set @cwarp,select(@cas$[2]);
  2163. 						set Zeny,Zeny-@castc;
  2164. 						switch(@cwarp) {
  2165. 							case 1:
  2166. 								warp "pay_gld.gat",187,269;	end;
  2167. 							case 2:
  2168. 								warp "pay_gld.gat",121,229;	end;
  2169. 							case 3:
  2170. 								warp "pay_gld.gat",314,294;	end;
  2171. 							case 4:
  2172. 								warp "pay_gld.gat",139,163;	end;
  2173. 							case 5:
  2174. 								warp "pay_gld.gat",298,117;	end;	
  2175. 						}
  2176. 					case 4:
  2177. 						set @cwarp,select(@cas$[3]);
  2178. 						set Zeny,Zeny-@castc;
  2179. 						switch(@cwarp) {
  2180. 							case 1:
  2181. 								warp "prt_gld.gat",152,130;	end;
  2182. 							case 2:
  2183. 								warp "prt_gld.gat",194,240;	end;
  2184. 							case 3:
  2185. 								warp "prt_gld.gat",140,64;	end;
  2186. 							case 4:
  2187. 								warp "prt_gld.gat",124,240;	end;
  2188. 							case 5:
  2189. 								warp "prt_gld.gat",240,132;	end;
  2190. 						}
  2191. 				}
  2192. 			case 6:
  2193. 				mes @n$;
  2194. 					if(lx || ly) {
  2195. 						mes @warp$[18];
  2196. 						switch(select(@warp$[19])) {
  2197. 							case 1:
  2198. 								if($payfor) {
  2199. 									if(@plastwarp>Zeny) {
  2200. 										mes @pay$[0];
  2201. 										close;
  2202. 									}
  2203. 								}
  2204. 								set Zeny,Zeny-@plastwarp;
  2205. 								warp lmap$,lx,ly;	end;
  2206. 							case 2:
  2207. 								close;
  2208. 						}
  2209. 					}else{
  2210. 						mes @warp$[20];
  2211. 						close;
  2212. 					}
  2213. 		}
  2214.  
  2215. }
  2216.  
  2217. //-------------------------------
  2218. //       Duplicate NPCs
  2219. //-------------------------------
  2220.  
  2221. alberta.gat,28,240,5	duplicate(Warper)	Warp NPC#01	859
  2222. alb2trea.gat,73,101,4	duplicate(Warper)	Warp NPC#02	859
  2223. aldebaran.gat,145,118,4	duplicate(Warper)	Warp NPC#03	859
  2224. amatsu.gat,200,79,1	duplicate(Warper)	Warp NPC#04	859
  2225. ayothaya.gat,143,162,4	duplicate(Warper)	Warp NPC#05	859
  2226. comodo.gat,194,158,4	duplicate(Warper)	Warp NPC#06	859
  2227. einbech.gat,142,246,4	duplicate(Warper)	Warp NPC#07	859
  2228. einbroch.gat,69,202,4	duplicate(Warper)	Warp NPC#08	859
  2229. gef_fild10.gat,71,340,5	duplicate(Warper)	Warp NPC#09	859
  2230. geffen.gat,115,70,6	duplicate(Warper)	Warp NPC#10	859
  2231. glast_01.gat,370,308,4	duplicate(Warper)	Warp NPC#11	859
  2232. gonryun.gat,151,130,4	duplicate(Warper)	Warp NPC#12	859
  2233. hugel.gat,90,159,4	duplicate(Warper)	Warp NPC#13	859
  2234. izlude.gat,131,121,5	duplicate(Warper)	Warp NPC#14	859
  2235. izlu2dun.gat,104,96,5	duplicate(Warper)	Warp NPC#15	859
  2236. lighthalzen.gat,154,105,5	duplicate(Warper)	Warp NPC#16	859
  2237. louyang.gat,207,104,5	duplicate(Warper)	Warp NPC#17	859
  2238. mjolnir_02.gat,85,363,4	duplicate(Warper)	Warp NPC#18	859
  2239. moc_fild04.gat,207,331,4	duplicate(Warper)	Warp NPC#19	859
  2240. moc_ruins.gat,64,164,5	duplicate(Warper)	Warp NPC#20	859
  2241. moc_fild19.gat,106,97,4	duplicate(Warper)	Warp NPC#21	859
  2242. morocc.gat,154,97,4	duplicate(Warper)	Warp NPC#22	859
  2243. pay_arche.gat,55,125,2	duplicate(Warper)	Warp NPC#23	859
  2244. payon.gat,182,110,4	duplicate(Warper)	Warp NPC#24	859
  2245. prt_fild05.gat,290,218,3	duplicate(Warper)	Warp NPC#25	859
  2246. rachel.gat,129,146,5	duplicate(Warper)	Warp NPC#26	859
  2247. tur_dun01.gat,148,239,4	duplicate(Warper)	Warp NPC#27	859
  2248. umbala.gat,132,130,4	duplicate(Warper)	Warp NPC#28	859
  2249. yuno.gat,144,187,4	duplicate(Warper)	Warp NPC#29	859
  2250. yuno_fild03.gat,37,135,4	duplicate(Warper)	Warp NPC#30	859
  2251. xmas.gat,150,136,4	duplicate(Warper)	Warp NPC#31	859
  2252. jawaii.gat,203,242,4	duplicate(Warper)	Warp NPC#32	859
  2253. moscovia.gat,170,67,2	duplicate(Warper)	Warp NPC#33	859
  2254. nameless_i.gat,232,218,4	duplicate(Warper)	Warp NPC#34	859
  2255. niflheim.gat,204,179,3	duplicate(Warper)	Warp NPC#35	859
  2256. thor_camp.gat,249,78,3	duplicate(Warper)	Warp NPC#36	859
  2257. veins.gat,208,125,5	duplicate(Warper)	Warp NPC#37	859
  2258. prt_fild01.gat,133,364,4	duplicate(Warper)	Warp NPC#38	859
Viewed 926 times, submitted by Guest.