* Updated and cleaned up custom Quest Warper, as requested by malufett (custom\etc\quest_warper.txt)

git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@16708 54d463be-8e91-2dee-dedb-b68131a5f0ec

1 files changed, 561 insertions, 1006 deletions

diff --git a/npc/custom/etc/quest_warper.txt b/npc/custom/etc/quest_warper.txt
index 85919fa0f..d0952decc 100644
--- a/npc/custom/etc/quest_warper.txt
+++ b/npc/custom/etc/quest_warper.txt
@@ -3,11 +3,11 @@
 //===== By: =======================================================
 //= DZeroX, Darkchild, Neouni
 //===== Current Version: ==========================================
-//= 2.2
+//= 2.3
 //===== Compatible With: ==========================================
 //= rAthena SVN
 //===== Description: ==============================================
-//= Warper that works only after locations are unlocked
+//= Warper that works only after locations are unlocked.
 //===== Additional Comments: ======================================
 //= 1.0 - NPCs created
 //= 1.1 - Add Dungeons by sturm
@@ -38,10 +38,9 @@
 // - fixed syntax problems
 // - fixed missing pyramid gats in @DGat$ array
 // - removed the culver level 5 that didn't exist
-// and caused quite alot of problems (i didn't check while converting)
-//-1.7 - Readability of Dungeon menu building increased [Neouni]
+//= 1.7 - Readability of Dungeon menu building increased [Neouni]
 // - Thanatos Tower & Louyang Dungeon added
-//-1.8 - changed around unlock variables [Neouni]
+//= 1.8 - changed around unlock variables [Neouni]
 // - Moved warp variables to mark what you have unlocked to an binary array in login based permanent variable
 // (warp variables are saved in login database, so all charservers have these unlocked)
 // - Town Warp unlock array max 21/(unknown max) items used instead of max account #variables 32 !
@@ -49,42 +48,30 @@
 // - (max login ##variables = 16, i used 3)
 // - old variables are cleared on next save
 // - Extra Variable clear added for every character, just in case (request by Terces)
-//-1.8a - Show ammount of users on map [Neouni]
-// - Default = off, enable in GM menu
-// - Requested by escoteiro
-//-1.8b - Small typo fixed in stampcard script [Neouni]
-// - Reported by escoteiro
-//-1.9 - Making it more edit friendly [Neouni]
+//= 1.8a - Show amount of users on map [Neouni]
+//= 1.8b - Small typo fixed in stampcard script [Neouni]
+//= 1.9 - Making it more edit friendly [Neouni]
 // - Made Dungeon warp arrays more readable & editable (QWS_Darray)
 // - Made town warp arrays more readable & editable (QWS_Tarray)
-//-2.0 - Special Warp menu added [Neouni]
+//= 2.0 - Special Warp menu added [Neouni]
 // - when all towns and dungeons are collected a new option on the main menu will show
 // - it will only show when you setup the mapname of the warp !
-// - requested by escoteiro
-// - several bugs fixed
-//-2.0a - Dungeon Level Limit & Split dungeon fees
+//= 2.0a - Dungeon Level Limit & Split dungeon fees
 // - Limits dungeon based on Depth, access special setup menu thru GM-Menu
 // - Dungeon fees split up based on  Basic , Advanced & Overseas
 // - Old Dungeon fee system removed, all dungeon fees now set to 0
-//-2.0b
-// - Special warpname menu option name bug fixed
-//-2.1 Updated names to fall within retrictions. [L0ne_W0lf]
-//-2.2 #kafra_code is now stored as is. [brianluau]
+//= 2.0b - Special warpname menu option name bug fixed
+//= 2.1 - Updated names to fall within retrictions. [L0ne_W0lf]
+//= 2.2 - #kafra_code is now stored as is. [brianluau]
+//= 2.3 - Addednew town maps, cleanup, and removed pre-1.8 backwards fix. [Euphy]
 //=================================================================
 
 //========================Function=&=Script========================
 
