fRO_french_translation_rAthena/npc/custom/eAAC_Scripts/quest_warper.txt

//===== eAthena Script ============================================
//= *BETA* Quest Warper Script
//===== By: =======================================================
//= Old Warper 2 by Darkchild - Remade with quest format by DZeroX
//= Huge Rewrite by Neouni
//===== Current Version: ==========================================
//= 1.6a
//===== Compatible With: ==========================================
//= Any eAthena Version
//===== Description: ==============================================
//= Warper that works only after locations are unlocked
//===== Warning: ==================================================
// you have to set the securitycode value [1337] the same as in
// functions_kafras.txt if you changed it !!
//===== Additional Comments: ======================================
//= 1.0 - NPCs created
//= 1.1 - Add Dungeons by sturm
//= 1.2 - Add All char in account unlocked by ace_killer
//= 1.3 - Add new 7 towns and 7 dungeons by escoteiro
// - Correct bug jawaii town by escoteiro
// - Remove some excessive warpras by escoteiro
//= 1.4 - Rewrite of the Warpa system [Neouni]
// - Corrected some bugs caused by autoconverting the old script
//= 1.4a - Rewrite of menu to be custom for each player [Neouni]
// - Dungeon listing rewrite
// - Town listing rewrite
// - GameMaster can Customise Main menu
//= 1.4b - Pricing round [Neouni]
// - GM menu added for pricing
// - Town Warp pricing tags added
// - Dungeon Warp pricing tags added
//= 1.5 - storage functions pricing [Neouni]
// - storage pricing added
// - kafra points setting added
// - kafra storage code security added
// - Healing scripts pricing added
// - Heal Part script added
//= 1.6 - Dungeon warp [Neouni]
// - added option to add a extra fee for going down deeper into dungeon
// partly by rebuilding the dungeon warping into variable menu's
//= 1.6a - alot of fixes for beta release [Neouni]
// - fixed syntax problems
// - fixed missing pyramid gats in @DGat$ array
// - removed the culver level 5 that didn't exist
// and caused quite alot of problems (i didn't check while converting)
//-1.7 - Readability of Dungeon menu array building increased
// - Thanatos Tower & Louyang Dungeon added


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

//========================Function=&=Script========================


