From 23599bc5a71d8ff37a987324baf5082308eac80e Mon Sep 17 00:00:00 2001
From: eaac <eaac@54d463be-8e91-2dee-dedb-b68131a5f0ec>
Date: Sat, 15 Apr 2006 00:16:48 +0000
Subject: [PATCH] ~ eAAC Update: * Added quest_warper.txt to eAAC_Scripts.
 [erKURITA] * Deleted the sql and txt versions of the disguiser and added a
 merge of both. [erKURITA] * Deleted clone_arena.txt. [erKURITA] * Updated
 global_functionsKE.txt of Skotlex. [erKURITA] * Added
 woe_time_explanation.txt to explain how to set WoE times. [erKURITA]

git-svn-id: https://svn.code.sf.net/p/rathena/svn/trunk@6068 54d463be-8e91-2dee-dedb-b68131a5f0ec
---
 doc/woe_time_explanation.txt                  |  111 +
 npc/Changelog.txt                             |    3 +
 npc/cities/hugel.txt                          |    9 +-
 .../eAAC_Scripts/DonationGirl/donate.txt      |    2 +-
 .../DonationGirl/donate_item_db.sql           |    2 +-
 .../eAAC_Scripts/DonationGirl/readme.txt      |    2 +-
 npc/custom/eAAC_Scripts/clonearena.txt        | 2052 -----------------
 npc/custom/eAAC_Scripts/disguiser.txt         |  179 ++
 npc/custom/eAAC_Scripts/disguiser_SQL.txt     |  305 ---
 npc/custom/eAAC_Scripts/disguiser_TXT.txt     | 1664 -------------
 .../kafraExpress/global_functionsKE.txt       |    2 +-
 npc/custom/eAAC_Scripts/quest_warper.txt      | 1946 ++++++++++++++++
 npc/custom/eAAC_Scripts/roll_a_dice.txt       |   28 +-
 npc/guild/ev_agit_event.txt                   |    2 +-
 npc/scripts_eaac.conf                         |   13 +-
 15 files changed, 2265 insertions(+), 4055 deletions(-)
 create mode 100644 doc/woe_time_explanation.txt
 delete mode 100644 npc/custom/eAAC_Scripts/clonearena.txt
 create mode 100644 npc/custom/eAAC_Scripts/disguiser.txt
 delete mode 100644 npc/custom/eAAC_Scripts/disguiser_SQL.txt
 delete mode 100644 npc/custom/eAAC_Scripts/disguiser_TXT.txt
 create mode 100644 npc/custom/eAAC_Scripts/quest_warper.txt

diff --git a/doc/woe_time_explanation.txt b/doc/woe_time_explanation.txt
new file mode 100644
index 0000000000..7701107a14
--- /dev/null
+++ b/doc/woe_time_explanation.txt
@@ -0,0 +1,111 @@
+//| ~~~~~ How to set WoE times, by erKURITA: ~~~~~
+//| 
+//| Basically, there are 2 commands that affects the WoE times,
+//| OnClock<time>: and gettime(<type).
+//| 
+//| OnClock<time> runs when the said time where <time> is has been reached.
+//| The format of time is hhmm, being h = hour, m = minute.
+//| OnClock2350: would run at 23:50 on Computer's time.
+//| 
+//| gettime(<type) is a function which is used to make a check
+//| for a desired amount of information regarding time. The types are:
+//| 1 - Seconds (of a minute)
+//| 2 - Minutes (of an hour)
+//| 3 - Hour (of a day). Hour goes from 0 to 23.
+//| 4 - Week day (0 for Sunday, 6 is Saturday)
+//| 5 - Day of the month.
+//| 6 - Number of the month.
+//| 7 - Year.
+//| 8 - Day of the year.
+//| 
+//| Days (explained later) :
+//| 	Monday		= 1
+//| 	Tuesday		= 2
+//|	Wednesday 	= 3
+//|	Thursday	= 4
+//| 	Friday		= 5
+//| 	Saturday	= 6
+//| 	Sunday		= 7
+//| 
+//| This way, we can check for a desired minute, hour, day, month, etc.
+//| 
+//| Now the structure:
+//| 
+//|	OnClock2100:	//start time for Tues(2), Thurs(4)
+//|	OnClock2300:	//end time for Tues(2), Thurs(4)
+//|	OnClock1600:	//start time for Sat(6)
+//|	OnClock1800:	//end time for Sat(6)
+//| 
+//| These 4 labels will run one after the other. It's acomodated so, 
+//| The Tuesday at 21:00 and 23:00 they will run, and go to the next
+//| part of the script:
+//| 
+//|	if((gettime(4)==2) && (gettime(3)>=21 && gettime(3)<23)) goto L_Start;
+//|	if((gettime(4)==4) && (gettime(3)>=21 && gettime(3)<23)) goto L_Start;
+//|	if((gettime(4)==6) && (gettime(3)>=16 && gettime(3)<18)) goto L_Start;
+//| 
+//| This part will check for the times. Since both Starting and Ending times
+//| run through the same chain of commands, there are necesary checks to ensure
+//| it's the right time. Let's take the following example:
+//| 
+//|	if((gettime(4)==2) && (gettime(3)>=21 && gettime(3)<23))
+//| 
+//| The first gettime is checking for a type 4, the day of the week, and it's
+//| comparing it to the one desired, which is 2, that's Tuesday. If the comparation
+//| is true and both sides are equal, it will return 1. 1 means true, 0 means false
+//| in comparations and conditions.
+//| 
+//| The second gettime is checking for a type 3, which is the hour, and it's
+//| comparing it to 21, and if the first part is greater or equal (>=) than the second,
+//| the comparation will return 1.
+//| 
+//| The third and last gettime is checking again for the hour, but the time has to be less
+//| than the said time, in this case, 23.
+//| 
+//| Now, look at the parentheses. Parentheses are very important when making comparations
+//| and conditions. Check the order of these. I'll place dummy characters for this example:
+//| 
+//| 	if ((X && (Y && Z)) goto L_Start;
+//| 
+//| It's saying, if Y and Z are true, the condition meets. Now let's replace that comparation
+//| with another dummy character. We're doing (Y && Z) = G:
+//| 
+//| 	if (X && G) goto L_Start;
+//| 
+//| It's saying, if X and G are true, the condition meets, thus it has to go to L_Start.
+//| 
+//| Now, the last part of the script, regarding the end of WoE time:
+//| 
+//|	if((gettime(4)==2) && (gettime(3)==23)) goto L_End;
+//|	if((gettime(4)==4) && (gettime(3)==23)) goto L_End;
+//|	if((gettime(4)==6) && (gettime(3)==18)) goto L_End;
+//| 	end;
+//| 
+//| This is the same as before, but it's checking for the day in the first gettime, and
+//| the hour on the second. If both conditions are true, the WoE will end. We're checking 
+//| here for the end time, not the start.
+//| 
+//| Another important thing is OnAgitInit: . This special label will be run as soon as the
+//| castle data is loaded from the char data. So it will check for the above start and end time
+//| to see if it's in WoE time, hence why the hours has to be checked.
+//| 
+//| Now a example of how to set the WoE so it starts on Monday, at 4 pm and ends up at 10 pm:
+//| 
+//| OnClock1600: //| 16:00 = 4 pm
+//| OnClock2200: //| 22:00 = 10 pm
+//| 
+//| OnAgitInit: //| there has to be ONLY ONE of these labels, so put the OnClock above this
+//| 		//| and the checks below.
+//| 
+//| if ((gettime(4)==1) && (gettime(3)>=16 && gettime(3)<22)) goto L_Start;
+//| 
+//| if ((gettime(4)==1) && (gettime(3)==22) goto L_End;
+//| end;//| VERY IMPORTANT TO PLACE AND END AFTER THE LAST END CHECK. You don't want to 
+//| 	//| start the WoE w/o being on the right times/day
+//| 
+//| I hope this has been clear enough. Remember to put the checks in a logical way, e.g:
+//| Monday checks first, then Thursday, etc.
+//| Any questions Pm me (erKURITA) or go to irc channel on irc.deltaanime.net in #athena
+//| channel. Do not PM on IRC w/o asking please.
+//| 
+//| ~ erKURITA
\ No newline at end of file
diff --git a/npc/Changelog.txt b/npc/Changelog.txt
index 71683d39b6..d8005e9440 100644
--- a/npc/Changelog.txt
+++ b/npc/Changelog.txt
@@ -28,6 +28,9 @@ Nexon
 Date		Added
 ======
 04/14
+	* Added quest_warper.txt to eAAC_Scripts. Deleted the sql and txt versions
+	  of the disguiser and added a merge of both. Deleted clone_arena.txt.
+	  Updated global_functionsKE.txt of Skotlex. [erKURITA]
 	* Added some more Kiel warps thanks to Celestria [Playtester]
 	* Cleaned up eamobs [Playtester]
 	- deleted all files that have no difference to mobs
diff --git a/npc/cities/hugel.txt b/npc/cities/hugel.txt
index c189465640..12a67561c8 100644
--- a/npc/cities/hugel.txt
+++ b/npc/cities/hugel.txt
@@ -17,6 +17,7 @@
 //=	Started the basis of Poring Track. [erKURITA]
 //=	Moved the old lady to npc\guides\guides_hu.txt, since it's Hugel's guard [erKURITA]
 //=	Special thanks to RockmanEXE who provided all necesary info =3
+//=	Abducted/Moved Yan and Yalmire(temp names) to npc\events\custom\p_track. [erKURITA]
 //============================================================
 
 hu_in01.gat,23,311,4	script	Johsh	898,{
@@ -57,13 +58,7 @@ hugel.gat,91,152,4	script	Bulletin Board	837,{end;}
 //= New Npcs
 hugel.gat,76,134,4	script	Yahna	101,{end;}
 hugel.gat,71,137,5	script	Jamira	879,{end;}
-hugel.gat,58,72,5	script	Yan	86,{
-//ask for 500z to enter, poring track nš1
-end;}
-hugel.gat,62,68,1	script	Yalmire	86,{
-//ask for 500z to enter, poring track nš2
-end;
-}
+
 hugel.gat,175,115,5	script	Anhi Anh	897,{end;}
 hugel.gat,191,172,4	script	Yanhe	895,{end;}
 hugel.gat,196,164,3	script	Amnot	50,{end;}
diff --git a/npc/custom/eAAC_Scripts/DonationGirl/donate.txt b/npc/custom/eAAC_Scripts/DonationGirl/donate.txt
index 5ba084a444..6c1687ae18 100644
--- a/npc/custom/eAAC_Scripts/DonationGirl/donate.txt
+++ b/npc/custom/eAAC_Scripts/DonationGirl/donate.txt
@@ -356,4 +356,4 @@ goto L_GM;
 
 L_CLOSE:
 close;
-}
+}
\ No newline at end of file
diff --git a/npc/custom/eAAC_Scripts/DonationGirl/donate_item_db.sql b/npc/custom/eAAC_Scripts/DonationGirl/donate_item_db.sql
index 9104ed16fd..5a4088d9a2 100644
--- a/npc/custom/eAAC_Scripts/DonationGirl/donate_item_db.sql
+++ b/npc/custom/eAAC_Scripts/DonationGirl/donate_item_db.sql
@@ -11,4 +11,4 @@ REPLACE INTO `donate_item_db` VALUES (602,'Butterfly_Wing',30);
 REPLACE INTO `donate_item_db` VALUES (603,'Old_Blue_Box',1);
 REPLACE INTO `donate_item_db` VALUES (604,'Dead_Branch',200);
 REPLACE INTO `donate_item_db` VALUES (605,'Anodyne',5);
-REPLACE INTO `donate_item_db` VALUES (606,'Aloevera',5);
+REPLACE INTO `donate_item_db` VALUES (606,'Aloevera',5);
\ No newline at end of file
diff --git a/npc/custom/eAAC_Scripts/DonationGirl/readme.txt b/npc/custom/eAAC_Scripts/DonationGirl/readme.txt
index dd75532c79..2454b68e47 100644
--- a/npc/custom/eAAC_Scripts/DonationGirl/readme.txt
+++ b/npc/custom/eAAC_Scripts/DonationGirl/readme.txt
@@ -31,4 +31,4 @@
 = Thanks to Vich for helping me with the SQL syntax.	   =
 = Thanks to Lance for helping me with the the arrays and   =
 = for implementing this feature. XD			   =