-
 function	script	Q_Warpra	{
-// Quick hack for backwards compatibility pre 1.8
-if (##QWS_UP < 18) callfunc "QWS_BackComp";
-// Extra clear variables because marker is saved on all char servers and variables can be on multiple servers
-if (QWS_ExtraVARClear < 18) callfunc "Extra_Variable_Clear";
-
 	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 "I can warp you to any town or dungeon, but you need to unlock them first by visiting us.";
 	mes "What do you need?";
 	
 	if(getarg(0) == 0) callfunc "QWS_MMarray",0;
@@ -93,280 +80,175 @@ if (QWS_ExtraVARClear < 18) callfunc "Extra_Variable_Clear";
 	set @MMenu,select(@Mmenulist$[0],@Mmenulist$[1],@Mmenulist$[2],@Mmenulist$[3],@Mmenulist$[4],@Mmenulist$[5],@Mmenulist$[6],@Mmenulist$[7],@Mmenulist$[8],@Mmenulist$[9],@Mmenulist$[10],@Mmenulist$[11]);
 
 	switch(@Mmenuref[@MMenu-1]+1){
-	case 1:
-	goto GM_Menu;
+	case 1: goto GM_Menu;
 	case 2:
-	warp $QW_SP_WarpMap$, $QW_SP_WarpX, $QW_SP_WarpY;
-	close2;
-	debugmes "Please check your special warp menu settings on the Warpra";
-	end;
-	case 3:
-	goto L_town;
-	case 4:
-	goto L_dungeon;
-	case 5:
-	goto L_FewWarps;
-	case 6:
-	goto L_NoUnlock;
-	case 7:
-	goto L_heal_Full;
-	case 8:
-	goto L_heal_Part;
-	case 9:
-	goto L_Storage;
-	case 10:
-	goto L_GStorage;
+		warp $QW_SP_WarpMap$, $QW_SP_WarpX, $QW_SP_WarpY;
+		close2;
+		debugmes "Please check your special warp menu settings on the Warpra.";
+		end;
+	case 3: goto L_town;
+	case 4: goto L_dungeon;
+	case 5: goto L_FewWarps;
+	case 6: goto L_NoUnlock;
+	case 7: goto L_heal_Full;
+	case 8: goto L_heal_Part;
+	case 9: goto L_Storage;
+	case 10: goto L_GStorage;
 	case 11:
-	goto L_end;
 	default:
-	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";
-//----------------Dungeon-Depth-Limit
-	if ($QW_DL == 1) mes "Dungeon Depth limit is ^00FF00 On ^000000";
-	if ($QW_DL == 0) mes "Dungeon Depth limit is ^FF0000 Off ^000000";
+	next;
+	mes "Town warping = "+(($QW_TW_OFF)?"^FF0000 Off":"^00FF00 On")+"^000000";
+	mes "Dungeon warping = "+(($QW_DW_OFF)?"^FF0000 Off":"^00FF00 On")+"^000000";
+	mes "Dungeon Depth limit is "+(($QW_DL)?"^00FF00 On":"^FF0000 Off")+"^000000";
 	mes "If on Dungeon Depth limit is set to ^0000FF"+$QW_DDL+"^000000";
-//----------------ShowMapUsers
-	if ($QW_MapUserShow == 1) mes "Show Map Users = ^00FF00 On ^000000";
-	if ($QW_MapUserShow == 0) mes "Show Map Users = ^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";
-//----------------KafraPoints
-	if ($QW_KPoint == 1) mes "Kafra points collect = ^00FF00 On ^000000";
-	if ($QW_KPoint == 0) mes "Kafra points collect = ^FF0000 Off ^000000";
-//----------------GMmenu
-	switch(select("Town Warping","Dungeon Warping","Dungeon Level Limit","Show Map Users","Healing full","Healing partly","Storage","Guild Storage","Kafra points collect","Set Prices","Special Warp","Exit")) {
+	mes "Show Map Users = "+(($QW_MapUserShow)?"^00FF00 On":"^FF0000 Off")+"^000000";
 
-// Using callsub and a small check to not make 1 part of the script set it on and the other turning it off again
+	if ($QW_HF) mes "Healing full = ^00FF00 On ^000000";
+	if ($QW_HP) mes "Healing partly = ^00FF00 On ^000000";
+	if (!$QW_HF && !$QW_HP) mes "Healing = ^FF0000 Off ^000000";
 
-case 1:
-	if ($QW_TW_OFF == 0) {
-		set $QW_TW_OFF,1;
-		goto GM_Menu;
-	} else
-		set $QW_TW_OFF,0;
-		goto GM_Menu;
-case 2:
-	if ($QW_DW_OFF == 0) {
-		set $QW_DW_OFF,1;
-		goto GM_Menu;
-	} else
-		set $QW_DW_OFF,0;
-		goto GM_Menu;
-case 3:
-	goto DungeonLevelLimit;
-case 4:
-	if ($QW_MapUserShow == 0) {
-		set $QW_MapUserShow,1;
-		goto GM_Menu;
-	} else
-		set $QW_MapUserShow,0;
-		goto GM_Menu;
-case 5:
-	if ($QW_HF == 0) {
-		set $QW_HF,1;
-		set $QW_HP,0;
-		goto GM_Menu;
-	} else
-		set $QW_HF,0;
-		goto GM_Menu;
-case 6:
-	if ($QW_HP == 0) {
-		set $QW_HP,1;
-		set $QW_HF,0;
-		goto GM_Menu;
-	} else
-	set $QW_HP,0;
-	goto GM_Menu;
-case 7:
-	if ($QW_Stor == 0) {
-		set $QW_Stor,1;
-		goto GM_Menu;
-	} else
-	set $QW_Stor,0;
-	goto GM_Menu;
-case 8:
-	if ($QW_GStor == 0) {
-		set $QW_GStor,1;
+	mes "Storage = "+(($QW_Stor)?"^00FF00 On":"^FF0000 Off")+"^000000";
+	mes "Guild Storage = "+(($QW_GStor)?"^00FF00 On":"^FF0000 Off")+"^000000";
+	mes "Kafra points collect = "+(($QW_KPoint)?"^00FF00 On":"^FF0000 Off")+"^000000";
+
+	switch(select("Town Warping","Dungeon Warping","Dungeon Level Limit","Show Map Users","Healing full","Healing partly","Storage","Guild Storage","Kafra points collect","Set Prices","Special Warp","Exit")) {
+	case 1: set $QW_TW_OFF,($QW_TW_OFF)?0:1; goto GM_Menu;
+	case 2: set $QW_DW_OFF,($QW_DW_OFF)?0:1; goto GM_Menu;
+	case 3: goto DungeonLevelLimit;
+	case 4: set $QW_MapUserShow,($QW_MapUserShow)?0:1; goto GM_Menu;
+	case 5:
+		if ($QW_HF == 0) {
+			set $QW_HF,1;
+			set $QW_HP,0;
+		}
+		else set $QW_HF,0;
 		goto GM_Menu;
-	} else
-	set $QW_GStor,0;
-	goto GM_Menu;
-case 9:
-	if ($QW_KPoint == 0) {
-		set $QW_KPoint,1;
+	case 6:
+		if ($QW_HP == 0) {
+			set $QW_HP,1;
+			set $QW_HF,0;
+		}
+		else set $QW_HP,0;
 		goto GM_Menu;
-	} else
-	set $QW_KPoint,0;
-	goto GM_Menu;
-case 10:
-	goto Setprice;
-case 11:
-	goto SpecialWarpMenu;
-default:
-	close;
-	end;
-}
-
+	case 7: set $QW_Stor,($QW_Stor)?0:1; goto GM_Menu;
+	case 8: set $QW_GStor,($QW_GStor)?0:1; goto GM_Menu;
+	case 9: set $QW_KPoint,($QW_KPoint)?0:1; goto GM_Menu;
+	case 10: goto Setprice;
+	case 11: goto SpecialWarpMenu;
+	default:
+		close;
+		end;
+	}
 
 //======================GM-Menu=Pricing============================
 
 Setprice:
 	if ($QW_DW_FEE != 0) set $QW_DW_FEE,0;
 	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";
-//----------------Basic-Dungeon-Level-Warp-Fee
-	if ($QW_BW_FEE != 0) mes "Basic Dungeon level warp fee = ^00FF00 "+$QW_BW_FEE+" ^000000 zeny per level";
-	if ($QW_BW_FEE == 0) mes "Basic Dungeon level warp fee = ^FF0000 NO ^000000 zeny per level";
-//----------------Advanced-Dungeon-Level-Warp-Fee
-	if ($QW_AW_FEE != 0) mes "Advanced Dungeon level warp fee = ^00FF00 "+$QW_AW_FEE+" ^000000 zeny per level";
-	if ($QW_AW_FEE == 0) mes "Advanced Dungeon level warp fee = ^FF0000 NO ^000000 zeny per level";
-//----------------Overseas-Dungeon-Level-Warp-Fee
-	if ($QW_OW_FEE != 0) mes "Overseas Dungeon level warp fee = ^00FF00 "+$QW_OW_FEE+" ^000000 zeny per level";
-	if ($QW_OW_FEE == 0) mes "Overseas Dungeon level warp fee = ^FF0000 NO ^000000 zeny per level";
-//----------------Heal-Full
-	if ($QW_HF_PRICE != 0) mes "Full Healing = ^00FF00 "+$QW_HF_PRICE+" ^000000";
-	if ($QW_HF_PRICE == 0) mes "Full Healing = ^FF0000 Free ^000000";
-//----------------Heal-Part
-	if ($QW_HP_H_PRICE != 0) mes "^FF0000HP ^000000Part Healing = ^00FF00 "+$QW_HP_H_PRICE+" ^000000 a point";
-	if ($QW_HP_H_PRICE == 0) mes "^FF0000HP ^000000Part Healing = ^FF0000 Free ^000000";
-	if ($QW_HP_S_PRICE != 0) mes "^0000FFSP ^000000Part Healing = ^00FF00 "+$QW_HP_S_PRICE+" ^000000 a point";
-	if ($QW_HP_S_PRICE == 0) mes "^0000FFSP ^000000Part Healing = ^FF0000 Free ^000000";
-//----------------Storage
-	if (($QW_S_PRICE != 0)&&($QW_S_PRICE != 60)) mes "Storage = ^00FF00 "+$QW_S_PRICE+" ^000000";
-	if ($QW_S_PRICE == 0) mes "Storage = ^FF0000 Free ^000000";
-	if ($QW_S_PRICE == 60) mes "Storage = ^0000FF Kafra Mode ^000000";
-//----------------Guild-Storage
-	if ($QW_GS_PRICE != 0) mes "Guild Storage = ^00FF00 "+$QW_GS_PRICE+" ^000000";
-	if ($QW_GS_PRICE == 0) mes "Guild Storage = ^FF0000 Free ^000000";
-	
-	switch(select("Basic - Warps","Advanced - Warps","Overseas - Warps","Basic Dungeon warp fee","Advanced Dungeon warp fee","Overseas Dungeon warp fee","Full Healing","Part Healing","Storage","Guild Storage","Back","Exit")) {
-
-case 1:
-	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;
+	mes "Scroll through the list to see all the options.";
 
-case 2:
-	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 and dungeons on the same island but not close to any starter town";
-	input $QW_AW_PRICE;
-	goto Setprice;
+	mes "Basic - Warps are = "+(($QW_BW_PRICE)?"^00FF00"+$QW_BW_PRICE:"^FF0000Free")+"^000000";
+	mes "Advanced - Warps are = "+(($QW_AW_PRICE)?"^00FF00"+$QW_AW_PRICE:"^FF0000Free")+"^000000";
+	mes "Overseas - Warps are = "+(($QW_OW_PRICE)?"^00FF00"+$QW_OW_PRICE:"^FF0000Free")+"^000000";
 
-case 3:
-	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;
+	mes "Basic Dungeon level warp fee = "+(($QW_BW_FEE)?"^00FF00"+$QW_BW_FEE:"^FF0000NO")+"^000000 zeny per level";
+	mes "Advanced Dungeon level warp fee = "+(($QW_AW_FEE)?"^00FF00"+$QW_AW_FEE:"^FF0000NO")+"^000000 zeny per level";
+	mes "Overseas Dungeon level warp fee = "+(($QW_OW_FEE)?"^00FF00"+$QW_OW_FEE:"^FF0000NO")+"^000000 zeny per level";
 
-case 4:
-	next;
-	if ($QW_BW_FEE != 0) mes "Basic Dungeon level warp fee = ^00FF00 "+$QW_BW_FEE+" ^000000 zeny per level";
-	if ($QW_BW_FEE == 0) mes "Basic Dungeon level warp fee = ^FF0000 NO ^000000 zeny per level";
-	mes "Basic - Warps are starter town related dungeons";
-	mes "Dungeon warp fees are calculated by maps away from entrance of the dungeon times Dungeon warp fee";
-	mes "These costs are on top of the regular Warp costs";
-	input $QW_BW_FEE;
-	goto Setprice;
-
-case 5:
-	next;
-	if ($QW_AW_FEE != 0) mes "Advanced Dungeon level warp fee = ^00FF00 "+$QW_AW_FEE+" ^000000 zeny per level";
-	if ($QW_AW_FEE == 0) mes "Advanced Dungeon level warp fee = ^FF0000 NO ^000000 zeny per level";
-	mes "Advanced - Warps are dungeons not close to any starter town";
-	mes "Dungeon warp fees are calculated by maps away from entrance of the dungeon times Dungeon warp fee";
-	mes "These costs are on top of the regular Warp costs";
-	input $QW_AW_FEE;
-	goto Setprice;
-
-case 6:
-	next;
-	if ($QW_OW_FEE != 0) mes "Overseas Dungeon level warp fee = ^00FF00 "+$QW_OW_FEE+" ^000000 zeny per level";
-	if ($QW_OW_FEE == 0) mes "Overseas Dungeon level warp fee = ^FF0000 NO ^000000 zeny per level";
-	mes "Overseas - Warps are dungeons related to towns overseas reachable by boat from alberta";
-	mes "Dungeon warp fees are calculated by maps away from entrance of the dungeon times Dungeon warp fee";
-	mes "These costs are on top of the regular Warp costs";
-	input $QW_OW_FEE;
-	goto Setprice;
-
-case 7:
-	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;
+	mes "Full Healing = "+(($QW_HF_PRICE)?"^00FF00"+$QW_HF_PRICE:"^FF0000Free")+"^000000";
+	mes "^FF0000HP ^000000Part Healing = "+(($QW_HP_H_PRICE)?"^00FF00"+$QW_HP_H_PRICE+"^000000 a point":"^FF0000Free^000000");
+	mes "^FF0000SP ^000000Part Healing = "+(($QW_HP_S_PRICE)?"^00FF00"+$QW_HP_S_PRICE+"^000000 a point":"^FF0000Free^000000");
 
-case 8:
-	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;
-
-case 9:
-	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 && $QW_S_PRICE != 60) mes "Storage = ^00FF00 "+$QW_S_PRICE+" ^000000";
+	if (!$QW_S_PRICE) 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;
-
-case 10:
-	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;
-case 11:
-	goto GM_Menu;
-default:
-	close;
-	end;
-}
+	mes "Guild Storage = "+(($QW_GS_PRICE)?"^00FF00"+$QW_GS_PRICE:"^FF0000Free")+"^000000";
+	
+	switch(select("Basic - Warps","Advanced - Warps","Overseas - Warps","Basic Dungeon warp fee","Advanced Dungeon warp fee","Overseas Dungeon warp fee","Full Healing","Part Healing","Storage","Guild Storage","Back","Exit")) {
+	case 1:
+		next;
+		mes "Basic - Warps are = "+(($QW_BW_PRICE)?"^00FF00"+$QW_BW_PRICE:"^FF0000Free")+"^000000";
+		mes "Basic - Warps are starter towns and related dungeons.";
+		input $QW_BW_PRICE;
+		goto Setprice;
+	case 2:
+		next;
+		mes "Advanced - Warps are = "+(($QW_AW_PRICE)?"^00FF00"+$QW_AW_PRICE:"^FF0000Free")+"^000000";
+		mes "Advanced - Warps are towns and dungeons on the same island but not close to any starter town.";
+		input $QW_AW_PRICE;
+		goto Setprice;
+	case 3:
+		next;
+		mes "Overseas - Warps are = "+(($QW_OW_PRICE)?"^00FF00"+$QW_OW_PRICE:"^FF0000Free")+"^000000";
+		mes "Overseas - Warps are towns and dungeons overseas reachable by boat from Alberta.";
+		input $QW_OW_PRICE;
+		goto Setprice;
+	case 4:
+		next;
+		mes "Basic Dungeon level warp fee = "+(($QW_BW_FEE)?"^00FF00"+$QW_BW_FEE:"^FF0000NO")+"^000000 zeny per level";
+		mes "Basic - Warps are starter town related dungeons.";
+		mes "Dungeon warp fees are calculated by maps away from entrance of the dungeon times Dungeon warp fee.";
+		mes "These costs are on top of the regular Warp costs.";
+		input $QW_BW_FEE;
+		goto Setprice;
+	case 5:
+		next;
+		mes "Advanced Dungeon level warp fee = "+(($QW_AW_FEE)?"^00FF00"+$QW_AW_FEE:"^FF0000NO")+"^000000 zeny per level";
+		mes "Advanced - Warps are dungeons not close to any starter town.";
+		mes "Dungeon warp fees are calculated by maps away from entrance of the dungeon times Dungeon warp fee.";
+		mes "These costs are on top of the regular Warp costs.";
+		input $QW_AW_FEE;
+		goto Setprice;
+	case 6:
+		next;
+		mes "Overseas Dungeon level warp fee = "+(($QW_OW_FEE)?"^00FF00"+$QW_OW_FEE:"^FF0000NO")+"^000000 zeny per level";
+		mes "Overseas - Warps are dungeons related to towns overseas reachable by boat from Alberta.";
+		mes "Dungeon warp fees are calculated by maps away from entrance of the dungeon times Dungeon warp fee.";
+		mes "These costs are on top of the regular Warp costs.";
+		input $QW_OW_FEE;
+		goto Setprice;
+	case 7:
+		next;
+		mes "Full Healing = "+(($QW_HF_PRICE)?"^00FF00"+$QW_HF_PRICE:"^FF0000Free")+"^000000";
+		mes "Instant full healing 1 price.";
+		input $QW_HF_PRICE;
+		goto Setprice;
+	case 8:
+		next;
+		mes "^FF0000HP ^000000Part Healing = "+(($QW_HP_H_PRICE)?"^00FF00"+$QW_HP_H_PRICE+"^000000 a point":"^FF0000Free^000000");
+		mes "^FF0000SP ^000000Part Healing = "+(($QW_HP_S_PRICE)?"^00FF00"+$QW_HP_S_PRICE+"^000000 a point":"^FF0000Free^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;
+	case 9:
+		next;
+		if ($QW_S_PRICE && $QW_S_PRICE != 60) mes "Storage = ^00FF00 "+$QW_S_PRICE+" ^000000";
+		if (!$QW_S_PRICE) 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;
+	case 10:
+		next;
+		mes "Guild Storage = "+(($QW_GS_PRICE)?"^00FF00"+$QW_GS_PRICE:"^FF0000Free")+"^000000";
+		mes "Guild Storage, free on Guild Kafras.";
+		input $QW_GS_PRICE;
+		goto Setprice;
+	case 11:
+		goto GM_Menu;
+	default:
+		close;
+		end;
+	}
 
 //======================Special=Warp=Menu==========================
 
@@ -381,80 +263,72 @@ SpecialWarpMenu:
 	if ($QW_SP_WarpMap$ != "") mes "map is currently set to ^0000FF"+$QW_SP_WarpMap$+"^000000 and Special Warp menu is on";
 	mes "coords are set to ^0000FF"+$QW_SP_WarpX+","+$QW_SP_WarpY+"^000000";
 	switch(select("Set Special Warp name to show in menu", "Set WarpMap","Set Coords","Go Back to GM_Menu","Exit")){
-
-case 1:
-	next;
-	mes "set the name to show in the menu as option";
-	input $QW_SP_Warpname$;
-	goto SpecialWarpMenu;
-case 2:
-	next;
-	mes "set the map in the ^0000FFmapname^000000 format";
-	mes "when this warpmap is set the option for players will show once they meet the requirments";
-	mes "to disable Special Warp Menu option clear this !";
-	input $QW_SP_WarpMap$;
-	goto SpecialWarpMenu;
-case 3:
-	next;
-	mes "First input = Xcoord";
-	mes "Second input = Ycoord";
-	input $QW_SP_WarpX;
-	input $QW_SP_WarpY;
-	goto SpecialWarpMenu;
-case 4:
-	goto GM_Menu;
-default:
-	close;
-	end;
-}
+	case 1:
+		next;
+		mes "Set the name to show in the menu as option.";
+		input $QW_SP_Warpname$;
+		goto SpecialWarpMenu;
+	case 2:
+		next;
+		mes "Set the map in the ^0000FFmapname^000000 format.";
+		mes "When this warpmap is set the option for players will show once they meet the requirments.";
+		mes "To disable Special Warp Menu option, clear this!";
+		input $QW_SP_WarpMap$;
+		goto SpecialWarpMenu;
+	case 3:
+		next;
+		mes "First input = Xcoord";
+		mes "Second input = Ycoord";
+		input $QW_SP_WarpX;
+		input $QW_SP_WarpY;
+		goto SpecialWarpMenu;
+	case 4:
+		goto GM_Menu;
+	default:
+		close;
+		end;
+	}
 
 //======================Dungeon=Level=Limit========================
+
 DungeonLevelLimit:
 	next;
-	if ($QW_DL == 1) mes "Dungeon Depth limit is ^00FF00 On ^000000";
-	if ($QW_DL == 0) mes "Dungeon Depth limit is ^FF0000 Off ^000000";
+	mes "Dungeon Depth limit is "+(($QW_DL)?"^00FF00On":"^FF0000Off")+"^000000";
 	mes "If^00FF00 On ^000000Dungeon Depth limit is set to ^0000FF"+$QW_DDL+"^000000";
-	
-	switch(select("Toggle Dungeon Depth Limit", "Set Dungeon Depth Limit","Go Back to GM_Menu","Exit")){
 
-case 1:
-	if ($QW_DL == 0) {
-		set $QW_DL,1;
-		goto DungeonLevelLimit;
-	} else
-		set $QW_DL,0;
+	switch(select("Toggle Dungeon Depth Limit","Set Dungeon Depth Limit","Go Back to GM_Menu","Exit")){
+	case 1: set $QW_DL,($QW_DL)?0:1; goto DungeonLevelLimit;
+	case 2:
+		next;
+		mes "Set limit of Dungeon Depth 0 = entrance";
+		mes "Depth 1 is a map connected to 0 and so on";
+		mes "Shortest Route to map counts as depth";
+		input $QW_DDL;
 		goto DungeonLevelLimit;
-case 2:
-	next;
-	mes "set limit of Dungeon Depth 0 = entrance";
-	mes "Depth 1 is a map connected to 0 and so on";
-	mes "Shortest Route to map counts as depth";
-	input $QW_DDL;
-	goto DungeonLevelLimit;
-case 3:
-	goto GM_Menu;
-default:
-	close;
-	end;
-}
+	case 3: goto GM_Menu;
+	default:
+		close;
+		end;
+	}
 
 //===========================Towns=================================
 
 L_town:
 	callfunc "QWS_Tarray";
-
-// Expected maximum is set to 25 items, if you add  more options add more ",@Tmenulist$[xx]"
-
-	set @TWMenu,select(@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],@Tmenulist$[23],@Tmenulist$[24]);
+	freeloop(1);
+	set .@menu$,"";
+	for(set .@i,0; .@i<35; set .@i,.@i+1)	// Expected maximum is 35
+		set .@menu$,.@menu$+@Tmenulist$[.@i]+":";
+	freeloop(0);
+	set @TWMenu,select(.@menu$);
 
 	if (@Tmenuref[@TWMenu-1] == 57005) goto L_end; // 57005='dead' in hex
 
 	if(Zeny<@pTprice[@Tmenuref[@TWMenu-1]]) callsub L_Short_on_zeny,0;
-
 	set Zeny, Zeny-@pTprice[@Tmenuref[@TWMenu-1]];
 	if ($QW_KPoint == 1) set RESRVPTS, RESRVPTS + (@pTprice[@Tmenuref[@TWMenu-1]]/16);
 	warp @pTmap$[@Tmenuref[@TWMenu-1]],@pTXcoords[@Tmenuref[@TWMenu-1]],@pTYcoords[@Tmenuref[@TWMenu-1]];
-	close2;		// this part safegaurds against errors/typos
+	close2;
 	set Zeny, Zeny+@pTprice[@Tmenuref[@TWMenu-1]];
 	end;
 
@@ -462,10 +336,12 @@ L_town:
 
 L_dungeon:
 	callfunc "QWS_Darray";
-	
-// Expected maximum is set to 35 items, if you add  more options add more ",@Dmenulist$[xx]"
-
-	set @DWMenu,select(@Dmenulist$[0],@Dmenulist$[1],@Dmenulist$[2],@Dmenulist$[3],@Dmenulist$[4],@Dmenulist$[5],@Dmenulist$[6],@Dmenulist$[7],@Dmenulist$[8],@Dmenulist$[9],@Dmenulist$[10],@Dmenulist$[11],@Dmenulist$[12],@Dmenulist$[13],@Dmenulist$[14],@Dmenulist$[15],@Dmenulist$[16],@Dmenulist$[17],@Dmenulist$[18],@Dmenulist$[19],@Dmenulist$[20],@Dmenulist$[21],@Dmenulist$[22],@Dmenulist$[23],@Dmenulist$[24],@Dmenulist$[25],@Dmenulist$[26],@Dmenulist$[27],@Dmenulist$[28],@Dmenulist$[29],@Dmenulist$[30],@Dmenulist$[31],@Dmenulist$[32],@Dmenulist$[33],@Dmenulist$[34]);
+	freeloop(1);
+	set .@menu$,"";
+	for(set .@i,0; .@i<35; set .@i,.@i+1)	// Expected maximum is 35
+		set .@menu$,.@menu$+@Dmenulist$[.@i]+":";
+	freeloop(0);
+	set @DWMenu,select(.@menu$);
 
 	if (@Dmenuref[@DWMenu-1] == 57005) goto L_end; // 57005='dead' in hex
 	set @DwarpMenu, (@Dmenuref[@DWMenu-1]);
@@ -473,10 +349,13 @@ L_dungeon:
 
 	next;
 	mes "[Warpra]";
-	mes "Please select where you want to go";
-
-// Expected maximum is set to 18 items, if you have dungeons with more levels add more ",@DWLmenulist$[xx]"
-	set @DWLMenu,select(@DWLmenulist$[0], @DWLmenulist$[1], @DWLmenulist$[2], @DWLmenulist$[3], @DWLmenulist$[4], @DWLmenulist$[5], @DWLmenulist$[6], @DWLmenulist$[7], @DWLmenulist$[8], @DWLmenulist$[9], @DWLmenulist$[10], @DWLmenulist$[11], @DWLmenulist$[12], @DWLmenulist$[13], @DWLmenulist$[14], @DWLmenulist$[15], @DWLmenulist$[16], @DWLmenulist$[17]);
+	mes "Please select where you want to go:";
+	freeloop(1);
+	set .@menu$,"";
+	for(set .@i,0; .@i<18; set .@i,.@i+1)	// Expected maximum is 18
+		set .@menu$,.@menu$+@DWLmenulist$[.@i]+":";
+	freeloop(0);
+	set @DWLMenu,select(.@menu$);
 
 	if (@DWLmenuref[@DWLMenu-1] == 57005) goto L_end; // 57005='dead' in hex
 
@@ -484,11 +363,10 @@ L_dungeon:
 	set @warpprice, @pDprice[@Dmenuref[@DWMenu-1]]+(getd(@pDfee$[@Dmenuref[@DWMenu-1]])*(@DDepth[@Darrayref]));
 
 	if(Zeny<@warpprice) callsub L_Short_on_zeny,1;
-
 	set Zeny, Zeny-(@warpprice);
 	if ($QW_KPoint == 1) set RESRVPTS, RESRVPTS + (@warpprice/16);
 	warp @DGat$[@Darrayref],@DXcoords[@Darrayref],@DYcoords[@Darrayref];
-	close2;		// this part safegaurds against errors/typos
+	close2;
 	set Zeny, Zeny+@pTprice[@Tmenuref[@DWMenu-1]];
 	end;
 
@@ -501,7 +379,7 @@ L_heal_Full:
 	if ($QW_KPoint == 1) set RESRVPTS, RESRVPTS + (@healfee/500);
 	next;
 	mes "[Warpra]";
-	mes "Close this window and I will Heal you.";
+	mes "Close this window and I will heal you.";
 	close2;
 	percentheal 100,100;
 	end;
@@ -541,39 +419,37 @@ PHeal:
 
 Zeny_Short_Both:
 	mes "[Warpra]";
-	mes "choose another option, you can afford both.";
-	mes "I can heal as much as you can afford too.";
+	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 ?";
+	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 (@Sp == 1) mes "You're 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 ?";
+	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) mes "You're not worth the effort.";
     	if (@Sp == 1) goto L_end;
     	set Zeny, Zeny-@SpPrice;
 	heal 0,@Sp;
 	close;
 	end;
 