function	script	Q_Warpra	{
	mes "[Warpra]";
	mes "Hello,";
	mes "I can warp you to any town or dungeon, but you need to unlock them first.";
	mes "To unlock them, you have to visit us.";
	mes "What do you need?";
	
	if(getarg(0) == 0) callfunc "QWS_MMarray",0;
	if(getarg(0) == 1) callfunc "QWS_MMarray",1;
	
	menu @Mmenulist$[0],-,@Mmenulist$[1],-,@Mmenulist$[2],-,@Mmenulist$[3],-,@Mmenulist$[4],-,@Mmenulist$[5],-,@Mmenulist$[6],-,@Mmenulist$[7],-,@Mmenulist$[8],-,@Mmenulist$[9],-;
	
	if (@pMmenuitems$[@Mmenuref[@menu-1]] == "GameMaster Menu") goto GM_Menu;
	if (@pMmenuitems$[@Mmenuref[@menu-1]] == "Warp to Towns") goto L_town;
	if (@pMmenuitems$[@Mmenuref[@menu-1]] == "Warp to Dungeons") goto L_dungeon;
	if (@pMmenuitems$[@Mmenuref[@menu-1]] == "Why so few Warps ?") goto L_FewWarps;
	if (@pMmenuitems$[@Mmenuref[@menu-1]] == "Why don't you Unlock this location ?") goto L_NoUnlock;
	if (@Mmenuref[@menu-1] == 5) goto L_heal_Full;
	if (@Mmenuref[@menu-1] == 6) goto L_heal_Part;
	if (@pMmenuitems$[@Mmenuref[@menu-1]] == "Storage") goto L_Storage;
	if (@pMmenuitems$[@Mmenuref[@menu-1]] == "Guild Storage") goto L_GStorage;
	if (@pMmenuitems$[@Mmenuref[@menu-1]] == "Cancel") goto L_end;
	goto L_end;


//=====================GM-Menu=Functions===========================

GM_Menu:
next;
//----------------Town-Warp
	if ($QW_TW_OFF == 0) mes "Town warping = ^00FF00 On ^000000";
	if ($QW_TW_OFF == 1) mes "Town warping = ^FF0000 Off ^000000";
//----------------Dungeon-Warp
	if ($QW_DW_OFF == 0) mes "Dungeon warping = ^00FF00 On ^000000";
	if ($QW_DW_OFF == 1) mes "Dungeon warping = ^FF0000 Off ^000000";
//----------------Healfull
	if ($QW_HF == 1) mes "Healing full = ^00FF00 On ^000000";
//----------------Healpart
	if ($QW_HP == 1) mes "Healing partly = ^00FF00 On ^000000";
	if (($QW_HF == 0)&&($QW_HP == 0)) mes "Healing = ^FF0000 Off ^000000";
//----------------Storage
	if ($QW_Stor == 1) mes "Storage = ^00FF00 On ^000000";
	if ($QW_Stor == 0) mes "Storage = ^FF0000 Off ^000000";
//----------------GuildStorage
	if ($QW_GStor == 1) mes "Guild Storage = ^00FF00 On ^000000";
	if ($QW_GStor == 0) mes "Guild Storage = ^FF0000 Off ^000000";
//----------------GMmenu
	if ($QW_KPoint == 1) mes "Kafra points collect = ^00FF00 On ^000000";
	if ($QW_KPoint == 0) mes "Kafra points collect = ^FF0000 Off ^000000";
set @GMmenu,select("Town Warping","Dungeon Warping","Healing full","Healing partly","Storage","Guild Storage","Kafra points collect","Set Prices","Exit");

// Using callsub and a small check to not make 1 part of the script set it on and the other turning it off again
// why not use TWSETON & TWSETOFF ?, this saves lines

	if ((@GMmenu == 1)&&($QW_TW_OFF == 0)) callsub TWSET,0;
	if ((@GMmenu == 1)&&($QW_TW_OFF == 1)) callsub TWSET,1;
	if ((@GMmenu == 2)&&($QW_DW_OFF == 0)) callsub DWSET,0;
	if ((@GMmenu == 2)&&($QW_DW_OFF == 1)) callsub DWSET,1;
	if (@GMmenu == 3)&&($QW_HF == 0) callsub HFSET,0;
	if (@GMmenu == 3)&&($QW_HF == 1) callsub HFSET,1;
	if (@GMmenu == 4)&&($QW_HP == 0) callsub HPSET,0;
	if (@GMmenu == 4)&&($QW_HP == 1) callsub HPSET,1;
	if (@GMmenu == 5)&&($QW_Stor == 0) callsub SSET,0;
	if (@GMmenu == 5)&&($QW_Stor == 1) callsub SSET,1;
	if (@GMmenu == 6)&&($QW_GStor == 0) callsub GSSET,0;
	if (@GMmenu == 6)&&($QW_GStor == 1) callsub GSSET,1;
	if (@GMmenu == 7)&&($QW_KPoint == 0) callsub KPoint,0;
	if (@GMmenu == 7)&&($QW_KPoint == 1) callsub KPoint,1;
	if (@GMmenu == 8) goto Setprice;
	close;
	end;

TWSET:
if (getarg(0) == 0) set $QW_TW_OFF,1;
if (getarg(0) == 1) set $QW_TW_OFF,0;
goto GM_Menu;
DWSET:
if (getarg(0) == 0) set $QW_DW_OFF,1;
if (getarg(0) == 1) set $QW_DW_OFF,0;
goto GM_Menu;
HFSET:
if (getarg(0) == 0) set $QW_HF,1;
if (getarg(0) == 0) set $QW_HP,0;
if (getarg(0) == 1) set $QW_HF,0;
goto GM_Menu;
HPSET:
if (getarg(0) == 0) set $QW_HP,1;
if (getarg(0) == 0) set $QW_HF,0;
if (getarg(0) == 1) set $QW_HP,0;
goto GM_Menu;
SSET:
if (getarg(0) == 0) set $QW_Stor,1;
if (getarg(0) == 1) set $QW_Stor,0;
goto GM_Menu;
GSSET:
if (getarg(0) == 0) set $QW_GStor,1;
if (getarg(0) == 1) set $QW_GStor,0;
goto GM_Menu;
KPoint:
if (getarg(0) == 0) set $QW_KPoint,1;
if (getarg(0) == 1) set $QW_KPoint,0;
goto GM_Menu;


//======================GM-Menu=Pricing============================

Setprice:
	next;
	mes "Scroll thru the list to see all the options";
//----------------Warp-Basic-Price
	if ($QW_BW_PRICE != 0) mes "Basic - Warps are = ^00FF00 "+$QW_BW_PRICE+" ^000000";
	if ($QW_BW_PRICE == 0) mes "Basic - Warps are = ^FF0000 Free ^000000";
//----------------Warp-Advanced-Price
	if ($QW_AW_PRICE != 0) mes "Advanced - Warps are = ^00FF00 "+$QW_AW_PRICE+" ^000000";
	if ($QW_AW_PRICE == 0) mes "Advanced - Warps are = ^FF0000 Free ^000000";
//----------------Warp-Oversea-Price
	if ($QW_OW_PRICE != 0) mes "Overseas - Warps are = ^00FF00 "+$QW_OW_PRICE+" ^000000";
	if ($QW_OW_PRICE == 0) mes "Overseas - Warps are = ^FF0000 Free ^000000";
//----------------Warp-Oversea-Price
	if ($QW_DW_FEE != 0) mes "Dungeon level warp fee = ^00FF00 "+$QW_DW_FEE+" ^000000 zeny per level";
	if ($QW_DW_FEE == 0) mes "Dungeon level warp fee = ^FF0000 NO ^000000 zeny per level";
//----------------Heal-Full
	if ($QW_HF_PRICE != 0) mes "Full Healing = ^00FF00 "+$QW_HF_PRICE+" ^000000";
	if ($QW_HF_PRICE == 0) mes "Full Healing = ^FF0000 Free ^000000";
//----------------Heal-Part
	if ($QW_HP_H_PRICE != 0) mes "^FF0000HP ^000000Part Healing = ^00FF00 "+$QW_HP_H_PRICE+" ^000000 a point";
	if ($QW_HP_H_PRICE == 0) mes "^FF0000HP ^000000Part Healing = ^FF0000 Free ^000000";
	if ($QW_HP_S_PRICE != 0) mes "^0000FFSP ^000000Part Healing = ^00FF00 "+$QW_HP_S_PRICE+" ^000000 a point";
	if ($QW_HP_S_PRICE == 0) mes "^0000FFSP ^000000Part Healing = ^FF0000 Free ^000000";
//----------------Storage
	if (($QW_S_PRICE != 0)&&($QW_S_PRICE != 60)) mes "Storage = ^00FF00 "+$QW_S_PRICE+" ^000000";
	if ($QW_S_PRICE == 0) mes "Storage = ^FF0000 Free ^000000";
	if ($QW_S_PRICE == 60) mes "Storage = ^0000FF Kafra Mode ^000000";
//----------------Guild-Storage
	if ($QW_GS_PRICE != 0) mes "Guild Storage = ^00FF00 "+$QW_GS_PRICE+" ^000000";
	if ($QW_GS_PRICE == 0) mes "Guild Storage = ^FF0000 Free ^000000";
set @GMmenu2,select("Basic - Warps","Advanced - Warps","Overseas - Warps","Dungeon level warp fee","Full Healing","Part Healing","Storage","Guild Storage","Back","Exit");
	if (@GMmenu2 == 1) goto BWprice;
	if (@GMmenu2 == 2) goto AWprice;
	if (@GMmenu2 == 3) goto OWprice;
	if (@GMmenu2 == 4) goto DWfee;
	if (@GMmenu2 == 5) goto FHprice;
	if (@GMmenu2 == 6) goto PHprice;
	if (@GMmenu2 == 7) goto Sprice;
	if (@GMmenu2 == 8) goto GSprice;
	if (@GMmenu2 == 9) goto GM_Menu;
	close;
	end;

BWprice:
	next;
	if ($QW_BW_PRICE != 0) mes "Basic - Warps are = ^00FF00 "+$QW_BW_PRICE+" ^000000";
	if ($QW_BW_PRICE == 0) mes "Basic - Warps are = ^FF0000 Free ^000000";
	mes "Basic - Warps are starter towns and related dungeons";
	input $QW_BW_PRICE;
	goto Setprice;

AWprice:
	next;
	if ($QW_AW_PRICE != 0) mes "Advanced - Warps are = ^00FF00 "+$QW_AW_PRICE+" ^000000";
	if ($QW_AW_PRICE == 0) mes "Advanced - Warps are = ^FF0000 Free ^000000";
	mes "Advanced - Warps are towns on the same island but not close to any starter town";
	input $QW_AW_PRICE;
	goto Setprice;

OWprice:
	next;
	if ($QW_OW_PRICE != 0) mes "Overseas - Warps are = ^00FF00 "+$QW_OW_PRICE+" ^000000";
	if ($QW_OW_PRICE == 0) mes "Overseas - Warps are = ^FF0000 Free ^000000";
	mes "Overseas - Warps are towns and dungeons overseas reachable by boat from alberta";
	input $QW_OW_PRICE;
	goto Setprice;

DWfee:
	if ($QW_DW_FEE != 0) mes "Dungeon level warp fee = ^00FF00 "+$QW_DW_FEE+" ^000000 zeny per level";
	if ($QW_DW_FEE == 0) mes "Dungeon level warp fee = ^FF0000 NO ^000000 zeny per level";
	mes "Dungeon warp fees are calculated by maps away from entrance of the dungeon times Dungeon warp fee";
	mes "These costs are on top of the regular Warp costs";
	input $QW_DW_FEE;
	goto Setprice;

FHprice:
	next;
	if ($QW_HF_PRICE != 0) mes "Full Healing = ^00FF00 "+$QW_HF_PRICE+" ^000000";
	if ($QW_HF_PRICE == 0) mes "Full Healing = ^FF0000 Free ^000000";
	mes "Instant full healing 1 price";
	input $QW_HF_PRICE;
	goto Setprice;

PHprice:
	next;
	if ($QW_HP_H_PRICE != 0) mes "^FF0000HP ^000000Part Healing = ^00FF00 "+$QW_HP_H_PRICE+" ^000000 a point";
	if ($QW_HP_H_PRICE == 0) mes "^FF0000HP ^000000Part Healing = ^FF0000 Free ^000000";
	if ($QW_HP_S_PRICE != 0) mes "^0000FFSP ^000000Part Healing = ^00FF00 "+$QW_HP_S_PRICE+" ^000000 a point";
	if ($QW_HP_S_PRICE == 0) mes "^0000FFSP ^000000Part Healing = ^FF0000 Free ^000000";
	mes "Healing price per 1 HP";
	mes "Healing price per 1 SP";
	mes "2 inputs, first HP then SP";
	input $QW_HP_H_PRICE;
	input $QW_HP_S_PRICE;
	goto Setprice;

Sprice:
	next;
	if (($QW_S_PRICE != 0)&&($QW_S_PRICE != 60)) mes "Storage = ^00FF00 "+$QW_S_PRICE+" ^000000";
	if ($QW_S_PRICE == 0) mes "Storage = ^FF0000 Free ^000000";
	if ($QW_S_PRICE == 60) mes "Storage = ^0000FF Kafra Mode ^000000";
	mes "Storage cost, if set to 60 Kafra pricing will be handled";
	input $QW_S_PRICE;
	goto Setprice;

GSprice:
	next;
	if ($QW_GS_PRICE != 0) mes "Guild Storage = ^00FF00 "+$QW_GS_PRICE+" ^000000";
	if ($QW_GS_PRICE == 0) mes "Guild Storage = ^FF0000 Free ^000000";
	mes "Guild Storage, free on Guild Kafras";
	input $QW_GS_PRICE;
	goto Setprice;

//===========================Towns=================================

L_town:
	callfunc "QWS_Tarray";

// Expected maximum is set to 22, if you add  more options add a more ",@Tmenulist$[xx],-"

	menu @Tmenulist$[0],-,@Tmenulist$[1],-,@Tmenulist$[2],-,@Tmenulist$[3],-,@Tmenulist$[4],-,@Tmenulist$[5],-,@Tmenulist$[6],-,@Tmenulist$[7],-,@Tmenulist$[8],-,@Tmenulist$[9],-,@Tmenulist$[10],-,@Tmenulist$[11],-,@Tmenulist$[12],-,@Tmenulist$[13],-,@Tmenulist$[14],-,@Tmenulist$[15],-,@Tmenulist$[16],-,@Tmenulist$[17],-,@Tmenulist$[18],-,@Tmenulist$[19],-,@Tmenulist$[20],-,@Tmenulist$[21],-,@Tmenulist$[22],-;
	if (@pTmap$[@Tmenuref[@menu-1]] == "L_End") goto L_end;
	if(Zeny<@pTprice[@Tmenuref[@menu-1]]) callsub L_Short_on_zeny,0;
	set Zeny, Zeny-@pTprice[@Tmenuref[@menu-1]];
	warp @pTmap$[@Tmenuref[@menu-1]],@pTXcoords[@Tmenuref[@menu-1]],@pTYcoords[@Tmenuref[@menu-1]];
	close2;		// this part safegaurds against errors/typos
	set Zeny, Zeny+@pTprice[@Tmenuref[@menu-1]];
	close;
	end;

//=========================Dungeons================================

L_dungeon:
	callfunc "QWS_Darray";
// current max 31 items
	set @DWMenu,select(@Dmenulist$[0],@Dmenulist$[1],@Dmenulist$[2],@Dmenulist$[3],@Dmenulist$[4],@Dmenulist$[5],@Dmenulist$[6],@Dmenulist$[7],@Dmenulist$[8],@Dmenulist$[9],@Dmenulist$[10],@Dmenulist$[11],@Dmenulist$[12],@Dmenulist$[13],@Dmenulist$[14],@Dmenulist$[15],@Dmenulist$[16],@Dmenulist$[17],@Dmenulist$[18],@Dmenulist$[19],@Dmenulist$[20],@Dmenulist$[21],@Dmenulist$[22],@Dmenulist$[23],@Dmenulist$[24],@Dmenulist$[25],@Dmenulist$[26],@Dmenulist$[27],@Dmenulist$[28],@Dmenulist$[29],@Dmenulist$[30]);

	if (@pDmenuitems$[@Dmenuref[DWMenu-1]] == "Cancel") goto L_end;
	set @DwarpMenu, (@Dmenuref[@DWMenu-1]);

	callfunc "QWS_DLarray";

	next;
	mes "[Warpra]";
	mes "Please select where you want to go";
	set @DWLMenu,select(@DWLmenulist$[0], @DWLmenulist$[1], @DWLmenulist$[2], @DWLmenulist$[3], @DWLmenulist$[4], @DWLmenulist$[5], @DWLmenulist$[6], @DWLmenulist$[7], @DWLmenulist$[8], @DWLmenulist$[9], @DWLmenulist$[10], @DWLmenulist$[11], @DWLmenulist$[12], @DWLmenulist$[13], @DWLmenulist$[14], @DWLmenulist$[15], @DWLmenulist$[16], @DWLmenulist$[17]);
	if (@DWLmenuref[@DWLMenu-1] == 1337) goto L_end;
	set @Darrayref, @DWLmenuref[@DWLMenu-1];
	set @warpprice, (@pDprice[@Dmenuref[@DWMenu-1]]+$QW_DW_FEE*@DDepth[@Darrayref]);
	if(Zeny<@warpprice) callsub L_Short_on_zeny,1;
	set Zeny, Zeny-(@warpprice);
	warp @DGat$[@Darrayref],@DXcoords[@Darrayref],@DYcoords[@Darrayref];
	close2;		// this part safegaurds against errors/typos
	set Zeny, Zeny+@pTprice[@Tmenuref[@DWMenu-1]];
	close;
	end;

//=============================Healing=============================

L_heal_Full:
	set @healfee, $QW_HF_PRICE;
	if(Zeny<@healfee) callsub L_Short_on_zeny,4;
	set Zeny, Zeny-@healfee;
//	if ($QW_KPoint == 1) set RESRVPTS, RESRVPTS + (@healfee/50); //commented out because kafra's don't offer this
	next;
	mes "[Warpra]";
	mes "Close this window and I will Heal you.";
	close2;
	percentheal 100,100;
	close;
	end;

L_heal_Part:
	set @healchoice,select("Full heal","Health Points only","Skill Points only","Exit");
	if (@healchoice == 1) callsub PHeal,1,1;
	if (@healchoice == 2) callsub PHeal,1,0;
	if (@healchoice == 3) callsub PHeal,0,1;
	goto L_end;
	
PHeal:
	next;
	set @Hp, MaxHp-Hp;
	set @Sp, MaxSp-Sp;
	set @HpPrice, @hp*$QW_HP_H_PRICE;
	set @SpPrice, @sp*$QW_HP_S_PRICE;
	mes "[Warpra]";
	if(getarg(0) == 1) mes ""+@HpPrice+" Zeny for "+@Hp+" health points";
	if(getarg(1) == 1) mes ""+@SpPrice+" Zeny for "+@Sp+" skill points";
	set @total, @HpPrice+@SpPrice;
	mes "for a total of "+@total+" zeny";
    	if (select("Heal me","Let me see the choices again")==2) goto L_heal_Part;
    	
    	if(getarg(0) == 1)set @HpPrice, (MaxHp-Hp)*$QW_HP_H_PRICE;
	if(getarg(1) == 1)set @SpPrice, (MaxSp-Sp)*$QW_HP_S_PRICE;
	set @healfee, @HpPrice+@SpPrice;
	if (getarg(0) == 1)&&(getarg(1) == 1)&&(Zeny<@healfee) goto Zeny_Short_Both;
	if (getarg(0) == 1)&&(Zeny<@healfee) goto Zeny_short_HP;
	if (getarg(1) == 1)&&(Zeny<@healfee) goto Zeny_short_SP;
	set Zeny, Zeny-@healfee;
	if (getarg(0) == 1)&&(getarg(1) == 1) percentheal 100,100;
	if (getarg(0) == 1) percentheal 100,0;
	if (getarg(1) == 1) percentheal 0,100;
	close;
	end;

Zeny_Short_Both:
	mes "[Warpra]";
	mes "choose another option, you can afford both.";
	mes "I can heal as much as you can afford too.";
	if (select("OK","Exit") == 2) goto L_end;
	goto PHeal;

Zeny_short_HP:
	mes "[Warpra]";
	mes "do you want me to partly heal your HP ?";
	if (select("Yes","No") == 2) goto L_end;
	set @Hp, Zeny/$QW_HP_H_PRICE;
    	set @HpPrice, @Hp*$QW_HP_H_PRICE;
    	if (@Hp == 1) mes "your not worth the effort";
    	if (@Hp == 1) goto L_end;
    	set Zeny, Zeny-@HpPrice;
	heal @Hp,0;
	close;
	end;
    	
	
Zeny_short_SP:
	mes "[Warpra]";
	mes "do you want me to partly heal your SP ?";
	if (select("Yes","No") == 2) goto L_end;
	set @Sp, Zeny/$QW_HP_S_PRICE;
    	set @SpPrice, @Sp*$QW_HP_S_PRICE;
    	if (@Sp == 1) mes "your not worth the effort";
    	if (@Sp == 1) goto L_end;
    	set Zeny, Zeny-@SpPrice;
	heal 0,@Sp;
	close;
	end;


//=============================Storage=============================

L_Storage:
	next;
	if(basicskillcheck(0) > 0 && getskilllv(1) < 6) goto L_StorageJBlow;
	set @fee, $QW_S_PRICE;
	if ($QW_S_PRICE == 60)&&(BaseJob == Job_Novice) set @fee, 30;
	if ($QW_S_PRICE == 60)&&(BaseJob != Job_Novice) set @fee, 60;
	if(Zeny<@fee) callsub L_Short_on_zeny,2;
	set Zeny, Zeny-@fee;
	if ($QW_KPoint == 1) set RESRVPTS, RESRVPTS + (@fee/5);

	mes "[Warpra]";
	mes "Close this window and i will open your storage.";

	callsub F_CheckKafCode;	//check your storage password thru kafra coding, if set

	close2;
	openstorage;
	close;
	end;

F_CheckKafCode:
// you have to set the 1337 value the same as in functions_kafras.txt if you changed it !!
	if(#kafra_code==0) return;
	mes "Enter your storage password:";
	set @code_,0;
	input @code_;
	if(@code_ != #kafra_code-getcharid(3)-1337) {
		dispbottom "Wrong storage password.";
		close2;
		close;
	}
	set @kafcode_try,0;
	set @code_,0;
	return;

L_StorageJBlow:
	mes "[Warpra]";
	mes "I am sorry but you have to be at least Novice level 6 if you want to use the storage.";
	return;

L_GStorage:
	if(@GID==0) goto L_NoGuild;
	if(Zeny<$QW_GS_PRICE) callsub L_Short_on_zeny,3;
	set Zeny, Zeny-$QW_GS_PRICE;
	if ($QW_KPoint == 1) set RESRVPTS, RESRVPTS + ($QW_GS_PRICE/5);
	next;
	mes "[Warpra]";
	mes "Close this window and i will open the ^5533FF" + GetGuildName(@GID) + "^000000 storage.";
	close2;
	guildopenstorage;
	close;
	end;

L_NoGuild:
	next;
	mes "[Warpra]";
	mes "You are not a part of a guild I can't help you.";
	close;
	end;
	
L_end:
	close;
	end;

//============================Few=Warp=============================
L_FewWarps:
	next;
	mes "[Warpra ]";
	mes "You need to unlock locations before they come available to you.";
	mes "To unlock a location talk to my colleagues all over the world.";
	mes "Each account got it's own stamp card.";
	mes "Want me to check what stamps you have collected so far ?.";
	if (select("Yes","No")==1) callsub stampcard;
	close;
	end;


//============================No=Unlock============================

L_NoUnlock:
	next;
	mes "[Warpra ]";
	mes "I don't unlock this location, my assistant deeper in the dungeon will unlock this place.";
	close;
	end;
	
//=========================Short=On=Zeny===========================
L_Short_on_zeny:
	next;
	if (getarg(0) == 0) mes "you don't seem to have "+@pTprice[@Tmenuref[@menu-1]]+" zeny, to pay for the warp fee to "+@pTmenuitems$[@Tmenuref[@menu-1]]+"";
	if (getarg(0) == 1) mes "you don't seem to have "+@warpprice+" zeny, to pay for the warp fee to "+@DLevelName$[@DWLmenuref[@DWLMenu-1]]+" at "+@pDmenuitems$[@Dmenuref[@DWMenu-1]]+"";
	if (getarg(0) == 2) mes "you don't seem to have "+@fee+" zeny, to pay for the storage fee";
	if (getarg(0) == 3) mes "you don't seem to have "+$QW_GS_PRICE+" zeny, to pay for the guild storage fee";
	if (getarg(0) == 4) mes "you don't seem to have "+@healfee+" zeny, to pay for your healing";
	close;
	end;
	
//===========================Stamp=Card============================
stampcard:
// Counting of the ammount of places you have unlocked
	next;
	mes "Let me check what Towns you have";
	set @Tstamp,0;
	
//----------------Prontera:
	if (#prontera == 1) set @Tstamp,@Tstamp+1;
//----------------Alberta
	if (#alberta == 1) set @Tstamp,@Tstamp+1;
//----------------Aldebaran
	if (#aldebaran == 1) set @Tstamp,@Tstamp+1;
//----------------Amatsu:
	if (#amatsu == 1) set @Tstamp,@Tstamp+1;
//----------------Ayotaya:
	if (#ayotaya == 1) set @Tstamp,@Tstamp+1;
//----------------Comodo:
	if (#comodo == 1) set @Tstamp,@Tstamp+1;
//----------------Einbech:
	if (#einbech == 1) set @Tstamp,@Tstamp+1;
//----------------Einbroch:
	if (#einbroch == 1) set @Tstamp,@Tstamp+1;
//----------------Geffen:
	if (#geffen == 1) set @Tstamp,@Tstamp+1;
//----------------Gonryun:
	if (#gonryun == 1) set @Tstamp,@Tstamp+1;
//----------------Hugel:
	if (#hugel == 1) set @Tstamp,@Tstamp+1;
//----------------Izlude:
	if (#izlude == 1) set @Tstamp,@Tstamp+1;
//----------------Jawaii:
	if (#jawaii == 1) set @Tstamp,@Tstamp+1;
//----------------Lighthalzen:
	if (#lighthalzen == 1) set @Tstamp,@Tstamp+1;
//----------------Louyang:
	if (#louyang == 1) set @Tstamp,@Tstamp+1;
//----------------Lutie
	if (#xmas == 1) set @Tstamp,@Tstamp+1;
//----------------Morroc:
	if (#morocc == 1) set @Tstamp,@Tstamp+1;
//----------------Niflheim:
	if (#niflheim == 1) set @Tstamp,@Tstamp+1;
//----------------Payon:
	if (#payon == 1) set @Tstamp,@Tstamp+1;
//----------------Umbala:
	if (#umbala == 1) set @Tstamp,@Tstamp+1;
//----------------Yuno:
	if (#yuno == 1) set @Tstamp,@Tstamp+1;
	
	mes "you collected^00FF00 "+@Tstamp+" of 21 ^000000Towns.";
	if (@Tstamp == 15) mes "They say there is an island you can only get to when married";
	if (@Tstamp == 15) emotion 18;
	next;
	
	mes "Let me check what dungeons you have";
	set @Dstamp,0;
	
//----------------ABYSS LAKE
	if (#abyss == 1) set @Dstamp,@Dstamp+1;
//----------------AMATSU DUNGEON
	if (#ama_dun == 1) set @Dstamp,@Dstamp+1;
//----------------ANT HELL
	if (#anthell == 1) set @Dstamp,@Dstamp+1;
//----------------AYOTAYA
	if (#ayotaya_dun == 1) set @Dstamp,@Dstamp+1;
//----------------BYALAN
	if (#iz_dun == 1) set @Dstamp,@Dstamp+1;
//----------------CLOCK TOWER
	if (#c_tower == 1) set @Dstamp,@Dstamp+1;
//----------------COAL MINE
	if (#mjo_dun== 1) set @Dstamp,@Dstamp+1;
//----------------CULVERT
	if (#prt_sewb == 1) set @Dstamp,@Dstamp+1;
//----------------EINBECH DUNGEON
	if (#einbech_dun == 1) set @Dstamp,@Dstamp+1;
//----------------GEFENIA DUNGEON
	if (#gefenia == 1) set @Dstamp,@Dstamp+1;
//----------------GEFFEN DUNGEON
	if (#gef_dun == 1) set @Dstamp,@Dstamp+1;
//----------------GLAST HEIM
	if (#gl_dun == 1) set @Dstamp,@Dstamp+1;
//----------------GONRYUN DUNGEON
	if (#gon_dun == 1) set @Dstamp,@Dstamp+1;
//----------------HIDDEN DUNGEON
	if (#hid_dun == 1) set @Dstamp,@Dstamp+1;
//----------------JUPEROS CAVE
	if (#juperos == 1) set @Dstamp,@Dstamp+1;
//----------------LIGHTHALZEN BIO LAB
	if (#lighthalzen_dun == 1) set @Dstamp,@Dstamp+1;
//----------------LOUYANG DUNGEON
	if (#louyang_dun == 1) set @Dstamp,@Dstamp+1;
//----------------MAGMA DUNGEON
	if (#mag_dun == 1) set @Dstamp,@Dstamp+1;
//----------------ODIN TEMPLE
	if (#odintemple == 1) set @Dstamp,@Dstamp+1;
//----------------ORC DUNGEON
	if (#orcsdun == 1) set @Dstamp,@Dstamp+1;
//----------------PAYON DUNGEON
	if (#pay_dun == 1) set @Dstamp,@Dstamp+1;
//----------------PYRAMIDS
	if (#moc_pryd == 1) set @Dstamp,@Dstamp+1;
//----------------SPHINX
	if (#in_sphinx == 1) set @Dstamp,@Dstamp+1;
//----------------SUNKEN SHIP
	if (#treasure == 1) set @Dstamp,@Dstamp+1;
//----------------THANATOS TOWER
	if (#thanatos_tower == 1) set @Dstamp,@Dstamp+1;
//----------------TOY FACTORY
	if (#xmas_dun == 1) set @Dstamp,@Dstamp+1;
//----------------TURTLE ISTLAND
	if (#tur_dun == 1) set @Dstamp,@Dstamp+1;
//----------------UMBALA
	if (#um_dun == 1) set @Dstamp,@Dstamp+1;
	mes "you collected^00FF00 "+@Dstamp+" of 28 ^000000Dungeons";
	mes "To unlock a dungeon, search for my colleague.";
	mes "You can usually find him near the end or middle of the dungeon";
	return;
}

//======================Main=Menu=Array============================

function	script	QWS_MMarray	{

// Currently 9 items

	setarray @pMmenuitems$[0], "GameMaster Menu", "Warp to Towns", "Warp to Dungeons", "Why so few Warps ?", "Why don't you Unlock this location ?", "Heal", "Heal", "Storage", "Guild Storage", "Cancel";
	set @Mi,0; // That's our loop counter.
	set @Mj,0; // That's the menu lines counter.
//----------------GameMaster-Menu
	if (getgmlevel(80)) set @Mmenulist$[@Mj],@pMmenuitems$[@Mi];
	if (getgmlevel(80)) set @Mmenuref[@Mj],@Mi;
	if (getgmlevel(80)) set @Mj,@Mj+1;
	set @Mi,@Mi+1;
//----------------Town-Warp
	if ($QW_TW_OFF == 0) set @Mmenulist$[@Mj],@pMmenuitems$[@Mi];
	if ($QW_TW_OFF == 0) set @Mmenuref[@Mj],@Mi;
	if ($QW_TW_OFF == 0) set @Mj,@Mj+1;
	set @Mi,@Mi+1;
//----------------Dungeon-Warp
	if ($QW_DW_OFF == 0) set @Mmenulist$[@Mj],@pMmenuitems$[@Mi];
	if ($QW_DW_OFF == 0) set @Mmenuref[@Mj],@Mi;
	if ($QW_DW_OFF == 0) set @Mj,@Mj+1;
	set @Mi,@Mi+1;
//----------------Why-So-Few-Warps
	set @Mmenulist$[@Mj],@pMmenuitems$[@Mi];
	set @Mmenuref[@Mj],@Mi;
	set @Mj,@Mj+1;
	set @Mi,@Mi+1;
//----------------No-Unlock
	if (getarg(0) == 1) set @Mmenulist$[@Mj],@pMmenuitems$[@Mi];
	if (getarg(0) == 1) set @Mmenuref[@Mj],@Mi;
	if (getarg(0) == 1) set @Mj,@Mj+1;
	set @Mi,@Mi+1;
//----------------Healfull
	if ($QW_HF == 1) set @Mmenulist$[@Mj],@pMmenuitems$[@Mi];
	if ($QW_HF == 1) set @Mmenuref[@Mj],@Mi;
	if ($QW_HF == 1) set @Mj,@Mj+1;
	set @Mi,@Mi+1;
//----------------Healpart
	if ($QW_HP == 1) set @Mmenulist$[@Mj],@pMmenuitems$[@Mi];
	if ($QW_HP == 1) set @Mmenuref[@Mj],@Mi;
	if ($QW_HP == 1) set @Mj,@Mj+1;
	set @Mi,@Mi+1;
//----------------Storage
	if ($QW_Stor == 1) set @Mmenulist$[@Mj],@pMmenuitems$[@Mi];
	if ($QW_Stor == 1) set @Mmenuref[@Mj],@Mi;
	if ($QW_Stor == 1) set @Mj,@Mj+1;
	set @Mi,@Mi+1;
//----------------GuildStorage
	if ($QW_GStor == 1) set @Mmenulist$[@Mj],@pMmenuitems$[@Mi];
	if ($QW_GStor == 1) set @Mmenuref[@Mj],@Mi;
	if ($QW_GStor == 1) set @Mj,@Mj+1;
	set @Mi,@Mi+1;
//----------------Cancel
	set @Mmenulist$[@Mj],@pMmenuitems$[@Mi];
	set @Mmenuref[@Mj],@Mi;
	return;
	}



//======================Town=Menu=Array============================

function	script	QWS_Tarray	{

// Currently 22 items

	setarray @pTmenuitems$[0], "Prontera", "Alberta", "Aldebaran", "Amatsu", "Ayothaya", "Comodo", "Einbech", "Einbroch", "Geffen", "Gonryun", "Hugel", "Izlude", "Jawaii", "Lighthalzen", "Louyang", "Lutie", "Morroc", "Niflheim", "Payon", "Umbala", "Yuno", "Cancel"; // townnames
	setarray @pTmap$[0], "prontera.gat", "alberta.gat", "aldebaran.gat", "amatsu.gat", "ayothaya.gat", "comodo.gat", "einbech.gat", "einbroch.gat", "geffen.gat", "gonryun.gat", "hugel.gat", "izlude.gat", "jawaii.gat", "lighthalzen.gat", "louyang.gat", "xmas.gat", "morocc.gat", "niflheim.gat", "payon.gat", "umbala.gat", "yuno.gat", "L_End"; // mapfile
	setarray @pTXcoords[0], 156, 27, 145, 197, 150, 188, 172, 230, 119, 150, 95, 128, 243, 158, 210, 148, 159, 195, 152, 130, 160, "Cancel"; // all X coords
	setarray @pTYcoords[0], 187, 236, 120, 86, 57, 161, 126, 191, 66, 130, 121, 111, 115, 110, 108, 131, 93, 186, 75, 130, 168, "Cancel"; // all Y coords
	setarray @pTprice[0], $QW_BW_PRICE, $QW_BW_PRICE, $QW_AW_PRICE, $QW_OW_PRICE, $QW_OW_PRICE, $QW_AW_PRICE, $QW_AW_PRICE, $QW_AW_PRICE, $QW_BW_PRICE, $QW_OW_PRICE, $QW_AW_PRICE, $QW_BW_PRICE, $QW_AW_PRICE, $QW_AW_PRICE, $QW_OW_PRICE, $QW_AW_PRICE, $QW_BW_PRICE, $QW_AW_PRICE, $QW_BW_PRICE, $QW_AW_PRICE, $QW_AW_PRICE, 0;
	set @Ti,0; // That's our loop counter.
	set @Tj,0; // That's the menu lines counter.
//----------------Prontera
	if (#prontera == 1)&&(@pTprice[@Ti] != 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti]+" -> "+@pTprice[@Ti];
	if (#prontera == 1)&&(@pTprice[@Ti] == 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti];
	if (#prontera== 1) set @Tmenuref[@Tj],@Ti;
	if (#prontera == 1) set @Tj,@Tj+1;
	set @Ti,@Ti+1;
//----------------Alberta
	if (#alberta == 1)&&(@pTprice[@Ti] != 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti]+" -> "+@pTprice[@Ti];
	if (#alberta == 1)&&(@pTprice[@Ti] == 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti];
	if (#alberta == 1) set @Tmenuref[@Tj],@Ti;
	if (#alberta == 1) set @Tj,@Tj+1;
	set @Ti,@Ti+1;
//----------------Aldebaran
	if (#aldebaran == 1)&&(@pTprice[@Ti] != 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti]+" -> "+@pTprice[@Ti];
	if (#aldebaran == 1)&&(@pTprice[@Ti] == 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti];
	if (#aldebaran == 1) set @Tmenuref[@Tj],@Ti;
	if (#aldebaran == 1) set @Tj,@Tj+1;
	set @Ti,@Ti+1;
//----------------Amatsu:
	if (#amatsu == 1)&&(@pTprice[@Ti] != 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti]+" -> "+@pTprice[@Ti];
	if (#amatsu == 1)&&(@pTprice[@Ti] == 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti];
	if (#amatsu == 1) set @Tmenuref[@Tj],@Ti;
	if (#amatsu == 1) set @Tj,@Tj+1;
	set @Ti,@Ti+1;
//----------------Ayothaya:
	if (#ayotaya == 1)&&(@pTprice[@Ti] != 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti]+" -> "+@pTprice[@Ti];
	if (#ayotaya == 1)&&(@pTprice[@Ti] == 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti];
	if (#ayotaya == 1) set @Tmenuref[@Tj],@Ti;
	if (#ayotaya == 1) set @Tj,@Tj+1;
	set @Ti,@Ti+1;
//----------------Comodo:
	if (#comodo == 1)&&(@pTprice[@Ti] != 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti]+" -> "+@pTprice[@Ti];
	if (#comodo == 1)&&(@pTprice[@Ti] == 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti];
	if (#comodo == 1) set @Tmenuref[@Tj],@Ti;
	if (#comodo == 1) set @Tj,@Tj+1;
	set @Ti,@Ti+1;
//----------------Einbech:
	if (#einbech == 1)&&(@pTprice[@Ti] != 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti]+" -> "+@pTprice[@Ti];
	if (#einbech == 1)&&(@pTprice[@Ti] == 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti];
	if (#einbech == 1) set @Tmenuref[@Tj],@Ti;
	if (#einbech == 1) set @Tj,@Tj+1;
	set @Ti,@Ti+1;
//----------------Einbroch:
	if (#einbroch == 1)&&(@pTprice[@Ti] != 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti]+" -> "+@pTprice[@Ti];
	if (#einbroch == 1)&&(@pTprice[@Ti] == 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti];
	if (#einbroch == 1) set @Tmenuref[@Tj],@Ti;
	if (#einbroch == 1) set @Tj,@Tj+1;
	set @Ti,@Ti+1;
//----------------Geffen:
	if (#geffen == 1)&&(@pTprice[@Ti] != 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti]+" -> "+@pTprice[@Ti];
	if (#geffen == 1)&&(@pTprice[@Ti] == 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti];
	if (#geffen == 1) set @Tmenuref[@Tj],@Ti;
	if (#geffen == 1) set @Tj,@Tj+1;
	set @Ti,@Ti+1;
//----------------Gonryun:
	if (#gonryun == 1)&&(@pTprice[@Ti] != 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti]+" -> "+@pTprice[@Ti];
	if (#gonryun == 1)&&(@pTprice[@Ti] == 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti];
	if (#gonryun == 1) set @Tmenuref[@Tj],@Ti;
	if (#gonryun == 1) set @Tj,@Tj+1;
	set @Ti,@Ti+1;
//----------------Hugel:
	if (#hugel == 1)&&(@pTprice[@Ti] != 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti]+" -> "+@pTprice[@Ti];
	if (#hugel == 1)&&(@pTprice[@Ti] == 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti];
	if (#hugel == 1) set @Tmenuref[@Tj],@Ti;
	if (#hugel == 1) set @Tj,@Tj+1;
	set @Ti,@Ti+1;
//----------------Izlude:
	if (#izlude == 1)&&(@pTprice[@Ti] != 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti]+" -> "+@pTprice[@Ti];
	if (#izlude == 1)&&(@pTprice[@Ti] == 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti];
	if (#izlude == 1) set @Tmenuref[@Tj],@Ti;
	if (#izlude == 1) set @Tj,@Tj+1;
	set @Ti,@Ti+1;
//----------------Jawaii:
	if (#jawaii == 1)&&(@pTprice[@Ti] != 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti]+" -> "+@pTprice[@Ti];
	if (#jawaii == 1)&&(@pTprice[@Ti] == 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti];
	if (#jawaii == 1) set @Tmenuref[@Tj],@Ti;
	if (#jawaii == 1) set @Tj,@Tj+1;
	set @Ti,@Ti+1;
//----------------Lighthalzen:
	if (#lighthalzen == 1)&&(@pTprice[@Ti] != 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti]+" -> "+@pTprice[@Ti];
	if (#lighthalzen == 1)&&(@pTprice[@Ti] == 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti];
	if (#lighthalzen == 1) set @Tmenuref[@Tj],@Ti;
	if (#lighthalzen == 1) set @Tj,@Tj+1;
	set @Ti,@Ti+1;
//----------------Louyang:
	if (#louyang == 1)&&(@pTprice[@Ti] != 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti]+" -> "+@pTprice[@Ti];
	if (#louyang == 1)&&(@pTprice[@Ti] == 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti];
	if (#louyang == 1) set @Tmenuref[@Tj],@Ti;
	if (#louyang == 1) set @Tj,@Tj+1;
	set @Ti,@Ti+1;
//----------------Lutie
	if (#xmas == 1)&&(@pTprice[@Ti] != 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti]+" -> "+@pTprice[@Ti];
	if (#xmas == 1)&&(@pTprice[@Ti] == 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti];
	if (#xmas == 1) set @Tmenuref[@Tj],@Ti;
	if (#xmas == 1) set @Tj,@Tj+1;
	set @Ti,@Ti+1;
//----------------Morroc:
	if (#morocc == 1)&&(@pTprice[@Ti] != 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti]+" -> "+@pTprice[@Ti];
	if (#morocc == 1)&&(@pTprice[@Ti] == 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti];
	if (#morocc == 1) set @Tmenuref[@Tj],@Ti;
	if (#morocc == 1) set @Tj,@Tj+1;
	set @Ti,@Ti+1;
//----------------Niflheim:
	if (#niflheim == 1)&&(@pTprice[@Ti] != 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti]+" -> "+@pTprice[@Ti];
	if (#niflheim == 1)&&(@pTprice[@Ti] == 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti];
	if (#niflheim == 1) set @Tmenuref[@Tj],@Ti;
	if (#niflheim == 1) set @Tj,@Tj+1;
	set @Ti,@Ti+1;
//----------------Payon:
	if (#payon == 1)&&(@pTprice[@Ti] != 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti]+" -> "+@pTprice[@Ti];
	if (#payon == 1)&&(@pTprice[@Ti] == 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti];
	if (#payon == 1) set @Tmenuref[@Tj],@Ti;
	if (#payon == 1) set @Tj,@Tj+1;
	set @Ti,@Ti+1;
//----------------Umbala:
	if (#umbala == 1)&&(@pTprice[@Ti] != 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti]+" -> "+@pTprice[@Ti];
	if (#umbala == 1)&&(@pTprice[@Ti] == 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti];
	if (#umbala == 1) set @Tmenuref[@Tj],@Ti;
	if (#umbala == 1) set @Tj,@Tj+1;
	set @Ti,@Ti+1;
//----------------Yuno:
	if (#yuno == 1)&&(@pTprice[@Ti] != 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti]+" -> "+@pTprice[@Ti];
	if (#yuno == 1)&&(@pTprice[@Ti] == 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti];
	if (#yuno == 1) set @Tmenuref[@Tj],@Ti;
	if (#yuno == 1) set @Tj,@Tj+1;
	set @Ti,@Ti+1;
//----------------Cancel
	set @Tmenulist$[@Tj],@pTmenuitems$[@Ti];
	set @Tmenuref[@Tj],@Ti;
	return;
	}

//====================Dungeon=Menu=Arrays==========================

//----------------A FAKE DUNGEON FOR EXAMPLE // I do this to find back sections quickly altho almost the same name is a line below it now
//	setarray @pDmenuitems$[@Di], "Fake Dungeon"; // Name of Dungeon shown in Dungeon select Menu
//	setarray @pDprice[@Di], $QW_BW_PRICE; // warp prices (Basic ($QW_BW_PRICE), Advanced ($QW_AW_PRICE), Overseas $QW_OW_PRICE)
//	setarray @DLevels[@Di], 2; //number of levels in dungeon (very important if incorrect will shift all leveldata!!)
//
//	setarray @DGat$[@Dref], "example_01.gat", "example_02.gat"; // mapfilename of dungeon level
//	setarray @DLevelName$[@Dref], "Example Level 1", "Example Level 2"; // level name shown in dungeon level select
//	setarray @DXcoords[@Dref], 123, 234; // X warp coords
//	setarray @DYcoords[@Dref], 123, 234;// Y warp coords
//	setarray @DDepth[@Dref], 0, 1; // relative depth to entrance to calculate extra warp fee
//
//	if (#fake_dun == 1)&&(@pDprice[@Di] != 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di]+" -> "+@pDprice[@Di]; // Builds menu item if there is a price for warping
//	if (#fake_dun == 1)&&(@pDprice[@Di] == 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di]; // Builds menu item if warping is free
//	if (#fake_dun == 1) set @Dmenuref[@Dj],@Di; // Allows the menu to find back which Dungeon you selected as it shifts because of dynamic menu's
//	if (#fake_dun == 1) set @Dj,@Dj+1; // set Dj higher because menu item has been added and make sure it doesn't get overwriten
//
//	setarray @DLocRef[@Di], @Dref; // @DLocRef, reference to locate where the first level of the dungeon warp information is in the other arrays
//	set @Dref, @Dref+@DLevels[@Di]; // same as @Dj but then for the leveldata which fills up alot more quickly
//	set @Di,@Di+1; // loop counter to get data in right order and to make sure i can find back what option you select
//
// Small note:
//	when adding your own dungeon data, you can leave 'if (#fake_dun == 1)' out and everyone will get the option to warp to
//	if you want to use a variable make your own dungeon unlocker inside the dungeon (usually half way near a warp to next level)
// example:
//( syntax:	example_01.gat,xcoord,ycoord,directionfacing	script	Name of NPC	NPC-ID,{ )
//
//example_01.gat,213,213,4	script	Warpra Helper	112,{
//	if (#fake_dun == 1) mes "[Warpra]";
//	if (#fake_dun == 1) mes "Sorry I can only unlock this location.";
//	if (#fake_dun == 1) close;
//	set #fake_dun,1;
//	mes "[Warpra]";
//	mes "A FAKE DUNGEON FOR EXAMPLE unlocked!";
//	close;
//	}

	set @Di,0;
	set @Dj,0;
	set @Dref,0;

function	script	QWS_Darray	{
//----------------ABYSS LAKE
	setarray @pDmenuitems$[@Di], "Abyss Lake";
	setarray @pDprice[@Di], $QW_AW_PRICE;
	setarray @DLevels[@Di], 3;

	setarray @DGat$[@Dref], "abyss_01.gat", "abyss_02.gat", "abyss_03.gat";
	setarray @DLevelName$[@Dref], "Level 1", "Level 2", "Level 3";
	setarray @DXcoords[@Dref], 265, 275, 116;
	setarray @DYcoords[@Dref], 273, 270, 27;
	setarray @DDepth[@Dref], 0, 1, 2;

	if (#abyss == 1)&&(@pDprice[@Di] != 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di]+" -> "+@pDprice[@Di];
	if (#abyss == 1)&&(@pDprice[@Di] == 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di];
	if (#abyss == 1) set @Dmenuref[@Dj],@Di;
	if (#abyss == 1) set @Dj,@Dj+1;

	setarray @DLocRef[@Di], @Dref;
	set @Dref, @Dref+@DLevels[@Di];
	set @Di,@Di+1;
//----------------AMATSU DUNGEON
	setarray @pDmenuitems$[@Di], "Amatsu Dungeon";
	setarray @pDprice[@Di], $QW_OW_PRICE;
	setarray @DLevels[@Di], 3;

	setarray @DGat$[@Dref], "ama_dun01.gat", "ama_dun02.gat", "ama_dun03.gat";
	setarray @DLevelName$[@Dref], "Level 1", "Level 2", "Level 3";
	setarray @DXcoords[@Dref], 227, 32, 119;
	setarray @DYcoords[@Dref], 10, 43, 15;
	setarray @DDepth[@Dref], 0, 1, 2;

	if (#ama_dun == 1)&&(@pDprice[@Di] != 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di]+" -> "+@pDprice[@Di];
	if (#ama_dun == 1)&&(@pDprice[@Di] == 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di];
	if (#ama_dun == 1) set @Dmenuref[@Dj],@Di;
	if (#ama_dun == 1) set @Dj,@Dj+1;

	setarray @DLocRef[@Di], @Dref;
	set @Dref, @Dref+@DLevels[@Di];
	set @Di,@Di+1;
//----------------ANT HELL
	setarray @pDmenuitems$[@Di], "Ant Hell Dungeon"; 
	setarray @pDprice[@Di], $QW_BW_PRICE;
	setarray @DLevels[2], 2;

	setarray @DGat$[@Dref], "anthell01.gat", "anthell02.gat";
	setarray @DLevelName$[@Dref], "Level 1", "Level 2";
	setarray @DXcoords[@Dref], 32, 34;
	setarray @DYcoords[@Dref], 262, 263;
	setarray @DDepth[@Dref], 0, 1;

	if (#anthell == 1)&&(@pDprice[@Di] != 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di]+" -> "+@pDprice[@Di];
	if (#anthell == 1)&&(@pDprice[@Di] == 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di];
	if (#anthell == 1) set @Dmenuref[@Dj],@Di;
	if (#anthell == 1) set @Dj,@Dj+1;

	setarray @DLocRef[@Di], @Dref;
	set @Dref, @Dref+@DLevels[@Di];
	set @Di,@Di+1;
//----------------AYOTAYA
	setarray @pDmenuitems$[@Di], "Ayotaya Dungeon";
	setarray @pDprice[@Di], $QW_OW_PRICE;
	setarray @DLevels[3], 2;

	setarray @DGat$[@Dref], "ayo_dun01.gat", "ayo_dun02.gat";
	setarray @DLevelName$[@Dref], "Level 1", "Level 2";
	setarray @DXcoords[@Dref], 275, 150;
	setarray @DYcoords[@Dref], 17, 13;
	setarray @DDepth[@Dref], 0, 1;

	if (#ayotaya_dun == 1)&&(@pDprice[@Di] != 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di]+" -> "+@pDprice[@Di];
	if (#ayotaya_dun == 1)&&(@pDprice[@Di] == 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di];
	if (#ayotaya_dun == 1) set @Dmenuref[@Dj],@Di;
	if (#ayotaya_dun == 1) set @Dj,@Dj+1;

	setarray @DLocRef[@Di], @Dref;
	set @Dref, @Dref+@DLevels[@Di];
	set @Di,@Di+1;
//----------------BYALAN
	setarray @pDmenuitems$[@Di], "Byalan Dungeon";
	setarray @pDprice[@Di], $QW_BW_PRICE;
	setarray @DLevels[4], 5;

	setarray @DGat$[@Dref], "iz_dun00.gat", "iz_dun01.gat", "iz_dun02.gat", "iz_dun03.gat", "iz_dun04.gat";
	setarray @DLevelName$[@Dref], "Level 1", "Level 2", "Level 3", "Level 4", "Level 5";
	setarray @DXcoords[@Dref], 168, 41, 236, 32, 26;
	setarray @DYcoords[@Dref], 168, 37, 204, 63, 27;
	setarray @DDepth[@Dref], 0, 1, 2, 3, 4;

	if (#iz_dun == 1)&&(@pDprice[@Di] != 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di]+" -> "+@pDprice[@Di];
	if (#iz_dun == 1)&&(@pDprice[@Di] == 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di];
	if (#iz_dun == 1) set @Dmenuref[@Dj],@Di;
	if (#iz_dun == 1) set @Dj,@Dj+1;

	setarray @DLocRef[@Di], @Dref;
	set @Dref, @Dref+@DLevels[@Di];
	set @Di,@Di+1;
//----------------CLOCK TOWER
	setarray @pDmenuitems$[@Di], "Clock Tower Dungeon";
	setarray @pDprice[@Di], $QW_AW_PRICE;
	setarray @DLevels[5], 8;

	setarray @DGat$[@Dref], "c_tower1.gat", "c_tower2.gat", "c_tower3.gat", "c_tower4.gat", "alde_dun01.gat", "alde_dun02.gat", "alde_dun03.gat", "alde_dun04.gat";
	setarray @DLevelName$[@Dref], "Clock Tower Level 1", "Clock Tower Level 2", "Clock Tower Level 3", "Clock Tower Level 4", "Basement 1F", "Basement 2F", "Basement 3F", "Basement 4F";
	setarray @DXcoords[@Dref], 200, 268, 64, 32, 197, 262, 276, 130;
	setarray @DYcoords[@Dref], 163, 26, 148, 63, 25, 41, 53, 130;
	setarray @DDepth[@Dref], 0, 1, 2, 3, 1, 2, 3, 4;

	if (#c_tower == 1)&&(@pDprice[@Di] != 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di]+" -> "+@pDprice[@Di];
	if (#c_tower == 1)&&(@pDprice[@Di] == 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di];
	if (#c_tower == 1) set @Dmenuref[@Dj],@Di;
	if (#c_tower == 1) set @Dj,@Dj+1;

	setarray @DLocRef[@Di], @Dref;
	set @Dref, @Dref+@DLevels[@Di];
	set @Di,@Di+1;
//----------------COAL MINE
	setarray @pDmenuitems$[@Di], "Coal Mine Dungeon";
	setarray @pDprice[@Di], $QW_AW_PRICE;
	setarray @DLevels[6], 3;

	setarray @DGat$[@Dref], "mjo_dun01.gat", "mjo_dun02.gat", "mjo_dun03.gat";
	setarray @DLevelName$[@Dref], "Level 1", "Level 2", "Level 3";
	setarray @DXcoords[@Dref], 52, 381, 302;
	setarray @DYcoords[@Dref], 17, 343, 261;
	setarray @DDepth[@Dref], 0, 1, 2;

	if (#mjo_dun == 1)&&(@pDprice[@Di] != 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di]+" -> "+@pDprice[@Di];
	if (#mjo_dun == 1)&&(@pDprice[@Di] == 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di];
	if (#mjo_dun == 1) set @Dmenuref[@Dj],@Di;
	if (#mjo_dun == 1) set @Dj,@Dj+1;

	setarray @DLocRef[@Di], @Dref;
	set @Dref, @Dref+@DLevels[@Di];
	set @Di,@Di+1;
//----------------CULVERT
	setarray @pDmenuitems$[@Di], "Culvert Dungeon";
	setarray @pDprice[@Di], $QW_BW_PRICE;
	setarray @DLevels[7], 4;

	setarray @DGat$[@Dref], "prt_sewb1.gat", "prt_sewb2.gat", "prt_sewb3.gat", "prt_sewb4.gat";
	setarray @DLevelName$[@Dref], "Level 1", "Level 2", "Level 3", "Level 4";
	setarray @DXcoords[@Dref], 132, 19, 180, 100;
	setarray @DYcoords[@Dref], 248, 19, 169, 92;
	setarray @DDepth[@Dref], 0, 1, 2, 3;

	if (#prt_sewb == 1)&&(@pDprice[@Di] != 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di]+" -> "+@pDprice[@Di];
	if (#prt_sewb == 1)&&(@pDprice[@Di] == 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di];
	if (#prt_sewb == 1) set @Dmenuref[@Dj],@Di;
	if (#prt_sewb == 1) set @Dj,@Dj+1;

	setarray @DLocRef[@Di], @Dref;
	set @Dref, @Dref+@DLevels[@Di];
	set @Di,@Di+1;
//----------------EINBECH DUNGEON
	setarray @pDmenuitems$[@Di], "Einbech Dungeon";
	setarray @pDprice[@Di], $QW_AW_PRICE;
	setarray @DLevels[8], 2;

	setarray @DGat$[@Dref], "ein_dun01.gat", "ein_dun02.gat";
	setarray @DLevelName$[@Dref], "Level 1", "Level 2";
	setarray @DXcoords[@Dref], 22, 292;
	setarray @DYcoords[@Dref], 14, 290;
	setarray @DDepth[@Dref], 0, 1;

	if (#einbech_dun == 1)&&(@pDprice[@Di] != 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di]+" -> "+@pDprice[@Di];
	if (#einbech_dun == 1)&&(@pDprice[@Di] == 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di];
	if (#einbech_dun == 1) set @Dmenuref[@Dj],@Di;
	if (#einbech_dun == 1) set @Dj,@Dj+1;

	setarray @DLocRef[@Di], @Dref;
	set @Dref, @Dref+@DLevels[@Di];
	set @Di,@Di+1;
//----------------GEFENIA DUNGEON
	setarray @pDmenuitems$[@Di], "Gefenia Dungeon";
	setarray @pDprice[@Di], $QW_BW_PRICE;
	setarray @DLevels[9], 4;

	setarray @DGat$[@Dref], "gefenia01.gat", "gefenia02.gat", "gefenia03.gat", "gefenia04.gat";
	setarray @DLevelName$[@Dref], "Level 1", "Level 2", "Level 3", "Level 4";
	setarray @DXcoords[@Dref], 59, 201, 264, 33;
	setarray @DYcoords[@Dref], 167, 35, 236, 270;
	setarray @DDepth[@Dref], 0, 1, 2, 3;

	if (#gef_dun == 1)&&(@pDprice[@Di] != 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di]+" -> "+@pDprice[@Di];
	if (#gef_dun == 1)&&(@pDprice[@Di] == 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di];
	if (#gef_dun == 1) set @Dmenuref[@Dj],@Di;
	if (#gef_dun == 1) set @Dj,@Dj+1;

	setarray @DLocRef[@Di], @Dref;
	set @Dref, @Dref+@DLevels[@Di];
	set @Di,@Di+1;
//----------------GEFFEN DUNGEON
	setarray @pDmenuitems$[@Di], "Geffen Dungeon";
	setarray @pDprice[@Di], $QW_BW_PRICE;
	setarray @DLevels[@Di], 4;

	setarray @DGat$[@Dref], "gef_dun00.gat", "gef_dun01.gat", "gef_dun02.gat", "gef_dun03.gat";
	setarray @DLevelName$[@Dref], "Level 1", "Level 2", "Level 3", "Level 4";
	setarray @DXcoords[@Dref], 104, 115, 106, 203;
	setarray @DYcoords[@Dref], 100, 236, 132, 200;
	setarray @DDepth[@Dref], 0, 1, 2, 3;

	if (#gef_dun == 1)&&(@pDprice[@Di] != 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di]+" -> "+@pDprice[@Di];
	if (#gef_dun == 1)&&(@pDprice[@Di] == 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di];
	if (#gef_dun == 1) set @Dmenuref[@Dj],@Di;
	if (#gef_dun == 1) set @Dj,@Dj+1;

	setarray @DLocRef[@Di], @Dref;
	set @Dref, @Dref+@DLevels[@Di];
	set @Di,@Di+1;
//----------------GLAST HEIM
	setarray @pDmenuitems$[@Di], "Glast Heim Dungeon";
	setarray @pDprice[@Di], $QW_BW_PRICE;
	
	setarray @DLevels[@Di], 17;

	setarray @DGat$[@Dref], "glast_01.gat", "gl_church.gat", "gl_chyard.gat", "gl_in01.gat", "gl_cas01.gat", "gl_cas02.gat", "gl_knt01.gat", "gl_knt02.gat", "gl_prison.gat", "gl_prison1.gat", "gl_step.gat", "gl_sew01.gat", "gl_sew02.gat", "gl_sew03.gat", "gl_sew04.gat", "gl_dun01.gat", "gl_dun02.gat";
	setarray @DLevelName$[@Dref], "Glast Heim Entrance", "St. Abbey", "Churchyard", "Inside Glast Heim", "Castle 1", "Castle 2", "Chivalry 1", "Chivalry 2", "Prison 1", "Prison 2", "Steps", "Sewers 1", "Sewers 2", "Sewers 3", "Sewers 4", "Lowest Cave 1", "Lowest Cave 2";
	setarray @DXcoords[@Dref], 370, 156, 147, 121, 199, 104, 150, 157, 14, 150, 117, 258, 108, 171, 68, 133, 224;
	setarray @DYcoords[@Dref], 300, 8, 15, 59, 29, 25, 10, 287, 70, 14, 124, 255, 291, 273, 277, 271, 274;
	setarray @DDepth[@Dref], 0, 1, 2, 1, 1, 2, 1, 2, 2, 3, 1, 4, 2, 3, 4, 5, 6;

	if (#gl_dun == 1)&&(@pDprice[@Di] != 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di]+" -> "+@pDprice[@Di];
	if (#gl_dun == 1)&&(@pDprice[@Di] == 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di];
	if (#gl_dun == 1) set @Dmenuref[@Dj],@Di;
	if (#gl_dun == 1) set @Dj,@Dj+1;

	setarray @DLocRef[@Di], @Dref;
	set @Dref, @Dref+@DLevels[@Di];
	set @Di,@Di+1;
//----------------GONRYUN DUNGEON
	setarray @pDmenuitems$[@Di], "Gonryun Dungeon";
	setarray @pDprice[@Di], $QW_OW_PRICE;
	setarray @DLevels[@Di], 3;

	setarray @DGat$[@Dref], "gon_dun01.gat", "gon_dun02.gat", "gon_dun03.gat";
	setarray @DLevelName$[@Dref], "Level 1", "Level 2", "Level 3";
	setarray @DXcoords[@Dref], 143, 17, 68;
	setarray @DYcoords[@Dref], 59, 114, 9;
	setarray @DDepth[@Dref], 0, 1, 2;

	if (#gon_dun == 1)&&(@pDprice[@Di] != 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di]+" -> "+@pDprice[@Di];
	if (#gon_dun == 1)&&(@pDprice[@Di] == 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di];
	if (#gon_dun == 1) set @Dmenuref[@Dj],@Di;
	if (#gon_dun == 1) set @Dj,@Dj+1;

	setarray @DLocRef[@Di], @Dref;
	set @Dref, @Dref+@DLevels[@Di];
	set @Di,@Di+1;
//----------------HIDDEN DUNGEON
	setarray @pDmenuitems$[@Di], "Hidden Dungeon";
	setarray @pDprice[@Di], $QW_BW_PRICE;
	setarray @DLevels[@Di], 3;

	setarray @DGat$[@Dref], "prt_maze01.gat", "prt_maze02.gat", "prt_maze03.gat";
	setarray @DLevelName$[@Dref], "Level 1", "Level 2", "Level 3";
	setarray @DXcoords[@Dref], 176, 94, 23;
	setarray @DYcoords[@Dref], 6, 19, 8;
	setarray @DDepth[@Dref], 0, 1, 2;

	if (#hid_dun == 1)&&(@pDprice[@Di] != 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di]+" -> "+@pDprice[@Di];
	if (#hid_dun == 1)&&(@pDprice[@Di] == 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di];
	if (#hid_dun == 1) set @Dmenuref[@Dj],@Di;
	if (#hid_dun == 1) set @Dj,@Dj+1;

	setarray @DLocRef[@Di], @Dref;
	set @Dref, @Dref+@DLevels[@Di];
	set @Di,@Di+1;
//----------------JUPEROS CAVE
	setarray @pDmenuitems$[@Di], "Juperos Cave";
	setarray @pDprice[@Di], $QW_AW_PRICE;
	setarray @DLevels[@Di], 3;

	setarray @DGat$[@Dref], "juperos_01.gat", "juperos_02.gat";
	setarray @DLevelName$[@Dref], "Level 1", "Level 2";
	setarray @DXcoords[@Dref], 53, 36;
	setarray @DYcoords[@Dref], 247, 60;
	setarray @DDepth[@Dref], 0, 1;

	if (#lighthalzen_dun == 1)&&(@pDprice[@Di] != 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di]+" -> "+@pDprice[@Di];
	if (#lighthalzen_dun == 1)&&(@pDprice[@Di] == 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di];
	if (#lighthalzen_dun == 1) set @Dmenuref[@Dj],@Di;
	if (#lighthalzen_dun == 1) set @Dj,@Dj+1;

	setarray @DLocRef[@Di], @Dref;
	set @Dref, @Dref+@DLevels[@Di];
	set @Di,@Di+1;
//----------------LIGHTHALZEN BIO LAB
	setarray @pDmenuitems$[@Di], "Lighthalzen Bio Lab", "Louyang Dungeon", "Magma Dungeon", "Odin Temple", "Orc Dungeon", "Payon Dungeon", "Pyramids Dungeon", "Sphinx Dungeon", "Sunken Ship Dungeon", "Thanatos Tower", "Toy Factory Dungeon", "Turtle Island Dungeon", "Umbala Dungeon", "Cancel";
	setarray @pDprice[@Di], $QW_AW_PRICE, $QW_AW_PRICE, $QW_AW_PRICE, $QW_BW_PRICE, $QW_BW_PRICE, $QW_BW_PRICE, $QW_BW_PRICE, $QW_BW_PRICE, $QW_AW_PRICE, $QW_AW_PRICE, $QW_OW_PRICE, 0;
	setarray @DLevels[@Di], 3;

	setarray @DGat$[@Dref], "lhz_dun01.gat", "lhz_dun02.gat", "lhz_dun03.gat";
	setarray @DLevelName$[@Dref], "Level 1", "Level 2", "Level 3";
	setarray @DXcoords[@Dref], 150, 150, 140;
	setarray @DYcoords[@Dref], 287, 18, 137;
	setarray @DDepth[@Dref], 0, 1, 2;

	if (#lighthalzen_dun == 1)&&(@pDprice[@Di] != 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di]+" -> "+@pDprice[@Di];
	if (#lighthalzen_dun == 1)&&(@pDprice[@Di] == 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di];
	if (#lighthalzen_dun == 1) set @Dmenuref[@Dj],@Di;
	if (#lighthalzen_dun == 1) set @Dj,@Dj+1;

	setarray @DLocRef[@Di], @Dref;
	set @Dref, @Dref+@DLevels[@Di];
	set @Di,@Di+1;
//----------------LOUYANG DUNGEON
	setarray @pDmenuitems$[@Di], "Louyang Dungeon";
	setarray @pDprice[@Di], $QW_OW_PRICE;
	setarray @DLevels[@Di], 2;

	setarray @DGat$[@Dref], "lou_dun02.gat", "lou_dun03.gat";
	setarray @DLevelName$[@Dref], "Royal Tomb Level 1", "Royal Tomb Level 2";
	setarray @DXcoords[@Dref], 282, 165;
	setarray @DYcoords[@Dref], 20, 38;
	setarray @DDepth[@Dref], 0, 1;

	if (#louyang_dun == 1)&&(@pDprice[@Di] != 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di]+" -> "+@pDprice[@Di];
	if (#louyang_dun == 1)&&(@pDprice[@Di] == 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di];
	if (#louyang_dun == 1) set @Dmenuref[@Dj],@Di;
	if (#louyang_dun == 1) set @Dj,@Dj+1;

	setarray @DLocRef[@Di], @Dref;
	set @Dref, @Dref+@DLevels[@Di];
	set @Di,@Di+1;
//----------------MAGMA DUNGEON
	setarray @pDmenuitems$[@Di], "Magma Dungeon";
	setarray @pDprice[@Di], $QW_AW_PRICE;
	setarray @DLevels[@Di], 2;

	setarray @DGat$[@Dref], "mag_dun01.gat", "mag_dun02.gat";
	setarray @DLevelName$[@Dref], "Level 1", "Level 2";
	setarray @DXcoords[@Dref], 126, 47;
	setarray @DYcoords[@Dref], 69, 32;
	setarray @DDepth[@Dref], 0, 1;

	if (#mag_dun == 1)&&(@pDprice[@Di] != 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di]+" -> "+@pDprice[@Di];
	if (#mag_dun == 1)&&(@pDprice[@Di] == 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di];
	if (#mag_dun == 1) set @Dmenuref[@Dj],@Di;
	if (#mag_dun == 1) set @Dj,@Dj+1;

	setarray @DLocRef[@Di], @Dref;
	set @Dref, @Dref+@DLevels[@Di];
	set @Di,@Di+1;
//----------------ODIN TEMPLE
	setarray @pDmenuitems$[@Di], "Odin Temple";
	setarray @pDprice[@Di], $QW_AW_PRICE;
	setarray @DLevels[@Di], 1;

	setarray @DGat$[@Dref], "odin_tem01.gat";
	setarray @DLevelName$[@Dref], "Level 1";
	setarray @DXcoords[@Dref], 96;
	setarray @DYcoords[@Dref], 145;
	setarray @DDepth[@Dref], 0;

	if (#odintemple == 1)&&(@pDprice[@Di] != 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di]+" -> "+@pDprice[@Di];
	if (#odintemple == 1)&&(@pDprice[@Di] == 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di];
	if (#odintemple == 1) set @Dmenuref[@Dj],@Di;
	if (#odintemple == 1) set @Dj,@Dj+1;

	setarray @DLocRef[@Di], @Dref;
	set @Dref, @Dref+@DLevels[@Di];
	set @Di,@Di+1;
//----------------ORC DUNGEON
	setarray @pDmenuitems$[@Di], "Orc Dungeon";
	setarray @pDprice[@Di], $QW_BW_PRICE;
	setarray @DLevels[@Di], 2;

	setarray @DGat$[@Dref], "orcsdun01.gat", "orcsdun02.gat";
	setarray @DLevelName$[@Dref], "Level 1", "Level 2";
	setarray @DXcoords[@Dref], 32, 21;
	setarray @DYcoords[@Dref], 169, 185;
	setarray @DDepth[@Dref], 0, 1;

	if (#orcsdun == 1)&&(@pDprice[@Di] != 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di]+" -> "+@pDprice[@Di];
	if (#orcsdun == 1)&&(@pDprice[@Di] == 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di];
	if (#orcsdun == 1) set @Dmenuref[@Dj],@Di;
	if (#orcsdun == 1) set @Dj,@Dj+1;

	setarray @DLocRef[@Di], @Dref;
	set @Dref, @Dref+@DLevels[@Di];
	set @Di,@Di+1;
//----------------PAYON DUNGEON
	setarray @pDmenuitems$[@Di], "Payon Dungeon";
	setarray @pDprice[@Di], $QW_BW_PRICE;
	setarray @DLevels[@Di], 5;

	setarray @DGat$[@Dref], "pay_dun00.gat", "pay_dun01.gat", "pay_dun02.gat", "pay_dun03.gat", "pay_dun04.gat";
	setarray @DLevelName$[@Dref], "Level 1", "Level 2", "Level 3", "Level 4", "Level 5";
	setarray @DXcoords[@Dref], 22, 19, 19, 155, 201;
	setarray @DYcoords[@Dref], 180, 33, 63, 159, 204;
	setarray @DDepth[@Dref], 0, 1, 2, 3, 4;

	if (#pay_dun == 1)&&(@pDprice[@Di] != 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di]+" -> "+@pDprice[@Di];
	if (#pay_dun == 1)&&(@pDprice[@Di] == 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di];
	if (#pay_dun == 1) set @Dmenuref[@Dj],@Di;
	if (#pay_dun == 1) set @Dj,@Dj+1;

	setarray @DLocRef[@Di], @Dref;
	set @Dref, @Dref+@DLevels[@Di];
	set @Di,@Di+1;
//----------------PYRAMIDS
	setarray @pDmenuitems$[@Di], "Pyramids Dungeon";
	setarray @pDprice[@Di], $QW_BW_PRICE;
	setarray @DLevels[@Di], 6;

	setarray @DGat$[@Dref], "moc_pryd01.gat", "moc_pryd02.gat", "moc_pryd03.gat", "moc_pryd04.gat", "moc_pryd05.gat", "moc_pryd06.gat";
	setarray @DLevelName$[@Dref], "Level 1", "Level 2", "Level 3", "Level 4", "Basement 1", "Basement 2";
	setarray @DXcoords[@Dref], 192, 10, 100, 181, 94, 192;
	setarray @DYcoords[@Dref], 9, 192, 92, 11, 96, 8;
	setarray @DDepth[@Dref], 0, 1, 2, 3, 1, 2;

	if (#moc_pryd == 1)&&(@pDprice[@Di] != 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di]+" -> "+@pDprice[@Di];
	if (#moc_pryd == 1)&&(@pDprice[@Di] == 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di];
	if (#moc_pryd == 1) set @Dmenuref[@Dj],@Di;
	if (#moc_pryd == 1) set @Dj,@Dj+1;

	setarray @DLocRef[@Di], @Dref;
	set @Dref, @Dref+@DLevels[@Di];
	set @Di,@Di+1;
//----------------SPHINX
	setarray @pDmenuitems$[@Di], "Sphinx Dungeon";
	setarray @pDprice[@Di], $QW_BW_PRICE;
	setarray @DLevels[@Di], 5;

	setarray @DGat$[@Dref], "in_sphinx1.gat", "in_sphinx2.gat", "in_sphinx3.gat", "in_sphinx4.gat", "in_sphinx5.gat";
	setarray @DLevelName$[@Dref], "Level 1", "Level 2", "Level 3", "Level 4", "Level 5";
	setarray @DXcoords[@Dref], 192, 149, 210, 10, 100;
	setarray @DYcoords[@Dref], 9, 81, 54, 222, 99;
	setarray @DDepth[@Dref], 0, 1, 2, 3, 4;

	if (#in_sphinx == 1)&&(@pDprice[@Di] != 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di]+" -> "+@pDprice[@Di];
	if (#in_sphinx == 1)&&(@pDprice[@Di] == 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di];
	if (#in_sphinx == 1) set @Dmenuref[@Dj],@Di;
	if (#in_sphinx == 1) set @Dj,@Dj+1;

	setarray @DLocRef[@Di], @Dref;
	set @Dref, @Dref+@DLevels[@Di];
	set @Di,@Di+1;
//----------------SUNKEN SHIP
	setarray @pDmenuitems$[@Di], "Sunken Ship Dungeon";
	setarray @pDprice[@Di], $QW_BW_PRICE;
	setarray @DLevels[@Di], 2;

	setarray @DGat$[@Dref], "treasure01.gat", "treasure02.gat";
	setarray @DLevelName$[@Dref], "Level 1", "Level 2";
	setarray @DXcoords[@Dref], 69, 102;
	setarray @DYcoords[@Dref], 24, 27;
	setarray @DDepth[@Dref], 0, 1;

	if (#treasure == 1)&&(@pDprice[@Di] != 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di]+" -> "+@pDprice[@Di];
	if (#treasure == 1)&&(@pDprice[@Di] == 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di];
	if (#treasure == 1) set @Dmenuref[@Dj],@Di;
	if (#treasure == 1) set @Dj,@Dj+1;

	setarray @DLocRef[@Di], @Dref;
	set @Dref, @Dref+@DLevels[@Di];
	set @Di,@Di+1;
//----------------THANATOS TOWER
	setarray @pDmenuitems$[@Di], "Thanatos Tower";
	setarray @pDprice[@Di], $QW_AW_PRICE;
	setarray @DLevels[@Di], 13;

	setarray @DGat$[@Dref], "tha_t01.gat", "tha_t02.gat", "tha_t03.gat", "tha_t04.gat", "tha_t05.gat", "tha_t06.gat", "tha_t07.gat", "tha_t08.gat", "tha_t09.gat", "tha_t10.gat", "tha_t11.gat", "tha_t12.gat", "thana_boss.gat";
	setarray @DLevelName$[@Dref], "Level 1", "Level 2", "Level 3", "Level 4", "Level 5", "Level 6", "Level 7", "Level 8", "Level 9", "Level 10", "Level 11", "Level 12", "Thanatos Boss";
	setarray @DXcoords[@Dref], 150, 150, 220, 59, 62, 206, 35, 105, 88, 168, 90, 129, 85;
	setarray @DYcoords[@Dref], 35, 136, 158, 143, 11, 8, 166, 44, 145, 138, 36, 83, 76;
	setarray @DDepth[@Dref], 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12;

	if (#thanatos_tower == 1)&&(@pDprice[@Di] != 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di]+" -> "+@pDprice[@Di];
	if (#thanatos_tower == 1)&&(@pDprice[@Di] == 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di];
	if (#thanatos_tower == 1) set @Dmenuref[@Dj],@Di;
	if (#thanatos_tower == 1) set @Dj,@Dj+1;

	setarray @DLocRef[@Di], @Dref;
	set @Dref, @Dref+@DLevels[@Di];
	set @Di,@Di+1;
//----------------TOY FACTORY
	setarray @pDmenuitems$[@Di], "Toy Factory Dungeon";
	setarray @pDprice[@Di], $QW_AW_PRICE;
	setarray @DLevels[@Di], 2;

	setarray @DGat$[@Dref], "xmas_dun01.gat", "xmas_dun02.gat";
	setarray @DLevelName$[@Dref], "Factory Warehouse", "Classifying Room";
	setarray @DXcoords[@Dref], 205, 129;
	setarray @DYcoords[@Dref], 16, 133;
	setarray @DDepth[@Dref], 0, 1;

	if (#xmas_dun == 1)&&(@pDprice[@Di] != 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di]+" -> "+@pDprice[@Di];
	if (#xmas_dun == 1)&&(@pDprice[@Di] == 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di];
	if (#xmas_dun == 1) set @Dmenuref[@Dj],@Di;
	if (#xmas_dun == 1) set @Dj,@Dj+1;

	setarray @DLocRef[@Di], @Dref;
	set @Dref, @Dref+@DLevels[@Di];
	set @Di,@Di+1;
//----------------TURTLE ISTLAND
	setarray @pDmenuitems$[@Di], "Turtle Island Dungeon";
	setarray @pDprice[@Di], $QW_AW_PRICE;
	setarray @DLevels[@Di], 4;

	setarray @DGat$[@Dref], "tur_dun01.gat", "tur_dun02.gat", "tur_dun03.gat", "tur_dun04.gat";
	setarray @DLevelName$[@Dref], "Outside", "Level 1", "Level 2", "Level 3";
	setarray @DXcoords[@Dref], 161, 148, 132, 100;
	setarray @DYcoords[@Dref], 34, 256, 190, 192;
	setarray @DDepth[@Dref], 0, 0, 1, 2;

	if (#tur_dun == 1)&&(@pDprice[@Di] != 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di]+" -> "+@pDprice[@Di];
	if (#tur_dun == 1)&&(@pDprice[@Di] == 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di];
	if (#tur_dun == 1) set @Dmenuref[@Dj],@Di;
	if (#tur_dun == 1) set @Dj,@Dj+1;

	setarray @DLocRef[@Di], @Dref;
	set @Dref, @Dref+@DLevels[@Di];
	set @Di,@Di+1;
//----------------UMBALA
	setarray @pDmenuitems$[@Di], "Umbala Dungeon";
	setarray @pDprice[@Di], $QW_OW_PRICE;
	setarray @DLevels[@Di], 3;

	setarray @DGat$[@Dref], "um_dun01.gat", "um_dun02.gat", "yggdrasil01.gat";
	setarray @DLevelName$[@Dref], "Carpenter's Shop in The Tree", "Passage to a Foreign World", "Hvergelmir's Fountain";
	setarray @DXcoords[@Dref], 205, 48, 40;
	setarray @DYcoords[@Dref], 16, 30, 63;
	setarray @DDepth[@Dref], 0, 1, 2;

	if (#um_dun == 1)&&(@pDprice[@Di] != 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di]+" -> "+@pDprice[@Di];
	if (#um_dun == 1)&&(@pDprice[@Di] == 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di];
	if (#um_dun == 1) set @Dmenuref[@Dj],@Di;
	if (#um_dun == 1) set @Dj,@Dj+1;

	setarray @DLocRef[@Di], @Dref;
	set @Dref, @Dref+@DLevels[@Di];
	set @Di,@Di+1;
//----------------Cancel
	setarray @pDmenuitems$[@Di], "Cancel";
	setarray @pDprice[@Di], 0;

	set @Dmenulist$[@Dj],@pDmenuitems$[@Di];
	set @Dmenuref[@Dj],@Di;
	return;
}

function	script	QWS_DLarray	{
//----------------Start building Menu
	set @DWi,@DLocRef[@DwarpMenu]; // That's our loop counter.
	set @DWj,0; // That's the menu lines counter.
	cleararray @DWLmenulist$[0],"",20; // Clearing the array to get rid off ghost items in menu
Loop:
// Main Loop
	set @warpprice, (@pDprice[@DwarpMenu]+$QW_DW_FEE*@DDepth[@DWi]);
	if (@warpprice != 0) set @DWLmenulist$[@DWj], @DLevelName$[@DWi]+" -> "+@warpprice;
	if (@warpprice == 0) set @DWLmenulist$[@DWj], @DLevelName$[@DWi];
	set @DWLmenuref[@DWj],@DWi;

	set @DWj,@DWj+1;
	set @DWi,@DWi+1;
	
	if (@DWj == @DLevels[@DwarpMenu]) goto make_exit;
	
	goto Loop;

make_exit:
	set @DWLmenulist$[@DWj], "Exit";
	set @DWLmenuref[@DWj],1337; //impossible number easy to track back
	return;
	}

//============================Warpras==============================

alb2trea.gat,73,101,4	script	Warpra	113,{
	callfunc "Q_Warpra",1;
}
ama_fild01.gat,178,325,1	script	Warpra	113,{
	callfunc "Q_Warpra",1;
}
gef_fild10.gat,71,339,4	script	Warpra	113,{
	callfunc "Q_Warpra",1;
}
izlu2dun.gat,104,82,4	script	Warpra	113,{
	callfunc "Q_Warpra",1;
}
mjolnir_02.gat,85,363,4	script	Warpra	113,{
	callfunc "Q_Warpra",1;
}
moc_fild04.gat,207,331,4	script	Warpra	113,{
	callfunc "Q_Warpra",1;
}
moc_fild19.gat,106,97,4	script	Warpra	113,{
	callfunc "Q_Warpra",1;
}
moc_ruins.gat,64,166,4	script	Warpra	113,{
	callfunc "Q_Warpra",1;
}
niflheim.gat,197,192,3	script	Warpra	113,{
	callfunc "Q_Warpra",1;
}
pay_arche.gat,39,135,4	script	Warpra	113,{
	callfunc "Q_Warpra",1;
}
prt_fild05.gat,273,215,4	script	Warpra	113,{
	callfunc "Q_Warpra",1;
}
tur_dun01.gat,148,239,4	script	Warpra	113,{
	callfunc "Q_Warpra",1;
}
valkyrie.gat,48,35,8	script	Warpra	113,{
	callfunc "Q_Warpra",1;
}
yuno_fild03.gat,37,135,4	script	Warpra	113,{
	callfunc "Q_Warpra",1;
}


alberta.gat,32,240,4	script	Warpra	113,{
	if (#alberta != 0) callfunc "Q_Warpra",0;
	set #alberta,1;
	mes "[Warpra]";
	mes "Alberta Town unlocked!";
	close;
}
aldebaran.gat,146,118,4	script	Warpra	113,{
	if (#aldebaran != 0) callfunc "Q_Warpra",0;
	set #aldebaran,1;
	mes "[Warpra]";
	mes "Aldebaran Town unlocked!";
	close;
}
ayothaya.gat,216,171,5	script	Warpra	113,{
	if (#ayotaya != 0) callfunc "Q_Warpra",0;
	set #ayotaya,1;
	mes "[Warpra]";
	mes "Ayotaya Town unlocked!";
	close;
}
amatsu.gat,193,81,1	script	Warpra	113,{
	if (#amatsu != 0) callfunc "Q_Warpra",0;
	set #amatsu,1;
	mes "[Warpra]";
	mes "Amatsu Town unlocked!";
	close;
}
comodo.gat,195,158,4	script	Warpra	113,{
	if (#comodo != 0) callfunc "Q_Warpra",0;
	set #comodo,1;
	mes "[Warpra]";
	mes "Comodo Town unlocked!";
	close;
}
einbroch.gat,229,196,5	script	Warpra	113,{
	if (#einbroch != 0) callfunc "Q_Warpra",0;
	set #einbroch,1;
	mes "[Warpra]";
	mes "Einbroch Town unlocked!";
	close;
}
einbech.gat,173,131,5	script	Warpra	113,{
	if (#einbech != 0) callfunc "Q_Warpra",0;
	set #einbech,1;
	mes "[Warpra]";
	mes "Einbech Town unlocked!";
	close;
}
geffen.gat,116,66,4	script	Warpra	113,{
	if (#geffen != 0) callfunc "Q_Warpra",0;
	set #geffen,1;
	mes "[Warpra]";
	mes "Geffen Town unlocked!";
	close;
}
gonryun.gat,152,130,4	script	Warpra	113,{
	if (#gonryun != 0) callfunc "Q_Warpra",0;
	set #gonryun,1;
	mes "[Warpra]";
	mes "Gonryun Town unlocked!";
	close;
}
hugel.gat,90,127,5	script	Warpra	113,{
	if (#hugel != 0) callfunc "Q_Warpra",0;
	set #hugel,1;
	mes "[Warpra]";
	mes "Hugel Town unlocked!";
	close;
}
jawaii.gat,107,182,5	script	Warpra	113,{
	if (#jawaii != 0) callfunc "Q_Warpra",0;
	set #jawaii,1;
	mes "[Warpra]";
	mes "Jawaii Town unlocked!";
	close;
}
izlude.gat,132,116,4	script	Warpra	113,{
	if (#izlude != 0) callfunc "Q_Warpra",0;
	set #izlude,1;
	mes "[Warpra]";
	mes "Izlude Town unlocked!";
	close;
}
lighthalzen.gat,153,100,5	script	Warpra	113,{
	if (#lighthalzen != 0) callfunc "Q_Warpra",0;
	set #lighthalzen,1;
	mes "[Warpra]";
	mes "Lighthalzen Town unlocked!";
	close;
}
louyang.gat,211,106,4	script	Warpra	113,{
	if (#louyang != 0) callfunc "Q_Warpra",0;
	set #louyang,1;
	mes "[Warpra]";
	mes "Louyang Town unlocked!";
	close;
}
morocc.gat,157,95,4	script	Warpra	113,{
	if (#morocc != 0) callfunc "Q_Warpra",0;
	set #morocc,1;
	mes "[Warpra]";
	mes "Morroc Town unlocked!";
	close;
}
nif_fild01.gat,319,77,1	script	Warpra	113,{
	if (#niflheim != 0) callfunc "Q_Warpra",0;
	set #niflheim,1;
	mes "[Warpra]";
	mes "Niflheim Town unlocked!";
	close;
}
payon.gat,183,110,4	script	Warpra	113,{
	if (#payon != 0) callfunc "Q_Warpra",0;
	set #payon,1;
	mes "[Warpra]";
	mes "Payon Town unlocked!";
	close;
}
prontera.gat,147,172,5	script	Warpra	113,{
	if (#prontera != 0) callfunc "Q_Warpra",0;
	set #prontera,1;
	mes "[Warpra]";
	mes "Prontera Town unlocked!";
	close;
}
umbala.gat,133,130,4	script	Warpra	113,{
	if (#umbala != 0) callfunc "Q_Warpra",0;
	set #umbala,1;
	mes "[Warpra]";
	mes "Umbala Town unlocked!";
	close;
}
xmas.gat,151,136,4	script	Warpra	113,{
	if (#xmas != 0) callfunc "Q_Warpra",0;
	set #xmas,1;
	mes "[Warpra]";
	mes "Lutie Town unlocked!";
	close;
}
yuno.gat,138,162,4	script	Warpra	113,{
	if (#yuno != 0) callfunc "Q_Warpra",0;
	set #yuno,1;
	mes "[Warpra]";
	mes "Yuno Town unlocked!";
	close;
}

abyss_02.gat,274,266,1	script	Warpra	113,{
	if (#abyss == 1) mes "[Warpra]";
	if (#abyss == 1) mes "Sorry I can only unlock this location.";
	if (#abyss == 1) close;
	set #abyss,1;
	mes "[Warpra]";
	mes "Abyss Lake unlocked!";
	close;
}

ama_dun02.gat,192,118,5	script	Warpra Helper	112,{
	if (#ama_dun == 1) mes "[Warpra]";
	if (#ama_dun == 1) mes "Sorry I can only unlock this location.";
	if (#ama_dun == 1) close;
	set #ama_dun,1;
	mes "[Warpra]";
	mes "Amatsu Dungeon unlocked!";
	close;
}

anthell02.gat,170,165,3	script	Warpra Helper	112,{
	if (#anthell == 1) mes "[Warpra]";
	if (#anthell == 1) mes "Sorry I can only unlock this location.";
	if (#anthell == 1) close;
	set #anthell,1;
	mes "[Warpra]";
	mes "Ant Hell Dungeon unlocked!";
	close;
}

ayo_dun02.gat,258,193,5	script	Warpra Helper	112,{
	if (#ayotaya_dun == 1) mes "[Warpra]";
	if (#ayotaya_dun == 1) mes "Sorry I can only unlock this location.";
	if (#ayotaya_dun == 1) close;
	set #ayotaya_dun,1;
	mes "[Warpra]";
	mes "Ayotaya Dungeon unlocked!";
	close;
}

ein_dun02.gat,292,282,1	script	Warpra Helper	112,{
	if (#einbech_dun == 1) mes "[Warpra]";
	if (#einbech_dun == 1) mes "Sorry I can only unlock this location.";
	if (#einbech_dun == 1) close;
	set #einbech_dun,1;
	mes "[Warpra]";
	mes "Einbech Dungeon unlocked!";
	close;
}

iz_dun03.gat,202,47,2	script	Warpra Helper	112,{
	if (#iz_dun == 1) mes "[Warpra]";
	if (#iz_dun == 1) mes "Sorry I can only unlock this location.";
	if (#iz_dun == 1) close;
	set #iz_dun,1;
	mes "[Warpra]";
	mes "Byalan Dungeon unlocked!";
	close;
}

c_tower3.gat,129,106,4	script	Warpra Helper	112,{
	if (#c_tower == 1) mes "[Warpra]";
	if (#c_tower == 1) mes "Sorry I can only unlock this location.";
	if (#c_tower == 1) close;
	set #c_tower,1;
	mes "[Warpra]";
	mes "Clock Tower Dungeon unlocked!";
	close;
}

mjo_dun02.gat,39,25,4	script	Warpra Helper	112,{
	if (#mjo_dun == 1) mes "[Warpra]";
	if (#mjo_dun == 1) mes "Sorry I can only unlock this location.";
	if (#mjo_dun == 1) close;
	set #mjo_dun,1;
	mes "[Warpra]";
	mes "Coal Mine Dungeon unlocked!";
	close;
}

prt_sewb2.gat,176,30,3	script	Warpra Helper	112,{
	if (#prt_sewb == 1) mes "[Warpra]";
	if (#prt_sewb == 1) mes "Sorry I can only unlock this location.";
	if (#prt_sewb == 1) close;
	set #prt_sewb,1;
	mes "[Warpra]";
	mes "Culvert Dungeon unlocked!";
	close;
}

gefenia03.gat,137,34,0	script	Warpra Helper	112,{
	if (#gefenia == 1) mes "[Warpra]";
	if (#gefenia == 1) mes "Sorry I can only unlock this location.";
	if (#gefenia == 1) close;
	set #gefenia,1;
	mes "[Warpra]";
	mes "Gefenia Dungeon unlocked!";
	close;
}

gef_dun02.gat,218,61,2	script	Warpra Helper	112,{
	if (#gef_dun == 1) mes "[Warpra]";
	if (#gef_dun == 1) mes "Sorry I can only unlock this location.";
	if (#gef_dun == 1) close;
	set #gef_dun,1;
	mes "[Warpra]";
	mes "Gefen Dungeon unlocked!";
	close;
}

glast_01.gat,371,308,3	script	Warpra Helper	112,{
	if (#gl_dun == 1) mes "[Warpra]";
	if (#gl_dun == 1) mes "Sorry I can only unlock this location.";
	if (#gl_dun == 1) close;
	set #gl_dun,1;
	mes "[Warpra]";
	mes "Glast Heim Dungeon unlocked!";
	close;
}

gon_dun01.gat,167,273,4	script	Warpra Helper	112,{
	if (#gon_dun == 1) mes "[Warpra]";
	if (#gon_dun == 1) mes "Sorry I can only unlock this location.";
	if (#gon_dun == 1) close;
	set #gon_dun,1;
	mes "[Warpra]";
	mes "Gonryun Dungeon unlocked!";
	close;
}

juperos_02.gat,127,154,5	script	Warpra Helper	112,{
	if (#juperos == 1) mes "[Warpra]";
	if (#juperos == 1) mes "Sorry I can only unlock this location.";
	if (#juperos == 1) close;
	set #juperos,1;
	mes "[Warpra]";
	mes "Juperos Cave unlocked!";
	close;
}

lhz_dun02.gat,156,151,3	script	Warpra Helper	112,{
	if (#lighthalzen_dun == 1) mes "[Warpra]";
	if (#lighthalzen_dun == 1) mes "Sorry I can only unlock this location.";
	if (#lighthalzen_dun == 1) close;
	set #lighthalzen_dun,1;
	mes "[Warpra]";
	mes "Lighthalzen Bio Lab unlocked!";
	close;
}

lou_dun02.gat,168,264,4	script	Warpra Helper	112,{
	if (#louyang_dun == 1) mes "[Warpra]";
	if (#louyang_dun == 1) mes "Sorry I can only unlock this location.";
	if (#louyang_dun == 1) close;
	set #louyang_dun,1;
	mes "[Warpra]";
	mes "Louyang Dungeon unlocked!";
	close;
}

mag_dun02.gat,46,41,3	script	Warpra Helper	112,{
	if (#mag_dun == 1) mes "[Warpra]";
	if (#mag_dun == 1) mes "Sorry I can only unlock this location.";
	if (#mag_dun == 1) close;
	set #mag_dun,1;
	mes "[Warpra]";
	mes "Magma Dungeon unlocked!";
	close;
}

odin_tem01.gat,115,148,3	script	Warpra Helper	112,{
	if (#odintemple == 1) mes "[Warpra]";
	if (#odintemple == 1) mes "Sorry I can only unlock this location.";
	if (#odintemple == 1) close;
	set #odintemple,1;
	mes "[Warpra]";
	mes "Odin Temple unlocked!";
	close;
}

orcsdun01.gat,185,11,3	script	Warpra Helper	112,{
	if (#orcsdun == 1) mes "[Warpra]";
	if (#orcsdun == 1) mes "Sorry I can only unlock this location.";
	if (#orcsdun == 1) close;
	set #orcsdun,1;
	mes "[Warpra]";
	mes "Orc Dungeon unlocked!";
	close;
}

pay_dun03.gat,162,143,3	script	Warpra Helper	112,{
	if (#pay_dun== 1) mes "[Warpra]";
	if (#pay_dun == 1) mes "Sorry I can only unlock this location.";
	if (#pay_dun == 1) close;
	set #pay_dun,1;
	mes "[Warpra]";
	mes "Payon Dungeon unlocked!";
	close;
}

moc_pryd02.gat,101,95,3	script	Warpra Helper	112,{
	if (#moc_pryd == 1) mes "[Warpra]";
	if (#moc_pryd == 1) mes "Sorry I can only unlock this location.";
	if (#moc_pryd == 1) close;
	set #moc_pryd,1;
	mes "[Warpra]";
	mes "Pyramides Dungeon unlocked!";
	close;
}

in_sphinx2.gat,274,268,1	script	Warpra Helper	112,{
	if (#in_sphinx == 1) mes "[Warpra]";
	if (#in_sphinx == 1) mes "Sorry I can only unlock this location.";
	if (#in_sphinx == 1) close;
	set #in_sphinx,1;
	mes "[Warpra]";
	mes "Sphinx Dungeon unlocked!";
	close;
}

tha_t07.gat,111,162,3	script	Warpra Helper	112,{
	if (#thanatos_tower == 1) mes "[Warpra]";
	if (#thanatos_tower == 1) mes "Sorry I can only unlock this location.";
	if (#thanatos_tower == 1) close;
	set #thanatos_tower,1;
	mes "[Warpra]";
	mes "Thanatos Tower unlocked!";
	close;
}

treasure02.gat,104,40,3	script	Warpra Helper	112,{
	if (#treasure == 1) mes "[Warpra]";
	if (#treasure == 1) mes "Sorry I can only unlock this location.";
	if (#treasure == 1) close;
	set #treasure,1;
	mes "[Warpra]";
	mes "Sunken Ship Dungeon unlocked!";
	close;
}

xmas_dun02.gat,124,131,3	script	Warpra Helper	112,{
	if (#xmas_dun == 1) mes "[Warpra]";
	if (#xmas_dun == 1) mes "Sorry I can only unlock this location.";
	if (#xmas_dun == 1) close;
	set #xmas_dun,1;
	mes "[Warpra]";
	mes "Toy Factory Dungeon unlocked!";
	close;
}

um_dun02.gat,44,28,3	script	Warpra Helper	112,{
	if (#um_dun == 1) mes "[Warpra]";
	if (#um_dun == 1) mes "Sorry I can only unlock this location.";
	if (#um_dun == 1) close;
	set #um_dun,1;
	mes "[Warpra]";
	mes "Umbala Dungeon unlocked!";
	close;
}

tur_dun02.gat,162,23,3	script	Warpra Helper	112,{
	if (#tur_dun == 1) mes "[Warpra]";
	if (#tur_dun == 1) mes "Sorry I can only unlock this location.";
	if (#tur_dun == 1) close;
	set #tur_dun,1;
	mes "[Warpra]";
	mes "Turtle Island Dungeon unlocked!";
	close;
}
prt_maze02.gat,102,69,4	script	Warpra Helper	112,{
	if (#hid_dun == 1) mes "[Warpra]";
	if (#hid_dun == 1) mes "Sorry I can only unlock this location.";
	if (#hid_dun == 1) close;
	set #hid_dun,1;
	mes "[Warpra]";
	mes "Hidden Dungeon unlocked!";
	close;
}