-============================================================
+============================================================
\ No newline at end of file
diff --git a/npc/custom/eAAC_Scripts/clonearena.txt b/npc/custom/eAAC_Scripts/clonearena.txt
deleted file mode 100644
index 653900134e..0000000000
--- a/npc/custom/eAAC_Scripts/clonearena.txt
+++ /dev/null
@@ -1,2052 +0,0 @@
-//===== kekeRO Script =============================================
-//= Clone Arena Script 
-//===== By: ======================================================= 
-//= Miir - For use only in kekeRO 
-//===== Current Version: ========================================== 
-//= 1.5 
-//===== Compatible With: ========================================== 
-//= Any eAthena Version 
-//===== Description: ============================================== 
-//= Arena to fight your clone or clones
-//  Also a two part quest that allows you to create the
-//  Stone of Sage, then to create a custom item, Homunculus
-//  Scroll, which allows you to summon a helpful clone.
-//===== Additional Comments: ====================================== 
-//= 1.0 - NPCs created, basic idea from Zhumos
-//= 1.1 - Moved the location to force_2-1 [Miir]
-//= 1.2 - Fixed Rooms 3 and 4 [Miir]
-//      - Changed the labels so they are easy to edit [Miir]
-//      - Added a point rewards system [Miir]
-//= 1.3 - Added option to fight 2 or 3 clones [Miir]
-//	- Fixed when Clone Masters were enabled [Miir]
-//      - Added level restriction (Level 50+) [Miir]
-//      - Modified the Prizes [Miir]
-//= 1.4 - Added a check for inventory [Miir]
-//	- Added a Kafra [Miir]
-//	- Modified the Clone modes [Miir]
-//= 1.5 - Added time equipment check to stop exploitation [Miir]
-//	- Fixed OnTouch warping (oops...) [Miir]
-//	- Added a few more mapflags [Miir]
-//	- Added Chemical Protection Buffs to avoid equipment
-//	  breaking (causing the violation to trigger) [Miir]
-//================================================================= 
-// -- Map Flags ---------------
-force_2-1.gat	mapflag	pvp
-force_2-1.gat	mapflag	noteleport
-force_2-1.gat	mapflag	nosave	SavePoint
-force_2-1.gat	mapflag	nobranch
-force_2-1.gat	mapflag	nopenalty
-force_2-1.gat	mapflag	nomemo
-force_2-1.gat	mapflag	nowarp
-force_2-1.gat	mapflag	nowarpto
-force_2-1.gat	mapflag	noicewall
-force_2-1.gat	mapflag	noreturn
-
-// -- Clone Arena Gatekeeper ---------------
-prt_are_in,97,28,4	script	Clone Arena Gatekeeper	105,{
-	mes "[Clone Arena Gatekeeper]";
-	mes "Welcome, warrior, to the ^0000FFClone Arena^000000!";
-	next;
-	L_Menu:
-	menu "^0000FFClone Arena Information^000000",L_Q,"I'd like to sign up!",L_Room,"No thanks",L_Quit;
-
-	L_Q:
-	mes "[Clone Arena Gatekeeper]";
-	mes "The ^0000FFClone Arena^000000 allows you to test your skills against yourself.";
-	next;
-	mes "[Clone Arena Gatekeeper]";
-	mes "A clone is created using your basic stats, skills, and weapons. A basic AI runs the clone.";
-	next;
-	mes "[Clone Arena Gatekeeper]";
-	mes "You have 3 minutes to kill your clone. If you don't, or die, you lose the match.";
-	next;
-	mes "[Clone Arena Gatekeeper]";
-	mes "You obtain points for even successful match. You can trade them in for prizes.";
-	next;
-	mes "[Clone Arena Gatekeeper]";
-	mes "You must use all possible equipment expect Middle and Lower Headgear. You may not switch equipment during the fight. If you do, you will be kicked and points will be taken away from you.";
-	next;
-	mes "[Clone Arena Gatekeeper]";
-	mes "Finally, you can increase the difficulty by fighting more clones. In return, you can gain more bonus points.";
-	next;
-	goto L_Menu;
-
-	L_Room:
-	mes "[Clone Arena Gatekeeper]";
-	if(BaseLevel < 50) goto L_Limit;          //-- Limits anyone under level 50 from entering
-	mes "Registration confirmed. Please apply to a room. You may only appy to a room that isn't occupied.";
-	next;
-	menu "Room 1 [" + getareausers("force_2-1.gat",7,192,44,155) + " Users]",L_Room1,"Room 2 [" + getareausers("force_2-1.gat",155,192,192,155) + " Users]",L_Room2,"Room 3 [" + getareausers("force_2-1.gat",7,44,44,7) + " Users]",L_Room3,
-		"Room 4 [" + getareausers("force_2-1.gat",155,44,192,7) + " Users]",L_Room4,"Cancel",L_Quit;
-
-	L_Room1:
-	if (getareausers("force_2-1.gat",7,192,44,155) >= 1) goto L_Occupied;
-	warp "force_2-1.gat",25,172;
-
-	L_Room2:
-	if (getareausers("force_2-1.gat",155,192,192,155) >= 1) goto L_Occupied;
-	warp "force_2-1.gat",173,172;
-
-	L_Room3:
-	if (getareausers("force_2-1.gat",7,44,44,7) >= 1) goto L_Occupied;
-	warp "force_2-1.gat",25,24;
-
-	L_Room4:
-	if (getareausers("force_2-1.gat",155,44,192,7) >= 1) goto L_Occupied;
-	warp "force_2-1.gat",173,24;
-
-	L_Occupied:
-	mes "[Clone Arena Gatekeeper]";
-	mes "The room is currently occupied. Please apply to another room, or wait until this room is free for use.";
-	close;
-
-	L_Limit:
-	mes "I'm sorry, but you must be at least ^0000FFBase Level 50^000000 or higher to register.";
-	close;
-
-	L_Quit:
-	mes "[Clone Arena Gatekeeper]";
-	mes "Just speak to me if you have any further questions.";
-	close;
-}
-
-// -- Clone Arena Prizes ---------------
-prt_are_in,108,18,2	script	Clone Arena Prizes	102,{
-	mes "[Clone Arena Prizes]";
-	mes "Hiya! I can exchange the points you earn in the arena for amazing prizes! You currently have";
-	mes "^0000FF"+ $@clonepts +" Points^000000!";
-	next;
-	menu 
-
-"Racoon Doll - 10 pts.",P_Racoon_Doll,
-"Yoyo Doll - 10 pts.",P_Yoyo_Doll,
-"Baphomet Doll - 15 pts.",P_Baphomet_Doll,
-"Osiris Doll - 15 pts.",P_Osiris_Doll,
-"Elunium - 20 pts.",P_Elunium,
-"Oridecon - 20 pts.",P_Oridecon,
-"Resist Fire Potion - 25 pts.",P_Resist_Fire,
-"Resist Cold Potion - 25 pts.",P_Resist_Cold,
-"Resist Earth Potion - 25 pts.",P_Resist_Earth,
-"Resist Thunder Potion - 25 pts.",P_Resist_Thunder,
-"Fire Element Converter - 30 pts.",P_Fire_Converter,
-"Frost Element Converter - 30 pts.",P_Frost_Converter,
-"Seismic Element Converter - 30 pts.",P_Seismic_Converter,
-"Lightning Element Converter - 30 pts.",P_Lightning_Converter,
-"Old Blue Box - 40 pts.",P_OBB,
-"Old Card Album - 60 pts.",P_OCA,
-"Old Purple Box - 60 pts.",P_OPB,
-"Distilled Fighting Spirit - 75 pts.",P_Distilled_Fighting,
-"Herb of Incantation - 75 pts.",P_Herb_Incantation,
-"Forbidden Red Candle - 90 pts.",P_Forbidden_Red,
-"Soft Apron - 90 pts.",P_Soft_Apron,
-"Emperium - 110 pts.",P_Emperium,
-"Durian - 140 pts.",P_Durian,
-"Cancel",L_End;
-
-	P_Racoon_Doll:
-	set $@cloneprize, 754;
-	set $@cloneprizepts, 10;
-	mes "[Clone Arena Prizes]";
-	mes "'^0000FFA doll made to resemble Smokie, the raccoon.'^000000";
-	next;
-	mes "[Clone Arena Prizes]";
-	mes "Would you like a ^0000FFRacoon Doll^000000?";
-	next;
-	menu "Yes",P_Get,"No thanks",L_End;
-
-	P_Yoyo_Doll:
-	set $@cloneprize, 753;
-	set $@cloneprizepts, 10;
-	mes "[Clone Arena Prizes]";
-	mes "'^0000FFA doll made to resemble Yoyo, the monkey. They live in groups deep in the forest, are very smart, and familiar with humans.'^000000";
-	next;
-	mes "[Clone Arena Prizes]";
-	mes "Would you like a ^0000FFYoyo Doll^000000?";
-	next;
-	menu "Yes",P_Get,"No thanks",L_End;
-
-	P_Baphomet_Doll:
-	set $@cloneprize, 750;
-	set $@cloneprizepts, 15;
-	mes "[Clone Arena Prizes]";
-	mes "'^0000FFA doll made to resemble Baphomet, scourge of the living. It is a dollmaker's masterpiece.'^000000";
-	next;
-	mes "[Clone Arena Prizes]";
-	mes "Would you like a ^0000FFBaphomet Doll^000000?";
-	next;
-	menu "Yes",P_Get,"No thanks",L_End;
-
-	P_Osiris_Doll:
-	set $@cloneprize, 751;
-	set $@cloneprizepts, 15;
-	mes "[Clone Arena Prizes]";
-	mes "'A doll made to resemble Osiris, the king of darkness. It is a dollmaker's masterpiece.'^000000";
-	next;
-	mes "[Clone Arena Prizes]";
-	mes "Would you like a ^0000FFOsiris Doll^000000?";
-	next;
-	menu "Yes",P_Get,"No thanks",L_End;
-
-	P_Elunium:
-	set $@cloneprize, 985;
-	set $@cloneprizepts, 20;
-	mes "[Clone Arena Prizes]";
-	mes "'^0000FFVery light, non toxic metal. Used for toughening armors.'^000000";
-	next;
-	mes "[Clone Arena Prizes]";
-	mes "Would you like an ^0000FFElunium^000000?";
-	next;
-	menu "Yes",P_Get,"No thanks",L_End;
-
-	P_Oridecon:
-	set $@cloneprize, 984;
-	set $@cloneprizepts, 20;
-	mes "[Clone Arena Prizes]";
-	mes "'^0000FFA pure Oridecon. Known as the blessed metal, it's extremely strong and can increase the damage of weapons if it is welded to them. Used for tempering lvl 3 or lvl 4 Weapons.'^000000";
-	next;
-	mes "[Clone Arena Prizes]";
-	mes "Would you like an ^0000FFOridecon^000000?";
-	next;
-	menu "Yes",P_Get,"No thanks",L_End;
-
-	P_Resist_Fire:
-	set $@cloneprize, 12118;
-	set $@cloneprizepts, 25;
-	mes "[Clone Arena Prizes]";
-	mes "'^0000FFA Potion used to grant some resistance to Fire. Be careful since you receive more damage from the opposite property.'^000000";
-	next;
-	mes "[Clone Arena Prizes]";
-	mes "Would you like a ^0000FFResist Fire Potion^000000?";
-	next;
-	menu "Yes",P_Get,"No thanks",L_End;
-
-	P_Resist_Cold:
-	set $@cloneprize, 12119;
-	set $@cloneprizepts, 25;
-	mes "[Clone Arena Prizes]";
-	mes "'^0000FFA Potion used to grant some resistance to Water. Be careful since you receive more damage from the opposite property.'^000000";
-	next;
-	mes "[Clone Arena Prizes]";
-	mes "Would you like a ^0000FFResist Cold Potion^000000?";
-	next;
-	menu "Yes",P_Get,"No thanks",L_End;
-
-	P_Resist_Earth:
-	set $@cloneprize, 12120;
-	set $@cloneprizepts, 25;
-	mes "[Clone Arena Prizes]";
-	mes "'^0000FFA Potion used to grant some resistance to Earth. Be careful since you receive more damage from the opposite property.'^000000";
-	next;
-	mes "[Clone Arena Prizes]";
-	mes "Would you like a ^0000FFResist Earth Potion^000000?";
-	next;
-	menu "Yes",P_Get,"No thanks",L_End;
-
-	P_Resist_Thunder:
-	set $@cloneprize, 12121;
-	set $@cloneprizepts, 25;
-	mes "[Clone Arena Prizes]";
-	mes "'^0000FFA Potion used to grant some resistance to Wind. Be careful since you receive more damage from the opposite property.'^000000";
-	next;
-	mes "[Clone Arena Prizes]";
-	mes "Would you like a ^0000FFResist Thunder Potion^000000?";
-	next;
-	menu "Yes",P_Get,"No thanks",L_End;
-
-	P_Fire_Converter:
-	set $@cloneprize, 12114;
-	set $@cloneprizepts, 30;
-	mes "[Clone Arena Prizes]";
-	mes "'^0000FFWhen used causes the users weapon to change to Fire Property attribute for a short period of time.'^000000";
-	next;
-	mes "[Clone Arena Prizes]";
-	mes "Would you like a ^0000FFFire Element Converter^000000?";
-	next;
-	menu "Yes",P_Get,"No thanks",L_End;
-
-	P_Frost_Converter:
-	set $@cloneprize, 12115;
-	set $@cloneprizepts, 30;
-	mes "[Clone Arena Prizes]";
-	mes "'^0000FFWhen used causes the users weapon to change to Water Property attribute for a short period of time.'^000000";
-	next;
-	mes "[Clone Arena Prizes]";
-	mes "Would you like a ^0000FFFrost Element Converter^000000?";
-	next;
-	menu "Yes",P_Get,"No thanks",L_End;
-
-	P_Seismic_Converter:
-	set $@cloneprize, 12116;
-	set $@cloneprizepts, 30;
-	mes "[Clone Arena Prizes]";
-	mes "'^0000FFWhen used causes the users weapon to change to Earth Property attribute for a short period of time.'^000000";
-	next;
-	mes "[Clone Arena Prizes]";
-	mes "Would you like a ^0000FFSeismic Element Converter^000000?";
-	next;
-	menu "Yes",P_Get,"No thanks",L_End;
-
-	P_Lightning_Converter:
-	set $@cloneprize, 12117;
-	set $@cloneprizepts, 30;
-	mes "[Clone Arena Prizes]";
-	mes "'^0000FFWhen used causes the users weapon to change to Wind Property attribute for a short period of time.'^000000";
-	next;
-	mes "[Clone Arena Prizes]";
-	mes "Would you like a ^0000FFLightning Element Converter^000000?";
-	next;
-	menu "Yes",P_Get,"No thanks",L_End;
-
-	P_OBB:
-	set $@cloneprize, 603;
-	set $@cloneprizepts, 40;
-	mes "[Clone Arena Prizes]";
-	mes "'^0000FFA mysterious blue box. It seems it contain something, but you'll have to open it to find out.'^000000";
-	next;
-	mes "[Clone Arena Prizes]";
-	mes "Would you like an ^0000FFOld Blue Box^000000?";
-	next;
-	menu "Yes",P_Get,"No thanks",L_End;
-
-	P_OCA:
-	set $@cloneprize, 616;
-	set $@cloneprizepts, 60;
-	mes "[Clone Arena Prizes]";
-	mes "'^0000FFAn antique album possessing mysterious powers. It's very likely that there is a card inside.'^000000";
-	next;
-	mes "[Clone Arena Prizes]";
-	mes "Would you like an ^0000FFOld Card Album^000000?";
-	next;
-	menu "Yes",P_Get,"No thanks",L_End;
-
-	P_OPB:
-	set $@cloneprize, 617;
-	set $@cloneprizepts, 60;
-	mes "[Clone Arena Prizes]";
-	mes "'^0000FFAn old and mysterious looking purple box. It must be opened in order to see what's inside.'^000000";
-	next;
-	mes "[Clone Arena Prizes]";
-	mes "Would you like an ^0000FFOld Purple Box^000000?";
-	next;
-	menu "Yes",P_Get,"No thanks",L_End;
-
-	P_Distilled_Fighting:
-	set $@cloneprize, 682;
-	set $@cloneprizepts, 75;
-	mes "[Clone Arena Prizes]";
-	mes "'^0000FFA magical drink which increases attack strength when it is taken.'^000000";
-	next;
-	mes "[Clone Arena Prizes]";
-	mes "Would you like a ^0000FFDistilled Fighting Spirit^000000?";
-	next;
-	menu "Yes",P_Get,"No thanks",L_End;
-
-	P_Herb_Incantation:
-	set $@cloneprize, 683;
-	set $@cloneprizepts, 75;
-	mes "[Clone Arena Prizes]";
-	mes "'^0000FFAn enchanted herb which increases magical attack strength when eaten.'^000000";
-	next;
-	mes "[Clone Arena Prizes]";
-	mes "Would you like an ^0000FFHerb of Incantation^000000?";
-	next;
-	menu "Yes",P_Get,"No thanks",L_End;
-
-	P_Forbidden_Red:
-	set $@cloneprize, 660;
-	set $@cloneprizepts, 90;
-	mes "[Clone Arena Prizes]";
-	mes "'^0000FFA candle that may have a mysterious purpose.'^000000";
-	next;
-	mes "[Clone Arena Prizes]";
-	mes "Would you like a ^0000FFForbidden Red Candle^000000?";
-	next;
-	menu "Yes",P_Get,"No thanks",L_End;
-
-	P_Soft_Apron:
-	set $@cloneprize, 661;
-	set $@cloneprizepts, 90;
-	mes "[Clone Arena Prizes]";
-	mes "'^0000FFA soft apron that is double stitched for better quality. Favorite item of the Alice monster.'^000000";
-	next;
-	mes "[Clone Arena Prizes]";
-	mes "Would you like a ^0000FFSoft Apron^000000?";
-	next;
-	menu "Yes",P_Get,"No thanks",L_End;
-
-	P_Emperium:
-	set $@cloneprize, 714;
-	set $@cloneprizepts, 110;
-	mes "[Clone Arena Prizes]";
-	mes "'^0000FFA very splendid, shiny ore. It is rumored that this jewel can bring power and glory to one that is chosen by fate.'^000000";
-	next;
-	mes "[Clone Arena Prizes]";
-	mes "Would you like an ^0000FFEmperium^000000?";
-	next;
-	menu "Yes",P_Get,"No thanks",L_End;
-
-	P_Durian:
-	set $@cloneprize, 684;
-	set $@cloneprizepts, 140;
-	mes "[Clone Arena Prizes]";
-	mes "'^0000FFA tropical fruit which is called as 'the king of fruits' having a hard, prickly rind and soft pulp. It also has an offensive odor but a pleasant taste. Increase Attack Strength and Magic Attack Strength for a duration. ATK + 10, MATK + 10'^000000";
-	next;
-	mes "[Clone Arena Prizes]";
-	mes "Would you like a ^0000FFDurian^000000?";
-	next;
-	menu "Yes",P_Get,"No thanks",L_End;
-
-	P_Get:
-	mes "[Clone Arena Prizes]";
-	if ($@clonepts < $@cloneprizepts) goto P_No;
-	mes "Alright! Here you go!";
-	set $@clonepts, $@clonepts - $@cloneprizepts;
-	getitem $@cloneprize, 1;
-	close;
-
-	P_No:
-	mes "I'm sorry, but you don't have enough points to get this item!";
-	close;
-
-	L_End:
-	mes "[Clone Arena Prizes]";
-	mes "Alright, please enjoy the arena!";
-	close;
-}
-
-// -- Clone Arena Kafra ---------------
-prt_are_in,108,22,2	script	Kafra	115,{
-	cutin "kafra_03",2;
-	callfunc "F_Kafra",0,3;
-
-M_Save:
-	savepoint "prt_are_in",98,15;
-	callfunc "F_KafEnd",0,1;
-}
-
-//=========================================================================================
-//== Clone Room 1 =========================================================================
-//=========================================================================================
-// -- Clone Master 1 ---------------
-force_2-1.gat,25,175,4	script	Clone Master 1	105,{
-	mes "[Clone Master 1]";
-	mes "Welcome to the Clone Room 1. Please select an option for fighting.";
-	set $@clonename, getcharid(0);  //-- Clones the character using that room
-	set $@cloneroom, 1;		//-- Clone Room number
-	set $@clone1X1, 7;              //-- Top-Left X Coordinate
-	set $@clone1Y1, 192;            //-- Top-Left Y Coordinate
-	set $@clone1X2, 44;             //-- Bottom-Right X Coordinate
-	set $@clone1Y2, 155;            //-- Bottom-Right Y Coordinate
-	set $@clonemob1X, 25;           //-- X of where the clone spawns
-	set $@clonemob1Y, 178;          //-- Y of where the clone spawns
-	set $@wrp1X, 25;                //-- X of where the player spawns
-	set $@wrp1Y, 172;               //-- Y of where the player spawns
-	next;
-	menu "Fight 1 Clone",L_1,"Fight 2 Clones",L_2,"Fight 3 Clones",L_3,"Leave Arena",L_Leave;
-
-	L_1:
-	mes "[Clone Master 1]";
-	mes "Alright... Get ready!!!";
-	next;
-	mes "[Clone Master 1]";
-	callfunc "F_CloneCheck";
-	sc_start 72,188000,10;           //-- Chemical Protection Weapon
-	sc_start 73,188000,10;           //-- Chemical Protection Shield
-	sc_start 74,188000,10;           //-- Chemical Protection Armor
-	sc_start 75,188000,10;           //-- Chemical Protection Helm
-	set $@clonemob1, 1;              //-- The number of clones
-	set $@tempclonepts, 1;           //-- Number of possible points
-	disablenpc "Clone Master 1";
-	donpcevent "CloneMob 1";
-	initnpctimer "CloneTimer 1";
-	attachnpctimer getcharid(0);
-	close;
-
-	L_2:
-	mes "[Clone Master 1]";
-	mes "Alright... Get ready!!!";
-	next;
-	mes "[Clone Master 1]";
-	callfunc "F_CloneCheck";
-	sc_start 72,188000,10;           //-- Chemical Protection Weapon
-	sc_start 73,188000,10;           //-- Chemical Protection Shield
-	sc_start 74,188000,10;           //-- Chemical Protection Armor
-	sc_start 75,188000,10;           //-- Chemical Protection Helm
-	set $@clonemob1, 2;              //-- The number of clones
-	set $@tempclonepts, 3;           //-- Number of possible points
-	disablenpc "Clone Master 1";
-	donpcevent "CloneMob 1";
-	initnpctimer "CloneTimer 1";
-	attachnpctimer getcharid(0);
-	close;
-
-	L_3:
-	mes "[Clone Master 1]";
-	mes "Alright... Get ready!!!";
-	next;
-	mes "[Clone Master 1]";
-	callfunc "F_CloneCheck";
-	sc_start 72,188000,10;           //-- Chemical Protection Weapon
-	sc_start 73,188000,10;           //-- Chemical Protection Shield
-	sc_start 74,188000,10;           //-- Chemical Protection Armor
-	sc_start 75,188000,10;           //-- Chemical Protection Helm
-	set $@clonemob1, 3;              //-- The number of clones
-	set $@tempclonepts, 9;           //-- Number of possible points
-	disablenpc "Clone Master 1";
-	donpcevent "CloneMob 1";
-	initnpctimer "CloneTimer 1";
-	attachnpctimer getcharid(0);
-	close;
-
-	L_Inventory:
-	mes "I'm sorry, but we can only start if you have no items in your inventory.";
-	close;
-
-	L_Leave:
-	mes "[Clone Master 1]";
-	mes "Thank for you participating, you will now be warped out of the arena.";
-	next;
-	close2;
-	warp "prt_are_in", 97, 24;
-	donpcevent "Clone Master 1::OnStart";
-	end;
-
-OnStart:
-	set $@CloneUsers, getareausers("force_2-1.gat",$@clone1X1,$@clone1Y1,$@clone1X2,$@clone1Y2);
-	set $@CloneUsers, $@CloneUsers + getareausers("force_2-1.gat",$@clone1X1,$@clone1Y1,$@clone1X1,$@clone1Y2);
-	if ($@CloneUsers > 0) end;
-	killmonster "force_2-1.gat","CloneMob 1::OnMobDead";
-	enablenpc "Clone Master 1";
-	end;
-
-}
-
-// -- Clone Mob 1 ---------------
-force_2-1.gat,1,1,1	script	CloneMob 1	-1,{
-	if ($@clonemob1 == 1) clone "force_2-1.gat",$@clonemob1X,$@clonemob1Y,"CloneMob 1::OnMobDead",$@clonename,0,1693,0,185000;
-	if ($@clonemob1 == 2) clone "force_2-1.gat",$@clonemob1X +2,$@clonemob1Y,"CloneMob 1::OnMobDead",$@clonename,0,1693,0,185000;
-	if ($@clonemob1 == 2) clone "force_2-1.gat",$@clonemob1X -2,$@clonemob1Y,"CloneMob 1::OnMobDead",$@clonename,0,1693,0,185000;
-	if ($@clonemob1 == 3) clone "force_2-1.gat",$@clonemob1X,$@clonemob1Y,"CloneMob 1::OnMobDead",$@clonename,0,1693,0,185000;
-	if ($@clonemob1 == 3) clone "force_2-1.gat",$@clonemob1X +2,$@clonemob1Y,"CloneMob 1::OnMobDead",$@clonename,0,1693,0,185000;
-	if ($@clonemob1 == 3) clone "force_2-1.gat",$@clonemob1X -2,$@clonemob1Y,"CloneMob 1::OnMobDead",$@clonename,0,1693,0,185000;
-	areawarp "force_2-1.gat", $@clone1X1, $@clone1Y1, $@clone1X2, $@clone1Y2, "force_2-1.gat", $@wrp1X, $@wrp1Y;
-	end;
-
-OnMobDead:
-	set $@clonemob1, $@clonemob1 -1;
-	if($@clonemob1 > 1) areaannounce "force_2-1.gat", $@clone1X1, $@clone1Y1, $@clone1X2, $@clone1Y2, "You have " + $@clonemob1 + " clones left to defeat!",8;
-	if($@clonemob1 == 1) areaannounce "force_2-1.gat", $@clone1X1, $@clone1Y1, $@clone1X2, $@clone1Y2, "You have " + $@clonemob1 + " clone left to defeat!",8;
-	if($@clonemob1 > 0) end;
-
-	stopnpctimer "CloneTimer 1";
-	if($@tempclonepts == 1 ) areaannounce "force_2-1.gat", $@clone1X1, $@clone1Y1, $@clone1X2, $@clone1Y2, "Congratulations! You have succesfully defeated your clone!",8;
-	if($@tempclonepts > 1 ) areaannounce "force_2-1.gat", $@clone1X1, $@clone1Y1, $@clone1X2, $@clone1Y2, "Congratulations! You have succesfully defeated your clones!",8;
-	set $@clonepts,$@clonepts + $@tempclonepts;
-	addtimer 3000, "CloneTimer 1::OnTimer188000";
-	end;
-
-}
-
-// -- Clone Timer 1 --------------- 
-force_2-1.gat,1,1,0	script	CloneTimer 1	-1,{
-OnTimer1000:
-	areaannounce "force_2-1.gat", $@clone1X1, $@clone1Y1, $@clone1X2, $@clone1Y2, "You have 3 minutes to defeat your clone!",8;
-	callfunc "F_CloneEquip";
-	end;
-OnTimer2000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer3000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer4000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer5000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer6000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer7000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer8000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer9000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer10000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer11000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer12000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer13000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer14000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer15000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer16000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer17000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer18000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer19000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer20000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer21000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer22000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer23000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer24000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer25000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer26000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer27000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer28000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer29000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer30000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer31000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer32000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer33000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer34000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer35000:
-	donpcevent "Clone Master 1::OnStart";
-	callfunc "F_CloneEquip";
-	end;
-OnTimer40000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer45000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer50000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer55000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer60000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer61000:
-	areaannounce "force_2-1.gat", $@clone1X1, $@clone1Y1, $@clone1X2, $@clone1Y2, "You have 2 minutes left!",8;
-	donpcevent "Clone Master 1::OnStart";
-	end;
-OnTimer65000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer70000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer75000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer80000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer85000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer90000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer95000:
-	donpcevent "Clone Master 1::OnStart";
-	end;
-OnTimer100000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer105000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer110000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer115000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer120000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer121000:
-	areaannounce "force_2-1.gat", $@clone1X1, $@clone1Y1, $@clone1X2, $@clone1Y2, "You have 1 minute left!",8;
-	donpcevent "Clone Master 1::OnStart";
-	end;
-OnTimer125000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer130000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer135000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer140000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer145000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer150000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer151000:
-	areaannounce "force_2-1.gat", $@clone1X1, $@clone1Y1, $@clone1X2, $@clone1Y2, "You have 30 seconds left!",8;
-	donpcevent "Clone Master 1::OnStart";
-	end;
-OnTimer155000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer160000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer165000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer170000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer175000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer176000:
-	areaannounce "force_2-1.gat", $@clone1X1, $@clone1Y1, $@clone1X2, $@clone1Y2, "You have 5 seconds left!",8;
-	end;
-OnTimer177000:
-	areaannounce "force_2-1.gat", $@clone1X1, $@clone1Y1, $@clone1X2, $@clone1Y2, "You have 4 seconds left!",8;
-	end;
-OnTimer178000:
-	areaannounce "force_2-1.gat", $@clone1X1, $@clone1Y1, $@clone1X2, $@clone1Y2, "You have 3 seconds left!",8;
-	end;
-OnTimer179000:
-	areaannounce "force_2-1.gat", $@clone1X1, $@clone1Y1, $@clone1X2, $@clone1Y2, "You have 2 seconds left!",8;
-	end;
-OnTimer180000:
-	areaannounce "force_2-1.gat", $@clone1X1, $@clone1Y1, $@clone1X2, $@clone1Y2, "You have 1 second left!",8;
-	end;
-OnTimer181000:
-	areaannounce "force_2-1.gat", $@clone1X1, $@clone1Y1, $@clone1X2, $@clone1Y2, "Okay time's up! You failed!",8;
-	end;
-OnTimer188000:
-	stopnpctimer;
-	sc_end 72;           //-- Stops Chemical Protection Weapon
-	sc_end 73;           //-- Stops Chemical Protection Shield
-	sc_end 74;           //-- Stops Chemical Protection Armor
-	sc_end 75;           //-- Stops Chemical Protection Helm
-	areawarp "force_2-1.gat", $@clone1X1, $@clone1Y1, $@clone1X2, $@clone1Y2, "prt_are_in", 97, 24;
-	killmonster "force_2-1.gat","CloneMob 1::OnMobDead";
-	donpcevent "Clone Master 1::OnStart";
-	end;
-}
-
-//=========================================================================================
-//== Clone Room 2 =========================================================================
-//=========================================================================================
-// -- Clone Master 2 ---------------
-force_2-1.gat,173,175,4	script	Clone Master 2	105,{
-	mes "[Clone Master 2]";
-	mes "Welcome to the Clone Room 2. Please select an option for fighting.";
-	set $@clonename, getcharid(0);  //-- Clones the character using that room
-	set $@cloneroom, 2;		//-- Clone Room number
-	set $@clone2X1, 155;            //-- Top-Left X Coordinate
-	set $@clone2Y1, 192;            //-- Top-Left Y Coordinate
-	set $@clone2X2, 192;            //-- Bottom-Right X Coordinate
-	set $@clone2Y2, 155;            //-- Bottom-Right Y Coordinate
-	set $@clonemob2X, 173;          //-- X of where the clone spawns
-	set $@clonemob2Y, 178;          //-- Y of where the clone spawns
-	set $@wrp2X, 173;               //-- X of where the player spawns
-	set $@wrp2Y, 172;               //-- Y of where the player spawns
-	next;
-	menu "Fight 1 Clone",L_1,"Fight 2 Clones",L_2,"Fight 3 Clones",L_3,"Leave Arena",L_Leave;
-
-	L_1:
-	mes "[Clone Master 2]";
-	mes "Alright... Get ready!!!";
-	next;
-	mes "[Clone Master 2]";
-	callfunc "F_CloneCheck";
-	sc_start 72,188000,10;           //-- Chemical Protection Weapon
-	sc_start 73,188000,10;           //-- Chemical Protection Shield
-	sc_start 74,188000,10;           //-- Chemical Protection Armor
-	sc_start 75,188000,10;           //-- Chemical Protection Helm
-	set $@clonemob2, 1;              //-- The number of clones
-	set $@tempclonepts, 1;           //-- Number of possible points
-	disablenpc "Clone Master 2";
-	donpcevent "CloneMob 2";
-	initnpctimer "CloneTimer 2";
-	attachnpctimer getcharid(0);
-	close;
-
-	L_2:
-	mes "[Clone Master 2]";
-	mes "Alright... Get ready!!!";
-	next;
-	mes "[Clone Master 2]";
-	callfunc "F_CloneCheck";
-	sc_start 72,188000,10;           //-- Chemical Protection Weapon
-	sc_start 73,188000,10;           //-- Chemical Protection Shield
-	sc_start 74,188000,10;           //-- Chemical Protection Armor
-	sc_start 75,188000,10;           //-- Chemical Protection Helm
-	set $@clonemob2, 2;              //-- The number of clones
-	set $@tempclonepts, 3;           //-- Number of possible points
-	disablenpc "Clone Master 2";
-	donpcevent "CloneMob 2";
-	initnpctimer "CloneTimer 2";
-	attachnpctimer getcharid(0);
-	close;
-
-	L_3:
-	mes "[Clone Master 2]";
-	mes "Alright... Get ready!!!";
-	next;
-	mes "[Clone Master 2]";
-	callfunc "F_CloneCheck";
-	sc_start 72,188000,10;           //-- Chemical Protection Weapon
-	sc_start 73,188000,10;           //-- Chemical Protection Shield
-	sc_start 74,188000,10;           //-- Chemical Protection Armor
-	sc_start 75,188000,10;           //-- Chemical Protection Helm
-	set $@clonemob2, 3;              //-- The number of clones
-	set $@tempclonepts, 9;           //-- Number of possible points
-	disablenpc "Clone Master 2";
-	donpcevent "CloneMob 2";
-	initnpctimer "CloneTimer 2";
-	attachnpctimer getcharid(0);
-	close;
-
-	L_Leave:
-	mes "[Clone Master 2]";
-	mes "Thank for you participating, you will now be warped out of the arena.";
-	next;
-	close2;
-	warp "prt_are_in", 97, 24;
-	donpcevent "Clone Master 2::OnStart";
-	end;
-
-OnStart:
-	set $@CloneUsers, getareausers("force_2-1.gat",$@clone2X1,$@clone2Y1,$@clone2X2,$@clone2Y2);
-	set $@CloneUsers, $@CloneUsers + getareausers("force_2-1.gat",$@clone2X1,$@clone2Y1,$@clone2X1,$@clone2Y2);
-	if ($@CloneUsers > 0) end;
-	killmonster "force_2-1.gat","CloneMob 2::OnMobDead";
-	enablenpc "Clone Master 2";
-	end;
-
-}
-
-// -- Clone Mob 2 ---------------
-force_2-1.gat,1,1,1	script	CloneMob 2	-1,{
-	if ($@clonemob2 == 1) clone "force_2-1.gat",$@clonemob2X,$@clonemob2Y,"CloneMob 2::OnMobDead",$@clonename,0,1693,0,185000;
-	if ($@clonemob2 == 2) clone "force_2-1.gat",$@clonemob2X +2,$@clonemob2Y,"CloneMob 2::OnMobDead",$@clonename,0,1693,0,185000;
-	if ($@clonemob2 == 2) clone "force_2-1.gat",$@clonemob2X -2,$@clonemob2Y,"CloneMob 2::OnMobDead",$@clonename,0,1693,0,185000;
-	if ($@clonemob2 == 3) clone "force_2-1.gat",$@clonemob2X,$@clonemob2Y,"CloneMob 2::OnMobDead",$@clonename,0,1693,0,185000;
-	if ($@clonemob2 == 3) clone "force_2-1.gat",$@clonemob2X +2,$@clonemob2Y,"CloneMob 2::OnMobDead",$@clonename,0,1693,0,185000;
-	if ($@clonemob2 == 3) clone "force_2-1.gat",$@clonemob2X -2,$@clonemob2Y,"CloneMob 2::OnMobDead",$@clonename,0,1693,0,185000;
-	areawarp "force_2-1.gat", $@clone2X1, $@clone2Y1, $@clone2X2, $@clone2Y2, "force_2-1.gat", $@wrp2X, $@wrp2Y;
-	end;
-
-OnMobDead:
-	set $@clonemob2, $@clonemob2 -1;
-	if($@clonemob2 > 1) areaannounce "force_2-1.gat", $@clone2X1, $@clone2Y1, $@clone2X2, $@clone2Y2, "You have " + $@clonemob2 + " clones left to defeat!",8;
-	if($@clonemob2 == 1) areaannounce "force_2-1.gat", $@clone2X1, $@clone2Y1, $@clone2X2, $@clone2Y2, "You have " + $@clonemob2 + " clone left to defeat!",8;
-	if($@clonemob2 > 0) end;
-
-	stopnpctimer "CloneTimer 2";
-	if($@tempclonepts == 1 ) areaannounce "force_2-1.gat", $@clone2X1, $@clone2Y1, $@clone2X2, $@clone2Y2, "Congratulations! You have succesfully defeated your clone!",8;
-	if($@tempclonepts > 1 ) areaannounce "force_2-1.gat", $@clone2X1, $@clone2Y1, $@clone2X2, $@clone2Y2, "Congratulations! You have succesfully defeated your clones!",8;
-	set $@clonepts,$@clonepts + $@tempclonepts;
-	addtimer 3000, "CloneTimer 2::OnTimer188000";
-	end;
-
-}
-
-// -- Clone Timer 2 --------------- 
-force_2-1.gat,1,1,0	script	CloneTimer 2	-1,{
-OnTimer1000:
-	areaannounce "force_2-1.gat", $@clone2X1, $@clone2Y1, $@clone2X2, $@clone2Y2, "You have 3 minutes to defeat your clone!",8;
-	callfunc "F_CloneEquip";
-	end;
-OnTimer2000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer3000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer4000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer5000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer6000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer7000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer8000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer9000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer10000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer11000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer12000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer13000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer14000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer15000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer16000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer17000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer18000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer19000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer20000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer21000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer22000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer23000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer24000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer25000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer26000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer27000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer28000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer29000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer30000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer31000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer32000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer33000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer34000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer35000:
-	donpcevent "Clone Master 2::OnStart";
-	callfunc "F_CloneEquip";
-	end;
-OnTimer40000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer45000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer50000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer55000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer60000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer61000:
-	areaannounce "force_2-1.gat", $@clone2X1, $@clone2Y1, $@clone2X2, $@clone2Y2, "You have 2 minutes left!",8;
-	donpcevent "Clone Master 2::OnStart";
-	end;
-OnTimer65000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer70000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer75000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer80000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer85000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer90000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer95000:
-	donpcevent "Clone Master 2::OnStart";
-	end;
-OnTimer100000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer105000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer110000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer115000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer120000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer121000:
-	areaannounce "force_2-1.gat", $@clone2X1, $@clone2Y1, $@clone2X2, $@clone2Y2, "You have 1 minute left!",8;
-	donpcevent "Clone Master 2::OnStart";
-	end;
-OnTimer125000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer130000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer135000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer140000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer145000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer150000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer151000:
-	areaannounce "force_2-1.gat", $@clone2X1, $@clone2Y1, $@clone2X2, $@clone2Y2, "You have 30 seconds left!",8;
-	donpcevent "Clone Master 2::OnStart";
-	end;
-OnTimer155000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer160000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer165000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer170000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer175000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer176000:
-	areaannounce "force_2-1.gat", $@clone2X1, $@clone2Y1, $@clone2X2, $@clone2Y2, "You have 5 seconds left!",8;
-	end;
-OnTimer177000:
-	areaannounce "force_2-1.gat", $@clone2X1, $@clone2Y1, $@clone2X2, $@clone2Y2, "You have 4 seconds left!",8;
-	end;
-OnTimer178000:
-	areaannounce "force_2-1.gat", $@clone2X1, $@clone2Y1, $@clone2X2, $@clone2Y2, "You have 3 seconds left!",8;
-	end;
-OnTimer179000:
-	areaannounce "force_2-1.gat", $@clone2X1, $@clone2Y1, $@clone2X2, $@clone2Y2, "You have 2 seconds left!",8;
-	end;
-OnTimer180000:
-	areaannounce "force_2-1.gat", $@clone2X1, $@clone2Y1, $@clone2X2, $@clone2Y2, "You have 1 second left!",8;
-	end;
-OnTimer181000:
-	areaannounce "force_2-1.gat", $@clone2X1, $@clone2Y1, $@clone2X2, $@clone2Y2, "Okay time's up! You failed!",8;
-	end;
-OnTimer188000:
-	stopnpctimer;
-	sc_end 72;           //-- Stops Chemical Protection Weapon
-	sc_end 73;           //-- Stops Chemical Protection Shield
-	sc_end 74;           //-- Stops Chemical Protection Armor
-	sc_end 75;           //-- Stops Chemical Protection Helm
-	areawarp "force_2-1.gat", $@clone2X1, $@clone2Y1, $@clone2X2, $@clone2Y2, "prt_are_in", 97, 24;
-	killmonster "force_2-1.gat","CloneMob 2::OnMobDead";
-	donpcevent "Clone Master 2::OnStart";
-	end;
-}
-
-//=========================================================================================
-//== Clone Room 3 =========================================================================
-//=========================================================================================
-// -- Clone Master 3 ---------------
-force_2-1.gat,25,27,4	script	Clone Master 3	105,{
-	mes "[Clone Master 3]";
-	mes "Welcome to the Clone Room 3. Please select an option for fighting.";
-	set $@clonename, getcharid(0);  //-- Clones the character using that room
-	set $@cloneroom, 3;		//-- Clone Room number
-	set $@clone3X1, 7;              //-- Top-Left X Coordinate
-	set $@clone3Y1, 44;             //-- Top-Left Y Coordinate
-	set $@clone3X2, 44;             //-- Bottom-Right X Coordinate
-	set $@clone3Y2, 7;              //-- Bottom-Right Y Coordinate
-	set $@clonemob3X, 25;           //-- X of where the clone spawns
-	set $@clonemob3Y, 30;           //-- Y of where the clone spawns
-	set $@wrp3X, 25;                //-- X of where the player spawns
-	set $@wrp3Y, 24;                //-- Y of where the player spawns
-	next;
-	menu "Fight 1 Clone",L_1,"Fight 2 Clones",L_2,"Fight 3 Clones",L_3,"Leave Arena",L_Leave;
-
-	L_1:
-	mes "[Clone Master 3]";
-	mes "Alright... Get ready!!!";
-	next;
-	mes "[Clone Master 3]";
-	callfunc "F_CloneCheck";
-	sc_start 72,188000,10;           //-- Chemical Protection Weapon
-	sc_start 73,188000,10;           //-- Chemical Protection Shield
-	sc_start 74,188000,10;           //-- Chemical Protection Armor
-	sc_start 75,188000,10;           //-- Chemical Protection Helm
-	set $@clonemob3, 1;              //-- The number of clones
-	set $@tempclonepts, 1;           //-- Number of possible points
-	disablenpc "Clone Master 3";
-	donpcevent "CloneMob 3";
-	initnpctimer "CloneTimer 3";
-	attachnpctimer getcharid(0);
-	close;
-
-	L_2:
-	mes "[Clone Master 3]";
-	mes "Alright... Get ready!!!";
-	next;
-	mes "[Clone Master 3]";
-	callfunc "F_CloneCheck";
-	sc_start 72,188000,10;           //-- Chemical Protection Weapon
-	sc_start 73,188000,10;           //-- Chemical Protection Shield
-	sc_start 74,188000,10;           //-- Chemical Protection Armor
-	sc_start 75,188000,10;           //-- Chemical Protection Helm
-	set $@clonemob3, 2;              //-- The number of clones
-	set $@tempclonepts, 3;           //-- Number of possible points
-	disablenpc "Clone Master 3";
-	donpcevent "CloneMob 3";
-	initnpctimer "CloneTimer 3";
-	attachnpctimer getcharid(0);
-	close;
-
-	L_3:
-	mes "[Clone Master 3]";
-	mes "Alright... Get ready!!!";
-	next;
-	mes "[Clone Master 3]";
-	callfunc "F_CloneCheck";
-	sc_start 72,188000,10;           //-- Chemical Protection Weapon
-	sc_start 73,188000,10;           //-- Chemical Protection Shield
-	sc_start 74,188000,10;           //-- Chemical Protection Armor
-	sc_start 75,188000,10;           //-- Chemical Protection Helm
-	set $@clonemob3, 3;              //-- The number of clones
-	set $@tempclonepts, 9;           //-- Number of possible points
-	disablenpc "Clone Master 3";
-	donpcevent "CloneMob 3";
-	initnpctimer "CloneTimer 3";
-	attachnpctimer getcharid(0);
-	close;
-
-	L_Leave:
-	mes "[Clone Master 3]";
-	mes "Thank for you participating, you will now be warped out of the arena.";
-	next;
-	close2;
-	warp "prt_are_in", 97, 24;
-	donpcevent "Clone Master 3::OnStart";
-	end;
-
-OnStart:
-	set $@CloneUsers, getareausers("force_2-1.gat",$@clone3X1,$@clone3Y1,$@clone3X2,$@clone3Y2);
-	set $@CloneUsers, $@CloneUsers + getareausers("force_2-1.gat",$@clone3X1,$@clone3Y1,$@clone3X1,$@clone3Y2);
-	if ($@CloneUsers > 0) end;
-	killmonster "force_2-1.gat","CloneMob 3::OnMobDead";
-	enablenpc "Clone Master 3";
-	end;
-
-}
-
-// -- Clone Mob 3 ---------------
-force_2-1.gat,1,1,1	script	CloneMob 3	-1,{
-	if ($@clonemob3 == 1) clone "force_2-1.gat",$@clonemob3X,$@clonemob3Y,"CloneMob 3::OnMobDead",$@clonename,0,1693,0,185000;
-	if ($@clonemob3 == 2) clone "force_2-1.gat",$@clonemob3X +2,$@clonemob3Y,"CloneMob 3::OnMobDead",$@clonename,0,1693,0,185000;
-	if ($@clonemob3 == 2) clone "force_2-1.gat",$@clonemob3X -2,$@clonemob3Y,"CloneMob 3::OnMobDead",$@clonename,0,1693,0,185000;
-	if ($@clonemob3 == 3) clone "force_2-1.gat",$@clonemob3X,$@clonemob3Y,"CloneMob 3::OnMobDead",$@clonename,0,1693,0,185000;
-	if ($@clonemob3 == 3) clone "force_2-1.gat",$@clonemob3X +2,$@clonemob3Y,"CloneMob 3::OnMobDead",$@clonename,0,1693,0,185000;
-	if ($@clonemob3 == 3) clone "force_2-1.gat",$@clonemob3X -2,$@clonemob3Y,"CloneMob 3::OnMobDead",$@clonename,0,1693,0,185000;
-	areawarp "force_2-1.gat", $@clone3X1, $@clone3Y1, $@clone3X2, $@clone3Y2, "force_2-1.gat", $@wrp3X, $@wrp3Y;
-	end;
-
-OnMobDead:
-	set $@clonemob3, $@clonemob3 -1;
-	if($@clonemob3 > 1) areaannounce "force_2-1.gat", $@clone3X1, $@clone3Y1, $@clone3X2, $@clone3Y2, "You have " + $@clonemob3 + " clones left to defeat!",8;
-	if($@clonemob3 == 1) areaannounce "force_2-1.gat", $@clone3X1, $@clone3Y1, $@clone3X2, $@clone3Y2, "You have " + $@clonemob3 + " clone left to defeat!",8;
-	if($@clonemob3 > 0) end;
-
-	stopnpctimer "CloneTimer 3";
-	if($@tempclonepts == 1 ) areaannounce "force_2-1.gat", $@clone3X1, $@clone3Y1, $@clone3X2, $@clone3Y2, "Congratulations! You have succesfully defeated your clone!",8;
-	if($@tempclonepts > 1 ) areaannounce "force_2-1.gat", $@clone3X1, $@clone3Y1, $@clone3X2, $@clone3Y2, "Congratulations! You have succesfully defeated your clones!",8;
-	set $@clonepts,$@clonepts + $@tempclonepts;
-	addtimer 3000, "CloneTimer 3::OnTimer188000";
-	end;
-
-}
-
-// -- Clone Timer 3 --------------- 
-force_2-1.gat,1,1,0	script	CloneTimer 3	-1,{
-OnTimer1000:
-	areaannounce "force_2-1.gat", $@clone3X1, $@clone3Y1, $@clone3X2, $@clone3Y2, "You have 3 minutes to defeat your clone!",8;
-	callfunc "F_CloneEquip";
-	end;
-OnTimer2000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer3000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer4000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer5000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer6000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer7000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer8000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer9000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer10000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer11000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer12000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer13000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer14000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer15000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer16000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer17000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer18000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer19000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer20000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer21000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer22000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer23000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer24000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer25000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer26000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer27000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer28000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer29000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer30000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer31000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer32000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer33000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer34000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer35000:
-	donpcevent "Clone Master 3::OnStart";
-	callfunc "F_CloneEquip";
-	end;
-OnTimer40000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer45000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer50000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer55000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer60000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer61000:
-	areaannounce "force_2-1.gat", $@clone3X1, $@clone3Y1, $@clone3X2, $@clone3Y2, "You have 2 minutes left!",8;
-	donpcevent "Clone Master 3::OnStart";
-	end;
-OnTimer65000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer70000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer75000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer80000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer85000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer90000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer95000:
-	donpcevent "Clone Master 3::OnStart";
-	end;
-OnTimer100000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer105000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer110000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer115000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer120000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer121000:
-	areaannounce "force_2-1.gat", $@clone3X1, $@clone3Y1, $@clone3X2, $@clone3Y2, "You have 1 minute left!",8;
-	donpcevent "Clone Master 3::OnStart";
-	end;
-OnTimer125000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer130000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer135000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer140000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer145000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer150000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer151000:
-	areaannounce "force_2-1.gat", $@clone3X1, $@clone3Y1, $@clone3X2, $@clone3Y2, "You have 30 seconds left!",8;
-	donpcevent "Clone Master 3::OnStart";
-	end;
-OnTimer155000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer160000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer165000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer170000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer175000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer176000:
-	areaannounce "force_2-1.gat", $@clone3X1, $@clone3Y1, $@clone3X2, $@clone3Y2, "You have 5 seconds left!",8;
-	end;
-OnTimer177000:
-	areaannounce "force_2-1.gat", $@clone3X1, $@clone3Y1, $@clone3X2, $@clone3Y2, "You have 4 seconds left!",8;
-	end;
-OnTimer178000:
-	areaannounce "force_2-1.gat", $@clone3X1, $@clone3Y1, $@clone3X2, $@clone3Y2, "You have 3 seconds left!",8;
-	end;
-OnTimer179000:
-	areaannounce "force_2-1.gat", $@clone3X1, $@clone3Y1, $@clone3X2, $@clone3Y2, "You have 2 seconds left!",8;
-	end;
-OnTimer180000:
-	areaannounce "force_2-1.gat", $@clone3X1, $@clone3Y1, $@clone3X2, $@clone3Y2, "You have 1 second left!",8;
-	end;
-OnTimer181000:
-	areaannounce "force_2-1.gat", $@clone3X1, $@clone3Y1, $@clone3X2, $@clone3Y2, "Okay time's up! You failed!",8;
-	end;
-OnTimer188000:
-	stopnpctimer;
-	sc_end 72;           //-- Stops Chemical Protection Weapon
-	sc_end 73;           //-- Stops Chemical Protection Shield
-	sc_end 74;           //-- Stops Chemical Protection Armor
-	sc_end 75;           //-- Stops Chemical Protection Helm
-	areawarp "force_2-1.gat", $@clone3X1, $@clone3Y1, $@clone3X2, $@clone3Y2, "prt_are_in", 97, 24;
-	killmonster "force_2-1.gat","CloneMob 3::OnMobDead";
-	donpcevent "Clone Master 3::OnStart";
-	end;
-}
-
-//=========================================================================================
-//== Clone Room 4 =========================================================================
-//=========================================================================================
-// -- Clone Master 4 ---------------
-force_2-1.gat,173,27,4	script	Clone Master 4	105,{
-	mes "[Clone Master 4]";
-	mes "Welcome to the Clone Room 4. Please select an option for fighting.";
-	set $@clonename, getcharid(0);  //-- Clones the character using that room
-	set $@cloneroom, 4;		//-- Clone Room number
-	set $@clone4X1, 155;            //-- Top-Left X Coordinate
-	set $@clone4Y1, 44;             //-- Top-Left Y Coordinate
-	set $@clone4X2, 192;            //-- Bottom-Right X Coordinate
-	set $@clone4Y2, 7;              //-- Bottom-Right Y Coordinate
-	set $@clonemob4X, 173;          //-- X of where the clone spawns
-	set $@clonemob4Y, 30;           //-- Y of where the clone spawns
-	set $@wrp4X, 173;               //-- X of where the player spawns
-	set $@wrp4Y, 24;                //-- Y of where the player spawns
-	next;
-	menu "Fight 1 Clone",L_1,"Fight 2 Clones",L_2,"Fight 3 Clones",L_3,"Leave Arena",L_Leave;
-
-	L_1:
-	mes "[Clone Master 4]";
-	mes "Alright... Get ready!!!";
-	next;
-	mes "[Clone Master 4]";
-	callfunc "F_CloneCheck";
-	sc_start 72,188000,10;           //-- Chemical Protection Weapon
-	sc_start 73,188000,10;           //-- Chemical Protection Shield
-	sc_start 74,188000,10;           //-- Chemical Protection Armor
-	sc_start 75,188000,10;           //-- Chemical Protection Helm
-	set $@clonemob4, 1;              //-- The number of clones
-	set $@tempclonepts, 1;           //-- Number of possible points
-	disablenpc "Clone Master 4";
-	donpcevent "CloneMob 4";
-	initnpctimer "CloneTimer 4";
-	attachnpctimer getcharid(0);
-	close;
-
-	L_2:
-	mes "[Clone Master 4]";
-	mes "Alright... Get ready!!!";
-	next;
-	mes "[Clone Master 4]";
-	callfunc "F_CloneCheck";
-	sc_start 72,188000,10;           //-- Chemical Protection Weapon
-	sc_start 73,188000,10;           //-- Chemical Protection Shield
-	sc_start 74,188000,10;           //-- Chemical Protection Armor
-	sc_start 75,188000,10;           //-- Chemical Protection Helm
-	set $@clonemob4, 2;              //-- The number of clones
-	set $@tempclonepts, 3;           //-- Number of possible points
-	disablenpc "Clone Master 4";
-	donpcevent "CloneMob 4";
-	initnpctimer "CloneTimer 4";
-	attachnpctimer getcharid(0);
-	close;
-
-	L_3:
-	mes "[Clone Master 4]";
-	mes "Alright... Get ready!!!";
-	next;
-	mes "[Clone Master 4]";
-	callfunc "F_CloneCheck";
-	sc_start 72,188000,10;           //-- Chemical Protection Weapon
-	sc_start 73,188000,10;           //-- Chemical Protection Shield
-	sc_start 74,188000,10;           //-- Chemical Protection Armor
-	sc_start 75,188000,10;           //-- Chemical Protection Helm
-	set $@clonemob4, 3;              //-- The number of clones
-	set $@tempclonepts, 9;           //-- Number of possible points
-	disablenpc "Clone Master 4";
-	donpcevent "CloneMob 4";
-	initnpctimer "CloneTimer 4";
-	attachnpctimer getcharid(0);
-	close;
-
-	L_Leave:
-	mes "[Clone Master 4]";
-	mes "Thank for you participating, you will now be warped out of the arena.";
-	next;
-	close2;
-	warp "prt_are_in", 97, 24;
-	donpcevent "Clone Master 4::OnStart";
-	end;
-
-OnStart:
-	set $@CloneUsers, getareausers("force_2-1.gat",$@clone4X1,$@clone4Y1,$@clone4X2,$@clone4Y2);
-	set $@CloneUsers, $@CloneUsers + getareausers("force_2-1.gat",$@clone4X1,$@clone4Y1,$@clone4X1,$@clone4Y2);
-	if ($@CloneUsers > 0) end;
-	killmonster "force_2-1.gat","CloneMob 4::OnMobDead";
-	enablenpc "Clone Master 4";
-	end;
-
-}
-
-// -- Clone Mob 4 ---------------
-force_2-1.gat,1,1,1	script	CloneMob 4	-1,{
-	if ($@clonemob4 == 1) clone "force_2-1.gat",$@clonemob4X,$@clonemob4Y,"CloneMob 4::OnMobDead",$@clonename,0,1693,0,185000;
-	if ($@clonemob4 == 2) clone "force_2-1.gat",$@clonemob4X +2,$@clonemob4Y,"CloneMob 4::OnMobDead",$@clonename,0,1693,0,185000;
-	if ($@clonemob4 == 2) clone "force_2-1.gat",$@clonemob4X -2,$@clonemob4Y,"CloneMob 4::OnMobDead",$@clonename,0,1693,0,185000;
-	if ($@clonemob4 == 3) clone "force_2-1.gat",$@clonemob4X,$@clonemob4Y,"CloneMob 4::OnMobDead",$@clonename,0,1693,0,185000;
-	if ($@clonemob4 == 3) clone "force_2-1.gat",$@clonemob4X +2,$@clonemob4Y,"CloneMob 4::OnMobDead",$@clonename,0,1693,0,185000;
-	if ($@clonemob4 == 3) clone "force_2-1.gat",$@clonemob4X -2,$@clonemob4Y,"CloneMob 4::OnMobDead",$@clonename,0,1693,0,185000;
-	areawarp "force_2-1.gat", $@clone4X1, $@clone4Y1, $@clone4X2, $@clone4Y2, "force_2-1.gat", $@wrp4X, $@wrp4Y;
-	end;
-
-OnMobDead:
-	set $@clonemob4, $@clonemob4 -1;
-	if($@clonemob4 > 1) areaannounce "force_2-1.gat", $@clone4X1, $@clone4Y1, $@clone4X2, $@clone4Y2, "You have " + $@clonemob4 + " clones left to defeat!",8;
-	if($@clonemob4 == 1) areaannounce "force_2-1.gat", $@clone4X1, $@clone4Y1, $@clone4X2, $@clone4Y2, "You have " + $@clonemob4 + " clone left to defeat!",8;
-	if($@clonemob4 > 0) end;
-
-	stopnpctimer "CloneTimer 4";
-	if($@tempclonepts == 1 ) areaannounce "force_2-1.gat", $@clone4X1, $@clone4Y1, $@clone4X2, $@clone4Y2, "Congratulations! You have succesfully defeated your clone!",8;
-	if($@tempclonepts > 1 ) areaannounce "force_2-1.gat", $@clone4X1, $@clone4Y1, $@clone4X2, $@clone4Y2, "Congratulations! You have succesfully defeated your clones!",8;
-	set $@clonepts,$@clonepts + $@tempclonepts;
-	addtimer 3000, "CloneTimer 4::OnTimer188000";
-	end;
-
-}
-
-
-// -- Clone Timer 4 --------------- 
-force_2-1.gat,1,1,0	script	CloneTimer 4	-1,{
-OnTimer1000:
-	areaannounce "force_2-1.gat", $@clone4X1, $@clone4Y1, $@clone4X2, $@clone4Y2, "You have 3 minutes to defeat your clone!",8;
-	callfunc "F_CloneEquip";
-	end;
-OnTimer2000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer3000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer4000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer5000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer6000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer7000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer8000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer9000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer10000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer11000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer12000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer13000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer14000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer15000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer16000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer17000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer18000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer19000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer20000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer21000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer22000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer23000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer24000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer25000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer26000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer27000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer28000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer29000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer30000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer31000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer32000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer33000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer34000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer35000:
-	donpcevent "Clone Master 4::OnStart";
-	callfunc "F_CloneEquip";
-	end;
-OnTimer40000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer45000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer50000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer55000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer60000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer61000:
-	areaannounce "force_2-1.gat", $@clone4X1, $@clone4Y1, $@clone4X2, $@clone4Y2, "You have 2 minutes left!",8;
-	donpcevent "Clone Master 4::OnStart";
-	end;
-OnTimer65000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer70000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer75000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer80000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer85000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer90000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer95000:
-	donpcevent "Clone Master 4::OnStart";
-	end;
-OnTimer100000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer105000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer110000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer115000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer120000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer121000:
-	areaannounce "force_2-1.gat", $@clone4X1, $@clone4Y1, $@clone4X2, $@clone4Y2, "You have 1 minute left!",8;
-	donpcevent "Clone Master 4::OnStart";
-	end;
-OnTimer125000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer130000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer135000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer140000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer145000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer150000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer151000:
-	areaannounce "force_2-1.gat", $@clone4X1, $@clone4Y1, $@clone4X2, $@clone4Y2, "You have 30 seconds left!",8;
-	donpcevent "Clone Master 4::OnStart";
-	end;
-OnTimer155000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer160000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer165000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer170000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer175000:
-	callfunc "F_CloneEquip";
-	end;
-OnTimer176000:
-	areaannounce "force_2-1.gat", $@clone4X1, $@clone4Y1, $@clone4X2, $@clone4Y2, "You have 5 seconds left!",8;
-	end;
-OnTimer177000:
-	areaannounce "force_2-1.gat", $@clone4X1, $@clone4Y1, $@clone4X2, $@clone4Y2, "You have 4 seconds left!",8;
-	end;
-OnTimer178000:
-	areaannounce "force_2-1.gat", $@clone4X1, $@clone4Y1, $@clone4X2, $@clone4Y2, "You have 3 seconds left!",8;
-	end;
-OnTimer179000:
-	areaannounce "force_2-1.gat", $@clone4X1, $@clone4Y1, $@clone4X2, $@clone4Y2, "You have 2 seconds left!",8;
-	end;
-OnTimer180000:
-	areaannounce "force_2-1.gat", $@clone4X1, $@clone4Y1, $@clone4X2, $@clone4Y2, "You have 1 second left!",8;
-	end;
-OnTimer181000:
-	areaannounce "force_2-1.gat", $@clone4X1, $@clone4Y1, $@clone4X2, $@clone4Y2, "Okay time's up! You failed!",8;
-	end;
-OnTimer188000:
-	stopnpctimer;
-	sc_end 72;           //-- Stops Chemical Protection Weapon
-	sc_end 73;           //-- Stops Chemical Protection Shield
-	sc_end 74;           //-- Stops Chemical Protection Armor
-	sc_end 75;           //-- Stops Chemical Protection Helm
-	areawarp "force_2-1.gat", $@clone4X1, $@clone4Y1, $@clone4X2, $@clone4Y2, "prt_are_in", 97, 24;
-	killmonster "force_2-1.gat","CloneMob 4::OnMobDead";
-	donpcevent "Clone Master 4::OnStart";
-	end;
-}
-
-//=========================================================================================
-//== Clone Functions ======================================================================
-//=========================================================================================
-// -- Clone Inventory Function ---------------
-function	script	F_CloneCheck	{
-	if(getequipisequiped(1)==0) goto L_Head;
-	if(getequipisequiped(2)==0) goto L_Armor;
-	if(getequipisequiped(3)==0) goto L_Hand;
-	if(getequipisequiped(4)==0) goto L_Hand;
-	if(getequipisequiped(5)==0) goto L_Garment;
-	if(getequipisequiped(6)==0) goto L_Foot;
-	if(getequipisequiped(7)==0) goto L_Acc;
-	if(getequipisequiped(8)==0) goto L_Acc;
-
-	if($@cloneroom == 1) goto L_Check1;
-	if($@cloneroom == 2) goto L_Check2;
-	if($@cloneroom == 3) goto L_Check3;
-	if($@cloneroom == 4) goto L_Check4;
-
-	L_Check1:
-	set $@equip11, getequipid(1);
-	set $@equip12, getequipid(2);
-	set $@equip13, getequipid(3);
-	set $@equip14, getequipid(4);
-	set $@equip15, getequipid(5);
-	set $@equip16, getequipid(6);
-	set $@equip17, getequipid(7);
-	set $@equip18, getequipid(8);
-	return;
-
-	L_Check2:
-	set $@equip21, getequipid(1);
-	set $@equip22, getequipid(2);
-	set $@equip23, getequipid(3);
-	set $@equip24, getequipid(4);
-	set $@equip25, getequipid(5);
-	set $@equip26, getequipid(6);
-	set $@equip27, getequipid(7);
-	set $@equip28, getequipid(8);
-	return;
-
-	L_Check3:
-	set $@equip31, getequipid(1);
-	set $@equip32, getequipid(2);
-	set $@equip33, getequipid(3);
-	set $@equip34, getequipid(4);
-	set $@equip35, getequipid(5);
-	set $@equip36, getequipid(6);
-	set $@equip37, getequipid(7);
-	set $@equip38, getequipid(8);
-	return;
-
-	L_Check4:
-	set $@equip41, getequipid(1);
-	set $@equip42, getequipid(2);
-	set $@equip43, getequipid(3);
-	set $@equip44, getequipid(4);
-	set $@equip45, getequipid(5);
-	set $@equip46, getequipid(6);
-	set $@equip47, getequipid(7);
-	set $@equip48, getequipid(8);
-	return;
-
-	L_Head:
-	mes "^FF0000You must equip a Head Gear before continuing!^000000";
-	next;
-	warp "prt_are_in", 97, 24;
-	end;
-
-	L_Armor:
-	mes "^FF0000You must equip an Armor before continuing!^000000";
-	next;
-	warp "prt_are_in", 97, 24;
-	end;
-
-	L_Hand:
-	mes "^FF0000You must equip a Weapon and/or Shield before continuing!^000000";
-	next;
-	warp "prt_are_in", 97, 24;
-	end;
-
-	L_Garment:
-	mes "^FF0000You must equip a Garment before continuing!^000000";
-	next;
-	warp "prt_are_in", 97, 24;
-	end;
-
-	L_Foot:
-	mes "^FF0000You must equip a Foot Gear before continuing!^000000";
-	next;
-	warp "prt_are_in", 97, 24;
-	end;
-
-	L_Acc:
-	mes "^FF0000You must equip two Accessories before continuing!^000000";
-	next;
-	warp "prt_are_in", 97, 24;
-	end;
-
-}
-
-// -- Clone Equipment Function ---------------
-function	script	F_CloneEquip	{
-	if($@cloneroom == 1) goto L_Equip1;
-	if($@cloneroom == 2) goto L_Equip2;
-	if($@cloneroom == 3) goto L_Equip3;
-	if($@cloneroom == 4) goto L_Equip4;
-
-	L_Equip1:
-	if(getequipid(1) != $@equip11) goto L_Violate1;
-	if(getequipid(2) != $@equip12) goto L_Violate1;
-	if(getequipid(3) != $@equip13) goto L_Violate1;
-	if(getequipid(4) != $@equip14) goto L_Violate1;
-	if(getequipid(5) != $@equip15) goto L_Violate1;
-	if(getequipid(6) != $@equip16) goto L_Violate1;
-	if(getequipid(7) != $@equip17) goto L_Violate1;
-	if(getequipid(8) != $@equip18) goto L_Violate1;
-	return;
-
-	L_Equip2:
-	if(getequipid(1) != $@equip21) goto L_Violate2;
-	if(getequipid(2) != $@equip22) goto L_Violate2;
-	if(getequipid(3) != $@equip23) goto L_Violate2;
-	if(getequipid(4) != $@equip24) goto L_Violate2;
-	if(getequipid(5) != $@equip25) goto L_Violate2;
-	if(getequipid(6) != $@equip26) goto L_Violate2;
-	if(getequipid(7) != $@equip27) goto L_Violate2;
-	if(getequipid(8) != $@equip28) goto L_Violate2;
-	return;
-
-	L_Equip3:
-	if(getequipid(1) != $@equip31) goto L_Violate3;
-	if(getequipid(2) != $@equip32) goto L_Violate3;
-	if(getequipid(3) != $@equip33) goto L_Violate3;
-	if(getequipid(4) != $@equip34) goto L_Violate3;
-	if(getequipid(5) != $@equip35) goto L_Violate3;
-	if(getequipid(6) != $@equip36) goto L_Violate3;
-	if(getequipid(7) != $@equip37) goto L_Violate3;
-	if(getequipid(8) != $@equip38) goto L_Violate3;
-	return;
-
-	L_Equip4:
-	if(getequipid(1) != $@equip41) goto L_Violate4;
-	if(getequipid(2) != $@equip42) goto L_Violate4;
-	if(getequipid(3) != $@equip43) goto L_Violate4;
-	if(getequipid(4) != $@equip44) goto L_Violate4;
-	if(getequipid(5) != $@equip45) goto L_Violate4;
-	if(getequipid(6) != $@equip46) goto L_Violate4;
-	if(getequipid(7) != $@equip47) goto L_Violate4;
-	if(getequipid(8) != $@equip48) goto L_Violate4;
-	return;
-
-	L_Violate1:
-	areaannounce "force_2-1.gat", $@clone1X1, $@clone1Y1, $@clone1X2, $@clone1Y2, "Clone Rules Violation! Equipments Changed!",bc_all,0xFF0000;
-	set $@clonepts,$@clonepts - $@tempclonepts;
-	sc_end 72;           //-- Stops Chemical Protection Weapon
-	sc_end 73;           //-- Stops Chemical Protection Shield
-	sc_end 74;           //-- Stops Chemical Protection Armor
-	sc_end 75;           //-- Stops Chemical Protection Helm
-	stopnpctimer;
-	areawarp "force_2-1.gat", $@clone1X1, $@clone1Y1, $@clone1X2, $@clone1Y2, "prt_are_in", 97, 24;
-	killmonster "force_2-1.gat","CloneMob 1::OnMobDead";
-	donpcevent "Clone Master 1::OnStart";
-	end;
-
-	L_Violate2:
-	areaannounce "force_2-1.gat", $@clone2X1, $@clone2Y1, $@clone2X2, $@clone2Y2, "Clone Rules Violation! Equipments Changed!",bc_all,0xFF0000;
-	set $@clonepts,$@clonepts - $@tempclonepts;
-	sc_end 72;           //-- Stops Chemical Protection Weapon
-	sc_end 73;           //-- Stops Chemical Protection Shield
-	sc_end 74;           //-- Stops Chemical Protection Armor
-	sc_end 75;           //-- Stops Chemical Protection Helm
-	stopnpctimer;
-	areawarp "force_2-1.gat", $@clone2X1, $@clone2Y1, $@clone2X2, $@clone2Y2, "prt_are_in", 97, 24;
-	killmonster "force_2-1.gat","CloneMob 2::OnMobDead";
-	donpcevent "Clone Master 2::OnStart";
-	end;
-
-	L_Violate3:
-	areaannounce "force_2-1.gat", $@clone3X1, $@clone3Y1, $@clone3X2, $@clone3Y2, "Clone Rules Violation! Equipments Changed!",bc_all,0xFF0000;
-	set $@clonepts,$@clonepts - $@tempclonepts;
-	sc_end 72;           //-- Stops Chemical Protection Weapon
-	sc_end 73;           //-- Stops Chemical Protection Shield
-	sc_end 74;           //-- Stops Chemical Protection Armor
-	sc_end 75;           //-- Stops Chemical Protection Helm
-	stopnpctimer;
-	areawarp "force_2-1.gat", $@clone3X1, $@clone3Y1, $@clone3X2, $@clone3Y2, "prt_are_in", 97, 24;
-	killmonster "force_2-1.gat","CloneMob 3::OnMobDead";
-	donpcevent "Clone Master 3::OnStart";
-	end;
-
-	L_Violate4:
-	areaannounce "force_2-1.gat", $@clone4X1, $@clone4Y1, $@clone4X2, $@clone4Y2, "Clone Rules Violation! Equipments Changed!",bc_all,0xFF0000;
-	set $@clonepts,$@clonepts - $@tempclonepts;
-	sc_end 72;           //-- Stops Chemical Protection Weapon
-	sc_end 73;           //-- Stops Chemical Protection Shield
-	sc_end 74;           //-- Stops Chemical Protection Armor
-	sc_end 75;           //-- Stops Chemical Protection Helm
-	stopnpctimer;
-	areawarp "force_2-1.gat", $@clone4X1, $@clone4Y1, $@clone4X2, $@clone4Y2, "prt_are_in", 97, 24;
-	killmonster "force_2-1.gat","CloneMob 4::OnMobDead";
-	donpcevent "Clone Master 4::OnStart";
-	end;
-
-}
\ No newline at end of file
diff --git a/npc/custom/eAAC_Scripts/disguiser.txt b/npc/custom/eAAC_Scripts/disguiser.txt
new file mode 100644
index 0000000000..7e2471d34a
--- /dev/null
+++ b/npc/custom/eAAC_Scripts/disguiser.txt
@@ -0,0 +1,179 @@
+===== eAthena Script ======================================= 
+= Disguiser Quesr
+===== By ================================================== 
+= PalasX (httpcashaan.dontexist.org)
+===== Current Version ===================================== 
+= v1.20 Unified
+===== Compatible With ===================================== 
+= SVN 5690+ (getmonsterinfo)
+===== Description ========================================= 
+= Baphomet disguises you if you find all his brothers.
+===== Additional Comments ================================= 
+= Gotta find them all in order
+= Dynamically edits item 2614(eye of dullahan) with
+= 	setitemscript 2614,{bonus bdisguise,var_disguise;};
+=     so your SVN better support it
+= Uses GetMonsterInfo to pull monster names from server, but
+=     without sql_query, the mob IDs are set statically
+= Went crazy with the functions, the script is TINY now )
+============================================================ 
+
+
+Places all of our NPCs
+
+prt_fild05.gat,277,226,5	script	Dullahan Master	736,{
+	callfunc PXC_Disguiser,0,quest_disguise;
+Close;
+}
+
+moc_fild10.gat,34,283,4	script	Dullahan Master	736,{
+	callfunc PXC_Disguiser,1,quest_disguise;
+close;
+}
+
+gef_fild00.gat,97,123,4	script	Dullahan Master	736,{
+	callfunc PXC_Disguiser,2,quest_disguise;
+close;
+}
+
+pay_fild01.gat,369,305,4	script	Dullahan Master	736,{
+	callfunc PXC_Disguiser,3,quest_disguise;
+close;
+}
+
+pay_fild03.gat,313,40,4	script	Dullahan Master	736,{
+	callfunc PXC_Disguiser,4,quest_disguise;
+close;
+}
+
+prt_fild08.gat,362,185,4	script	Dullahan Master	736,{
+	callfunc PXC_Disguiser,5,quest_disguise;
+	close;
+
+
+
+ edits the item used 
+
+OnInit
+	EDIT EYE OF DULLAHAN
+	setitemscript 2614,{ bonus bdisguise,var_disguise; };
+	end;
+}
+
+
+
+
+
+
+ Function.	Takes
+	INTEGER, the order number that the bapho should be visited
+	VARIABLE, the quest progression variable quest_disguise. may be changed if conflicts occur
+
+		Puts
+	Everything the NPC does.  If you are at the right one, increase your order variable, if not, tell you where to head next on the list, when you finish, offer you to change ring properties.
+	Whenever you dont have a ring, the script will push one on you in ALL instances (wrong NPC, right NPC, and done quest).
+	
+
+function	script	PXC_Disguiser	{
+
+	setarray $@PXC_Next$[0],Culvert,Morocc,Geffen,Payon,Alberta,Izlude;
+
+	if(var_disguise  1) goto Complete;
+	if(getarg(0) == 5 && getarg(1) == 5) goto Last;
+	if(getarg(0) == getarg(1)) goto Quest;
+
+NotMe
+	mes [Baphomet];
+	mes You must visit us in the proper order, as is Thor's will.  Only then can we teach you the power of self-transmutation! Hunt around +$@PXC_Next$[getarg(1)]+ Next!;
+	next;
+	if(countitem(2614)  1) goto NeedRing;
+	close;
+
+Cancel
+	mes [Baphomet];
+	mes Later.;
+	close;
+
+Quest
+	set quest_disguise,getarg(1)+1;
+	mes [Baphomet];
+	mes What am I doing here  Find my brothers and you shall learn a great secret.  It is one of the secret and ancient powers of Thor! Search around +$@PXC_Next$[getarg(1)]+ next!;
+	next;
+	if(countitem(2614)  1) goto NeedRing;
+	close;
+
+NeedRing
+	mes [Baphomet];
+	mes You will need an Eye of Dullahan ring in order to obtain our secret.  I can sell you one for 500,000 zeny. Simply bring me the money, and I'll offer it unto Thor in trade!;
+	next;
+	menu Buy Ring,-,Forget it!,Cancel;
+	if(Zeny  500000) goto Cancel;
+	set Zeny,Zeny-500000;
+	getitem 2614,1;
+	mes [Baphomet];
+	mes Here is your ring.;
+	next;
+	goto Cancel;
+	close;
+
+Last
+	set quest_disguise,0;
+	set var_disguise,1002;
+	mes [Baphomet];
+	mes I am the last of the six.  Forgive us for giving such horrible directions, for we, too, are born from Thor's left eye, and have a terrible mean streak.  Plus, being monsters, we're complete and total idiots with a shoddy A.I.!  You shall now receive your reward.;
+	next;
+	goto Complete;
+
+
+Complete
+	if(countitem(2614)  1) goto NeedRing;
+
+	mes [Baphomet];
+	mes Several millenia ago, Thor, the creator breathed life onto Midgar.  In the beginning, all was well, but Thor's left eye proved to be the bane of our existance. As it's gaze set upon our land, all the monsters were let loose from within Thor's soul.  Thor cast out his own eye, the only thing that could control the monsters.  Your ring is made from his eye, and will give you the same powers.;
+	next;
+	mes [Baphomet];
+	mes I can change your ring's mystical properties. Which monster spirit shall I weave into your ring;
+	next;
+
+	if(getarg(0)==0) callfunc PXC_DoMenu,1001,1125;
+	if(getarg(0)==1) callfunc PXC_DoMenu,1126,1250;
+	if(getarg(0)==2) callfunc PXC_DoMenu,1251,1375;
+	if(getarg(0)==3) callfunc PXC_DoMenu,1376,1500;
+	if(getarg(0)==4) callfunc PXC_DoMenu,1503,1625;
+	if(getarg(0)==5) callfunc PXC_DoMenu,1626,1721;
+
+	close;
+	end;
+}
+
+
+ FUNCTION.
+	Takes
+	integer, first monster ID to show
+	integer, last monster ID to show
+
+function	script	PXC_DoMenu	{
+
+	set menu options to mob names, doing the first one manualy so we dont have an empty 
+	set $@menu$, getmonsterinfo(getarg(0),MOB_NAME);
+
+	for(set $@i, getarg(0)+1; $@i = getarg(1); set $@i, $@i + 1){
+	set $@menu$, $@menu$ +  + getmonsterinfo($@i,MOB_NAME);
+	}
+
+	Fire our menu
+	set @menu, select($@menu$);
+
+	Zero deliminated (off-by-one errors sux0r!!!)
+	set @menu, @menu-1;
+
+	congratulate our user
+	mes Behold, whilst you wear this ring, your form shall become that of a +getmonsterinfo(@menu + getarg(0),MOB_NAME);
+
+	update our variable, with @menu offset addded to the base getarg(0)
+	set var_disguise, @menu + getarg(0);
+
+	close;
+	end;
+
+}
\ No newline at end of file
diff --git a/npc/custom/eAAC_Scripts/disguiser_SQL.txt b/npc/custom/eAAC_Scripts/disguiser_SQL.txt
deleted file mode 100644
index 73513cfe58..0000000000
--- a/npc/custom/eAAC_Scripts/disguiser_SQL.txt
+++ /dev/null
@@ -1,305 +0,0 @@
-//===== eAthena Script ======================================= 
-//= Disguiser Quesr
-//===== By: ================================================== 
-//= PalasX (http://cashaan.dontexist.org)
-//===== Current Version: ===================================== 
-//= v1.10 SQL
-//===== Compatible With: ===================================== 
-//= SVN 5200+
-//===== Description: ========================================= 
-//= Baphomet disguises you if you find all his brothers.
-//===== Additional Comments: ================================= 
-//= Gotta find them all in order
-//= Dynamically edits item 2614(eye of dullahan) with
-//= 	setitemscript 2614,"{bonus bdisguise,var_disguise;}";
-//= so your SVN better support it
-//============================================================ 
-
-prt_fild05.gat,277,226,5	script	Dullahan Master	736,{
-
-	if(var_disguise > 1) goto Complete;
-	if(quest_disguise == 0) goto Quest;
-
-NotMe:
-	mes "[Baphomet]";
-	mes "You must visit us in the proper order, as is Thor's will.  Only then can we teach you the power of self-transmutation! Hunt around Morocc Next!";
-	close;
-
-Cancel:
-	mes "[Baphomet]";
-	mes "Later.";
-	close;
-
-Quest:
-	set quest_disguise,1;
-	mes "[Baphomet]";
-	mes "What am I doing here?  Find my brothers and you shall learn a great secret. Search around Morocc next!";
-	next;
-	close;
-
-Complete:
-	mes "[Baphomet]";
-	mes "Several millenia ago, Thor, the creator breathed life onto Midgar.  In the beginning, all was well, but Thor's left eye proved to be the bane of our existance. As it's gaze set upon our land, all the monsters were let loose from within Thor's soul.  Thor cast out his own eye, the only thing that could control the monsters.  Your ring is made from his eye, and will give you the same powers.";
-	next;
-	mes "[Baphomet]";
-	mes "I can change its mystical properties, which monster you wanna be?";
-	next;
-	callfunc "PXC_Disguiser",1;
-
-Close;
-}
-moc_fild10.gat,34,283,4	script	Dullahan Master	736,{
-
-	if(var_disguise > 1) goto Complete;
-	if(quest_disguise == 1) goto Quest;
-
-NotMe:
-	mes "[Baphomet]";
-	mes "You must visit us in the proper order, as is Thor's will.  Only then can we teach you the power of self-transmutation! Hunt around Geffen Next!";
-	close;
-
-Cancel:
-	mes "[Baphomet]";
-	mes "Later.";
-	close;
-
-Quest:
-	set quest_disguise,2;
-	mes "[Baphomet]";
-	mes "What am I doing here?  Find my brothers and you shall learn a great secret. Search outside Geffen next!";
-	next;
-	close;
-
-
-Complete:
-	mes "[Baphomet]";
-	mes "Several millenia ago, Thor, the creator breathed life onto Midgar.  In the beginning, all was well, but Thor's left eye proved to be the bane of our existance. As it's gaze set upon our land, all the monsters were let loose from within Thor's soul.  Thor cast out his own eye, the only thing that could control the monsters.  Your ring is made from his eye, and will give you the same powers.";
-	next;
-	mes "[Baphomet]";
-	mes "I can change its mystical properties, which monster you wanna be?";
-	next;
-	callfunc "PXC_Disguiser",2;
-
-close;
-}
-gef_fild00.gat,97,123,4	script	Dullahan Master	736,{
-
-	if(var_disguise > 1) goto Complete;
-	if(quest_disguise == 2) goto Quest;
-
-NotMe:
-	mes "[Baphomet]";
-	mes "You must visit us in the proper order, as is Thor's will.  Only then can we teach you the power of self-transmutation! Hunt around Payon Next!";
-	close;
-
-Cancel:
-	mes "[Baphomet]";
-	mes "Later.";
-	close;
-
-Quest:
-	set quest_disguise,3;
-	mes "[Baphomet]";
-	mes "What am I doing here?  Find my brothers and you shall learn a great secret. Search outside Payon next!";
-	next;
-	close;
-
-Complete:
-	mes "[Baphomet]";
-	mes "Several millenia ago, Thor, the creator breathed life onto Midgar.  In the beginning, all was well, but Thor's left eye proved to be the bane of our existance. As it's gaze set upon our land, all the monsters were let loose from within Thor's soul.  Thor cast out his own eye, the only thing that could control the monsters.  Your ring is made from his eye, and will give you the same powers.";
-	next;
-	mes "[Baphomet]";
-	mes "I can change its mystical properties, which monster you wanna be?";
-	next;
-	callfunc "PXC_Disguiser",3;
-
-close;
-}
-pay_fild01.gat,369,305,4	script	Dullahan Master	736,{
-
-	if(var_disguise > 1) goto Complete;
-	if(quest_disguise == 3) goto Quest;
-
-NotMe:
-	mes "[Baphomet]";
-	mes "You must visit us in the proper order, as is Thor's will.  Only then can we teach you the power of self-transmutation! Hunt around Alberta Next!";
-	close;
-
-Cancel:
-	mes "[Baphomet]";
-	mes "Later.";
-	close;
-
-Quest:
-	set quest_disguise,4;
-	mes "[Baphomet]";
-	mes "What am I doing here?  Find my brothers and you shall learn a great secret. Search outside Alberta next!";
-	next;
-	close;
-
-Complete:
-	mes "[Baphomet]";
-	mes "Several millenia ago, Thor, the creator breathed life onto Midgar.  In the beginning, all was well, but Thor's left eye proved to be the bane of our existance. As it's gaze set upon our land, all the monsters were let loose from within Thor's soul.  Thor cast out his own eye, the only thing that could control the monsters.  Your ring is made from his eye, and will give you the same powers.";
-	next;
-	mes "[Baphomet]";
-	mes "I can change its mystical properties, which monster you wanna be?";
-	next;
-	callfunc "PXC_Disguiser",4;
-
-close;
-}
-pay_fild03.gat,313,40,4	script	Dullahan Master	736,{
-
-	if(var_disguise > 1) goto Complete;
-	if(quest_disguise == 4) goto Quest;
-
-NotMe:
-	mes "[Baphomet]";
-	mes "You must visit us in the proper order, as is Thor's will.  Only then can we teach you the power of self-transmutation! Hunt around Izlude Next!";
-	close;
-
-Cancel:
-	mes "[Baphomet]";
-	mes "Later.";
-	close;
-
-Quest:
-	set quest_disguise,5;
-	mes "[Baphomet]";
-	mes "What am I doing here?  Find my brothers and you shall learn a great secret. Search outside Izlude next!";
-	next;
-	close;
-
-Complete:
-	mes "[Baphomet]";
-	mes "Several millenia ago, Thor, the creator breathed life onto Midgar.  In the beginning, all was well, but Thor's left eye proved to be the bane of our existance. As it's gaze set upon our land, all the monsters were let loose from within Thor's soul.  Thor cast out his own eye, the only thing that could control the monsters.  Your ring is made from his eye, and will give you the same powers.";
-	next;
-	mes "[Baphomet]";
-	mes "I can change its mystical properties, which monster you wanna be?";
-	next;
-	callfunc "PXC_Disguiser",5;
-
-close;
-}
-prt_fild08.gat,362,185,4	script	Dullahan Master	736,{
-
-	if(quest_disguise == 5) goto Quest;
-	if(countitem(2614) < 1) goto NeedRing;
-	if(var_disguise > 1) goto Complete;
-
-NotMe:
-	mes "[Baphomet]";
-	mes "You must visit us in the proper order, as is Thor's will.  Only then can we teach you the power of self-transmutation! Hunt around Culvert's Next!";
-	close;
-
-Cancel:
-	mes "[Baphomet]";
-	mes "Later.";
-	close;
-
-Quest:
-	set quest_disguise,0;
-	set var_disguise,1002;
-	mes "[Baphomet]";
-	mes "I am the last of the six.  Forgive us for giving such horrible directions, for we, too, are born from Thor's left eye, and have a terrible mean streak.  Plus, being monsters, we're complete and total idiots with a shoddy A.I.!  You shall now receive your reward.";
-	next;
-	if(countitem(2614) < 1) goto NeedRing;
-	goto Complete;
-	close;
-
-NeedRing:
-	mes "[Baphomet]";
-	mes "You will need an Eye of Dullahan ring in order to obtain our secret.  I alone can sell you one for 500,000 zeny. None of my brothers have any left to sell! Simply bring me the money, and I'll make the trade!";
-	next;
-menu "Buy Ring",-,"Forget it!",Cancel;
-	if(Zeny < 500000) goto Cancel;
-	set Zeny,Zeny-500000;
-	getitem 2614,1;
-	mes "[Baphomet]";
-	mes "Here is your ring.";
-	goto Complete;
-	close;
-
-Complete:
-	mes "[Baphomet]";
-	mes "Several millenia ago, Thor, the creator breathed life onto Midgar.  In the beginning, all was well, but Thor's left eye proved to be the bane of our existance. As it's gaze set upon our land, all the monsters were let loose from within Thor's soul.  Thor cast out his own eye, the only thing that could control the monsters.  Your ring is made from his eye, and will give you the same powers.";
-	next;
-	mes "[Baphomet]";
-	mes "I can change its mystical properties, which monster you wanna be?";
-	next;
-	callfunc "PXC_Disguiser",6;
-
-close;
-
-
-OnInit:
-	//EDIT EYE OF DULLAHAN
-	setitemscript 2614,"{ bonus bdisguise,var_disguise; }";
-	end;
-}
-
-
-function	script	PXC_Disguiser	{
-if(getarg(0)==1) goto MenuSet_A;
-if(getarg(0)==2) goto MenuSet_B;
-if(getarg(0)==3) goto MenuSet_C;
-if(getarg(0)==4) goto MenuSet_D;
-if(getarg(0)==5) goto MenuSet_E;
-if(getarg(0)==6) goto MenuSet_F;
-
-
-MenuSet_A:
-	query_sql "SELECT ID FROM `mob_db` where ((ID > 1000) AND (ID < 1126)) order by ID ASC",$@mob_IDs$;
-	query_sql "SELECT Name2 FROM `mob_db` where ((ID > 1000) AND (ID < 1126)) order by ID ASC",$@mob_names$;
-	goto DoMenu;
-
-MenuSet_B:
-	query_sql "SELECT ID FROM `mob_db` where ((ID > 1125) AND (ID < 1250)) order by ID ASC",$@mob_IDs$;
-	query_sql "SELECT Name2 FROM `mob_db` where ((ID > 1125) AND (ID < 1250)) order by ID ASC",$@mob_names$;
-	goto DoMenu;
-
-MenuSet_C:
-	query_sql "SELECT ID FROM `mob_db` where ((ID > 1250) AND (ID < 1376)) order by ID ASC",$@mob_IDs$;
-	query_sql "SELECT Name2 FROM `mob_db` where ((ID > 1250) AND (ID < 1376)) order by ID ASC",$@mob_names$;
-	goto DoMenu;
-
-MenuSet_D:
-	query_sql "SELECT ID FROM `mob_db` where ((ID > 1375) AND (ID < 1501)) order by ID ASC",$@mob_IDs$;
-	query_sql "SELECT Name2 FROM `mob_db` where ((ID > 1375) AND (ID < 1501)) order by ID ASC",$@mob_names$;
-	goto DoMenu;
-
-MenuSet_E:
-	query_sql "SELECT ID FROM `mob_db` where ((ID > 1500) AND (ID < 1626)) order by ID ASC",$@mob_IDs$;
-	query_sql "SELECT Name2 FROM `mob_db` where ((ID > 1500) AND (ID < 1626)) order by ID ASC",$@mob_names$;
-	goto DoMenu;
-
-MenuSet_F:
-	query_sql "SELECT ID FROM `mob_db` where ((ID > 1625) AND (ID < 1751)) order by ID ASC",$@mob_IDs$;
-	query_sql "SELECT Name2 FROM `mob_db` where ((ID > 1625) AND (ID < 1751)) order by ID ASC",$@mob_names$;
-	goto DoMenu;
-
-DoMenu:
-	//first menu option
-	 set $@menu$, $@mob_names$[0];
-
-	//set menu options to mob names
-	for(set $@i, 1; $@i < 125; set $@i, $@i + 1){
-	set $@menu$, $@menu$ + ":" + $@mob_names$[$@i];
-	}
-
-	//Fire our menu
-	set @menu, select($@menu$);
-
-	//Zero deliminated (off-by-one errors sux0r!!!)
-	set @menu, @menu-1;
-
-	//congratulate our user
-	mes "Behold, whilst you wear this ring, your form shall become that of a "+$@mob_names$[@menu];
-
-	//update our variable
-	set var_disguise, $@mob_IDs$[@menu];
-
-close;
-end;
-
-}
\ No newline at end of file
diff --git a/npc/custom/eAAC_Scripts/disguiser_TXT.txt b/npc/custom/eAAC_Scripts/disguiser_TXT.txt
deleted file mode 100644
index 3b88f80fa4..0000000000
--- a/npc/custom/eAAC_Scripts/disguiser_TXT.txt
+++ /dev/null
@@ -1,1664 +0,0 @@
-//===== eAthena Script ======================================= 
-//= Disguiser Quesr
-//===== By: ================================================== 
-//= PalasX (http://cashaan.dontexist.org)
-//===== Current Version: ===================================== 
-//= v1.00
-//===== Compatible With: ===================================== 
-//= SVN 5000+
-//===== Description: ========================================= 
-//= Baphomet disguises you if you find all his brothers.
-//===== Additional Comments: ================================= 
-//= Gotta find them all in order
-//= Dynamically edits item 2614(eye of dullahan) with
-//= 	setitemscript 2614,"{bonus bdisguise,var_disguise;}";
-//= so your SVN better support it
-//============================================================ 
-
-prt_fild05.gat,277,226,5	script	Dullahan Master	736,{
-
-	if(var_disguise > 1) goto Complete;
-	if(quest_disguise == 0) goto Quest;
-
-NotMe:
-	mes "[Baphomet]";
-	mes "You must visit us in the proper order, as is Thor's will.";
-	close;
-
-Cancel:
-	mes "[Baphomet]";
-	mes "Later.";
-	close;
-
-Quest:
-	set quest_disguise,1;
-	mes "[Baphomet]";
-	mes "What am I doing here?  Find my brothers and you shall learn a great secret. Search around Morocc next!";
-	next;
-	close;
-
-Complete:
-	mes "[Baphomet]";
-	mes "Several millenia ago, Thor, the creator breathed life onto Midgar.  In the beginning, all was well, but Thor's left eye proved to be the bane of our existance. As it's gaze set upon our land, all the monsters were let loose from within Thor's soul.  Thor cast out his own eye, the only thing that could control the monsters.  Your ring is made from his eye, and will give you the same powers.";
-	next;
-	mes "[Baphomet]";
-	mes "I can change its mystical properties, which monster you wanna be?";
-	next;
-	callfunc "PXC_Disguiser",1;
-
-Close;
-}
-moc_fild10.gat,34,283,4	script	Dullahan Master	736,{
-
-	if(var_disguise > 1) goto Complete;
-	if(quest_disguise == 1) goto Quest;
-
-NotMe:
-	mes "[Baphomet]";
-	mes "You must visit us in the proper order, as is Thor's will.";
-	close;
-
-Cancel:
-	mes "[Baphomet]";
-	mes "Later.";
-	close;
-
-Quest:
-	set quest_disguise,2;
-	mes "[Baphomet]";
-	mes "What am I doing here?  Find my brothers and you shall learn a great secret. Search outside Geffen next!";
-	next;
-	close;
-
-
-Complete:
-	mes "[Baphomet]";
-	mes "Several millenia ago, Thor, the creator breathed life onto Midgar.  In the beginning, all was well, but Thor's left eye proved to be the bane of our existance. As it's gaze set upon our land, all the monsters were let loose from within Thor's soul.  Thor cast out his own eye, the only thing that could control the monsters.  Your ring is made from his eye, and will give you the same powers.";
-	next;
-	mes "[Baphomet]";
-	mes "I can change its mystical properties, which monster you wanna be?";
-	next;
-	callfunc "PXC_Disguiser",2;
-
-close;
-}
-gef_fild00.gat,97,123,4	script	Dullahan Master	736,{
-
-	if(var_disguise > 1) goto Complete;
-	if(quest_disguise == 2) goto Quest;
-
-NotMe:
-	mes "[Baphomet]";
-	mes "You must visit us in the proper order, as is Thor's will.";
-	close;
-
-Cancel:
-	mes "[Baphomet]";
-	mes "Later.";
-	close;
-
-Quest:
-	set quest_disguise,3;
-	mes "[Baphomet]";
-	mes "What am I doing here?  Find my brothers and you shall learn a great secret. Search outside Payon next!";
-	next;
-	close;
-
-Complete:
-	mes "[Baphomet]";
-	mes "Several millenia ago, Thor, the creator breathed life onto Midgar.  In the beginning, all was well, but Thor's left eye proved to be the bane of our existance. As it's gaze set upon our land, all the monsters were let loose from within Thor's soul.  Thor cast out his own eye, the only thing that could control the monsters.  Your ring is made from his eye, and will give you the same powers.";
-	next;
-	mes "[Baphomet]";
-	mes "I can change its mystical properties, which monster you wanna be?";
-	next;
-	callfunc "PXC_Disguiser",3;
-
-close;
-}
-pay_fild01.gat,369,305,4	script	Dullahan Master	736,{
-
-	if(var_disguise > 1) goto Complete;
-	if(quest_disguise == 3) goto Quest;
-
-NotMe:
-	mes "[Baphomet]";
-	mes "You must visit us in the proper order, as is Thor's will.";
-	close;
-
-Cancel:
-	mes "[Baphomet]";
-	mes "Later.";
-	close;
-
-Quest:
-	set quest_disguise,4;
-	mes "[Baphomet]";
-	mes "What am I doing here?  Find my brothers and you shall learn a great secret. Search outside Alberta next!";
-	next;
-	close;
-
-Complete:
-	mes "[Baphomet]";
-	mes "Several millenia ago, Thor, the creator breathed life onto Midgar.  In the beginning, all was well, but Thor's left eye proved to be the bane of our existance. As it's gaze set upon our land, all the monsters were let loose from within Thor's soul.  Thor cast out his own eye, the only thing that could control the monsters.  Your ring is made from his eye, and will give you the same powers.";
-	next;
-	mes "[Baphomet]";
-	mes "I can change its mystical properties, which monster you wanna be?";
-	next;
-	callfunc "PXC_Disguiser",4;
-
-close;
-}
-pay_fild03.gat,313,40,4	script	Dullahan Master	736,{
-
-	if(var_disguise > 1) goto Complete;
-	if(quest_disguise == 4) goto Quest;
-
-NotMe:
-	mes "[Baphomet]";
-	mes "You must visit us in the proper order, as is Thor's will.";
-	close;
-
-Cancel:
-	mes "[Baphomet]";
-	mes "Later.";
-	close;
-
-Quest:
-	set quest_disguise,5;
-	mes "[Baphomet]";
-	mes "What am I doing here?  Find my brothers and you shall learn a great secret. Search outside Izlude next!";
-	next;
-	close;
-
-Complete:
-	mes "[Baphomet]";
-	mes "Several millenia ago, Thor, the creator breathed life onto Midgar.  In the beginning, all was well, but Thor's left eye proved to be the bane of our existance. As it's gaze set upon our land, all the monsters were let loose from within Thor's soul.  Thor cast out his own eye, the only thing that could control the monsters.  Your ring is made from his eye, and will give you the same powers.";
-	next;
-	mes "[Baphomet]";
-	mes "I can change its mystical properties, which monster you wanna be?";
-	next;
-	callfunc "PXC_Disguiser",5;
-
-close;
-}
-prt_fild08.gat,362,185,4	script	Dullahan Master	736,{
-
-	if(quest_disguise == 5) goto Quest;
-	if(countitem(2614) < 1) goto NeedRing;
-	if(var_disguise > 1) goto Complete;
-
-NotMe:
-	mes "[Baphomet]";
-	mes "You must visit us in the proper order, as is Thor's will.";
-	close;
-
-Cancel:
-	mes "[Baphomet]";
-	mes "Later.";
-	close;
-
-Quest:
-	set quest_disguise,0;
-	set var_disguise,1002;
-	mes "[Baphomet]";
-	mes "I am the last of the six.  You shall now receive your reward.";
-	next;
-	if(countitem(2614) < 1) goto NeedRing;
-	goto Complete;
-	close;
-
-NeedRing:
-	mes "[Baphomet]";
-	mes "You will need an Eye of Dullahan ring in order to obtain our secret.  I alone can sell you one for 500,000 zeny. Simply bring me the money, and I'll make the trade!";
-	next;
-menu "Buy Ring",-,"Forget it!",Cancel;
-	if(Zeny < 500000) goto Cancel;
-	set Zeny,Zeny-500000;
-	getitem 2614,1;
-	mes "[Baphomet]";
-	mes "Here is your ring.";
-	goto Complete;
-	close;
-
-Complete:
-	mes "[Baphomet]";
-	mes "Several millenia ago, Thor, the creator breathed life onto Midgar.  In the beginning, all was well, but Thor's left eye proved to be the bane of our existance. As it's gaze set upon our land, all the monsters were let loose from within Thor's soul.  Thor cast out his own eye, the only thing that could control the monsters.  Your ring is made from his eye, and will give you the same powers.";
-	next;
-	mes "[Baphomet]";
-	mes "I can change its mystical properties, which monster you wanna be?";
-	next;
-	callfunc "PXC_Disguiser",6;
-
-close;
-
-
-OnInit:
-	//EDIT EYE OF DULLAHAN
-	setitemscript 2614,"{ bonus bdisguise,var_disguise; }";
-}
-
-function	script	PXC_Disguiser	{
-
-if(getarg(0)==1) goto MenuSet_A;
-if(getarg(0)==2) goto MenuSet_B;
-if(getarg(0)==3) goto MenuSet_C;
-if(getarg(0)==4) goto MenuSet_D;
-if(getarg(0)==5) goto MenuSet_E;
-if(getarg(0)==6) goto MenuSet_F;
-
-MenuSet_A:
-menu "Scorpion",PCX_M_1001,"Poring",PCX_M_1002,"Test Egg",PCX_M_1003,"Hornet",PCX_M_1004,"Familiar",PCX_M_1005,"Thief Bug Larva",PCX_M_1006,"Fabre",PCX_M_1007,"Pupa",PCX_M_1008,"Condor",PCX_M_1009,"Willow",PCX_M_1010,"ChonChon",PCX_M_1011,"Roda Frog",PCX_M_1012,"Wolf",PCX_M_1013,"Spore",PCX_M_1014,"Zombie",PCX_M_1015,"Skeleton Archer",PCX_M_1016,"Thief Bug Female",PCX_M_1017,"Creamy",PCX_M_1018,"PecoPeco",PCX_M_1019,"Mandragora",PCX_M_1020,"Next 20",-;
-menu "Thief Bug Male",PCX_M_1021,"Werewolf",PCX_M_1022,"Orc Warrior",PCX_M_1023,"Worm Tail",PCX_M_1024,"Boa",PCX_M_1025,"Munak",PCX_M_1026,"Raptice",PCX_M_1027,"Skeleton Soldier",PCX_M_1028,"Isis",PCX_M_1029,"Anacondaq",PCX_M_1030,"Poporing",PCX_M_1031,"Verit",PCX_M_1032,"Elder Willow",PCX_M_1033,"Thara Frog",PCX_M_1034,"Hunter Fly",PCX_M_1035,"Ghoul",PCX_M_1036,"Sidewinder",PCX_M_1037,"Osiris",PCX_M_1038,"Baphomet",PCX_M_1039,"Golem",PCX_M_1040,"Next 20",-;
-menu "Mummy",PCX_M_1041,"Steel ChonChon",PCX_M_1042,"Seahorse",PCX_M_1043,"Obeaune",PCX_M_1044,"Marc",PCX_M_1045,"Doppelganger",PCX_M_1046,"PecoPeco Egg",PCX_M_1047,"Thief Bug Egg",PCX_M_1048,"Picky",PCX_M_1049,"Shell Picky",PCX_M_1050,"Thief Bug Larva",PCX_M_1051,"Rocker",PCX_M_1052,"Thief Bug Female",PCX_M_1053,"Thief Bug Male",PCX_M_1054,"Muka",PCX_M_1055,"Smokie",PCX_M_1056,"Yoyo",PCX_M_1057,"Metaller",PCX_M_1058,"Mistress",PCX_M_1059,"Bigfoot",PCX_M_1060,"Next 20",-;
-menu "Nightmare",PCX_M_1061,"Santa Poring",PCX_M_1062,"Lunatic",PCX_M_1063,"Megalodon",PCX_M_1064,"Strouf",PCX_M_1065,"Vadon",PCX_M_1066,"Cornutus",PCX_M_1067,"Hydra",PCX_M_1068,"Swordfish",PCX_M_1069,"Kukre",PCX_M_1070,"Pirate Skeleton",PCX_M_1071,"Kaho",PCX_M_1072,"Crab",PCX_M_1073,"Shellfish",PCX_M_1074,"Turtle",PCX_M_1075,"Skeleton",PCX_M_1076,"Poison Spore",PCX_M_1077,"Red Plant",PCX_M_1078,"Blue Plant",PCX_M_1079,"Green Plant",PCX_M_1080,"Cancel",Cancel;
-
-MenuSet_B:
-menu "Yellow Plant",PCX_M_1081,"White Plant",PCX_M_1082,"Shining Plant",PCX_M_1083,"Black Mushroom",PCX_M_1084,"Red Mushroom",PCX_M_1085,"Golden Thief Bug",PCX_M_1086,"Orc Hero",PCX_M_1087,"Vocal",PCX_M_1088,"Toad",PCX_M_1089,"Mastering",PCX_M_1090,"Dragon Fly",PCX_M_1091,"Vagabond Wolf",PCX_M_1092,"Eclipse",PCX_M_1093,"Ambernite",PCX_M_1094,"Andre",PCX_M_1095,"Angeling",PCX_M_1096,"Ant Egg",PCX_M_1097,"Anubis",PCX_M_1098,"Argiope",PCX_M_1099,"Argos",PCX_M_1100,"Next 20",-;
-menu "Baphomet Jr.",PCX_M_1101,"Bathory",PCX_M_1102,"Caramel",PCX_M_1103,"Coco",PCX_M_1104,"Deniro",PCX_M_1105,"Desert Wolf",PCX_M_1106,"Desert Wolf Puppy",PCX_M_1107,"Deviace",PCX_M_1108,"Deviruchi",PCX_M_1109,"Dokebi",PCX_M_1110,"Drainliar",PCX_M_1111,"Drake",PCX_M_1112,"Drops",PCX_M_1113,"Dustiness",PCX_M_1114,"Eddga",PCX_M_1115,"Eggyra",PCX_M_1116,"Evil Druid",PCX_M_1117,"Flora",PCX_M_1118,"Frilldora",PCX_M_1119,"Ghostring",PCX_M_1120,"Next 20",-;
-menu "Giearth",PCX_M_1121,"Goblin",PCX_M_1122,"Goblin",PCX_M_1123,"Goblin",PCX_M_1124,"Goblin",PCX_M_1125,"Goblin",PCX_M_1126,"Hode",PCX_M_1127,"Horn",PCX_M_1128,"Horong",PCX_M_1129,"Jakk",PCX_M_1130,"Joker",PCX_M_1131,"Khalitzburg",PCX_M_1132,"Kobold",PCX_M_1133,"Kobold",PCX_M_1134,"Kobold",PCX_M_1135,"Kobold",PCX_M_1136,"Kobold",PCX_M_1137,"Magnolia",PCX_M_1138,"Mantis",PCX_M_1139,"Marduk",PCX_M_1140,"Next 20",-;
-menu "Marina",PCX_M_1141,"Marine Sphere",PCX_M_1142,"Marionette",PCX_M_1143,"Marse",PCX_M_1144,"Martin",PCX_M_1145,"Matyr",PCX_M_1146,"Maya",PCX_M_1147,"Medusa",PCX_M_1148,"Minorous",PCX_M_1149,"Moonlight Flower",PCX_M_1150,"Myst",PCX_M_1151,"Orc Skeleton",PCX_M_1152,"Orc Zombie",PCX_M_1153,"Pasana",PCX_M_1154,"Earth Petite",PCX_M_1155,"Sky Petite",PCX_M_1156,"Pharaoh",PCX_M_1157,"Phen",PCX_M_1158,"Phreeoni",PCX_M_1159,"Piere",PCX_M_1160,"Cancel",Cancel;
-
-MenuSet_C:
-menu "Plankton",PCX_M_1161,"Rafflesia",PCX_M_1162,"Raydric",PCX_M_1163,"Requiem",PCX_M_1164,"Sandman",PCX_M_1165,"Savage",PCX_M_1166,"Savage Babe",PCX_M_1167,"Scorpion King",PCX_M_1168,"Skeleton Worker",PCX_M_1169,"Sohee",PCX_M_1170,"Soldier Andre",PCX_M_1171,"Soldier Deniro",PCX_M_1172,"Soldier Piere",PCX_M_1173,"Stainer",PCX_M_1174,"Tarou",PCX_M_1175,"Vitata",PCX_M_1176,"Zenorc",PCX_M_1177,"Zerom",PCX_M_1178,"Whisper",PCX_M_1179,"Nine-Tail",PCX_M_1180,"Next 20",-;
-menu "Zombie Dragon",PCX_M_1181,"Thief Mushroom",PCX_M_1182,"Angry ChonChon",PCX_M_1183,"Angry Fabre",PCX_M_1184,"Whisper",PCX_M_1185,"Giant Whisper",PCX_M_1186,"Switch",PCX_M_1187,"Bon Gun",PCX_M_1188,"Orc Archer",PCX_M_1189,"Orc Lord",PCX_M_1190,"Mimic",PCX_M_1191,"Wraith",PCX_M_1192,"Alarm",PCX_M_1193,"Arclouse",PCX_M_1194,"Rideword",PCX_M_1195,"Skeleton Prisoner",PCX_M_1196,"Zombie Prisoner",PCX_M_1197,"Dark Priest",PCX_M_1198,"Punk",PCX_M_1199,"Zherlthsh",PCX_M_1200,"Next 20",-;
-menu "Rybio",PCX_M_1201,"Phendark",PCX_M_1202,"Mysteltainn",PCX_M_1203,"Tyrfing",PCX_M_1204,"Executioner",PCX_M_1205,"Anolian",PCX_M_1206,"Sting",PCX_M_1207,"Wanderer",PCX_M_1208,"Cramp",PCX_M_1209,"Filamentous",PCX_M_1210,"Brilight",PCX_M_1211,"Iron Fist",PCX_M_1212,"High Orc",PCX_M_1213,"Choco",PCX_M_1214,"Stem Worm",PCX_M_1215,"Penomena",PCX_M_1216,"Knight of Abyss",PCX_M_1219,"Fabre",PCX_M_1229,"Pupa",PCX_M_1230,"Creamy",PCX_M_1231,"Next 20",-;
-menu "PecoPeco Egg",PCX_M_1232,"PecoPeco",PCX_M_1233,"Yoyo",PCX_M_1234,"Smoking Orc",PCX_M_1235,"Marin",PCX_M_1242,"Sasquatch",PCX_M_1243,"Christmas Jakk",PCX_M_1244,"Christmas Goblin",PCX_M_1245,"Christmas Cookie",PCX_M_1246,"Antonio",PCX_M_1247,"Cruiser",PCX_M_1248,"Myst Case",PCX_M_1249,"Chepet",PCX_M_1250,"Stormy Knight",PCX_M_1251,"Garm",PCX_M_1252,"Gargoyle",PCX_M_1253,"Raggler",PCX_M_1254,"Neraid",PCX_M_1255,"Pest",PCX_M_1256,"Injustice",PCX_M_1257,"Cancel",Cancel;
-
-MenuSet_D:
-menu "Goblin Archer",PCX_M_1258,"Gryphon",PCX_M_1259,"Dark Frame",PCX_M_1260,"Wild Rose",PCX_M_1261,"Mutant Dragonoid",PCX_M_1262,"Wind Ghost",PCX_M_1263,"Merman",PCX_M_1264,"Cookie",PCX_M_1265,"Aster",PCX_M_1266,"Carat",PCX_M_1267,"Bloody Knight",PCX_M_1268,"Clock",PCX_M_1269,"Tower Keeper",PCX_M_1270,"Alligator",PCX_M_1271,"Dark Lord",PCX_M_1272,"Orc Lady",PCX_M_1273,"Megalith",PCX_M_1274,"Alice",PCX_M_1275,"Raydric Archer",PCX_M_1276,"Greatest General",PCX_M_1277,"Next 20",-;
-menu "Stalactite Golem",PCX_M_1278,"Tri-Joint",PCX_M_1279,"Steam Goblin",PCX_M_1280,"Sage Worm",PCX_M_1281,"Kobold Archer",PCX_M_1282,"Chimera",PCX_M_1283,"Hugeling",PCX_M_1284,"Guardian Archer",PCX_M_1285,"Guardian Knight",PCX_M_1286,"Guardian Soldier",PCX_M_1287,"Emperium",PCX_M_1288,"Maya Purple",PCX_M_1289,"Skeleton General",PCX_M_1290,"Wraith Dead",PCX_M_1291,"Mini Demon",PCX_M_1292,"Creamy Fear",PCX_M_1293,"Killer Mantis",PCX_M_1294,"Owl Baron",PCX_M_1295,"Kobold Leader",PCX_M_1296,"Ancient Mummy",PCX_M_1297,"Next 20",-;
-menu "Zombie Master",PCX_M_1298,"Goblin Leader",PCX_M_1299,"Caterpillar",PCX_M_1300,"Am Mut",PCX_M_1301,"Dark Illusion",PCX_M_1302,"Giant Hornet",PCX_M_1303,"Giant Spider",PCX_M_1304,"Ancient Worm",PCX_M_1305,"Leib Olmai",PCX_M_1306,"Cat'o'Nine Tails",PCX_M_1307,"Panzer Goblin",PCX_M_1308,"Gajomart",PCX_M_1309,"Majoruros",PCX_M_1310,"Gullinbursti",PCX_M_1311,"Turtle General",PCX_M_1312,"Mobster",PCX_M_1313,"Perimeter",PCX_M_1314,"Assaulter",PCX_M_1315,"Solider",PCX_M_1316,"Seal",PCX_M_1317,"Next 20",-;
-menu "Heater",PCX_M_1318,"Freezer",PCX_M_1319,"Owl Duke",PCX_M_1320,"Dragon Tail",PCX_M_1321,"Spring Rabbit",PCX_M_1322,"Sea Otter",PCX_M_1323,"Treasure Chest",PCX_M_1324,"Assaulter",PCX_M_1364,"Apocalypse",PCX_M_1365,"Lava Golem",PCX_M_1366,"Blazer",PCX_M_1367,"Geographer",PCX_M_1368,"Grand Peco",PCX_M_1369,"Succubus",PCX_M_1370,"Fake Angel",PCX_M_1371,"Goat",PCX_M_1372,"Lord of Death",PCX_M_1373,"Incubus",PCX_M_1374,"The Paper",PCX_M_1375,"Harpy",PCX_M_1376,"Cancel",Cancel;
-
-MenuSet_E:
-menu "Elder",PCX_M_1377,"Demon Pungus",PCX_M_1378,"Nightmare Terror",PCX_M_1379,"Driller",PCX_M_1380,"Grizzly",PCX_M_1381,"Diabolic",PCX_M_1382,"Explosion",PCX_M_1383,"Sky Deleter",PCX_M_1384,"Earth Deleter",PCX_M_1385,"Sleeper",PCX_M_1386,"Gig",PCX_M_1387,"Archangeling",PCX_M_1388,"Dracula",PCX_M_1389,"Violy",PCX_M_1390,"Galapago",PCX_M_1391,"Rotar Zairo",PCX_M_1392,"Mummy",PCX_M_1393,"Zombie",PCX_M_1394,"Wind Crystal",PCX_M_1395,"Earth Crystal",PCX_M_1396,"Next 20",-;
-menu "Fire Crystal",PCX_M_1397,"Water Crystal",PCX_M_1398,"Baphomet",PCX_M_1399,"Karakasa",PCX_M_1400,"Shinobi",PCX_M_1401,"Poison Toad",PCX_M_1402,"Antique Firelock",PCX_M_1403,"Miyabi Doll",PCX_M_1404,"Tengu",PCX_M_1405,"Kapha",PCX_M_1406,"Dokebi",PCX_M_1407,"Bloody Butterfly",PCX_M_1408,"Dumpling Child",PCX_M_1409,"Enchanted Peach Tree",PCX_M_1410,"Taoist Hermit",PCX_M_1412,"Hermit Plant",PCX_M_1413,"Baby Leopard",PCX_M_1415,"Evil Nymph",PCX_M_1416,"Zipper Bear",PCX_M_1417,"Evil Snake Lord",PCX_M_1418,"Next 20",-;
-menu "Incantation Samurai",PCX_M_1492,"Dryad",PCX_M_1493,"Beetle King",PCX_M_1494,"Stone Shooter",PCX_M_1495,"Wooden Golem",PCX_M_1497,"Wootan Shooter",PCX_M_1498,"Wootan Fighter",PCX_M_1499,"Parasite",PCX_M_1500,"Fire Poring",PCX_M_1502,"Gibbet",PCX_M_1503,"Dullahan",PCX_M_1504,"Loli Ruri",PCX_M_1505,"Disguise",PCX_M_1506,"Bloody Murderer",PCX_M_1507,"Quve",PCX_M_1508,"Lude",PCX_M_1509,"Hylozoist",PCX_M_1510,"Amon Ra",PCX_M_1511,"Hyegun",PCX_M_1512,"Civil Servant",PCX_M_1513,"Next 20",-;
-menu "Dancing Dragon",PCX_M_1514,"Hatii Baby",PCX_M_1515,"Increase Soil",PCX_M_1516,"Li Me Mang Ryang",PCX_M_1517,"Bacsojin",PCX_M_1518,"Chung E",PCX_M_1519,"Boiled Rice",PCX_M_1520,"Deviling",PCX_M_1582,"Tao Gunka",PCX_M_1583,"Tamruan",PCX_M_1584,"Leaf Cat",PCX_M_1586,"Kraben",PCX_M_1587,"Metaling",PCX_M_1613,"Mineral",PCX_M_1614,"Obsidian",PCX_M_1615,"Pitman",PCX_M_1616,"Waste Stove",PCX_M_1617,"Ungoliant",PCX_M_1618,"Porcellio",PCX_M_1619,"Noxious",PCX_M_1620,"Cancel",Cancel;
-
-MenuSet_F:
-menu "Venomous",PCX_M_1621,"Teddy Bear",PCX_M_1622,"RSX 0806",PCX_M_1623,"Waste Stove",PCX_M_1624,"Porcellio",PCX_M_1625,"Virus",PCX_M_1627,"Mole",PCX_M_1628,"Hill Wind",PCX_M_1629,"Gremlin",PCX_M_1632,"Beholder",PCX_M_1633,"Seyren",PCX_M_1634,"Eremes",PCX_M_1635,"Harword",PCX_M_1636,"Magaleta",PCX_M_1637,"Shecil",PCX_M_1638,"Katrinn",PCX_M_1639,"Ygnizem",PCX_M_1652,"Whikebain",PCX_M_1653,"Armaia",PCX_M_1654,"Erend",PCX_M_1655,"Next 20",-;
-menu "Kavac",PCX_M_1656,"Rawrel",PCX_M_1657,"Archdam",PCX_M_1668,"Monemus",PCX_M_1674,"Hill Wind",PCX_M_1680,"Gemini",PCX_M_1681,"Removal",PCX_M_1682,"Poton Canon",PCX_M_1683,"Apocalips H",PCX_M_1685,"Orc Baby",PCX_M_1686,"Green Iguana",PCX_M_1687,"Lady Tany",PCX_M_1688,"Breeze",PCX_M_1692,"Plasma Y",PCX_M_1693,"Plasma R",PCX_M_1694,"Plasma G",PCX_M_1695,"Plasma P",PCX_M_1696,"Plasma B",PCX_M_1697,"Death Word",PCX_M_1698,"Ancient Mimic",PCX_M_1699,"Next 20",-;
-menu "Observation",PCX_M_1700,"Shelter",PCX_M_1701,"Retribution",PCX_M_1702,"Solace",PCX_M_1703,"Thanatos Odium",PCX_M_1704,"Thanatos Despero",PCX_M_1705,"Thanatos Maero",PCX_M_1706,"Thanatos Dolor",PCX_M_1707,"Thanatos",PCX_M_1708,"Acidus",PCX_M_1713,"Ferus",PCX_M_1714,"Novus",PCX_M_1715,"Acidus",PCX_M_1716,"Ferus",PCX_M_1717,"Novus",PCX_M_1718,"Detale",PCX_M_1719,"Hydro",PCX_M_1720,"Dragon Egg",PCX_M_1721,"Cancel",Cancel;
-
-Cancel:
-	mes "[Baphomet]";
-	mes "Later.";
-	close;
-
-PCX_M_1001:
-	set var_disguise,1001;
-	goto Cancel;
-PCX_M_1002:
-	set var_disguise,1002;
-	goto Cancel;
-PCX_M_1003:
-	set var_disguise,1003;
-	goto Cancel;
-PCX_M_1004:
-	set var_disguise,1004;
-	goto Cancel;
-PCX_M_1005:
-	set var_disguise,1005;
-	goto Cancel;
-PCX_M_1006:
-	set var_disguise,1006;
-	goto Cancel;
-PCX_M_1007:
-	set var_disguise,1007;
-	goto Cancel;
-PCX_M_1008:
-	set var_disguise,1008;
-	goto Cancel;
-PCX_M_1009:
-	set var_disguise,1009;
-	goto Cancel;
-PCX_M_1010:
-	set var_disguise,1010;
-	goto Cancel;
-PCX_M_1011:
-	set var_disguise,1011;
-	goto Cancel;
-PCX_M_1012:
-	set var_disguise,1012;
-	goto Cancel;
-PCX_M_1013:
-	set var_disguise,1013;
-	goto Cancel;
-PCX_M_1014:
-	set var_disguise,1014;
-	goto Cancel;
-PCX_M_1015:
-	set var_disguise,1015;
-	goto Cancel;
-PCX_M_1016:
-	set var_disguise,1016;
-	goto Cancel;
-PCX_M_1017:
-	set var_disguise,1017;
-	goto Cancel;
-PCX_M_1018:
-	set var_disguise,1018;
-	goto Cancel;
-PCX_M_1019:
-	set var_disguise,1019;
-	goto Cancel;
-PCX_M_1020:
-	set var_disguise,1020;
-	goto Cancel;
-PCX_M_1021:
-	set var_disguise,1021;
-	goto Cancel;
-PCX_M_1022:
-	set var_disguise,1022;
-	goto Cancel;
-PCX_M_1023:
-	set var_disguise,1023;
-	goto Cancel;
-PCX_M_1024:
-	set var_disguise,1024;
-	goto Cancel;
-PCX_M_1025:
-	set var_disguise,1025;
-	goto Cancel;
-PCX_M_1026:
-	set var_disguise,1026;
-	goto Cancel;
-PCX_M_1027:
-	set var_disguise,1027;
-	goto Cancel;
-PCX_M_1028:
-	set var_disguise,1028;
-	goto Cancel;
-PCX_M_1029:
-	set var_disguise,1029;
-	goto Cancel;
-PCX_M_1030:
-	set var_disguise,1030;
-	goto Cancel;
-PCX_M_1031:
-	set var_disguise,1031;
-	goto Cancel;
-PCX_M_1032:
-	set var_disguise,1032;
-	goto Cancel;
-PCX_M_1033:
-	set var_disguise,1033;
-	goto Cancel;
-PCX_M_1034:
-	set var_disguise,1034;
-	goto Cancel;
-PCX_M_1035:
-	set var_disguise,1035;
-	goto Cancel;
-PCX_M_1036:
-	set var_disguise,1036;
-	goto Cancel;
-PCX_M_1037:
-	set var_disguise,1037;
-	goto Cancel;
-PCX_M_1038:
-	set var_disguise,1038;
-	goto Cancel;
-PCX_M_1039:
-	set var_disguise,1039;
-	goto Cancel;
-PCX_M_1040:
-	set var_disguise,1040;
-	goto Cancel;
-PCX_M_1041:
-	set var_disguise,1041;
-	goto Cancel;
-PCX_M_1042:
-	set var_disguise,1042;
-	goto Cancel;
-PCX_M_1043:
-	set var_disguise,1043;
-	goto Cancel;
-PCX_M_1044:
-	set var_disguise,1044;
-	goto Cancel;
-PCX_M_1045:
-	set var_disguise,1045;
-	goto Cancel;
-PCX_M_1046:
-	set var_disguise,1046;
-	goto Cancel;
-PCX_M_1047:
-	set var_disguise,1047;
-	goto Cancel;
-PCX_M_1048:
-	set var_disguise,1048;
-	goto Cancel;
-PCX_M_1049:
-	set var_disguise,1049;
-	goto Cancel;
-PCX_M_1050:
-	set var_disguise,1050;
-	goto Cancel;
-PCX_M_1051:
-	set var_disguise,1051;
-	goto Cancel;
-PCX_M_1052:
-	set var_disguise,1052;
-	goto Cancel;
-PCX_M_1053:
-	set var_disguise,1053;
-	goto Cancel;
-PCX_M_1054:
-	set var_disguise,1054;
-	goto Cancel;
-PCX_M_1055:
-	set var_disguise,1055;
-	goto Cancel;
-PCX_M_1056:
-	set var_disguise,1056;
-	goto Cancel;
-PCX_M_1057:
-	set var_disguise,1057;
-	goto Cancel;
-PCX_M_1058:
-	set var_disguise,1058;
-	goto Cancel;
-PCX_M_1059:
-	set var_disguise,1059;
-	goto Cancel;
-PCX_M_1060:
-	set var_disguise,1060;
-	goto Cancel;
-PCX_M_1061:
-	set var_disguise,1061;
-	goto Cancel;
-PCX_M_1062:
-	set var_disguise,1062;
-	goto Cancel;
-PCX_M_1063:
-	set var_disguise,1063;
-	goto Cancel;
-PCX_M_1064:
-	set var_disguise,1064;
-	goto Cancel;
-PCX_M_1065:
-	set var_disguise,1065;
-	goto Cancel;
-PCX_M_1066:
-	set var_disguise,1066;
-	goto Cancel;
-PCX_M_1067:
-	set var_disguise,1067;
-	goto Cancel;
-PCX_M_1068:
-	set var_disguise,1068;
-	goto Cancel;
-PCX_M_1069:
-	set var_disguise,1069;
-	goto Cancel;
-PCX_M_1070:
-	set var_disguise,1070;
-	goto Cancel;
-PCX_M_1071:
-	set var_disguise,1071;
-	goto Cancel;
-PCX_M_1072:
-	set var_disguise,1072;
-	goto Cancel;
-PCX_M_1073:
-	set var_disguise,1073;
-	goto Cancel;
-PCX_M_1074:
-	set var_disguise,1074;
-	goto Cancel;
-PCX_M_1075:
-	set var_disguise,1075;
-	goto Cancel;
-PCX_M_1076:
-	set var_disguise,1076;
-	goto Cancel;
-PCX_M_1077:
-	set var_disguise,1077;
-	goto Cancel;
-PCX_M_1078:
-	set var_disguise,1078;
-	goto Cancel;
-PCX_M_1079:
-	set var_disguise,1079;
-	goto Cancel;
-PCX_M_1080:
-	set var_disguise,1080;
-	goto Cancel;
-PCX_M_1081:
-	set var_disguise,1081;
-	goto Cancel;
-PCX_M_1082:
-	set var_disguise,1082;
-	goto Cancel;
-PCX_M_1083:
-	set var_disguise,1083;
-	goto Cancel;
-PCX_M_1084:
-	set var_disguise,1084;
-	goto Cancel;
-PCX_M_1085:
-	set var_disguise,1085;
-	goto Cancel;
-PCX_M_1086:
-	set var_disguise,1086;
-	goto Cancel;
-PCX_M_1087:
-	set var_disguise,1087;
-	goto Cancel;
-PCX_M_1088:
-	set var_disguise,1088;
-	goto Cancel;
-PCX_M_1089:
-	set var_disguise,1089;
-	goto Cancel;
-PCX_M_1090:
-	set var_disguise,1090;
-	goto Cancel;
-PCX_M_1091:
-	set var_disguise,1091;
-	goto Cancel;
-PCX_M_1092:
-	set var_disguise,1092;
-	goto Cancel;
-PCX_M_1093:
-	set var_disguise,1093;
-	goto Cancel;
-PCX_M_1094:
-	set var_disguise,1094;
-	goto Cancel;
-PCX_M_1095:
-	set var_disguise,1095;
-	goto Cancel;
-PCX_M_1096:
-	set var_disguise,1096;
-	goto Cancel;
-PCX_M_1097:
-	set var_disguise,1097;
-	goto Cancel;
-PCX_M_1098:
-	set var_disguise,1098;
-	goto Cancel;
-PCX_M_1099:
-	set var_disguise,1099;
-	goto Cancel;
-PCX_M_1100:
-	set var_disguise,1100;
-	goto Cancel;
-PCX_M_1101:
-	set var_disguise,1101;
-	goto Cancel;
-PCX_M_1102:
-	set var_disguise,1102;
-	goto Cancel;
-PCX_M_1103:
-	set var_disguise,1103;
-	goto Cancel;
-PCX_M_1104:
-	set var_disguise,1104;
-	goto Cancel;
-PCX_M_1105:
-	set var_disguise,1105;
-	goto Cancel;
-PCX_M_1106:
-	set var_disguise,1106;
-	goto Cancel;
-PCX_M_1107:
-	set var_disguise,1107;
-	goto Cancel;
-PCX_M_1108:
-	set var_disguise,1108;
-	goto Cancel;
-PCX_M_1109:
-	set var_disguise,1109;
-	goto Cancel;
-PCX_M_1110:
-	set var_disguise,1110;
-	goto Cancel;
-PCX_M_1111:
-	set var_disguise,1111;
-	goto Cancel;
-PCX_M_1112:
-	set var_disguise,1112;
-	goto Cancel;
-PCX_M_1113:
-	set var_disguise,1113;
-	goto Cancel;
-PCX_M_1114:
-	set var_disguise,1114;
-	goto Cancel;
-PCX_M_1115:
-	set var_disguise,1115;
-	goto Cancel;
-PCX_M_1116:
-	set var_disguise,1116;
-	goto Cancel;
-PCX_M_1117:
-	set var_disguise,1117;
-	goto Cancel;
-PCX_M_1118:
-	set var_disguise,1118;
-	goto Cancel;
-PCX_M_1119:
-	set var_disguise,1119;
-	goto Cancel;
-PCX_M_1120:
-	set var_disguise,1120;
-	goto Cancel;
-PCX_M_1121:
-	set var_disguise,1121;
-	goto Cancel;
-PCX_M_1122:
-	set var_disguise,1122;
-	goto Cancel;
-PCX_M_1123:
-	set var_disguise,1123;
-	goto Cancel;
-PCX_M_1124:
-	set var_disguise,1124;
-	goto Cancel;
-PCX_M_1125:
-	set var_disguise,1125;
-	goto Cancel;
-PCX_M_1126:
-	set var_disguise,1126;
-	goto Cancel;
-PCX_M_1127:
-	set var_disguise,1127;
-	goto Cancel;
-PCX_M_1128:
-	set var_disguise,1128;
-	goto Cancel;
-PCX_M_1129:
-	set var_disguise,1129;
-	goto Cancel;
-PCX_M_1130:
-	set var_disguise,1130;
-	goto Cancel;
-PCX_M_1131:
-	set var_disguise,1131;
-	goto Cancel;
-PCX_M_1132:
-	set var_disguise,1132;
-	goto Cancel;
-PCX_M_1133:
-	set var_disguise,1133;
-	goto Cancel;
-PCX_M_1134:
-	set var_disguise,1134;
-	goto Cancel;
-PCX_M_1135:
-	set var_disguise,1135;
-	goto Cancel;
-PCX_M_1136:
-	set var_disguise,1136;
-	goto Cancel;
-PCX_M_1137:
-	set var_disguise,1137;
-	goto Cancel;
-PCX_M_1138:
-	set var_disguise,1138;
-	goto Cancel;
-PCX_M_1139:
-	set var_disguise,1139;
-	goto Cancel;
-PCX_M_1140:
-	set var_disguise,1140;
-	goto Cancel;
-PCX_M_1141:
-	set var_disguise,1141;
-	goto Cancel;
-PCX_M_1142:
-	set var_disguise,1142;
-	goto Cancel;
-PCX_M_1143:
-	set var_disguise,1143;
-	goto Cancel;
-PCX_M_1144:
-	set var_disguise,1144;
-	goto Cancel;
-PCX_M_1145:
-	set var_disguise,1145;
-	goto Cancel;
-PCX_M_1146:
-	set var_disguise,1146;
-	goto Cancel;
-PCX_M_1147:
-	set var_disguise,1147;
-	goto Cancel;
-PCX_M_1148:
-	set var_disguise,1148;
-	goto Cancel;
-PCX_M_1149:
-	set var_disguise,1149;
-	goto Cancel;
-PCX_M_1150:
-	set var_disguise,1150;
-	goto Cancel;
-PCX_M_1151:
-	set var_disguise,1151;
-	goto Cancel;
-PCX_M_1152:
-	set var_disguise,1152;
-	goto Cancel;
-PCX_M_1153:
-	set var_disguise,1153;
-	goto Cancel;
-PCX_M_1154:
-	set var_disguise,1154;
-	goto Cancel;
-PCX_M_1155:
-	set var_disguise,1155;
-	goto Cancel;
-PCX_M_1156:
-	set var_disguise,1156;
-	goto Cancel;
-PCX_M_1157:
-	set var_disguise,1157;
-	goto Cancel;
-PCX_M_1158:
-	set var_disguise,1158;
-	goto Cancel;
-PCX_M_1159:
-	set var_disguise,1159;
-	goto Cancel;
-PCX_M_1160:
-	set var_disguise,1160;
-	goto Cancel;
-PCX_M_1161:
-	set var_disguise,1161;
-	goto Cancel;
-PCX_M_1162:
-	set var_disguise,1162;
-	goto Cancel;
-PCX_M_1163:
-	set var_disguise,1163;
-	goto Cancel;
-PCX_M_1164:
-	set var_disguise,1164;
-	goto Cancel;
-PCX_M_1165:
-	set var_disguise,1165;
-	goto Cancel;
-PCX_M_1166:
-	set var_disguise,1166;
-	goto Cancel;
-PCX_M_1167:
-	set var_disguise,1167;
-	goto Cancel;
-PCX_M_1168:
-	set var_disguise,1168;
-	goto Cancel;
-PCX_M_1169:
-	set var_disguise,1169;
-	goto Cancel;
-PCX_M_1170:
-	set var_disguise,1170;
-	goto Cancel;
-PCX_M_1171:
-	set var_disguise,1171;
-	goto Cancel;
-PCX_M_1172:
-	set var_disguise,1172;
-	goto Cancel;
-PCX_M_1173:
-	set var_disguise,1173;
-	goto Cancel;
-PCX_M_1174:
-	set var_disguise,1174;
-	goto Cancel;
-PCX_M_1175:
-	set var_disguise,1175;
-	goto Cancel;
-PCX_M_1176:
-	set var_disguise,1176;
-	goto Cancel;
-PCX_M_1177:
-	set var_disguise,1177;
-	goto Cancel;
-PCX_M_1178:
-	set var_disguise,1178;
-	goto Cancel;
-PCX_M_1179:
-	set var_disguise,1179;
-	goto Cancel;
-PCX_M_1180:
-	set var_disguise,1180;
-	goto Cancel;
-PCX_M_1181:
-	set var_disguise,1181;
-	goto Cancel;
-PCX_M_1182:
-	set var_disguise,1182;
-	goto Cancel;
-PCX_M_1183:
-	set var_disguise,1183;
-	goto Cancel;
-PCX_M_1184:
-	set var_disguise,1184;
-	goto Cancel;
-PCX_M_1185:
-	set var_disguise,1185;
-	goto Cancel;
-PCX_M_1186:
-	set var_disguise,1186;
-	goto Cancel;
-PCX_M_1187:
-	set var_disguise,1187;
-	goto Cancel;
-PCX_M_1188:
-	set var_disguise,1188;
-	goto Cancel;
-PCX_M_1189:
-	set var_disguise,1189;
-	goto Cancel;
-PCX_M_1190:
-	set var_disguise,1190;
-	goto Cancel;
-PCX_M_1191:
-	set var_disguise,1191;
-	goto Cancel;
-PCX_M_1192:
-	set var_disguise,1192;
-	goto Cancel;
-PCX_M_1193:
-	set var_disguise,1193;
-	goto Cancel;
-PCX_M_1194:
-	set var_disguise,1194;
-	goto Cancel;
-PCX_M_1195:
-	set var_disguise,1195;
-	goto Cancel;
-PCX_M_1196:
-	set var_disguise,1196;
-	goto Cancel;
-PCX_M_1197:
-	set var_disguise,1197;
-	goto Cancel;
-PCX_M_1198:
-	set var_disguise,1198;
-	goto Cancel;
-PCX_M_1199:
-	set var_disguise,1199;
-	goto Cancel;
-PCX_M_1200:
-	set var_disguise,1200;
-	goto Cancel;
-PCX_M_1201:
-	set var_disguise,1201;
-	goto Cancel;
-PCX_M_1202:
-	set var_disguise,1202;
-	goto Cancel;
-PCX_M_1203:
-	set var_disguise,1203;
-	goto Cancel;
-PCX_M_1204:
-	set var_disguise,1204;
-	goto Cancel;
-PCX_M_1205:
-	set var_disguise,1205;
-	goto Cancel;
-PCX_M_1206:
-	set var_disguise,1206;
-	goto Cancel;
-PCX_M_1207:
-	set var_disguise,1207;
-	goto Cancel;
-PCX_M_1208:
-	set var_disguise,1208;
-	goto Cancel;
-PCX_M_1209:
-	set var_disguise,1209;
-	goto Cancel;
-PCX_M_1210:
-	set var_disguise,1210;
-	goto Cancel;
-PCX_M_1211:
-	set var_disguise,1211;
-	goto Cancel;
-PCX_M_1212:
-	set var_disguise,1212;
-	goto Cancel;
-PCX_M_1213:
-	set var_disguise,1213;
-	goto Cancel;
-PCX_M_1214:
-	set var_disguise,1214;
-	goto Cancel;
-PCX_M_1215:
-	set var_disguise,1215;
-	goto Cancel;
-PCX_M_1216:
-	set var_disguise,1216;
-	goto Cancel;
-PCX_M_1219:
-	set var_disguise,1219;
-	goto Cancel;
-PCX_M_1229:
-	set var_disguise,1229;
-	goto Cancel;
-PCX_M_1230:
-	set var_disguise,1230;
-	goto Cancel;
-PCX_M_1231:
-	set var_disguise,1231;
-	goto Cancel;
-PCX_M_1232:
-	set var_disguise,1232;
-	goto Cancel;
-PCX_M_1233:
-	set var_disguise,1233;
-	goto Cancel;
-PCX_M_1234:
-	set var_disguise,1234;
-	goto Cancel;
-PCX_M_1235:
-	set var_disguise,1235;
-	goto Cancel;
-PCX_M_1242:
-	set var_disguise,1242;
-	goto Cancel;
-PCX_M_1243:
-	set var_disguise,1243;
-	goto Cancel;
-PCX_M_1244:
-	set var_disguise,1244;
-	goto Cancel;
-PCX_M_1245:
-	set var_disguise,1245;
-	goto Cancel;
-PCX_M_1246:
-	set var_disguise,1246;
-	goto Cancel;
-PCX_M_1247:
-	set var_disguise,1247;
-	goto Cancel;
-PCX_M_1248:
-	set var_disguise,1248;
-	goto Cancel;
-PCX_M_1249:
-	set var_disguise,1249;
-	goto Cancel;
-PCX_M_1250:
-	set var_disguise,1250;
-	goto Cancel;
-PCX_M_1251:
-	set var_disguise,1251;
-	goto Cancel;
-PCX_M_1252:
-	set var_disguise,1252;
-	goto Cancel;
-PCX_M_1253:
-	set var_disguise,1253;
-	goto Cancel;
-PCX_M_1254:
-	set var_disguise,1254;
-	goto Cancel;
-PCX_M_1255:
-	set var_disguise,1255;
-	goto Cancel;
-PCX_M_1256:
-	set var_disguise,1256;
-	goto Cancel;
-PCX_M_1257:
-	set var_disguise,1257;
-	goto Cancel;
-PCX_M_1258:
-	set var_disguise,1258;
-	goto Cancel;
-PCX_M_1259:
-	set var_disguise,1259;
-	goto Cancel;
-PCX_M_1260:
-	set var_disguise,1260;
-	goto Cancel;
-PCX_M_1261:
-	set var_disguise,1261;
-	goto Cancel;
-PCX_M_1262:
-	set var_disguise,1262;
-	goto Cancel;
-PCX_M_1263:
-	set var_disguise,1263;
-	goto Cancel;
-PCX_M_1264:
-	set var_disguise,1264;
-	goto Cancel;
-PCX_M_1265:
-	set var_disguise,1265;
-	goto Cancel;
-PCX_M_1266:
-	set var_disguise,1266;
-	goto Cancel;
-PCX_M_1267:
-	set var_disguise,1267;
-	goto Cancel;
-PCX_M_1268:
-	set var_disguise,1268;
-	goto Cancel;
-PCX_M_1269:
-	set var_disguise,1269;
-	goto Cancel;
-PCX_M_1270:
-	set var_disguise,1270;
-	goto Cancel;
-PCX_M_1271:
-	set var_disguise,1271;
-	goto Cancel;
-PCX_M_1272:
-	set var_disguise,1272;
-	goto Cancel;
-PCX_M_1273:
-	set var_disguise,1273;
-	goto Cancel;
-PCX_M_1274:
-	set var_disguise,1274;
-	goto Cancel;
-PCX_M_1275:
-	set var_disguise,1275;
-	goto Cancel;
-PCX_M_1276:
-	set var_disguise,1276;
-	goto Cancel;
-PCX_M_1277:
-	set var_disguise,1277;
-	goto Cancel;
-PCX_M_1278:
-	set var_disguise,1278;
-	goto Cancel;
-PCX_M_1279:
-	set var_disguise,1279;
-	goto Cancel;
-PCX_M_1280:
-	set var_disguise,1280;
-	goto Cancel;
-PCX_M_1281:
-	set var_disguise,1281;
-	goto Cancel;
-PCX_M_1282:
-	set var_disguise,1282;
-	goto Cancel;
-PCX_M_1283:
-	set var_disguise,1283;
-	goto Cancel;
-PCX_M_1284:
-	set var_disguise,1284;
-	goto Cancel;
-PCX_M_1285:
-	set var_disguise,1285;
-	goto Cancel;
-PCX_M_1286:
-	set var_disguise,1286;
-	goto Cancel;
-PCX_M_1287:
-	set var_disguise,1287;
-	goto Cancel;
-PCX_M_1288:
-	set var_disguise,1288;
-	goto Cancel;
-PCX_M_1289:
-	set var_disguise,1289;
-	goto Cancel;
-PCX_M_1290:
-	set var_disguise,1290;
-	goto Cancel;
-PCX_M_1291:
-	set var_disguise,1291;
-	goto Cancel;
-PCX_M_1292:
-	set var_disguise,1292;
-	goto Cancel;
-PCX_M_1293:
-	set var_disguise,1293;
-	goto Cancel;
-PCX_M_1294:
-	set var_disguise,1294;
-	goto Cancel;
-PCX_M_1295:
-	set var_disguise,1295;
-	goto Cancel;
-PCX_M_1296:
-	set var_disguise,1296;
-	goto Cancel;
-PCX_M_1297:
-	set var_disguise,1297;
-	goto Cancel;
-PCX_M_1298:
-	set var_disguise,1298;
-	goto Cancel;
-PCX_M_1299:
-	set var_disguise,1299;
-	goto Cancel;
-PCX_M_1300:
-	set var_disguise,1300;
-	goto Cancel;
-PCX_M_1301:
-	set var_disguise,1301;
-	goto Cancel;
-PCX_M_1302:
-	set var_disguise,1302;
-	goto Cancel;
-PCX_M_1303:
-	set var_disguise,1303;
-	goto Cancel;
-PCX_M_1304:
-	set var_disguise,1304;
-	goto Cancel;
-PCX_M_1305:
-	set var_disguise,1305;
-	goto Cancel;
-PCX_M_1306:
-	set var_disguise,1306;
-	goto Cancel;
-PCX_M_1307:
-	set var_disguise,1307;
-	goto Cancel;
-PCX_M_1308:
-	set var_disguise,1308;
-	goto Cancel;
-PCX_M_1309:
-	set var_disguise,1309;
-	goto Cancel;
-PCX_M_1310:
-	set var_disguise,1310;
-	goto Cancel;
-PCX_M_1311:
-	set var_disguise,1311;
-	goto Cancel;
-PCX_M_1312:
-	set var_disguise,1312;
-	goto Cancel;
-PCX_M_1313:
-	set var_disguise,1313;
-	goto Cancel;
-PCX_M_1314:
-	set var_disguise,1314;
-	goto Cancel;
-PCX_M_1315:
-	set var_disguise,1315;
-	goto Cancel;
-PCX_M_1316:
-	set var_disguise,1316;
-	goto Cancel;
-PCX_M_1317:
-	set var_disguise,1317;
-	goto Cancel;
-PCX_M_1318:
-	set var_disguise,1318;
-	goto Cancel;
-PCX_M_1319:
-	set var_disguise,1319;
-	goto Cancel;
-PCX_M_1320:
-	set var_disguise,1320;
-	goto Cancel;
-PCX_M_1321:
-	set var_disguise,1321;
-	goto Cancel;
-PCX_M_1322:
-	set var_disguise,1322;
-	goto Cancel;
-PCX_M_1323:
-	set var_disguise,1323;
-	goto Cancel;
-PCX_M_1324:
-	set var_disguise,1324;
-	goto Cancel;
-PCX_M_1364:
-	set var_disguise,1364;
-	goto Cancel;
-PCX_M_1365:
-	set var_disguise,1365;
-	goto Cancel;
-PCX_M_1366:
-	set var_disguise,1366;
-	goto Cancel;
-PCX_M_1367:
-	set var_disguise,1367;
-	goto Cancel;
-PCX_M_1368:
-	set var_disguise,1368;
-	goto Cancel;
-PCX_M_1369:
-	set var_disguise,1369;
-	goto Cancel;
-PCX_M_1370:
-	set var_disguise,1370;
-	goto Cancel;
-PCX_M_1371:
-	set var_disguise,1371;
-	goto Cancel;
-PCX_M_1372:
-	set var_disguise,1372;
-	goto Cancel;
-PCX_M_1373:
-	set var_disguise,1373;
-	goto Cancel;
-PCX_M_1374:
-	set var_disguise,1374;
-	goto Cancel;
-PCX_M_1375:
-	set var_disguise,1375;
-	goto Cancel;
-PCX_M_1376:
-	set var_disguise,1376;
-	goto Cancel;
-PCX_M_1377:
-	set var_disguise,1377;
-	goto Cancel;
-PCX_M_1378:
-	set var_disguise,1378;
-	goto Cancel;
-PCX_M_1379:
-	set var_disguise,1379;
-	goto Cancel;
-PCX_M_1380:
-	set var_disguise,1380;
-	goto Cancel;
-PCX_M_1381:
-	set var_disguise,1381;
-	goto Cancel;
-PCX_M_1382:
-	set var_disguise,1382;
-	goto Cancel;
-PCX_M_1383:
-	set var_disguise,1383;
-	goto Cancel;
-PCX_M_1384:
-	set var_disguise,1384;
-	goto Cancel;
-PCX_M_1385:
-	set var_disguise,1385;
-	goto Cancel;
-PCX_M_1386:
-	set var_disguise,1386;
-	goto Cancel;
-PCX_M_1387:
-	set var_disguise,1387;
-	goto Cancel;
-PCX_M_1388:
-	set var_disguise,1388;
-	goto Cancel;
-PCX_M_1389:
-	set var_disguise,1389;
-	goto Cancel;
-PCX_M_1390:
-	set var_disguise,1390;
-	goto Cancel;
-PCX_M_1391:
-	set var_disguise,1391;
-	goto Cancel;
-PCX_M_1392:
-	set var_disguise,1392;
-	goto Cancel;
-PCX_M_1393:
-	set var_disguise,1393;
-	goto Cancel;
-PCX_M_1394:
-	set var_disguise,1394;
-	goto Cancel;
-PCX_M_1395:
-	set var_disguise,1395;
-	goto Cancel;
-PCX_M_1396:
-	set var_disguise,1396;
-	goto Cancel;
-PCX_M_1397:
-	set var_disguise,1397;
-	goto Cancel;
-PCX_M_1398:
-	set var_disguise,1398;
-	goto Cancel;
-PCX_M_1399:
-	set var_disguise,1399;
-	goto Cancel;
-PCX_M_1400:
-	set var_disguise,1400;
-	goto Cancel;
-PCX_M_1401:
-	set var_disguise,1401;
-	goto Cancel;
-PCX_M_1402:
-	set var_disguise,1402;
-	goto Cancel;
-PCX_M_1403:
-	set var_disguise,1403;
-	goto Cancel;
-PCX_M_1404:
-	set var_disguise,1404;
-	goto Cancel;
-PCX_M_1405:
-	set var_disguise,1405;
-	goto Cancel;
-PCX_M_1406:
-	set var_disguise,1406;
-	goto Cancel;
-PCX_M_1407:
-	set var_disguise,1407;
-	goto Cancel;
-PCX_M_1408:
-	set var_disguise,1408;
-	goto Cancel;
-PCX_M_1409:
-	set var_disguise,1409;
-	goto Cancel;
-PCX_M_1410:
-	set var_disguise,1410;
-	goto Cancel;
-PCX_M_1412:
-	set var_disguise,1412;
-	goto Cancel;
-PCX_M_1413:
-	set var_disguise,1413;
-	goto Cancel;
-PCX_M_1415:
-	set var_disguise,1415;
-	goto Cancel;
-PCX_M_1416:
-	set var_disguise,1416;
-	goto Cancel;
-PCX_M_1417:
-	set var_disguise,1417;
-	goto Cancel;
-PCX_M_1418:
-	set var_disguise,1418;
-	goto Cancel;
-PCX_M_1492:
-	set var_disguise,1492;
-	goto Cancel;
-PCX_M_1493:
-	set var_disguise,1493;
-	goto Cancel;
-PCX_M_1494:
-	set var_disguise,1494;
-	goto Cancel;
-PCX_M_1495:
-	set var_disguise,1495;
-	goto Cancel;
-PCX_M_1497:
-	set var_disguise,1497;
-	goto Cancel;
-PCX_M_1498:
-	set var_disguise,1498;
-	goto Cancel;
-PCX_M_1499:
-	set var_disguise,1499;
-	goto Cancel;
-PCX_M_1500:
-	set var_disguise,1500;
-	goto Cancel;
-PCX_M_1502:
-	set var_disguise,1502;
-	goto Cancel;
-PCX_M_1503:
-	set var_disguise,1503;
-	goto Cancel;
-PCX_M_1504:
-	set var_disguise,1504;
-	goto Cancel;
-PCX_M_1505:
-	set var_disguise,1505;
-	goto Cancel;
-PCX_M_1506:
-	set var_disguise,1506;
-	goto Cancel;
-PCX_M_1507:
-	set var_disguise,1507;
-	goto Cancel;
-PCX_M_1508:
-	set var_disguise,1508;
-	goto Cancel;
-PCX_M_1509:
-	set var_disguise,1509;
-	goto Cancel;
-PCX_M_1510:
-	set var_disguise,1510;
-	goto Cancel;
-PCX_M_1511:
-	set var_disguise,1511;
-	goto Cancel;
-PCX_M_1512:
-	set var_disguise,1512;
-	goto Cancel;
-PCX_M_1513:
-	set var_disguise,1513;
-	goto Cancel;
-PCX_M_1514:
-	set var_disguise,1514;
-	goto Cancel;
-PCX_M_1515:
-	set var_disguise,1515;
-	goto Cancel;
-PCX_M_1516:
-	set var_disguise,1516;
-	goto Cancel;
-PCX_M_1517:
-	set var_disguise,1517;
-	goto Cancel;
-PCX_M_1518:
-	set var_disguise,1518;
-	goto Cancel;
-PCX_M_1519:
-	set var_disguise,1519;
-	goto Cancel;
-PCX_M_1520:
-	set var_disguise,1520;
-	goto Cancel;
-PCX_M_1582:
-	set var_disguise,1582;
-	goto Cancel;
-PCX_M_1583:
-	set var_disguise,1583;
-	goto Cancel;
-PCX_M_1584:
-	set var_disguise,1584;
-	goto Cancel;
-PCX_M_1586:
-	set var_disguise,1586;
-	goto Cancel;
-PCX_M_1587:
-	set var_disguise,1587;
-	goto Cancel;
-PCX_M_1613:
-	set var_disguise,1613;
-	goto Cancel;
-PCX_M_1614:
-	set var_disguise,1614;
-	goto Cancel;
-PCX_M_1615:
-	set var_disguise,1615;
-	goto Cancel;
-PCX_M_1616:
-	set var_disguise,1616;
-	goto Cancel;
-PCX_M_1617:
-	set var_disguise,1617;
-	goto Cancel;
-PCX_M_1618:
-	set var_disguise,1618;
-	goto Cancel;
-PCX_M_1619:
-	set var_disguise,1619;
-	goto Cancel;
-PCX_M_1620:
-	set var_disguise,1620;
-	goto Cancel;
-PCX_M_1621:
-	set var_disguise,1621;
-	goto Cancel;
-PCX_M_1622:
-	set var_disguise,1622;
-	goto Cancel;
-PCX_M_1623:
-	set var_disguise,1623;
-	goto Cancel;
-PCX_M_1624:
-	set var_disguise,1624;
-	goto Cancel;
-PCX_M_1625:
-	set var_disguise,1625;
-	goto Cancel;
-PCX_M_1627:
-	set var_disguise,1627;
-	goto Cancel;
-PCX_M_1628:
-	set var_disguise,1628;
-	goto Cancel;
-PCX_M_1629:
-	set var_disguise,1629;
-	goto Cancel;
-PCX_M_1632:
-	set var_disguise,1632;
-	goto Cancel;
-PCX_M_1633:
-	set var_disguise,1633;
-	goto Cancel;
-PCX_M_1634:
-	set var_disguise,1634;
-	goto Cancel;
-PCX_M_1635:
-	set var_disguise,1635;
-	goto Cancel;
-PCX_M_1636:
-	set var_disguise,1636;
-	goto Cancel;
-PCX_M_1637:
-	set var_disguise,1637;
-	goto Cancel;
-PCX_M_1638:
-	set var_disguise,1638;
-	goto Cancel;
-PCX_M_1639:
-	set var_disguise,1639;
-	goto Cancel;
-PCX_M_1652:
-	set var_disguise,1652;
-	goto Cancel;
-PCX_M_1653:
-	set var_disguise,1653;
-	goto Cancel;
-PCX_M_1654:
-	set var_disguise,1654;
-	goto Cancel;
-PCX_M_1655:
-	set var_disguise,1655;
-	goto Cancel;
-PCX_M_1656:
-	set var_disguise,1656;
-	goto Cancel;
-PCX_M_1657:
-	set var_disguise,1657;
-	goto Cancel;
-PCX_M_1668:
-	set var_disguise,1668;
-	goto Cancel;
-PCX_M_1674:
-	set var_disguise,1674;
-	goto Cancel;
-PCX_M_1680:
-	set var_disguise,1680;
-	goto Cancel;
-PCX_M_1681:
-	set var_disguise,1681;
-	goto Cancel;
-PCX_M_1682:
-	set var_disguise,1682;
-	goto Cancel;
-PCX_M_1683:
-	set var_disguise,1683;
-	goto Cancel;
-PCX_M_1685:
-	set var_disguise,1685;
-	goto Cancel;
-PCX_M_1686:
-	set var_disguise,1686;
-	goto Cancel;
-PCX_M_1687:
-	set var_disguise,1687;
-	goto Cancel;
-PCX_M_1688:
-	set var_disguise,1688;
-	goto Cancel;
-PCX_M_1692:
-	set var_disguise,1692;
-	goto Cancel;
-PCX_M_1693:
-	set var_disguise,1693;
-	goto Cancel;
-PCX_M_1694:
-	set var_disguise,1694;
-	goto Cancel;
-PCX_M_1695:
-	set var_disguise,1695;
-	goto Cancel;
-PCX_M_1696:
-	set var_disguise,1696;
-	goto Cancel;
-PCX_M_1697:
-	set var_disguise,1697;
-	goto Cancel;
-PCX_M_1698:
-	set var_disguise,1698;
-	goto Cancel;
-PCX_M_1699:
-	set var_disguise,1699;
-	goto Cancel;
-PCX_M_1700:
-	set var_disguise,1700;
-	goto Cancel;
-PCX_M_1701:
-	set var_disguise,1701;
-	goto Cancel;
-PCX_M_1702:
-	set var_disguise,1702;
-	goto Cancel;
-PCX_M_1703:
-	set var_disguise,1703;
-	goto Cancel;
-PCX_M_1704:
-	set var_disguise,1704;
-	goto Cancel;
-PCX_M_1705:
-	set var_disguise,1705;
-	goto Cancel;
-PCX_M_1706:
-	set var_disguise,1706;
-	goto Cancel;
-PCX_M_1707:
-	set var_disguise,1707;
-	goto Cancel;
-PCX_M_1708:
-	set var_disguise,1708;
-	goto Cancel;
-PCX_M_1713:
-	set var_disguise,1713;
-	goto Cancel;
-PCX_M_1714:
-	set var_disguise,1714;
-	goto Cancel;
-PCX_M_1715:
-	set var_disguise,1715;
-	goto Cancel;
-PCX_M_1716:
-	set var_disguise,1716;
-	goto Cancel;
-PCX_M_1717:
-	set var_disguise,1717;
-	goto Cancel;
-PCX_M_1718:
-	set var_disguise,1718;
-	goto Cancel;
-PCX_M_1719:
-	set var_disguise,1719;
-	goto Cancel;
-PCX_M_1720:
-	set var_disguise,1720;
-	goto Cancel;
-PCX_M_1721:
-	set var_disguise,1721;
-	goto Cancel;
-
-}
\ No newline at end of file
diff --git a/npc/custom/eAAC_Scripts/kafraExpress/global_functionsKE.txt b/npc/custom/eAAC_Scripts/kafraExpress/global_functionsKE.txt
index d1dccdbbac..dc2325ff09 100644
--- a/npc/custom/eAAC_Scripts/kafraExpress/global_functionsKE.txt
+++ b/npc/custom/eAAC_Scripts/kafraExpress/global_functionsKE.txt
@@ -329,4 +329,4 @@ function	script	GF_getJobClass	{
 	default:
 		return -1;
 	}