-
 //=============================Storage=============================
 
 L_Storage:
@@ -587,50 +463,44 @@ L_Storage:
 	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
-
+	if(#kafra_code) {
+		mes "Enter your storage password:";
+		set @code_,0;
+		input @code_;
+		if(@code_ != #kafra_code) {
+			dispbottom "Wrong storage password.";
+			close;
+		}
+		set @kafcode_try,0;
+		set @code_,0;
+	}
+	mes "Close this window and I will open your storage.";
 	close2;
 	openstorage;
 	end;
 
-F_CheckKafCode:
-	if(#kafra_code==0) return;
-	mes "Enter your storage password:";
-	set @code_,0;
-	input @code_;
-	if(@code_ != #kafra_code) {
-		dispbottom "Wrong storage password.";
-		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;
+	if (!@GID) {
+		next;
+		mes "[Warpra]";
+		mes "You are not a part of a guild I can't help you.";
+		close;
+		end;
+	}
+	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.";
+	mes "Close this window and I will open the ^5533FF" + GetGuildName(@GID) + "^000000 storage.";
 	close2;
 	guildopenstorage;
 	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;
@@ -639,21 +509,19 @@ L_end:
 //============================Few=Warp=============================
 L_FewWarps:
 	next;
-	mes "[Warpra ]";
+	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 ?.";
+	mes "Each account has its 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 "[Warpra]";
 	mes "I don't unlock this location, my assistant deeper in the dungeon will unlock this place.";
 	close;
 	end;
@@ -661,11 +529,13 @@ L_NoUnlock:
 //=========================Short=On=Zeny===========================
 L_Short_on_zeny:
 	next;
-	if (getarg(0) == 0) mes "you don't seem to have "+@pTprice[@Tmenuref[@TWMenu-1]]+" zeny, to pay for the warp fee to "+@pTmenuitems$[@Tmenuref[@TWMenu-1]]+"";
-	if (getarg(0) == 1) mes "you don't seem to have "+@warpprice+" zeny, to pay for the warp fee to "+@DLevelName$[@DWLmenuref[@DWLMenu-1]]+" at "+@pDmenuitems$[@Dmenuref[@DWMenu-1]]+"";
-	if (getarg(0) == 2) mes "you don't seem to have "+@fee+" zeny, to pay for the storage fee";
-	if (getarg(0) == 3) mes "you don't seem to have "+$QW_GS_PRICE+" zeny, to pay for the guild storage fee";
-	if (getarg(0) == 4) mes "you don't seem to have "+@healfee+" zeny, to pay for your healing";
+	switch(getarg(0)) {
+	case 0: mes "You don't seem to have "+@pTprice[@Tmenuref[@TWMenu-1]]+" zeny to pay for the warp to "+@pTmenuitems$[@Tmenuref[@TWMenu-1]]+"."; break;
+	case 1: mes "You don't seem to have "+@warpprice+" zeny to pay for the warp to "+@DLevelName$[@DWLmenuref[@DWLMenu-1]]+" at "+@pDmenuitems$[@Dmenuref[@DWMenu-1]]+"."; break;
+	case 2: mes "You don't seem to have "+@fee+" zeny to pay the storage fee."; break;
+	case 3: mes "You don't seem to have "+$QW_GS_PRICE+" zeny to pay the guild storage fee."; break;
+	case 4: mes "You don't seem to have "+@healfee+" zeny to pay for your healing."; break;
+	}
 	close;
 	end;
 	
@@ -673,38 +543,31 @@ L_Short_on_zeny:
 stampcard:
 // Counting of the ammount of places you have unlocked
 	next;
-	mes "Let me check what Towns you have";
-
+	mes "Let me check what Towns you have.";
 	callfunc "QWS_TownStamps";
-
-	mes "you collected^00FF00 "+@Tstamp+" of "+@MaxTstamp+" ^000000Towns.";
-	if (@Tstamp == 15) mes "They say there is an island you can only get to when married";
+	mes "You collected^00FF00 "+@Tstamp+" of "+@MaxTstamp+" ^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";
-
+	mes "Let me check what dungeons you have.";
 	callfunc "QWS_DungeonStamps";
-
-	mes "you collected^00FF00 "+@Dstamp+" of "+@MaxDstamp+" ^000000Dungeons";
-	mes "To unlock a dungeon, search for my colleague.";
-	mes "You can usually find them near the middle or end of the dungeon";
+	mes "You collected^00FF00 "+@Dstamp+" of "+@MaxDstamp+" ^000000Dungeons.";
+	mes "To unlock a dungeon, search for my colleagues.";
+	mes "You can usually find them near the middle or end of the dungeon.";
 	return;
 }
 
 function	script	QWS_TownStamps	{
 	set @Tstamp,0;
-	set @MaxTstamp,21; //maximum number of towns
+	set @MaxTstamp,30; //maximum number of towns
 	set @binvalue,1;
 	set @Tstamploop,0;
 	do {
-	if ((@binvalue & ##QWS_T_Unlock) == @binvalue) set @Tstamp,@Tstamp+1;
-
-	set @binvalue, @binvalue *2;
-	set @Tstamploop, @Tstamploop + 1;
-
-}while (@Tstamploop < @MaxTstamp);
-return;
+		if ((@binvalue & ##QWS_T_Unlock) == @binvalue) set @Tstamp,@Tstamp+1;
+		set @binvalue, @binvalue *2;
+		set @Tstamploop, @Tstamploop + 1;
+	} while (@Tstamploop < @MaxTstamp);
+	return;
 }
 
 function	script	QWS_DungeonStamps	{
@@ -713,47 +576,51 @@ function	script	QWS_DungeonStamps	{
 	set @binvalue,1;
 	set @Dstamploop,0;
 	do {
-	if ((@binvalue & ##QWS_D_Unlock) == @binvalue) set @Dstamp,@Dstamp+1;
-
-	set @binvalue, @binvalue *2;
-	set @Dstamploop, @Dstamploop + 1;
-
-}while (@Dstamploop < @MaxDstamp);
-return;
+		if ((@binvalue & ##QWS_D_Unlock) == @binvalue) set @Dstamp,@Dstamp+1;
+		set @binvalue, @binvalue *2;
+		set @Dstamploop, @Dstamploop + 1;
+	} while (@Dstamploop < @MaxDstamp);
+	return;
 }
 
 //======================Main=Menu=Array============================
 
 function	script	QWS_MMarray	{
 
-// Currently 9 items
+	// Currently 9 items
+	setarray @pMmenuitems$[0], "GameMaster Menu", $QW_SP_Warpname$, "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; // loop counter
+	set @Mj,0; // menu line counter
 
-	setarray @pMmenuitems$[0], "GameMaster Menu", $QW_SP_Warpname$, "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;
+	if (getgmlevel()>= 80) {
+		set @Mmenulist$[@Mj],@pMmenuitems$[@Mi];
+		set @Mmenuref[@Mj],@Mi;
+		set @Mj,@Mj+1;
+	}
 	set @Mi,@Mi+1;
 //----------------Special-Warp
 	callfunc "QWS_TownStamps";
 	callfunc "QWS_DungeonStamps";
 	if (@Tstamp == @MaxTstamp)&&(@Dstamp == @MaxDstamp)&&($QW_SP_WarpMap$ != "") {
-	set @Mmenulist$[@Mj],@pMmenuitems$[@Mi];
-	set @Mmenuref[@Mj],@Mi;
-	set @Mj,@Mj+1;
+		set @Mmenulist$[@Mj],@pMmenuitems$[@Mi];
+		set @Mmenuref[@Mj],@Mi;
+		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;
+	if ($QW_TW_OFF == 0) {
+		set @Mmenulist$[@Mj],@pMmenuitems$[@Mi];
+		set @Mmenuref[@Mj],@Mi;
+		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;
+	if ($QW_DW_OFF == 0) {
+		set @Mmenulist$[@Mj],@pMmenuitems$[@Mi];
+		set @Mmenuref[@Mj],@Mi;
+		set @Mj,@Mj+1;
+	}
 	set @Mi,@Mi+1;
 //----------------Why-So-Few-Warps
 	set @Mmenulist$[@Mj],@pMmenuitems$[@Mi];
@@ -761,74 +628,71 @@ function	script	QWS_MMarray	{
 	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;
+	if (getarg(0) == 1) {
+		set @Mmenulist$[@Mj],@pMmenuitems$[@Mi];
+		set @Mmenuref[@Mj],@Mi;
+		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;
+	if ($QW_HF == 1) {
+		set @Mmenulist$[@Mj],@pMmenuitems$[@Mi];
+		set @Mmenuref[@Mj],@Mi;
+		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;
+	if ($QW_HP == 1) {
+		set @Mmenulist$[@Mj],@pMmenuitems$[@Mi];
+		set @Mmenuref[@Mj],@Mi;
+		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;
+	if ($QW_Stor == 1) {
+		set @Mmenulist$[@Mj],@pMmenuitems$[@Mi];
+		set @Mmenuref[@Mj],@Mi;
+		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;
+	if ($QW_GStor == 1) {
+		set @Mmenulist$[@Mj],@pMmenuitems$[@Mi];
+		set @Mmenuref[@Mj],@Mi;
+		set @Mj,@Mj+1;
+	}
 	set @Mi,@Mi+1;
 //----------------Cancel
 	set @Mmenulist$[@Mj],@pMmenuitems$[@Mi];
 	set @Mmenuref[@Mj],@Mi;
 	return;
-	}
-
-
+}
 
 //======================Town=Menu=Array============================
-
-//----------------Prontera // I do this to find back sections quickly altho almost the same name is a line below it now
-//	setarray @pTmenuitems$[@Ti], "Prontera"; // Name of Town shown in Town select Menu
-//	setarray @pTprice[@Ti], $QW_BW_PRICE; // warp prices (Basic ($QW_BW_PRICE), Advanced ($QW_AW_PRICE), Overseas $QW_OW_PRICE)
-//
-//	setarray @pTmap$[@Ti], "prontera"; // mapfilename of town
-//	setarray @pTXcoords[@Ti], 156; // X warp coords
-//	setarray @pTYcoords[@Ti], 187; // Y warp coords
-//
-//	QWS_Make_Town_Menu XXX;
+// Adding a town:
+//	setarray @pTmenuitems$[@Ti], "Prontera";// Name of Town shown in Town select Menu
+//	setarray @pTprice[@Ti], $QW_BW_PRICE;	// Warp prices: Basic ($QW_BW_PRICE), Advanced ($QW_AW_PRICE), Overseas ($QW_OW_PRICE)
 //
-// the full wap commands send out by this script for these example would be
-//warp example_01 123 123
+//	setarray @pTmap$[@Ti], "prontera";	// Map name
+//	setarray @pTXcoords[@Ti], 156;		// X warp coords
+//	setarray @pTYcoords[@Ti], 187;		// Y warp coords
 //
-//  use the same XXX number as you used when making your own town warpra
-//  Read below how
+//	QWS_Make_Town_Menu 0;	// Use a free number (last used is 30, Eclage)
 //
-// example:
-//
-//syntax:
-//mapname,xcoord,ycoord,directionfacing	script	Name of NPC	NPC-ID,{
-//
-// Full example using fake map & coords
-//
-//example_01,213,213,4	script	Warpra	112,{
-//	callfunc "QWS_Town_Warpra",XXX,"A FAKE TOWN FOR EXAMPLE";
-//	close;
+// Adding a warpra:
+//	map,x,y,facing	script	Warpra#example	113,{
+//		callfunc "QWS_Town_Warpra",<town number>,"Your Town";
+//		close;
 //	}
-// use a free number for XXX, last used is 20, for Yuno
+//	Town number is the same as "QWS_Make_Town_Menu".
+//==================================================================
 
 function	script	QWS_Tarray	{
 	function QWS_Make_Town_Menu;
 
-	set @Ti,0; // That's our loop counter.
-	set @Tj,0; // That's the menu lines counter.
+	set @Ti,0; // loop counter
+	set @Tj,0; // menu lines counter
+
 //----------------Prontera
 	setarray @pTmenuitems$[@Ti], "Prontera";
 	setarray @pTprice[@Ti], $QW_BW_PRICE;
@@ -874,6 +738,15 @@ function	script	QWS_Tarray	{
 	setarray @pTYcoords[@Ti], 57;
 
 	QWS_Make_Town_Menu 4;
+//----------------Brasilis:
+	setarray @pTmenuitems$[@Ti], "Brasilis";
+	setarray @pTprice[@Ti], $QW_OW_PRICE;
+
+	setarray @pTmap$[@Ti], "brasilis";
+	setarray @pTXcoords[@Ti], 195;
+	setarray @pTYcoords[@Ti], 220;
+
+	QWS_Make_Town_Menu 21;
 //----------------Comodo:
 	setarray @pTmenuitems$[@Ti], "Comodo";
 	setarray @pTprice[@Ti], $QW_AW_PRICE;
@@ -883,6 +756,24 @@ function	script	QWS_Tarray	{
 	setarray @pTYcoords[@Ti], 161;
 
 	QWS_Make_Town_Menu 5;
+//----------------Dewata:
+	setarray @pTmenuitems$[@Ti], "Dewata";
+	setarray @pTprice[@Ti], $QW_OW_PRICE;
+
+	setarray @pTmap$[@Ti], "dewata";
+	setarray @pTXcoords[@Ti], 199;
+	setarray @pTYcoords[@Ti], 179;
+
+	QWS_Make_Town_Menu 29;
+//----------------Eclage:
+	setarray @pTmenuitems$[@Ti], "Eclage";
+	setarray @pTprice[@Ti], $QW_OW_PRICE;
+
+	setarray @pTmap$[@Ti], "eclage";
+	setarray @pTXcoords[@Ti], 111;
+	setarray @pTYcoords[@Ti], 39;
+
+	QWS_Make_Town_Menu 30;
 //----------------Einbech:
 	setarray @pTmenuitems$[@Ti], "Einbech";
 	setarray @pTprice[@Ti], $QW_AW_PRICE;
@@ -901,6 +792,15 @@ function	script	QWS_Tarray	{
 	setarray @pTYcoords[@Ti], 191;
 
 	QWS_Make_Town_Menu 7;
+//----------------El Dicastes:
+	setarray @pTmenuitems$[@Ti], "El Dicastes";
+	setarray @pTprice[@Ti], $QW_OW_PRICE;
+
+	setarray @pTmap$[@Ti], "dicastes01";
+	setarray @pTXcoords[@Ti], 197;
+	setarray @pTYcoords[@Ti], 187;
+
+	QWS_Make_Town_Menu 22;
 //----------------Geffen:
 	setarray @pTmenuitems$[@Ti], "Geffen";
 	setarray @pTprice[@Ti], $QW_BW_PRICE;
@@ -973,6 +873,24 @@ function	script	QWS_Tarray	{
 	setarray @pTYcoords[@Ti], 131;
 
 	QWS_Make_Town_Menu 15;
+//----------------Manuk
+	setarray @pTmenuitems$[@Ti], "Manuk";
+	setarray @pTprice[@Ti], $QW_OW_PRICE;
+
+	setarray @pTmap$[@Ti], "manuk";
+	setarray @pTXcoords[@Ti], 260;
+	setarray @pTYcoords[@Ti], 175;
+
+	QWS_Make_Town_Menu 23;
+//----------------Mora
+	setarray @pTmenuitems$[@Ti], "Mora";
+	setarray @pTprice[@Ti], $QW_OW_PRICE;
+
+	setarray @pTmap$[@Ti], "mora";
+	setarray @pTXcoords[@Ti], 111;
+	setarray @pTYcoords[@Ti], 97;
+
+	QWS_Make_Town_Menu 24;
 //----------------Morroc:
 	setarray @pTmenuitems$[@Ti], "Morroc";
 	setarray @pTprice[@Ti], $QW_BW_PRICE;
@@ -982,6 +900,15 @@ function	script	QWS_Tarray	{
 	setarray @pTYcoords[@Ti], 93;
 
 	QWS_Make_Town_Menu 16;
+//----------------Moscovia
+	setarray @pTmenuitems$[@Ti], "Moscovia";
+	setarray @pTprice[@Ti], $QW_OW_PRICE;
+
+	setarray @pTmap$[@Ti], "moscovia";
+	setarray @pTXcoords[@Ti], 219;
+	setarray @pTYcoords[@Ti], 193;
+
+	QWS_Make_Town_Menu 25;
 //----------------Niflheim:
 	setarray @pTmenuitems$[@Ti], "Niflheim";
 	setarray @pTprice[@Ti], $QW_AW_PRICE;
@@ -1000,6 +927,24 @@ function	script	QWS_Tarray	{
 	setarray @pTYcoords[@Ti], 75;
 
 	QWS_Make_Town_Menu 18;
+//----------------Rachel
+	setarray @pTmenuitems$[@Ti], "Rachel";
+	setarray @pTprice[@Ti], $QW_AW_PRICE;
+
+	setarray @pTmap$[@Ti], "rachel";
+	setarray @pTXcoords[@Ti], 130;
+	setarray @pTYcoords[@Ti], 111;
+
+	QWS_Make_Town_Menu 26;
+//----------------Splendide
+	setarray @pTmenuitems$[@Ti], "Splendide";
+	setarray @pTprice[@Ti], $QW_OW_PRICE;
+
+	setarray @pTmap$[@Ti], "splendide";
+	setarray @pTXcoords[@Ti], 200;
+	setarray @pTYcoords[@Ti], 153;
+
+	QWS_Make_Town_Menu 27;
 //----------------Umbala:
 	setarray @pTmenuitems$[@Ti], "Umbala";
 	setarray @pTprice[@Ti], $QW_AW_PRICE;
@@ -1009,6 +954,15 @@ function	script	QWS_Tarray	{
 	setarray @pTYcoords[@Ti], 130;
 
 	QWS_Make_Town_Menu 19;
+//----------------Veins
+	setarray @pTmenuitems$[@Ti], "Veins";
+	setarray @pTprice[@Ti], $QW_OW_PRICE;
+
+	setarray @pTmap$[@Ti], "veins";
+	setarray @pTXcoords[@Ti], 216;
+	setarray @pTYcoords[@Ti], 123;
+
+	QWS_Make_Town_Menu 28;
 //----------------Yuno:
 	setarray @pTmenuitems$[@Ti], "Yuno";
 	setarray @pTprice[@Ti], $QW_AW_PRICE;
@@ -1040,8 +994,8 @@ function	QWS_Make_Town_Menu	{
 // check marker and make menu item
 menu_item:
 	if ((@temptownmenubin & ##QWS_T_Unlock) != @temptownmenubin) {
-	set @Ti,@Ti+1;
-	return;
+		set @Ti,@Ti+1;
+		return;
 	}
 	if (@pTprice[@Ti] != 0)&&($QW_MapUserShow == 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti]+" -> "+@pTprice[@Ti];
 	if (@pTprice[@Ti] == 0)&&($QW_MapUserShow == 0) set @Tmenulist$[@Tj], @pTmenuitems$[@Ti];
@@ -1051,49 +1005,31 @@ menu_item:
 	set @Tj,@Tj+1;
 	set @Ti,@Ti+1;
 	return;
-
 }
 }
 
 //====================Dungeon=Menu=Arrays==========================
-
-//----------------A FAKE DUNGEON FOR EXAMPLE // I do this to find back sections quickly altho almost the same name is a line below it now
-//	setarray @pDmenuitems$[@Di], "Fake Dungeon"; // Name of Dungeon shown in Dungeon select Menu
-//	setarray @pDprice[@Di], $QW_BW_PRICE; // warp prices (Basic ($QW_BW_PRICE), Advanced ($QW_AW_PRICE), Overseas $QW_OW_PRICE)
-//	setarray @pDfee$[@Di], "$QW_BW_FEE"; // Identifyer for the Dungeon fee caluclation (Basic ("$QW_BW_FEE"), Advanced ("$QW_AW_FEE"), Overseas ("$QW_OW_FEE")) please use setting in relation with option above (Don't forget "")
-//	setarray @DLevels[@Di], 2; //number of levels in dungeon (very important if set to high will shift all leveldata!!)
+// Adding a dungeon:
+//	setarray @pDmenuitems$[@Di], "Abyss Lake";	// Name of Dungeon shown in Dungeon select Menu
+//	setarray @pDprice[@Di], $QW_AW_PRICE;		// Warp prices: Basic ($QW_BW_PRICE), Advanced ($QW_AW_PRICE), Overseas ($QW_OW_PRICE)
+//	setarray @pDfee$[@Di], "$QW_AW_FEE";		// Identifier for fee caluclation: Basic ("$QW_BW_FEE"), Advanced ("$QW_AW_FEE"), Overseas ("$QW_OW_FEE")
+//	setarray @DLevels[@Di], 3;			// Number of levels in dungeon
 //
-//	setarray @DGat$[@Dref], "example_01", "example_02"; // mapfilename of dungeon level
-//	setarray @DLevelName$[@Dref], "Example Level 1", "Example Level 2"; // level name shown in dungeon level select
-//	setarray @DXcoords[@Dref], 123, 234; // X warp coords
-//	setarray @DYcoords[@Dref], 123, 234;// Y warp coords
-//	setarray @DDepth[@Dref], 0, 1; // relative depth to entrance to calculate extra warp fee
+//	setarray @DGat$[@Dref], "abyss_01", "abyss_02", "abyss_03";	// Map names of dungeon levels
+//	setarray @DLevelName$[@Dref], "Level 1", "Level 2", "Level 3";	// Name of dungeon levels shown in Menu
+//	setarray @DXcoords[@Dref], 265, 275, 116;			// X warp coords
+//	setarray @DYcoords[@Dref], 273, 270, 27;			// Y warp coords
+//	setarray @DDepth[@Dref], 0, 1, 2;				// Relative depth to entrance, to calculate extra warp fee
 //
-//	QWS_Make_Dungeon_Menu XXX
+//	QWS_Make_Dungeon_Menu 0;	// Use a free number (last used is 28, Kiel Dungeon)
 //
-// the full wap commands send out by this scripts for these examples would be
-// for Example Level 1:
-//warp example_01 123 123
-//
-// for Example Level 2:
-//warp example_02 234 234
-//
-//  use the same XXX number as you used when making your own dungeon unlocker (Warpra Helper) inside the dungeon
-//  (usually half way near a warp to next level)
-//  Read below how
-//
-// example:
-//
-//syntax:
-//mapname,xcoord,ycoord,directionfacing	script	Name of NPC	NPC-ID,{
-//
-// Full example using fake map & coords
-//
-//example_01,213,213,4	script	Warpra Helper	112,{
-//	callfunc "QWS_Dungeon_Warpra",XXX,"A FAKE DUNGEON FOR EXAMPLE";
-//	close;
+// Adding a warpra:
+//	map,x,y,facing	script	Warpra Helper#example	112,{
+//		callfunc "QWS_Dungeon_Warpra",<dungeon number>,"Your Dungeon";
+//		close;
 //	}
-// use a free number for XXX, last used is 28, for Kiel Dungeon
+//	Dungeon number is the same as "QWS_Make_Dungeon_Menu".
+//==================================================================
 
 function	script	QWS_Darray	{
 	function QWS_Make_Dungeon_Menu;
@@ -1101,6 +1037,7 @@ function	script	QWS_Darray	{
 	set @Di,0;
 	set @Dj,0;
 	set @Dref,0;
+
 //----------------ABYSS LAKE
 	setarray @pDmenuitems$[@Di], "Abyss Lake";
 	setarray @pDprice[@Di], $QW_AW_PRICE;
@@ -1529,10 +1466,10 @@ function	QWS_Make_Dungeon_Menu	{
 // check marker and make menu item
 menu_item:
 	if ((@tempdungeonmenubin & ##QWS_D_Unlock) != @tempdungeonmenubin) {
-	setarray @DLocRef[@Di], @Dref;
-	set @Dref, @Dref+@DLevels[@Di];
-	set @Di,@Di+1;
-	return;
+		setarray @DLocRef[@Di], @Dref;
+		set @Dref, @Dref+@DLevels[@Di];
+		set @Di,@Di+1;
+		return;
 	}
 	if ($QW_MapUserShow == 1) {
 		set @tempmapusers,0;
@@ -1540,15 +1477,15 @@ menu_item:
 		do {
 			set @tempmapusers,(getmapusers(@DGat$[@Dref+@mapusersloop]) + @tempmapusers);
 			set @mapusersloop, (@mapusersloop + 1);
-		}while (@DLevels[@Di] > @mapusersloop);
-	if (@pDprice[@Di] != 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di]+" ["+@tempmapusers+"] -> "+@pDprice[@Di];
-	if (@pDprice[@Di] == 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di]+" ["+@tempmapusers+"]";
-	set @Dmenuref[@Dj],@Di;
-	set @Dj,@Dj+1;
-	setarray @DLocRef[@Di], @Dref;
-	set @Dref, @Dref+@DLevels[@Di];
-	set @Di,@Di+1;
-	return;
+		} while (@DLevels[@Di] > @mapusersloop);
+		if (@pDprice[@Di] != 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di]+" ["+@tempmapusers+"] -> "+@pDprice[@Di];
+		if (@pDprice[@Di] == 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di]+" ["+@tempmapusers+"]";
+		set @Dmenuref[@Dj],@Di;
+		set @Dj,@Dj+1;
+		setarray @DLocRef[@Di], @Dref;
+		set @Dref, @Dref+@DLevels[@Di];
+		set @Di,@Di+1;
+		return;
 	}
 	if (@pDprice[@Di] != 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di]+" -> "+@pDprice[@Di];
 	if (@pDprice[@Di] == 0) set @Dmenulist$[@Dj], @pDmenuitems$[@Di];
@@ -1558,218 +1495,31 @@ menu_item:
 	set @Dref, @Dref+@DLevels[@Di];
 	set @Di,@Di+1;
 	return;
-
 }
 }
 
 function	script	QWS_DLarray	{
 //----------------Start building Menu
-	set @DWref,@DLocRef[@DwarpMenu]; // That's our reference to the arrays with leveldata.
-	set @DWi,0;  // That's our loop counter.
-	set @DWj,0; // That's the menu lines counter.
+	set @DWref,@DLocRef[@DwarpMenu]; // reference to the arrays with leveldata
+	set @DWi,0;  // loop counter
+	set @DWj,0; // menu lines counter
 	cleararray @DWLmenulist$[0],"",20; // Clearing the array to get rid off ghost items in menu
 	do {
 		if ($QW_DL == 0)||($QW_DDL >= @DDepth[@DWref]) {
-			
 			set @warpprice, (@pDprice[@DwarpMenu]+ (getd(@pDfee$[@DwarpMenu])*@DDepth[@DWref]));
-
 			if (@warpprice != 0)&&($QW_MapUserShow == 0) set @DWLmenulist$[@DWj], @DLevelName$[@DWref]+" -> "+@warpprice;
 			if (@warpprice == 0)&&($QW_MapUserShow == 0) set @DWLmenulist$[@DWj], @DLevelName$[@DWref];
 			if (@warpprice != 0)&&($QW_MapUserShow == 1) set @DWLmenulist$[@DWj], @DLevelName$[@DWref]+" ["+getmapusers(@DGat$[@DWref])+"] -> "+@warpprice;
 			if (@warpprice == 0)&&($QW_MapUserShow == 1) set @DWLmenulist$[@DWj], @DLevelName$[@DWref]+" ["+getmapusers(@DGat$[@DWref])+"]";
 			set @DWLmenuref[@DWj],@DWref;
-		
-		set @DWj,@DWj+1;
+			set @DWj,@DWj+1;
 		}
 		set @DWref, @DWref+1;
 		set @DWi,@DWi+1;
-	}while	(@DWi < @DLevels[@DwarpMenu]);
+	} while (@DWi < @DLevels[@DwarpMenu]);
 	set @DWLmenulist$[@DWj], "Exit";
 	set @DWLmenuref[@DWj],57005; // 57005='dead' in hex
 	return;
-	}
-	
-
-//=================Backwards=Compatibility=Pre=1.8=================
-
-function	script	QWS_BackComp	{
-// reference where i put the towns: "Prontera"[0], "Alberta"[1], "Aldebaran"[2], "Amatsu"[3], "Ayothaya"[4], "Comodo"[5], "Einbech"[6], "Einbroch"[7], "Geffen"[8], "Gonryun"[9], "Hugel"[10], "Izlude"[11], "Jawaii"[12], "Lighthalzen"[13], "Louyang"[14], "Lutie"[15], "Morroc"[16], "Niflheim"[17], "Payon"[18], "Umbala"[19], "Yuno"[20];
-// reference where i put the dungeons: "Abyss Lake"[0], "Amatsu Dungeon"[1], "Ant Hell Dungeon"[2], "Ayotaya Dungeon"[3], "Byalan Dungeon"[4], "Clock Tower Dungeon"[5], "Coal Mine Dungeon"[6], "Culvert Dungeon"[7], "Einbech Dungeon"[8], "Gefenia Dungeon"[9], "Geffen Dungeon"[10], "Glast Heim Dungeon"[11], "Gonryun Dungeon"[12], "Hidden Dungeon"[13], "Juperos Cave"[14], "Lighthalzen Bio Lab"[15], "Louyang Dungeon"[16], "Magma Dungeon"[17], "Odin Temple"[18], "Orc Dungeon"[19], "Payon Dungeon"[20], "Pyramids Dungeon"[21], "Sphinx Dungeon"[22], "Sunken Ship Dungeon"[23], "Thanatos Tower"[24], "Toy Factory Dungeon"[25], "Turtle Island Dungeon"[26], "Umbala Dungeon"[27], "Kiel Dungeon[28];
-// also clears variables so that the account file variables can be used for something else variable 0 = variable delete on next save
-
-// Towns
-	set @towntemp,0;
-	if (#prontera != 0) set @towntemp,@towntemp + 1;
-	if (#alberta != 0) set @towntemp,@towntemp + 2;
-	if (#aldebaran != 0) set @towntemp,@towntemp + 4;
-	if (#amatsu != 0) set @towntemp,@towntemp + 8;
-	if (#ayotaya != 0) set @towntemp,@towntemp + 16;
-	if (#comodo != 0) set @towntemp,@towntemp + 32;
-	if (#einbech != 0) set @towntemp,@towntemp + 64;
-	if (#einbroch != 0) set @towntemp,@towntemp + 128;
-	if (#geffen != 0) set @towntemp,@towntemp + 256;
-	if (#gonryun != 0) set @towntemp,@towntemp + 512;
-	if (#hugel != 0) set @towntemp,@towntemp + 1024;
-	if (#izlude != 0) set @towntemp,@towntemp + 2048;
-	if (#jawaii != 0) set @towntemp,@towntemp + 4096;
-	if (#lighthalzen != 0) set @towntemp,@towntemp + 8192;
-	if (#louyang != 0) set @towntemp,@towntemp + 16384;
-	if (#xmas != 0) set @towntemp,@towntemp + 32768;
-	if (#morocc != 0) set @towntemp,@towntemp + 65536;
-	if (#niflheim != 0) set @towntemp,@towntemp + 131072;
-	if (#payon != 0) set @towntemp,@towntemp + 262144;
-	if (#umbala != 0) set @towntemp,@towntemp + 524288;
-	if (#yuno != 0) set @towntemp,@towntemp + 1048576;
-// Clear Town variables
-	set #prontera,0;
-	set #alberta,0;
-	set #aldebaran,0;
-	set #amatsu,0;
-	set #ayotaya,0;
-	set #comodo,0;
-	set #einbech,0;
-	set #einbroch,0;
-	set #geffen,0;
-	set #gonryun,0;
-	set #hugel,0;
-	set #izlude,0;
-	set #jawaii,0;
-	set #lighthalzen,0;
-	set #louyang,0;
-	set #xmas,0;
-	set #morocc,0;
-	set #niflheim,0;
-	set #payon,0;
-	set #umbala,0;
-	set #yuno,0;
-// set Town warp unlock variable
-set ##QWS_T_Unlock, (##QWS_T_Unlock | @towntemp);
- //because multiple account servers now stack on 1 variable i used a 'or' to stack them
-// Dungeons
-	set @dungeontemp,0;
-	if (#abyss != 0) set @dungeontemp,@dungeontemp + 1;
-	if (#ama_dun != 0) set @dungeontemp,@dungeontemp + 2;
-	if (#anthell != 0) set @dungeontemp,@dungeontemp + 4;
-	if (#ayotaya_dun != 0) set @dungeontemp,@dungeontemp + 8;
-	if (#iz_dun != 0) set @dungeontemp,@dungeontemp + 16;
-	if (#c_tower != 0) set @dungeontemp,@dungeontemp + 32;
-	if (#mjo_dun != 0) set @dungeontemp,@dungeontemp + 64;
-	if (#prt_sewb != 0) set @dungeontemp,@dungeontemp + 128;
-	if (#einbech_dun != 0) set @dungeontemp,@dungeontemp + 256;
-	if (#gefenia != 0) set @dungeontemp,@dungeontemp + 512;
-	if (#gef_dun != 0) set @dungeontemp,@dungeontemp + 1024;
-	if (#gl_dun != 0) set @dungeontemp,@dungeontemp + 2048;
-	if (#gon_dun != 0) set @dungeontemp,@dungeontemp + 4096;
-	if (#hid_dun != 0) set @dungeontemp,@dungeontemp + 8192;
-	if (#juperos != 0) set @dungeontemp,@dungeontemp + 16384;
-	if (#lighthalzen_dun != 0) set @dungeontemp,@dungeontemp + 32768;
-	if (#louyang_dun != 0) set @dungeontemp,@dungeontemp + 65536;
-	if (#mag_dun != 0) set @dungeontemp,@dungeontemp + 131072;
-	if (#odintemple != 0) set @dungeontemp,@dungeontemp + 262144;
-	if (#orcsdun != 0) set @dungeontemp,@dungeontemp + 524288;
-	if (#pay_dun != 0) set @dungeontemp,@dungeontemp + 1048576;
-	if (#moc_pryd != 0) set @dungeontemp,@dungeontemp + 2097152;
-	if (#in_sphinx != 0) set @dungeontemp,@dungeontemp + 4194304;
-	if (#treasure != 0) set @dungeontemp,@dungeontemp + 8388608;
-	if (#thanatos_tower != 0) set @dungeontemp,@dungeontemp + 16777216;
-	if (#xmas_dun != 0) set @dungeontemp,@dungeontemp + 33554432;
-	if (#tur_dun != 0) set @dungeontemp,@dungeontemp + 67108864;
-	if (#um_dun != 0) set @dungeontemp,@dungeontemp + 134217728;
-// Clear Dungeon variables
-	set #abyss,0;
-	set #ama_dun,0;
-	set #anthell,0;
-	set #ayotaya_dun,0;
-	set #iz_dun,0;
-	set #c_tower,0;
-	set #mjo_dun,0;
-	set #prt_sewb,0;
-	set #einbech_dun,0;
-	set #gefenia,0;
-	set #gef_dun,0;
-	set #gl_dun,0;
-	set #gon_dun,0;
-	set #hid_dun,0;
-	set #juperos,0;
-	set #lighthalzen_dun,0;
-	set #louyang_dun,0;
-	set #mag_dun,0;
-	set #odintemple,0;
-	set #orcsdun,0;
-	set #pay_dun,0;
-	set #moc_pryd,0;
-	set #in_sphinx,0;
-	set #treasure,0;
-	set #thanatos_tower,0;
-	set #xmas_dun,0;
-	set #tur_dun,0;
-	set #um_dun,0;
-// set Town warp unlock variable
-set ##QWS_D_Unlock, (##QWS_D_Unlock | @dungeontemp);
-//mark that this character has done the upgrade to 1.8
-set ##QWS_UP,18;
-return;
-}
-
-
-//===================Extra=Variable=Clear=Pre=1.8==================
-function	script	Extra_Variable_Clear	{
-// Clear Town variables
-	set #prontera,0;
-	set #alberta,0;
-	set #aldebaran,0;
-	set #amatsu,0;
-	set #ayotaya,0;
-	set #comodo,0;
-	set #einbech,0;
-	set #einbroch,0;
-	set #geffen,0;
-	set #gonryun,0;
-	set #hugel,0;
-	set #izlude,0;
-	set #jawaii,0;
-	set #lighthalzen,0;
-	set #louyang,0;
-	set #xmas,0;
-	set #morocc,0;
-	set #niflheim,0;
-	set #payon,0;
-	set #umbala,0;
-	set #yuno,0;
-
-// Clear Dungeon variables
-	set #abyss,0;
-	set #ama_dun,0;
-	set #anthell,0;
-	set #ayotaya_dun,0;
-	set #iz_dun,0;
-	set #c_tower,0;
-	set #mjo_dun,0;
-	set #prt_sewb,0;
-	set #einbech_dun,0;
-	set #gefenia,0;
-	set #gef_dun,0;
-	set #gl_dun,0;
-	set #gon_dun,0;
-	set #hid_dun,0;
-	set #juperos,0;
-	set #lighthalzen_dun,0;
-	set #louyang_dun,0;
-	set #mag_dun,0;
-	set #odintemple,0;
-	set #orcsdun,0;
-	set #pay_dun,0;
-	set #moc_pryd,0;
-	set #in_sphinx,0;
-	set #treasure,0;
-	set #thanatos_tower,0;
-	set #xmas_dun,0;
-	set #tur_dun,0;
-	set #um_dun,0;
-
-// as the account based variables are limited just run this on every character to save some variables
-set QWS_ExtraVARClear,18;
-return;
 }
 
 //================Dungeon=Warpras=That=Only=Unlock=================
@@ -1783,12 +1533,12 @@ function	script	QWS_Dungeon_Warpra	{
 		mes getarg(1)+" unlocked!";
 		QWS_D_setbin(getarg(0));
 		return;
-	} else if (QWS_D_getbin(getarg(0)) == 1){
+	} else if (QWS_D_getbin(getarg(0)) == 1) {
 		mes "[Warpra]";
-		mes "Sorry I can only unlock this location.";
+		mes "Sorry, I can only unlock this location.";
 	} else
-		debugmes "QWS_Dungeon_Warpra error, improper syntax ?";
-		return;
+		debugmes "QWS_Dungeon_Warpra error, improper syntax?";
+	return;
 
 
 function	QWS_D_setbin	{
@@ -1809,8 +1559,8 @@ function	QWS_D_getbin	{
 	if (getarg(0) == 0) goto binget;
 	set @temploopgetbin,0;
 	do {
-	set @tempgetbindata, @tempgetbindata * 2;
-	set @temploopgetbin, @temploopgetbin + 1;
+		set @tempgetbindata, @tempgetbindata * 2;
+		set @temploopgetbin, @temploopgetbin + 1;
 	} while (getarg(0) > @temploopgetbin);
 binget:
 	if ((@tempgetbindata & ##QWS_D_Unlock) == @tempgetbindata) return 1;
@@ -1829,20 +1579,19 @@ function	script	QWS_Town_Warpra	{
 		mes getarg(1)+" unlocked!";
 		QWS_T_setbin(getarg(0));
 		return;
-	} else if (QWS_T_getbin(getarg(0)) == 1){
-callfunc "Q_Warpra",0;
+	} else if (QWS_T_getbin(getarg(0)) == 1) {
+		callfunc "Q_Warpra",0;
 	} else
 		debugmes "QWS_Town_Warpra error, improper syntax ?";
-		return;
-
+	return;
 
 function	QWS_T_setbin	{
 	set @tempsetbindata,1;
 	if (getarg(0) == 0) goto binset;
 	set @temploopsetbin,0;
 	do {
-	set @tempsetbindata, @tempsetbindata * 2;
-	set @temploopsetbin, @temploopsetbin + 1;
+		set @tempsetbindata, @tempsetbindata * 2;
+		set @temploopsetbin, @temploopsetbin + 1;
 	} while (getarg(0) > @temploopsetbin);
 binset:
 	set ##QWS_T_Unlock,(##QWS_T_Unlock | @tempsetbindata);
@@ -1854,8 +1603,8 @@ function	QWS_T_getbin	{
 	if (getarg(0) == 0) goto binget;
 	set @temploopgetbin,0;
 	do {
-	set @tempgetbindata, @tempgetbindata * 2;
-	set @temploopgetbin, @temploopgetbin + 1;
+		set @tempgetbindata, @tempgetbindata * 2;
+		set @temploopgetbin, @temploopgetbin + 1;
 	} while (getarg(0) > @temploopgetbin);
 binget:
 	if ((@tempgetbindata & ##QWS_T_Unlock) == @tempgetbindata) return 1;
@@ -1864,274 +1613,80 @@ binget:
 }
 //============================Warpras==============================
 
-alb2trea,73,101,4	script	Warpra#1	113,{
-	callfunc "Q_Warpra",1;
-}
-ama_fild01,178,325,1	script	Warpra#2	113,{
-	callfunc "Q_Warpra",1;
-}
-gef_fild10,71,339,4	script	Warpra#3	113,{
-	callfunc "Q_Warpra",1;
-}
-izlu2dun,104,82,4	script	Warpra#4	113,{
-	callfunc "Q_Warpra",1;
-}
-mjolnir_02,85,363,4	script	Warpra#5	113,{
-	callfunc "Q_Warpra",1;
-}
-moc_fild04,207,331,4	script	Warpra#6	113,{
-	callfunc "Q_Warpra",1;
-}
-moc_fild19,106,97,4	script	Warpra#7	113,{
-	callfunc "Q_Warpra",1;
-}
-moc_ruins,64,166,4	script	Warpra#8	113,{
-	callfunc "Q_Warpra",1;
-}
-niflheim,197,192,3	script	Warpra#9	113,{
-	callfunc "Q_Warpra",1;
-}
-pay_arche,39,135,4	script	Warpra#10	113,{
-	callfunc "Q_Warpra",1;
-}
-prt_fild05,273,215,4	script	Warpra#11	113,{
-	callfunc "Q_Warpra",1;
-}
-tur_dun01,148,239,4	script	Warpra#12	113,{
-	callfunc "Q_Warpra",1;
-}
-valkyrie,48,35,8	script	Warpra#13	113,{
-	callfunc "Q_Warpra",1;
-}
-yuno_fild03,37,135,4	script	Warpra#14	113,{
-	callfunc "Q_Warpra",1;
-}
-
-alberta,32,240,4	script	Warpra#15	113,{
-	callfunc "QWS_Town_Warpra",1,"Alberta Town";
-	close;
-}
-aldebaran,146,118,4	script	Warpra#16	113,{
-	callfunc "QWS_Town_Warpra",2,"Aldebaran Town";
-	close;
-}
-ayothaya,216,171,5	script	Warpra#17	113,{
-	callfunc "QWS_Town_Warpra",4,"Ayotaya Town";
-	close;
-}
-amatsu,193,81,1	script	Warpra#18	113,{
-	callfunc "QWS_Town_Warpra",3,"Amatsu Town";
-	close;
-}
-comodo,195,158,4	script	Warpra#19	113,{
-	callfunc "QWS_Town_Warpra",5,"Comodo Town";
-	close;
-}
-einbroch,229,196,5	script	Warpra#20	113,{
-	callfunc "QWS_Town_Warpra",7,"Einbroch Town";
-	close;
-}
-einbech,173,131,5	script	Warpra#21	113,{
-	callfunc "QWS_Town_Warpra",6,"Einbech Town";
-	close;
-}
-geffen,116,66,4	script	Warpra#22	113,{
-	callfunc "QWS_Town_Warpra",8,"Geffen Town";
-	close;
-}
-gonryun,152,130,4	script	Warpra#23	113,{
-	callfunc "QWS_Town_Warpra",9,"Gonryun Town";
-	close;
-}
-hugel,90,127,5	script	Warpra#24	113,{
-	callfunc "QWS_Town_Warpra",10,"Hugel Town";
-	close;
-}
-jawaii,107,182,5	script	Warpra#25	113,{
-	callfunc "QWS_Town_Warpra",12,"Jawaii Town";
-	close;
-}
-izlude,132,116,4	script	Warpra#26	113,{
-	callfunc "QWS_Town_Warpra",11,"Izlude Town";
-	close;
-}
-lighthalzen,153,100,5	script	Warpra#27	113,{
-	callfunc "QWS_Town_Warpra",13,"Lighthalzen Town";
-	close;
-}
-louyang,211,106,4	script	Warpra#28	113,{
-	callfunc "QWS_Town_Warpra",14,"Louyang Town";
-	close;
-}
-morocc,157,95,4	script	Warpra#29	113,{
-	callfunc "QWS_Town_Warpra",16,"Morroc Town";
-	close;
-}
-nif_fild01,319,77,1	script	Warpra#30	113,{
-	callfunc "QWS_Town_Warpra",17,"Niflheim Town";
-	close;
-}
-payon,183,110,4	script	Warpra#31	113,{
-	callfunc "QWS_Town_Warpra",18,"Payon Town";
-	close;
-}
-prontera,147,172,5	script	Warpra#32	113,{
-	callfunc "QWS_Town_Warpra",0,"Prontera Town";
-	close;
-}
-umbala,133,130,4	script	Warpra#33	113,{
-	callfunc "QWS_Town_Warpra",19,"Umbala Town";
-	close;
-}
-xmas,151,136,4	script	Warpra#34	113,{
-	callfunc "QWS_Town_Warpra",15,"Lutie Town";
-	close;
-}
-yuno,138,162,4	script	Warpra#35	113,{
-	callfunc "QWS_Town_Warpra",20,"Yuno Town";
-	close;
-}
-
-abyss_02,274,266,1	script	Warpra#36	113,{
-	callfunc "QWS_Dungeon_Warpra",0,"Abyss Lake";
-	close;
-}
-
-ama_dun02,192,118,5	script	Warpra Helper#1	112,{
-	callfunc "QWS_Dungeon_Warpra",1,"Amatsu Dungeon";
-	close;
-}
-
-anthell02,170,165,3	script	Warpra Helper#2	112,{
-	callfunc "QWS_Dungeon_Warpra",2,"Ant Hell Dungeon";
-	close;
-}
-
-ayo_dun02,258,193,5	script	Warpra Helper#3	112,{
-	callfunc "QWS_Dungeon_Warpra",3,"Ayotaya Dungeon";
-	close;
-}
-
-ein_dun02,292,282,1	script	Warpra Helper#4	112,{
-	callfunc "QWS_Dungeon_Warpra",8,"Einbech Dungeon";
-	close;
-}
-
-iz_dun03,202,47,2	script	Warpra Helper#5	112,{
-	callfunc "QWS_Dungeon_Warpra",4,"Byalan Dungeon";
-	close;
-}
-
-c_tower3,129,106,4	script	Warpra Helper#6	112,{
-	callfunc "QWS_Dungeon_Warpra",5,"Clock Tower Dungeon";
-	close;
-}
-
-mjo_dun02,39,25,4	script	Warpra Helper#7	112,{
-	callfunc "QWS_Dungeon_Warpra",6,"Coal Mine Dungeon";
-	close;
-}
-
-prt_sewb2,176,30,3	script	Warpra Helper#8	112,{
-	callfunc "QWS_Dungeon_Warpra",7,"Culvert Dungeon";
-	close;
-}
-
-gefenia03,137,34,0	script	Warpra Helper#9	112,{
-	callfunc "QWS_Dungeon_Warpra",9,"Gefenia Dungeon";
-	close;
-}
-
-gef_dun02,218,61,2	script	Warpra Helper#10	112,{
-	callfunc "QWS_Dungeon_Warpra",10,"Gefen Dungeon";
-	close;
-}
-
-glast_01,371,308,3	script	Warpra Helper#11	112,{
-	callfunc "QWS_Dungeon_Warpra",11,"Glast Heim Dungeon";
-	close;
-}
-
-gon_dun01,167,273,4	script	Warpra Helper#12	112,{
-	callfunc "QWS_Dungeon_Warpra",12,"Gonryun Dungeon";
-	close;
-}
-
-juperos_02,127,154,5	script	Warpra Helper#13	112,{
-	callfunc "QWS_Dungeon_Warpra",14,"Juperos Cave";
-	close;
-}
-
-kh_dun01,14,224,3	script	Warpra Helper#14	112,{
-	callfunc "QWS_Dungeon_Warpra",28,"Kiel Dungeon";
-	close;
-}
-
-lhz_dun02,156,151,5	script	Warpra Helper#15	112,{
-	callfunc "QWS_Dungeon_Warpra",15,"Lighthalzen Bio Lab";
-	close;
-}
-
-lou_dun02,168,264,4	script	Warpra Helper#16	112,{
-	callfunc "QWS_Dungeon_Warpra",16,"Louyang Dungeon";
-	close;
-}
-
-mag_dun02,46,41,3	script	Warpra Helper#17	112,{
-	callfunc "QWS_Dungeon_Warpra",17,"Magma Dungeon";
-	close;
-}
-
-odin_tem01,115,148,3	script	Warpra Helper#18	112,{
-	callfunc "QWS_Dungeon_Warpra",18,"Odin Temple";
-	close;
-}
-
-orcsdun01,185,11,3	script	Warpra Helper#19	112,{
-	callfunc "QWS_Dungeon_Warpra",19,"Orc Dungeon";
-	close;
-}
-
-pay_dun03,162,143,3	script	Warpra Helper#20	112,{
-	callfunc "QWS_Dungeon_Warpra",20,"Payon Dungeon";
-	close;
-}
-
-moc_pryd02,101,95,3	script	Warpra Helper#21	112,{
-	callfunc "QWS_Dungeon_Warpra",21,"Pyramides Dungeon";
-	close;
-}
-
-in_sphinx2,274,268,1	script	Warpra Helper#22	112,{
-	callfunc "QWS_Dungeon_Warpra",22,"Sphinx Dungeon";
-	close;
-}
-
-tha_t07,111,162,3	script	Warpra Helper#23	112,{
-	callfunc "QWS_Dungeon_Warpra",24,"Thanatos Tower";
-	close;
-}
-
-treasure02,104,40,3	script	Warpra Helper#24	112,{
-	callfunc "QWS_Dungeon_Warpra",23,"Sunken Ship Dungeon";
-	close;
-}
-
-xmas_dun02,124,131,3	script	Warpra Helper#25	112,{
-	callfunc "QWS_Dungeon_Warpra",25,"Toy Factory Dungeon";
-	close;
-}
-
-um_dun02,44,28,3	script	Warpra Helper#26	112,{
-	callfunc "QWS_Dungeon_Warpra",27,"Umbala Dungeon";
-	close;
-}
-
-tur_dun02,162,23,3	script	Warpra Helper#27	112,{
-	callfunc "QWS_Dungeon_Warpra",26,"Turtle Island Dungeon";
-	close;
-}
-prt_maze02,102,69,4	script	Warpra Helper#28	112,{
-	callfunc "QWS_Dungeon_Warpra",13,"Hidden Dungeon";
-	close;
-}
+-	script	Warpra#0	-1,{ callfunc "Q_Warpra",1; }
+alb2trea,73,101,4	duplicate(Warpra#0)	Warpra#1	113
+ama_fild01,178,325,1	duplicate(Warpra#0)	Warpra#2	113
+gef_fild10,71,339,4	duplicate(Warpra#0)	Warpra#3	113
+izlu2dun,104,82,4	duplicate(Warpra#0)	Warpra#4	113
+mjolnir_02,85,363,4	duplicate(Warpra#0)	Warpra#5	113
+moc_fild04,207,331,4	duplicate(Warpra#0)	Warpra#6	113
+moc_fild19,106,97,4	duplicate(Warpra#0)	Warpra#7	113
+moc_ruins,64,166,4	duplicate(Warpra#0)	Warpra#8	113
+niflheim,197,192,3	duplicate(Warpra#0)	Warpra#9	113
+pay_arche,39,135,4	duplicate(Warpra#0)	Warpra#10	113
+prt_fild05,273,215,4	duplicate(Warpra#0)	Warpra#11	113
+tur_dun01,148,239,4	duplicate(Warpra#0)	Warpra#12	113
+valkyrie,48,35,8	duplicate(Warpra#0)	Warpra#13	113
+yuno_fild03,37,135,4	duplicate(Warpra#0)	Warpra#14	113
+
+alberta,32,240,4	script	Warpra#15	113,{ callfunc "QWS_Town_Warpra",1,"Alberta Town"; close; }
+aldebaran,146,118,4	script	Warpra#16	113,{ callfunc "QWS_Town_Warpra",2,"Aldebaran Town"; close; }
+ayothaya,216,171,5	script	Warpra#17	113,{ callfunc "QWS_Town_Warpra",4,"Ayotaya Town"; close; }
+amatsu,193,81,1	script	Warpra#18	113,{ callfunc "QWS_Town_Warpra",3,"Amatsu Town"; close; }
+comodo,195,158,4	script	Warpra#19	113,{ callfunc "QWS_Town_Warpra",5,"Comodo Town"; close; }
+einbroch,229,196,5	script	Warpra#20	113,{ callfunc "QWS_Town_Warpra",7,"Einbroch Town"; close; }
+einbech,173,131,5	script	Warpra#21	113,{ callfunc "QWS_Town_Warpra",6,"Einbech Town"; close; }
+geffen,116,66,4	script	Warpra#22	113,{ callfunc "QWS_Town_Warpra",8,"Geffen Town"; close; }
+gonryun,152,130,4	script	Warpra#23	113,{ callfunc "QWS_Town_Warpra",9,"Gonryun Town"; close; }
+hugel,90,127,5	script	Warpra#24	113,{ callfunc "QWS_Town_Warpra",10,"Hugel Town"; close; }
+jawaii,107,182,5	script	Warpra#25	113,{ callfunc "QWS_Town_Warpra",12,"Jawaii Town"; close; }
+izlude,132,116,4	script	Warpra#26	113,{ callfunc "QWS_Town_Warpra",11,"Izlude Town"; close; }
+lighthalzen,153,100,5	script	Warpra#27	113,{ callfunc "QWS_Town_Warpra",13,"Lighthalzen Town"; close; }
+louyang,211,106,4	script	Warpra#28	113,{ callfunc "QWS_Town_Warpra",14,"Louyang Town"; close; }
+morocc,157,95,4	script	Warpra#29	113,{ callfunc "QWS_Town_Warpra",16,"Morroc Town"; close; }
+nif_fild01,319,77,1	script	Warpra#30	113,{ callfunc "QWS_Town_Warpra",17,"Niflheim Town"; close; }
+payon,183,110,4	script	Warpra#31	113,{ callfunc "QWS_Town_Warpra",18,"Payon Town"; close; }
+prontera,147,172,5	script	Warpra#32	113,{ callfunc "QWS_Town_Warpra",0,"Prontera Town"; close; }
+umbala,133,130,4	script	Warpra#33	113,{ callfunc "QWS_Town_Warpra",19,"Umbala Town"; close; }
+xmas,151,136,4	script	Warpra#34	113,{ callfunc "QWS_Town_Warpra",15,"Lutie Town"; close; }
+yuno,138,162,4	script	Warpra#35	113,{ callfunc "QWS_Town_Warpra",20,"Yuno Town"; close; }
+brasilis,201,222,4	script	Warpra#36	113,{ callfunc "QWS_Town_Warpra",21,"Brasilis Town"; close; }
+dicastes01,194,194,6	script	Warpra#37	113,{ callfunc "QWS_Town_Warpra",22,"El Dicastes Town"; close; }
+manuk,262,177,4	script	Warpra#38	113,{ callfunc "QWS_Town_Warpra",23,"Manuk Town"; close; }
+mora,110,100,4	script	Warpra#39	113,{ callfunc "QWS_Town_Warpra",24,"Mora Town"; close; }
+moscovia,216,196,6	script	Warpra#40	113,{ callfunc "QWS_Town_Warpra",25,"Moscovia Town"; close; }
+rachel,135,116,4	script	Warpra#41	113,{ callfunc "QWS_Town_Warpra",26,"Rachel Town"; close; }
+splendide,205,153,4	script	Warpra#42	113,{ callfunc "QWS_Town_Warpra",27,"Splendide Town"; close; }
+veins,214,123,4	script	Warpra#43	113,{ callfunc "QWS_Town_Warpra",28,"Veins Town"; close; }
+dewata,194,178,6	script	Warpra#44	113,{ callfunc "QWS_Town_Warpra",29,"Dewata Town"; close; }
+eclage,107,37,4	script	Warpra#45	113,{ callfunc "QWS_Town_Warpra",30,"Eclage Town"; close; }
+
+abyss_02,274,266,1	script	Warpra Helper#0	112,{ callfunc "QWS_Dungeon_Warpra",0,"Abyss Lake"; close; }
+ama_dun02,192,118,5	script	Warpra Helper#1	112,{ callfunc "QWS_Dungeon_Warpra",1,"Amatsu Dungeon"; close; }
+anthell02,170,165,3	script	Warpra Helper#2	112,{ callfunc "QWS_Dungeon_Warpra",2,"Ant Hell Dungeon"; close; }
+ayo_dun02,258,193,5	script	Warpra Helper#3	112,{ callfunc "QWS_Dungeon_Warpra",3,"Ayotaya Dungeon"; close; }
+ein_dun02,292,282,1	script	Warpra Helper#4	112,{ callfunc "QWS_Dungeon_Warpra",8,"Einbech Dungeon"; close; }
+iz_dun03,202,47,2	script	Warpra Helper#5	112,{ callfunc "QWS_Dungeon_Warpra",4,"Byalan Dungeon"; close; }
+c_tower3,129,106,4	script	Warpra Helper#6	112,{ callfunc "QWS_Dungeon_Warpra",5,"Clock Tower Dungeon"; close; }
+mjo_dun02,39,25,4	script	Warpra Helper#7	112,{ callfunc "QWS_Dungeon_Warpra",6,"Coal Mine Dungeon"; close; }
+prt_sewb2,176,30,3	script	Warpra Helper#8	112,{ callfunc "QWS_Dungeon_Warpra",7,"Culvert Dungeon"; close; }
+gefenia03,137,34,0	script	Warpra Helper#9	112,{ callfunc "QWS_Dungeon_Warpra",9,"Gefenia Dungeon"; close; }
+gef_dun02,218,61,2	script	Warpra Helper#10	112,{ callfunc "QWS_Dungeon_Warpra",10,"Gefen Dungeon"; close; }
+glast_01,371,308,3	script	Warpra Helper#11	112,{ callfunc "QWS_Dungeon_Warpra",11,"Glast Heim Dungeon"; close; }
+gon_dun01,167,273,4	script	Warpra Helper#12	112,{ callfunc "QWS_Dungeon_Warpra",12,"Gonryun Dungeon"; close; }
+juperos_02,127,154,5	script	Warpra Helper#13	112,{ callfunc "QWS_Dungeon_Warpra",14,"Juperos Cave"; close; }
+kh_dun01,14,224,3	script	Warpra Helper#14	112,{ callfunc "QWS_Dungeon_Warpra",28,"Kiel Dungeon"; close; }
+lhz_dun02,156,151,5	script	Warpra Helper#15	112,{ callfunc "QWS_Dungeon_Warpra",15,"Lighthalzen Bio Lab"; close; }
+lou_dun02,168,264,4	script	Warpra Helper#16	112,{ callfunc "QWS_Dungeon_Warpra",16,"Louyang Dungeon"; close; }
+mag_dun02,46,41,3	script	Warpra Helper#17	112,{ callfunc "QWS_Dungeon_Warpra",17,"Magma Dungeon"; close; }
+odin_tem01,115,148,3	script	Warpra Helper#18	112,{ callfunc "QWS_Dungeon_Warpra",18,"Odin Temple"; close; }
+orcsdun01,185,11,3	script	Warpra Helper#19	112,{ callfunc "QWS_Dungeon_Warpra",19,"Orc Dungeon"; close; }
+pay_dun03,162,143,3	script	Warpra Helper#20	112,{ callfunc "QWS_Dungeon_Warpra",20,"Payon Dungeon"; close; }
+moc_pryd02,101,95,3	script	Warpra Helper#21	112,{ callfunc "QWS_Dungeon_Warpra",21,"Pyramides Dungeon"; close; }
+in_sphinx2,274,268,1	script	Warpra Helper#22	112,{ callfunc "QWS_Dungeon_Warpra",22,"Sphinx Dungeon"; close; }
+tha_t07,111,162,3	script	Warpra Helper#23	112,{ callfunc "QWS_Dungeon_Warpra",24,"Thanatos Tower"; close; }
+treasure02,104,40,3	script	Warpra Helper#24	112,{ callfunc "QWS_Dungeon_Warpra",23,"Sunken Ship Dungeon"; close; }
+xmas_dun02,124,131,3	script	Warpra Helper#25	112,{ callfunc "QWS_Dungeon_Warpra",25,"Toy Factory Dungeon"; close; }
+um_dun02,44,28,3	script	Warpra Helper#26	112,{ callfunc "QWS_Dungeon_Warpra",27,"Umbala Dungeon"; close; }
+tur_dun02,162,23,3	script	Warpra Helper#27	112,{ callfunc "QWS_Dungeon_Warpra",26,"Turtle Island Dungeon"; close; }
+prt_maze02,102,69,4	script	Warpra Helper#28	112,{ callfunc "QWS_Dungeon_Warpra",13,"Hidden Dungeon"; close; }
\ No newline at end of file