-}
+}
\ No newline at end of file
diff --git a/npc/custom/eAAC_Scripts/quest_warper.txt b/npc/custom/eAAC_Scripts/quest_warper.txt
new file mode 100644
index 0000000000..f5ec702978
--- /dev/null
+++ b/npc/custom/eAAC_Scripts/quest_warper.txt
@@ -0,0 +1,1946 @@
+//===== eAthena Script ============================================
+//= Quest Warper Script
+//===== By: =======================================================
+//= Old Warper 2 by Darkchild - Remade with quest format by DZeroX
+//= Huge Rewrite by Neouni
+//===== Current Version: ==========================================
+//= 1.5
+//===== 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
+//=================================================================
+
+//========================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";
+//----------------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","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 FHprice;
+	if (@GMmenu2 == 5) goto PHprice;
+	if (@GMmenu2 == 6) goto Sprice;
+	if (@GMmenu2 == 7) goto GSprice;
+	if (@GMmenu2 == 8) 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;
+
+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";
+	
+// Expected maximum is set to 27, if you add  more options add a more ",@Dmenulist$[xx],-"
+
+	menu @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],-;
+
+// if statement made because goto & callsub doesn't accept string
+// should rewrite after loading dungeon levels into an array
+
+	if (Zeny<@pDprice[@Dmenuref[@menu-1]]) callsub L_Short_on_zeny,1;
+	set Zeny, Zeny-@pDprice[@Dmenuref[@menu-1]];	
+	if (@pDmenugoto$[@Dmenuref[@menu-1]] == "abyss") goto abyss;
+	if (@pDmenugoto$[@Dmenuref[@menu-1]] == "ama_dun") goto ama_dun;
+	if (@pDmenugoto$[@Dmenuref[@menu-1]] == "anthell") goto anthell;
+	if (@pDmenugoto$[@Dmenuref[@menu-1]] == "ayotaya_dun") goto ayotaya_dun;
+	if (@pDmenugoto$[@Dmenuref[@menu-1]] == "iz_dun") goto iz_dun;
+	if (@pDmenugoto$[@Dmenuref[@menu-1]] == "c_tower") goto c_tower;
+	if (@pDmenugoto$[@Dmenuref[@menu-1]] == "mjo_dun") goto mjo_dun;
+	if (@pDmenugoto$[@Dmenuref[@menu-1]] == "prt_sewb") goto prt_sewb;
+	if (@pDmenugoto$[@Dmenuref[@menu-1]] == "einbech_dun") goto einbech_dun;
+	if (@pDmenugoto$[@Dmenuref[@menu-1]] == "gefenia") goto gefenia;
+	if (@pDmenugoto$[@Dmenuref[@menu-1]] == "gef_dun") goto gef_dun;
+	if (@pDmenugoto$[@Dmenuref[@menu-1]] == "gl_dun") goto gl_dun;
+	if (@pDmenugoto$[@Dmenuref[@menu-1]] == "gon_dun") goto gon_dun;
+	if (@pDmenugoto$[@Dmenuref[@menu-1]] == "hid_dun") goto hid_dun;
+	if (@pDmenugoto$[@Dmenuref[@menu-1]] == "juperos") goto juperos;
+	if (@pDmenugoto$[@Dmenuref[@menu-1]] == "lighthalzen_dun") goto lighthalzen_dun;
+	if (@pDmenugoto$[@Dmenuref[@menu-1]] == "mag_dun") goto mag_dun;
+	if (@pDmenugoto$[@Dmenuref[@menu-1]] == "odintemple") goto odintemple;
+	if (@pDmenugoto$[@Dmenuref[@menu-1]] == "orcsdun") goto orcsdun;
+	if (@pDmenugoto$[@Dmenuref[@menu-1]] == "pay_dun") goto pay_dun;
+	if (@pDmenugoto$[@Dmenuref[@menu-1]] == "moc_pryd") goto moc_pryd;
+	if (@pDmenugoto$[@Dmenuref[@menu-1]] == "in_sphinx") goto in_sphinx;
+	if (@pDmenugoto$[@Dmenuref[@menu-1]] == "treasure") goto treasure;
+	if (@pDmenugoto$[@Dmenuref[@menu-1]] == "xmas_dun") goto xmas_dun;
+	if (@pDmenugoto$[@Dmenuref[@menu-1]] == "tur_dun") goto tur_dun;
+	if (@pDmenugoto$[@Dmenuref[@menu-1]] == "um_dun") goto um_dun;
+	close2;		// this part safegaurds against errors/typos
+	set Zeny, Zeny+@pDprice[@Dmenuref[@menu-1]];
+	close;
+	end;
+
+//=========================Dungeons================================
+
+//----------------ABYSS LAKE
+abyss:
+	next;
+	mes "[Warpra]";
+	mes "Please select the level:";
+next;
+menu  "Level 1",d_abyss_1,
+ "Level 2",d_abyss_2,
+ "Level 3",d_abyss_3;
+d_abyss_1:
+warp "abyss_01.gat", 265, 273; close;
+d_abyss_2:
+warp "abyss_02.gat", 275, 270; close;
+d_abyss_3:
+warp "abyss_03.gat", 116, 27; close;
+
+
+//----------------AMATSU DUNGEON
+ama_dun:
+	next;
+	mes "[Warpra]";
+	mes "Please select the level:";
+next;
+menu  "Level 1",d_amatsu_1,
+ "Level 2",d_amatsu_2,
+ "Level 3",d_amatsu_3;
+d_amatsu_1:
+warp "ama_dun01.gat", 227, 10; close;
+d_amatsu_2:
+warp "ama_dun02.gat", 32, 43; close;
+d_amatsu_3:
+warp "ama_dun03.gat", 119, 15; close;
+
+
+//----------------ANT HELL
+anthell:
+	next;
+	mes "[Warpra]";
+	mes "Please select the level:";
+next;
+menu  "Level 1",d_anthell_1,
+ "Level 2",d_anthell_2;
+d_anthell_1:
+warp "anthell01.gat", 32, 262; close;
+d_anthell_2:
+warp "anthell02.gat", 34, 263; close;
+
+
+//----------------AYOTAYA
+ayotaya_dun:
+	next;
+	mes "[Warpra]";
+	mes "Please select the level:";
+next;
+menu  "Level 1",d_ayotaya_1,
+ "Level 2",d_ayotaya_2;
+d_ayotaya_1:
+warp "ayo_dun01.gat", 275, 17; close;
+d_ayotaya_2:
+warp "ayo_dun02.gat", 150, 13; close;
+
+
+//----------------BYALAN
+iz_dun:
+	next;
+	mes "[Warpra]";
+	mes "Please select the level:";
+next;
+menu  "Level 1",d_bylan_1,
+ "Level 2",d_bylan_2,
+ "Level 3",d_bylan_3,
+ "Level 4",d_bylan_4,
+ "Level 5",d_bylan_5;
+d_bylan_1:
+warp "iz_dun00.gat", 168, 168; close;
+d_bylan_2:
+warp "iz_dun01.gat", 41, 37; close;
+d_bylan_3:
+warp "iz_dun02.gat", 236, 204; close;
+d_bylan_4:
+warp "iz_dun03.gat", 32, 63; close;
+d_bylan_5:
+warp "iz_dun04.gat", 26, 27; close;
+
+
+//----------------CLOCK TOWER
+c_tower:
+	next;
+	mes "[Warpra]";
+	mes "Please select the level:";
+next;
+menu  "Clock Tower Level 1",d_ct_1,
+ "Clock Tower Level 2",d_ct_2,
+ "Clock Tower Level 3",d_ct_3,
+ "Clock Tower Level 4",d_ct_4,
+ "Basement 1F",d_alde_1,
+ "Basement 2F",d_alde_2,
+ "Basement 3F",d_alde_3,
+ "Basement 4F",d_alde_4;
+d_ct_1:
+warp "c_tower1.gat", 200, 163; close;
+d_ct_2:
+warp "c_tower2.gat", 268, 26; close;
+d_ct_3:
+warp "c_tower3.gat", 64, 148; close;
+d_ct_4:
+warp "c_tower4.gat", 32, 63; close;
+d_alde_1:
+warp "alde_dun01.gat", 197, 25; close;
+d_alde_2:
+warp "alde_dun02.gat", 262, 41; close;
+d_alde_3:
+warp "alde_dun03.gat", 276, 53; close;
+d_alde_4:
+warp "alde_dun04.gat", 130, 130; close;
+
+
+
+//----------------COAL MINE
+mjo_dun:
+	next;
+	mes "[Warpra]";
+	mes "Please select the level:";
+next;
+menu  "Level 1",d_coal_1,
+ "Level 2",d_coal_2,
+ "Level 3",d_coal_3;
+d_coal_1:
+warp "mjo_dun01.gat", 52, 17; close;
+d_coal_2:
+warp "mjo_dun02.gat", 381, 343; close;
+d_coal_3:
+warp "mjo_dun03.gat", 302, 261; close;
+
+
+//----------------CULVERT
+prt_sewb:
+	next;
+	mes "[Warpra]";
+	mes "Please select the level:";
+next;
+menu  "Level 1",d_culvert_1,
+ "Level 2",d_culvert_2,
+ "Level 3",d_culvert_3,
+ "Level 4",d_culvert_4,
+ "Level 5",d_culvert_5;
+d_culvert_1:
+warp "prt_sewb1.gat", 132, 248; close;
+d_culvert_2:
+warp "prt_sewb2.gat", 19, 19; close;
+d_culvert_3:
+warp "prt_sewb3.gat", 180, 169; close;
+d_culvert_4:
+warp "prt_sewb4.gat", 100, 92; close;
+
+
+//----------------EINBECH DUNGEON
+einbech_dun:
+	next;
+	mes "[Warpra]";
+	mes "Please select the level:";
+next;
+menu  "Level 1",d_einbech_1,
+ "Level 2",d_einbech_2;
+d_einbech_1:
+warp "ein_dun01.gat", 22, 14; close;
+d_einbech_2:
+warp "ein_dun02.gat", 292, 290; close;
+
+
+//----------------GEFENIA DUNGEON
+gefenia:
+	next;
+	mes "[Warpra]";
+	mes "Please select the level:";
+next;
+menu  "Level 1",d_gefenia_1,
+ "Level 2",d_gefenia_2,
+ "Level 3",d_gefenia_3,
+ "Level 4",d_gefenia_4;
+d_gefenia_1:
+warp "gefenia01.gat", 59, 167; close;
+d_gefenia_2:
+warp "gefenia02.gat", 201, 35; close;
+d_gefenia_3:
+warp "gefenia03.gat", 264, 236; close;
+d_gefenia_4:
+warp "gefenia04.gat", 33, 270; close;
+
+
+//----------------GEFFEN DUNGEON
+gef_dun:
+	next;
+	mes "[Warpra]";
+	mes "Please select the level:";
+next;
+menu  "Level 1",d_geffen_1,
+ "Level 2",d_geffen_2,
+ "Level 3",d_geffen_3,
+ "Level 3",d_geffen_4;
+d_gefen_1:
+warp "gef_dun00.gat", 104, 100; close;
+d_geffen_2:
+warp "gef_dun01.gat", 115, 236; close;
+d_geffen_3:
+warp "gef_dun02.gat", 106, 132; close;
+d_geffen_4:
+warp "gef_dun03.gat", 203, 200; close;
+
+
+//----------------GLAST HEIM
+gl_dun:
+	next;
+	mes "[Warpra]";
+	mes "Please select the level:";
+next;
+menu  "St. Abbey",d_glast_1,
+ "Churchyard",d_glast_2,
+ "Inside Glast Heim",d_glast_3,
+ "Castle 1",d_glast_4,
+ "Castle 2",d_glast_5,
+ "Chivalry 1",d_glast_6,
+ "Chivalry 2",d_glast_7,
+ "Prison 1",d_glast_8,
+ "Prison 2",d_glast_9,
+ "Steps",d_glast_10,
+ "Sewers 1",d_glast_11,
+ "Sewers 2",d_glast_12,
+ "Sewers 3",d_glast_13,
+ "Sewers 4",d_glast_14,
+ "Lowest Cave 1",d_glast_15,
+ "Lowest Cave 2",d_glast_16;
+d_glast_1:
+warp "gl_church.gat", 156, 8; close;
+d_glast_2:
+warp "gl_chyard.gat", 147, 15; close;
+d_glast_3:
+warp "gl_in01.gat", 121, 59; close;
+d_glast_4:
+warp "gl_cas01.gat", 199, 29; close;
+d_glast_5:
+warp "gl_cas02.gat", 104, 25; close;
+d_glast_6:
+warp "gl_knt01.gat", 150, 10; close;
+d_glast_7:
+warp "gl_knt02.gat", 157, 287; close;
+d_glast_8:
+warp "gl_prison.gat", 14, 70; close;
+d_glast_9:
+warp "gl_prison1.gat", 150, 14; close;
+d_glast_10:
+warp "gl_step.gat", 117, 124; close;
+d_glast_11:
+warp "gl_sew01.gat", 258, 255; close;
+d_glast_12:
+warp "gl_sew02.gat", 108, 291; close;
+d_glast_13:
+warp "gl_sew03.gat", 171, 273; close;
+d_glast_14:
+warp "gl_sew04.gat", 68, 277; close;
+d_glast_15:
+warp "gl_dun01.gat", 133, 271; close;
+d_glast_16:
+warp "gl_dun02.gat", 224, 274; close;
+
+//----------------HIDDEN DUNGEON
+hid_dun:
+	next;
+	mes "[Warpra]";
+	mes "Please select the level:";
+next;
+menu  "Level 1",d_hid_1,
+ "Level 2",d_hid_2,
+ "Level 3",d_hid_3;
+d_hid_1:
+warp "prt_maze01.gat", 176, 6; close;
+d_hid_2:
+warp "prt_maze02.gat", 94, 19; close;
+d_hid_3:
+warp "prt_maze03.gat", 23, 8; close;
+
+
+//----------------JUPEROS CAVE
+juperos:
+	next;
+	mes "[Warpra]";
+	mes "Please select the level:";
+next;
+menu  "Level 1",d_juperos_1,
+ "Level 2",d_juperos_2;
+d_juperos_1:
+warp "juperos_01.gat", 53, 247; close;
+d_juperos_2:
+warp "juperos_02.gat", 36, 60; close;
+
+
+//----------------GONRYUN DUNGEON
+gon_dun:
+	next;
+	mes "[Warpra]";
+	mes "Please select the level:";
+next;
+menu  "Level 1",d_gon_1,
+ "Level 2",d_gon_2,
+ "Level 3",d_gon_3;
+d_gon_1:
+warp "gon_dun01.gat", 143, 59; close;
+d_gon_2:
+warp "gon_dun02.gat", 17, 114; close;
+d_gon_3:
+warp "gon_dun03.gat", 68, 9; close;
+
+
+//----------------LIGHTHALZEN BIO LAB
+lighthalzen_dun:
+	next;
+	mes "[Warpra]";
+	mes "Please select the level:";
+next;
+menu  "Level 1",d_lighthalzen_1,
+ "Level 2",d_lighthalzen_2,
+ "Level 3",d_lighthalzen_3;
+d_lighthalzen_1:
+warp "lhz_dun01.gat", 150, 287; close;
+d_lighthalzen_2:
+warp "lhz_dun02.gat", 150, 18; close;
+d_lighthalzen_3:
+warp "lhz_dun03.gat", 140, 137; close;
+
+
+//----------------MAGMA DUNGEON
+mag_dun:
+	next;
+	mes "[Warpra]";
+	mes "Please select the level:";
+next;
+menu  "Level 1",d_magma_1,
+ "Level 2",d_magma_2;
+d_magma_1:
+warp "mag_dun01.gat", 126, 69; close;
+d_magma_2:
+warp "mag_dun02.gat", 47, 32; close;
+
+
+//----------------ODIN TEMPLE
+odintemple:
+	next;
+	mes "[Warpra]";
+	mes "Please select the level:";
+next;
+menu  "Level 1",d_odintemple_1;
+d_odintemple_1:
+warp "odin_tem01.gat", 96, 145; close;
+
+//----------------ORC DUNGEON
+orcsdun:
+	next;
+	mes "[Warpra]";
+	mes "Please select the level:";
+next;
+menu  "Level 1",d_orc_1,
+ "Level 2",d_orc_2;
+d_orc_1:
+warp "orcsdun01.gat", 32, 169; close;
+d_orc_2:
+warp "orcsdun02.gat", 21, 185; close;
+
+
+//----------------PAYON DUNGEON
+pay_dun:
+	next;
+	mes "[Warpra]";
+	mes "Please select the level:";
+next;
+menu  "Level 1",d_payon_1,
+ "Level 2",d_payon_2,
+ "Level 3",d_payon_3,
+ "Level 4",d_payon_4,
+ "Level 5",d_payon_5;
+d_payon_1:
+warp "pay_dun00.gat", 22, 180; close;
+d_payon_2:
+warp "pay_dun01.gat", 19, 33; close;
+d_payon_3:
+warp "pay_dun02.gat", 19, 63; close;
+d_payon_4:
+warp "pay_dun03.gat", 155, 159; close;
+d_payon_5:
+warp "pay_dun04.gat", 201, 204; close;
+
+
+//----------------PYRAMIDS
+moc_pryd:
+	next;
+	mes "[Warpra]";
+	mes "Please select the level:";
+next;
+menu  "Level 1",d_pyr_1,
+ "Level 2",d_pyr_2,
+ "Level 3",d_pyr_3,
+ "Level 4",d_pyr_4,
+ "Basement 1",d_pyr_5,
+ "Basement 2",d_pyr_6;
+d_pyr_1:
+warp "moc_pryd01.gat", 192, 9; close;
+d_pyr_2:
+warp "moc_pryd02.gat", 10, 192; close;
+d_pyr_3:
+warp "moc_pryd03.gat", 100, 92; close;
+d_pyr_4:
+warp "moc_pryd04.gat", 181, 11; close;
+d_pyr_5:
+warp "moc_pryd05.gat", 94, 96; close;
+d_pyr_6:
+warp "moc_pryd06.gat", 192, 8; close;
+
+
+//----------------SPHINX
+in_sphinx:
+	next;
+	mes "[Warpra]";
+	mes "Please select the level:";
+next;
+menu  "Level 1",d_sph_1,
+ "Level 2",d_sph_2,
+ "Level 3",d_sph_3,
+ "Level 4",d_sph_4,
+ "Level 5",d_sph_5;
+d_sph_1:
+warp "in_sphinx1.gat", 192, 9; close;
+d_sph_2:
+warp "in_sphinx2.gat", 149, 81; close;
+d_sph_3:
+warp "in_sphinx3.gat", 210, 54; close;
+d_sph_4:
+warp "in_sphinx4.gat", 10, 222; close;
+d_sph_5:
+warp "in_sphinx5.gat", 100, 99; close;
+
+
+//----------------SUNKEN SHIP
+treasure:
+	next;
+	mes "[Warpra]";
+	mes "Please select the level:";
+next;
+menu  "Level 1",d_treasure_1,
+ "Level 2",d_treasure_2;
+d_treasure_1:
+warp "treasure01.gat", 69, 24; close;
+d_treasure_2:
+warp "treasure02.gat", 102, 27; close;
+
+
+//----------------TOY FACTORY
+xmas_dun:
+	next;
+	mes "[Warpra]";
+	mes "Please select the level:";
+next;
+menu  "Factory Warehouse",d_xmas_1,
+ "Classifying Room",d_xmas_2;
+d_xmas_1:
+warp "xmas_dun01.gat", 205, 16; close;
+d_xmas_2:
+warp "xmas_dun02.gat", 129, 133; close;
+
+
+//----------------TURTLE ISTLAND
+tur_dun:
+	next;
+	mes "[Warpra]";
+	mes "Please select the level:";
+next;
+menu  "Outside",d_tur_1,
+ "Level 1",d_tur_2,
+ "Level 2",d_tur_3,
+ "Level 3",d_tur_4;
+d_tur_1:
+warp "tur_dun01.gat", 161, 34; close;
+d_tur_2:
+warp "tur_dun02.gat", 148, 256; close;
+d_tur_3:
+warp "tur_dun03.gat", 132, 190; close;
+d_tur_4:
+warp "tur_dun04.gat", 100, 192; close;
+
+
+//----------------UMBALA
+um_dun:
+	next;
+	mes "[Warpra]";
+	mes "Please select the level:";
+next;
+menu  "Carpender's Shop in The Tree",d_um_1,
+ "Passage to a Foreign World",d_um_2,
+ "Hvergelmir's Fountain",d_ygg_1;
+
+d_um_1:
+warp "um_dun01.gat", 205, 16; close;
+d_um_2:
+warp "um_dun02.gat", 48, 30; close;
+d_ygg_1:
+warp "yggdrasil01.gat", 40, 63; close;
+
+
+//=============================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 "+@pDprice[@Dmenuref[@menu-1]]+" zeny, to pay for the warp fee to "+@pDmenuitems$[@Dmenuref[@menu-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;
+//----------------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;
+//----------------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 26 ^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=Array===========================
+
+function	script	QWS_Darray	{
+	setarray @pDmenuitems$[0], "Abyss Lake", "Amatsu Dungeon", "Ant Hell Dungeon", "Ayotaya Dungeon", "Byalan Dungeon", "Clock Tower Dungeon", "Coal Mine Dungeon", "Culvert Dungeon", "Einbech Dungeon", "Gefenia Dungeon", "Geffen Dungeon", "Glast Heim Dungeon", "Gonryun Dungeon", "Hidden Dungeon", "Juperos Cave", "Lighthalzen Bio Lab", "Magma Dungeon", "Odin Temple", "Orc Dungeon", "Payon Dungeon", "Pyramids Dungeon", "Sphinx Dungeon", "Sunken Ship Dungeon", "Toy Factory Dungeon", "Turtle Island Dungeon", "Umbala Dungeon", "Cancel";
+	setarray @pDmenugoto$[0], "abyss", "ama_dun", "anthell", "ayotaya_dun", "iz_dun", "c_tower", "mjo_dun", "prt_sewb", "einbech_dun", "gefenia", "gef_dun", "gl_dun", "gon_dun", "hid_dun", "juperos", "lighthalzen_dun", "mag_dun", "odintemple", "orcsdun", pay_dun, "moc_pryd", "in_sphinx", "treasure", "xmas_dun", "tur_dun", "um_dun", "L_End";
+	setarray @pDprice[0], $QW_AW_PRICE, $QW_OW_PRICE, $QW_BW_PRICE, $QW_OW_PRICE, $QW_BW_PRICE, $QW_AW_PRICE, $QW_AW_PRICE, $QW_BW_PRICE, $QW_AW_PRICE, $QW_BW_PRICE, $QW_BW_PRICE, $QW_BW_PRICE, $QW_OW_PRICE, $QW_BW_PRICE, $QW_AW_PRICE, $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;
+	set @Di,0; // That's our loop counter.
+	set @Dj,0; // That's the menu lines counter.
+//----------------ABYSS LAKE
+	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;
+	set @Di,@Di+1;
+//----------------AMATSU DUNGEON
+	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;
+	set @Di,@Di+1;
+//----------------ANT HELL
+	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;
+	set @Di,@Di+1;
+//----------------AYOTAYA
+	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;
+	set @Di,@Di+1;
+//----------------BYALAN
+	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;
+	set @Di,@Di+1;
+//----------------CLOCK TOWER
+	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;
+	set @Di,@Di+1;
+//----------------COAL MINE
+	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;
+	set @Di,@Di+1;
+//----------------CULVERT
+	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;
+	set @Di,@Di+1;
+//----------------EINBECH DUNGEON
+	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;
+	set @Di,@Di+1;
+//----------------GEFENIA DUNGEON
+	if (#gefenia == 1)&&(@pDprice[@Di] != 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di]+" -> "+@pDprice[@Di];
+	if (#gefenia == 1)&&(@pDprice[@Di] == 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di];
+	if (#gefenia == 1) set @Dmenuref[@Dj],@Di;
+	if (#gefenia == 1) set @Dj,@Dj+1;
+	set @Di,@Di+1;
+//----------------GEFFEN DUNGEON
+	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;
+	set @Di,@Di+1;
+//----------------GLAST HEIM
+	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;
+	set @Di,@Di+1;
+//----------------GONRYUN DUNGEON
+	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;
+	set @Di,@Di+1;
+//----------------HIDDEN DUNGEON
+	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;
+	set @Di,@Di+1;
+//----------------JUPEROS CAVE
+	if (#juperos == 1)&&(@pDprice[@Di] != 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di]+" -> "+@pDprice[@Di];
+	if (#juperos == 1)&&(@pDprice[@Di] == 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di];
+	if (#juperos == 1) set @Dmenuref[@Dj],@Di;
+	if (#juperos == 1) set @Dj,@Dj+1;
+	set @Di,@Di+1;
+//----------------LIGHTHALZEN BIO LAB
+	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;
+	set @Di,@Di+1;
+//----------------MAGMA DUNGEON
+	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;
+	set @Di,@Di+1;
+//----------------ODIN TEMPLE
+	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;
+	set @Di,@Di+1;
+//----------------ORC DUNGEON
+	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;
+	set @Di,@Di+1;
+//----------------PAYON DUNGEON
+	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;
+	set @Di,@Di+1;
+//----------------PYRAMIDS
+	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;
+	set @Di,@Di+1;
+//----------------SPHINX
+	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;
+	set @Di,@Di+1;
+//----------------SUNKEN SHIP
+	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;
+	set @Di,@Di+1;
+//----------------TOY FACTORY
+	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;
+	set @Di,@Di+1;
+//----------------TURTLE ISTLAND
+	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;
+	set @Di,@Di+1;
+//----------------UMBALA
+	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;
+	set @Di,@Di+1;
+//----------------Cancel
+	set @Dmenulist$[@Dj],@pDmenuitems$[@Di];
+	set @Dmenuref[@Dj],@Di;
+	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,217,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;
+}
+
+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;
+}
+
+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;
+}
\ No newline at end of file
diff --git a/npc/custom/eAAC_Scripts/roll_a_dice.txt b/npc/custom/eAAC_Scripts/roll_a_dice.txt
index 1571e7d426..5a5e47b739 100644
--- a/npc/custom/eAAC_Scripts/roll_a_dice.txt
+++ b/npc/custom/eAAC_Scripts/roll_a_dice.txt
@@ -14,7 +14,8 @@
 //	    1.3 - added more emoticons,made an Info menu 
 //		    option which contains explanations and rules,
 //		    added the amount of lost/won zeny on the end 
-//		    of each game,added more colors             
+//		    of each game,added more colors
+//	    1.4 - some small code optimization thanks to Myzter             
 //==========================================================
 
 
@@ -120,22 +121,17 @@ L_gamec:
 	if(@numg>18) message strcharinfo(0),"Number is too high, input again.";
 	if(@numg<3||@numg>18) goto L_gamec;
 	set Zeny, Zeny - @betnum;
+	next;
 	goto L_gameb;
 
 L_gameb:
-	next;
-	set @number1,rand(1,6);
-	set @number2,rand(1,6);
-	set @number3,rand(1,6);
-	set @number4,rand(1,6);
-	set @number5,rand(1,6);
-	set @number6,rand(1,6);
-	set @dea1, @number1;
-	set @dea2, @number2;
-	set @dea3, @number3;
-	set @pla1, @number4;
-	set @pla2, @number5;
-	set @pla3, @number6;
+
+	set @dea1, rand(1,6);
+	set @dea2, rand(1,6);
+	set @dea3, rand(1,6);
+	set @pla1, rand(1,6);
+	set @pla2, rand(1,6);
+	set @pla3, rand(1,6);
 	set @deatot, @dea1+@dea2+@dea3;
 	set @platot, @pla1+@pla2+@pla3;
 
@@ -208,7 +204,6 @@ L_lose:
 	mes "You lost ^0080FF"+@bet+"^000000 Zeny.";
 	next;
 	goto L_againa;
-	close;
 	
 L_again:
 	mes "[Dicer]";
@@ -227,7 +222,6 @@ L_win1:
 	mes "You won ^0080FF"+@wona+"^000000 Zeny.";
 	next;
 	goto L_againa;
-	close;
 
 L_win2:
 	mes "[Dicer]";
@@ -247,4 +241,4 @@ L_againa:
 	menu "Yes",L_play,"No",L_go;
 
  
-}
\ No newline at end of file
+}
diff --git a/npc/guild/ev_agit_event.txt b/npc/guild/ev_agit_event.txt
index 4e79de3bf9..634bd6bd7f 100644
--- a/npc/guild/ev_agit_event.txt
+++ b/npc/guild/ev_agit_event.txt
@@ -23,7 +23,7 @@
 //= Now they appear in castles from 00:01 to 00:24. [Lupus]
 //= 1.5 Fixed WOE end messages on non-WOE days, by Avaj
 //============================================================
-
+//| To know how to set up WoE times, go to doc\woe_time_explanation.txt
 // WoE Start/Stop times
 //======================================
 - script Agit_Event -1,{
diff --git a/npc/scripts_eaac.conf b/npc/scripts_eaac.conf
index cff6e8b3ca..7174e18825 100644
--- a/npc/scripts_eaac.conf
+++ b/npc/scripts_eaac.conf
@@ -39,11 +39,7 @@
 // Script made by palasx.
 // Forum topic for support:
 //| http://www.eathena.ws/board/index.php?showtopic=55584
-//| Note: Only enable the version according to the SVN you're using.
-//| SQL Version
-//npc: npc/custom/eAAC_Scripts/disguiser_SQL.txt
-//| TXT Version
-//npc: npc/custom/eAAC_Scripts/disguiser_TXT.txt
+//npc: npc/custom/eAAC_Scripts/disguiser.txt
 
 // --------------------------------------------------------------
 // ---------------------- Roll A Dice NPC -----------------------
@@ -72,3 +68,10 @@
 // Forum topic for support:
 //| http://www.eathena.ws/board/index.php?showtopic=71464
 //npc: npc/custom/eAAC_Scripts/DonationGirl/donate.txt
+
+// --------------------------------------------------------------
+// ----------------------- Quest Warper -------------------------
+// Script made by Neouni
+// Forum topic for support:
+//| http://www.eathena.ws/board/index.php?showtopic=83352
+//npc: npc/custom/eAAC_Scripts/quest_warper.txt
\ No newline at end of file