* Updated Thanatos Tower quest to Episode 13.1 - huge thanks to Muad_Dib! (bugreport:4498)

* Fixed some syntax in item_db_re.sql (bugreport:6714)

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

4 files changed, 1561 insertions, 2008 deletions

diff --git a/npc/custom/etc/quest_warper.txt b/npc/custom/etc/quest_warper.txt
index 12709ac15..2c2d31083 100644
--- a/npc/custom/etc/quest_warper.txt
+++ b/npc/custom/etc/quest_warper.txt
@@ -63,7 +63,7 @@
 //= 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]
+//= 2.3 - Added new town maps, cleanup, and removed pre-1.8 backwards fix. [Euphy]
 //=================================================================
 
 //========================Function=&=Script========================
diff --git a/npc/custom/jobmaster.txt b/npc/custom/jobmaster.txt
index 1112c515e..e072ee4b9 100644
--- a/npc/custom/jobmaster.txt
+++ b/npc/custom/jobmaster.txt
@@ -140,7 +140,7 @@ Get_Platinum:
 		case 5: skill 153,1,0; skill 154,1,0; skill 155,1,0; break;
 		case 6: skill 149,1,0; skill 150,1,0; skill 151,1,0; skill 152,1,0; break;
 		default: break; }
-	switch(roclass(eaclass()&EAJ_UPPERMASK)) {
+	switch(BaseJob) {
 		case 7: skill 1001,1,0; break;
 		case 8: skill 1014,1,0; break;
 		case 9: skill 1006,1,0; break;
diff --git a/npc/quests/thana_quest.txt b/npc/quests/thana_quest.txt
index fcd3c5451..c2117c7e7 100644
--- a/npc/quests/thana_quest.txt
+++ b/npc/quests/thana_quest.txt
@@ -1,46 +1,26 @@
 //===== rAthena Script =======================================
 //= Thanatos Tower Quest
 //===== By: ==================================================
-//= [Ishizu-chan]
+//= Muad_Dib
 //===== Current Version: =====================================
-//= 2.7
+//= 1.0
 //===== Compatible With: =====================================
 //= rAthena SVN
 //===== Description: =========================================
-//= It's the Thanatos Tower Quest...
+//= [Official Conversion]
+//= Episode 13.1 Thanatos Tower quest.
 //===== Additional Comments: =================================
-//= 1.0 First Release [Ishizu-chan]
-//= 1.1 Updated Thanatos Tower Quest to official. [SinSloth]
-//= 1.2 Fixed a bug where Reward NPC didn't give you Zeny and Exp. [SinSloth]
-//= 1.3 Added a checking in boss map to reset event if there's no player. [SinSloth]
-//= 1.4 Changed the way the Thanatos Portal works to allow people to enter
-//= as long as Thanatos is alive. [SinSloth]
-//= 1.4a You may enter either "Charmstone" or "Charm Stone" [Lupus]
-//= 1.5 Fixed a bug in the number part of the quest. [SinSloth]
-//= 1.6 Fixed experience gains to match upcoming rate adjustments. [SinSloth]
-//= 1.7 Fixed a minor bug with prevented code part from reseting properly. [SinSloth]
-//= 1.8 Corrected NPC names to fall within proper restrictions. [L0ne_W0lf]
-//= 1.9 Fixed a bug in the last event which allowed an exploit after the first summoning. [SinSloth]
-//= 2.0 Cleaned up the trans-only check, and added expanded classes. [L0ne_W0lf]
-//= 2.1 Replaced effect numerics with constants. [Samuray22]
-//= 2.2 Updated the whole Script to match with latest available official file. [Masao]
-//= 2.3 Added continue and break in switch case. [JayPee]
-//= 2.4 Fixed a minor bug with Arch Bishop checks. [Euphy]
-//= 2.5 Cleaning. [Euphy]
-//= 2.5a Fixed an incorrect variable. [Euphy]
-//= 2.6 Merged identical timer labels. [Euphy]
-//= 2.7 Fixed hidden warp (2nd floor) still warp players. [Joseph]
+//= 1.0 Adapted from official release. [Euphy]
 //============================================================
 
 hu_fild01,140,163,5	script	Tower Keeper	852,3,3,{
-
 	mes "[Gatei]";
 	mes "Greetings, adventurer.";
 	mes "I am Gatei Knumm, keeper";
 	mes "of this Thanatos Tower.";
 	mes "How may I help you?";
 	next;
-	switch (select("Thanatos Tower?:Entrance Fee?:Enter the tower:Cancel")) {
+	switch(select("Thanatos Tower?:Entrance Fee?:Enter the tower:Cancel")) {
 	case 1:
 		mes "[Gatei]";
 		mes "Yes, the tower in front";
@@ -94,7 +74,7 @@ hu_fild01,140,163,5	script	Tower Keeper	852,3,3,{
 		mes "enter Thanatos Tower?";
 		mes "The entry fee is ^FF00005,000 zeny^000000.";
 		next;
-		switch (select("Enter:Maybe next time.")) {
+		switch(select("Enter:Maybe next time.")) {
 		case 1:
 			if (thana_tower > 0) {
 				mes "[Gatei]";
@@ -104,7 +84,7 @@ hu_fild01,140,163,5	script	Tower Keeper	852,3,3,{
 				mes "work contract, your entrance";
 				mes "fee is only 3,000 zeny.";
 				next;
-				switch (select("Enter:No, thanks.")) {
+				switch(select("Enter:No, thanks.")) {
 				case 1:
 					if (Zeny > 2999) {
 						mes "[Gatei]";
@@ -139,8 +119,8 @@ hu_fild01,140,163,5	script	Tower Keeper	852,3,3,{
 				mes "very much. Now, I hope";
 				mes "you enjoy your visit";
 				mes "to Thanatos Tower~";
-				set Zeny, Zeny - 5000;
 				close2;
+				set Zeny, Zeny - 5000;
 				warp "tha_scene01",131,220;
 				end;
 			}
@@ -180,7 +160,6 @@ OnTouch:
 }
 
 tha_t01,149,78,4	script	Guide	90,{
-
 	if (thana_tower == 0) {
 		mes "[Ditze]";
 		mes "Welcome to Thanatos Tower.";
@@ -190,7 +169,7 @@ tha_t01,149,78,4	script	Guide	90,{
 		mes "now open to the public. So";
 		mes "how may I help you today?";
 		next;
-		switch (select("Tower Information:Temporary Work Contract:Cancel")) {
+		switch(select("Tower Information:Temporary Work Contract:Cancel")) {
 		case 1:
 			mes "[Ditze]";
 			mes "When this tower was built,";
@@ -227,171 +206,55 @@ tha_t01,149,78,4	script	Guide	90,{
 			mes "the near future, bringing us";
 			mes "closer to our goal of opening all 12 floors of Thanatos Tower.";
 			next;
-			switch (select("Tower Monsters?:Temp Contract Work?:......")) {
-				case 1:
-					mes "[Ditze]";
-					mes "Yes, when we began";
-					mes "reconstruction of the";
-					mes "Thanatos Tower, these";
-					mes "monsters that look like angels";
-					mes "just appeared out of nowhere";
-					mes "to attack all the workers.";
-					next;
-					mes "[Ditze]";
-					mes "At first, witnesses thought";
-					mes "that these monsters might";
-					mes "be, you know, actual angels.";
-					mes "But if they were, why were they";
-					mes "attacking for no reason?";
-					next;
-					mes "[Ditze]";
-					mes "Anyway, we asked the Juno ";
-					mes "Sage Academy to investigate";
-					mes "them, and they confirmed that";
-					mes "these angelic creatures are true monsters--their resemblance to";
-					mes "angels is merely coincidence.";
-					close;
-				case 2:
-					mes "[Ditze]";
-					mes "You may have already heard";
-					mes "from the Tower Keeper, but";
-					mes "we're contracting adventurers to exterminate the tower monsters";
-					mes "in the 3rd and higher levels on";
-					mes "a temporary employee basis.";
-					next;
-					mes "[Ditze]";
-					mes "I'm in charge of hiring";
-					mes "temp contract workers, so";
-					mes "talk to me if you're interested. Only temp workers are allowed";
-					mes "to access the higher levels";
-					mes "here in Thanatos Tower.";
-					next;
-					break;
-				case 3:
-					mes "[Ditze]";
-					mes "To develop the floors above";
-					mes "the 2nd floor, we're going to";
-					mes "need as many temp contract";
-					mes "workers as we can hire. Why";
-					mes "don't you consider working";
-					mes "for us under a temp contract?";
-					close;
-			}
-			switch (select("Maybe next time:Sure, I'd like to work for you.")) {
+			switch(select("Tower Monsters?:Temp Contract Work?:......")) {
 			case 1:
 				mes "[Ditze]";
-				mes "Well, alright.";
-				mes "But come and talk to";
-				mes "me as soon as you decide";
-				mes "that you want to help with";
-				mes "the tower reconstruction by";
-				mes "working for Rekenber.";
+				mes "Yes, when we began";
+				mes "reconstruction of the";
+				mes "Thanatos Tower, these";
+				mes "monsters that look like angels";
+				mes "just appeared out of nowhere";
+				mes "to attack all the workers.";
+				next;
+				mes "[Ditze]";
+				mes "At first, witnesses thought";
+				mes "that these monsters might";
+				mes "be, you know, actual angels.";
+				mes "But if they were, why were they";
+				mes "attacking for no reason?";
+				next;
+				mes "[Ditze]";
+				mes "Anyway, we asked the Juno ";
+				mes "Sage Academy to investigate";
+				mes "them, and they confirmed that";
+				mes "these angelic creatures are true monsters--their resemblance to";
+				mes "angels is merely coincidence.";
 				close;
 			case 2:
 				mes "[Ditze]";
-				mes "That's great!";
-				mes "Would you please fill";
-				mes "out this employment";
-				mes "agreement first? Let's";
-				mes "see. Your name is...";
-				mes ""+strcharinfo(0)+", right?";
+				mes "You may have already heard";
+				mes "from the Tower Keeper, but";
+				mes "we're contracting adventurers to exterminate the tower monsters";
+				mes "in the 3rd and higher levels on";
+				mes "a temporary employee basis.";
 				next;
-				menu "Yes",-;
 				mes "[Ditze]";
-				mes "Alright, please read";
-				mes "this agreement carefully.";
-				mes "If you agree with all of";
-				mes "the conditions, go ahead";
-				mes "and just sign the bottom.";
-				next;
-				mes "^3355FFDitze hands you the";
-				mes "Employment Agreement";
-				mes "document for you to read.^000000";
+				mes "I'm in charge of hiring";
+				mes "temp contract workers, so";
+				mes "talk to me if you're interested. Only temp workers are allowed";
+				mes "to access the higher levels";
+				mes "here in Thanatos Tower.";
 				next;
-				mes "- Employment Agreement -";
-				mes " ";
-				mes "1. This employment agreement";
-				mes "is effective between Rekenber";
-				mes "Corporation (''Employer'') and "+strcharinfo(0)+"(''Employee'').";
-				mes "1-1. This employment agreement";
-				mes "is classified as a Mercernary";
-				mes "contract between both parties.";
-				mes "2. The terms of this contract";
-				mes "immediately take effect once";
-				mes "it is signed by both parties";
-				mes "(Employer and Employee).";
-				mes "3. When the Employee performs";
-				mes "a mission, the mission results";
-				mes "must be verified with acceptible physical proof that must be";
-				mes "presented to the Employer.";
-				mes "3-1. Please refer to Section";
-				mes "7A for examples of acceptible";
-				mes "proof of monster extermination.";
-				mes "3-2. Acceptible proof is";
-				mes "determined and defined by a";
-				mes "representative of the Employer.";
-				mes "4. Employer will allot rewards";
-				mes "to Employees after receiving";
-				mes "extermination proof.";
-				mes "4-1. Possible rewards for";
-				mes "monster exterminations may";
-				mes "include the following.";
-				mes ".................................................";
-				mes ".................................................";
-				mes ".................................................";
-				mes ".................................................";
-				mes ".................................................";
-				mes "13. This contract's terms are";
-				mes "only applicable witin Thanatos";
-				mes "Tower.";
-				mes "14. Employees will receive";
-				mes "a discount on the Entry Fee";
-				mes "to the Thanatos Tower.";
-				mes " ";
-				mes " ";
-				mes " ";
-				mes "Employer Signature____________";
-				mes "Employee Signature____________";
-				next;
-				switch (select("Sign:Don't Sign")) {
-				case 1:
-					mes "^3355FFYou sign two copies of the";
-					mes "Employment Agreement.^000000";
-					next;
-					mes "[Ditze]";
-					mes "Thank you. Now, you are";
-					mes "an official employee of the";
-					mes "Rekenber Corporation! Well,";
-					mes "within the limits of this tower";
-					mes "anyway. This contract doesn't";
-					mes "apply outside of this place.";
-					next;
-					mes "[Ditze]";
-					mes "From now on, you can talk";
-					mes "to the 2nd Floor Guide to";
-					mes "enter the 3rd Floor. If you";
-					mes "have any mission reward";
-					mes "questions, please ask ^3355FFLiei^000000.";
-					next;
-					mes "[Ditze]";
-					mes "If you want to check";
-					mes "more information about";
-					mes "your work, please talk";
-					mes "to the 2nd Floor Guide.";
-					mes "Thank you, and welcome";
-					mes "to the Rekenber Corporation~";
-					set thana_tower,1;
-					close;
-				case 2:
-					mes "[Ditze]";
-					mes "Oh? Was there an article";
-					mes "within the contract that you";
-					mes "disagreed with? Hm. Well,";
-					mes "that's fine. But if you change";
-					mes "your mind, please come back";
-					mes "and ask me anytime. Thank you~";
-					close;
-				}
+				goto L_Contract;
+			case 3:
+				mes "[Ditze]";
+				mes "To develop the floors above";
+				mes "the 2nd floor, we're going to";
+				mes "need as many temp contract";
+				mes "workers as we can hire. Why";
+				mes "don't you consider working";
+				mes "for us under a temp contract?";
+				close;
 			}
 		case 2:
 			mes "[Ditze]";
@@ -408,122 +271,7 @@ tha_t01,149,78,4	script	Guide	90,{
 			mes "to access the higher levels";
 			mes "here in Thanatos Tower.";
 			next;
-			switch (select("Maybe next time:Sure, I'd like to work for you.")) {
-			case 1:
-				mes "[Ditze]";
-				mes "Well, alright.";
-				mes "But come and talk to";
-				mes "me as soon as you decide";
-				mes "that you want to help with";
-				mes "the tower reconstruction by";
-				mes "working for Rekenber.";
-				close;
-			case 2:
-				mes "[Ditze]";
-				mes "That's great!";
-				mes "Would you please fill";
-				mes "out this employment";
-				mes "agreement first? Let's";
-				mes "see. Your name is...";
-				mes ""+strcharinfo(0)+", right?";
-				next;
-				menu "Yes",-;
-				mes "[Ditze]";
-				mes "Alright, please read";
-				mes "this agreement carefully.";
-				mes "If you agree with all of";
-				mes "the conditions, go ahead";
-				mes "and just sign the bottom.";
-				next;
-				mes "^3355FFDitze hands you the";
-				mes "Employment Agreement";
-				mes "document for you to read.^000000";
-				next;
-				mes "- Employment Agreement -";
-				mes " ";
-				mes "1. This employment agreement";
-				mes "is effective between Rekenber";
-				mes "Corporation (''Employer'') and "+strcharinfo(0)+"(''Employee'').";
-				mes "1-1. This employment agreement";
-				mes "is classified as a Mercernary";
-				mes "contract between both parties.";
-				mes "2. The terms of this contract";
-				mes "immediately take effect once";
-				mes "it is signed by both parties";
-				mes "(Employer and Employee).";
-				mes "3. When the Employee performs";
-				mes "a mission, the mission results";
-				mes "must be verified with acceptible physical proof that must be";
-				mes "presented to the Employer.";
-				mes "3-1. Please refer to Section";
-				mes "7A for examples of acceptible";
-				mes "proof of monster extermination.";
-				mes "3-2. Acceptible proof is";
-				mes "determined and defined by a";
-				mes "representative of the Employer.";
-				mes "4. Employer will allot rewards";
-				mes "to Employees after receiving";
-				mes "extermination proof.";
-				mes "4-1. Possible rewards for";
-				mes "monster exterminations may";
-				mes "include the following. ";
-				mes ".................................................";
-				mes ".................................................";
-				mes ".................................................";
-				mes ".................................................";
-				mes ".................................................";
-				mes "13. This contract's terms are";
-				mes "only applicable witin Thanatos";
-				mes "Tower.";
-				mes "14. Employees will receive";
-				mes "a discount on the Entry Fee";
-				mes "to the Thanatos Tower.";
-				mes " ";
-				mes " ";
-				mes " ";
-				mes "Employer Signature_____________";
-				mes "Employee Signature____________";
-				next;
-				switch (select("Sign:Don't Sign")) {
-				case 1:
-					mes "^3355FFYou sign two copies of the";
-					mes "Employment Agreement.^000000";
-					next;
-					mes "[Ditze]";
-					mes "Thank you. Now, you are";
-					mes "an official employee of the";
-					mes "Rekenber Corporation! Well,";
-					mes "within the limits of this tower";
-					mes "anyway. This contract doesn't";
-					mes "apply outside of this place.";
-					next;
-					mes "[Ditze]";
-					mes "From now on, you can talk";
-					mes "to the 2nd Floor Guide to";
-					mes "enter the 3rd Floor. If you";
-					mes "have any mission reward";
-					mes "questions, please ask ^3355FFLiei^000000.";
-					next;
-					mes "[Ditze]";
-					mes "If you want to check";
-					mes "more information about";
-					mes "your work, please talk";
-					mes "to the 2nd Floor Guide.";
-					mes "Thank you, and welcome";
-					mes "to the Rekenber Corporation~";
-					set thana_tower,1;
-					close;
-				case 2:
-					mes "[Ditze]";
-					mes "Oh? Was there an article";
-					mes "within the contract that you";
-					mes "disagreed with? Hm. Well,";
-					mes "that's fine. But if you change";
-					mes "your mind, please come back";
-					mes "and ask me anytime. Thank you~";
-					close;
-				}
-			}
+			goto L_Contract;
 		case 3:
 			mes "[Ditze]";
 			mes "Well, if you have any";
@@ -540,10 +288,127 @@ tha_t01,149,78,4	script	Guide	90,{
 	mes "and the Guide next to me. Well,";
 	mes "we hope you enjoy your experience working with Rekenber Corporation~";
 	close;
+
+L_Contract:
+	switch(select("Maybe next time:Sure, I'd like to work for you.")) {
+	case 1:
+		mes "[Ditze]";
+		mes "Well, alright.";
+		mes "But come and talk to";
+		mes "me as soon as you decide";
+		mes "that you want to help with";
+		mes "the tower reconstruction by";
+		mes "working for Rekenber.";
+		close;
+	case 2:
+		mes "[Ditze]";
+		mes "That's great!";
+		mes "Would you please fill";
+		mes "out this employment";
+		mes "agreement first? Let's";
+		mes "see. Your name is...";
+		mes strcharinfo(0) + ", right?";
+		next;
+		select("Yes");
+		mes "[Ditze]";
+		mes "Alright, please read";
+		mes "this agreement carefully.";
+		mes "If you agree with all of";
+		mes "the conditions, go ahead";
+		mes "and just sign the bottom.";
+		next;
+		mes "^3355FFDitze hands you the";
+		mes "Employment Agreement";
+		mes "document for you to read.^000000";
+		next;
+		mes "- Employment Agreement -";
+		mes " ";
+		mes "1. This employment agreement";
+		mes "is effective between Rekenber";
+		mes "Corporation (''Employer'') and "+strcharinfo(0)+"(''Employee'').";
+		mes "1-1. This employment agreement";
+		mes "is classified as a Mercernary";
+		mes "contract between both parties.";
+		mes "2. The terms of this contract";
+		mes "immediately take effect once";
+		mes "it is signed by both parties";
+		mes "(Employer and Employee).";
+		mes "3. When the Employee performs";
+		mes "a mission, the mission results";
+		mes "must be verified with acceptible physical proof that must be";
+		mes "presented to the Employer.";
+		mes "3-1. Please refer to Section";
+		mes "7A for examples of acceptible";
+		mes "proof of monster extermination.";
+		mes "3-2. Acceptible proof is";
+		mes "determined and defined by a";
+		mes "representative of the Employer.";
+		mes "4. Employer will allot rewards";
+		mes "to Employees after receiving";
+		mes "extermination proof.";
+		mes "4-1. Possible rewards for";
+		mes "monster exterminations may";
+		mes "include the following.";
+		mes ".................................................";
+		mes ".................................................";
+		mes ".................................................";
+		mes ".................................................";
+		mes ".................................................";
+		mes "13. This contract's terms are";
+		mes "only applicable witin Thanatos";
+		mes "Tower.";
+		mes "14. Employees will receive";
+		mes "a discount on the Entry Fee";
+		mes "to the Thanatos Tower.";
+		mes " ";
+		mes " ";
+		mes " ";
+		mes "Employer Signature____________";
+		mes "Employee Signature____________";
+		next;
+		switch(select("Sign:Don't Sign")) {
+		case 1:
+			mes "^3355FFYou sign two copies of the";
+			mes "Employment Agreement.^000000";
+			next;
+			mes "[Ditze]";
+			mes "Thank you. Now, you are";
+			mes "an official employee of the";
+			mes "Rekenber Corporation! Well,";
+			mes "within the limits of this tower";
+			mes "anyway. This contract doesn't";
+			mes "apply outside of this place.";
+			next;
+			mes "[Ditze]";
+			mes "From now on, you can talk";
+			mes "to the 2nd Floor Guide to";
+			mes "enter the 3rd Floor. If you";
+			mes "have any mission reward";
+			mes "questions, please ask ^3355FFLiei^000000.";
+			next;
+			mes "[Ditze]";
+			mes "If you want to check";
+			mes "more information about";
+			mes "your work, please talk";
+			mes "to the 2nd Floor Guide.";
+			mes "Thank you, and welcome";
+			mes "to the Rekenber Corporation~";
+			set thana_tower, 1;
+			close;
+		case 2:
+			mes "[Ditze]";
+			mes "Oh? Was there an article";
+			mes "within the contract that you";
+			mes "disagreed with? Hm. Well,";
+			mes "that's fine. But if you change";
+			mes "your mind, please come back";
+			mes "and ask me anytime. Thank you~";
+			close;
+		}
+	}
 }
 
 tha_t01,140,78,4	script	Guide#reward	831,{
-	
 	mes "[Liei]";
 	if (thana_tower == 0) {
 		mes "Good day, I'm";
@@ -552,7 +417,7 @@ tha_t01,140,78,4	script	Guide#reward	831,{
 		mes "Reward Department";
 		mes "here in Thanatos Tower.";
 		next;
-		switch (select("Employee's mission reward?:Keep up the good work.")) {
+		switch(select("Employee's mission reward?:Keep up the good work.")) {
 		case 1:
 			mes "[Liei]";
 			mes "Currently, Rekenber Corporation";
@@ -573,7 +438,7 @@ tha_t01,140,78,4	script	Guide#reward	831,{
 	mes "Ah, hello~";
 	mes "How may I help you?";
 	next;
-	if(select("Reward:Nothing")==2) {
+	if(select("Reward:Nothing") == 2) {
 		mes "[Liei]";
 		mes "Alright, then.";
 		mes "Please do your best";
@@ -581,7 +446,8 @@ tha_t01,140,78,4	script	Guide#reward	831,{
 		mes "monsters that infest";
 		mes "the higher floors of";
 		mes "the Thanatos Tower~";
-		close; }
+		close;
+	}
 	mes "[Liei]";
 	mes "You're "+strcharinfo(0)+", yes?";
 	mes "Let me check our temp";
@@ -606,17 +472,16 @@ tha_t01,140,78,4	script	Guide#reward	831,{
 	mes getitemname(.@Items[.@i])+" is...";
 	mes " ";
 	mes "1,000 zeny";
-	mes "2,000 EXP";
+	//mes "2,000 EXP";
 	next;
 	set .@zeny_tt,(countitem(.@Items[.@i]) * 1000);
-	set .@exp_tt,(countitem(.@Items[.@i]) * 2000);
+	//set .@exp_tt,(countitem(.@Items[.@i]) * 2000);
 	mes "[Liei]";
-	mes "If you turn in your";
 	mes countitem(.@Items[.@i])+" "+getitemname(.@Items[.@i])+"s, then";
 	mes "you will receive a total of...";
 	mes " ";
 	mes ""+.@zeny_tt+" zeny";
-	mes ""+.@exp_tt+" EXP";
+	//mes ""+.@exp_tt+" EXP";
 	next;
 	mes "[Liei]";
 	mes "Would you like to exchange";
@@ -627,13 +492,13 @@ tha_t01,140,78,4	script	Guide#reward	831,{
 		case 1:
 			mes "[Liei]";
 			mes "Great! Here is your";
-			mes ""+.@zeny_tt+" zeny and";
-			mes ""+.@exp_tt+" EXP. Thank you,";
+			mes .@zeny_tt+" zeny. Thank you,";
+			//mes .@exp_tt+" EXP. Thank you,";
 			mes "and please keep up";
 			mes "the good work~";
 			delitem .@Items[.@i], countitem(.@Items[.@i]);
 			set Zeny, Zeny + .@zeny_tt;
-			getexp .@exp_tt,0;
+			//getexp .@exp_tt,0;
 			close;
 		case 2:
 			mes "[Liei]";
@@ -647,7 +512,6 @@ tha_t01,140,78,4	script	Guide#reward	831,{
 }
 
 tha_t02,231,161,5	script	Entrance Guide	874,{
-
 	mes "[Burled]";
 	if (thana_tower == 0) {
 		mes "You are in front of the entrance to the 3rd Floor. Only contracted";
@@ -656,261 +520,377 @@ tha_t02,231,161,5	script	Entrance Guide	874,{
 		mes "speak to the 2nd Floor Guide.";
 		close;
 	}
-	mes "......";
-	mes ".........";
-	mes "............";
+	mes "This is the path to the 3rd floor.";
+	mes "Only the contracted staff are allowed to enter.";
+	mes "How can I help you?";
 	next;
-	switch (select("Excuse me...:.........")) {
+	switch(select("Let me go to 3rd floor.:Tower Information.:Start a conversation.")) {
 	case 1:
 		mes "[Burled]";
-		mes "Oh...";
-		mes "I'm sorry, how";
-		mes "can I help you?";
+		mes "Oh, alright. Let me";
+		mes "check and see if you're";
+		mes "on our temp list. Hmmm...";
+		mes "Ah, you're "+strcharinfo(0)+", right?";
 		next;
-		if (thana_tower < 2) {
-			switch (select("Enter the 3rd Floor:Gate Information")) {
-			case 1:
-				mes "[Burled]";
-				mes "Oh, alright. Let me";
-				mes "check and see if you're";
-				mes "on our temp list. Hmmm...";
-				mes "Ah, you're "+strcharinfo(0)+", right?";
-				next;
-				if (getareausers("tha_t02",226,156,236,166) < 5) {
-					mes "[Burled]";
-					mes "First, we need to wait until";
-					mes "at least 5 temps are gathered";
-					mes "to form a work group. Right";
-					mes "now, there are a total of";
-					mes "" +getareausers("tha_t02",226,156,236,166)+ " temp workers waiting to";
-					mes "enter the 3rd Floor.";
-					next;
-					mes "[Burled]";
-					mes "If you can, try to get";
-					mes "your friends to help you";
-					mes "by coming near me. Please";
-					mes "understand that we have this";
-					mes "temp worker group requirement";
-					mes "for various safety reasons.";
-					close2;
-				}
-				mes "[Burled]";
-				mes "Great, you're just";
-				mes "in time. We just met";
-				mes "the minimum 5 temp group";
-				mes "requirement, so we'll open";
-				mes "the gate to the 3rd Floor soon.";
-				next;
-				mes "[Burled]";
-				mes "The gate to the 3rd Floor";
-				mes "will close shortly, so enter it";
-				mes "as soon as you can. We have";
-				mes "to close it quickly because we";
-				mes "can't have the tower monsters";
-				mes "entering the lower floors...";
-				close2;
-				donpcevent "3rdf_warp#tt::OnEnable";
-				end;
-			case 2:
-				mes "[Burled]";
-				mes "This gate is the only passage";
-				mes "that connects to the 3rd Floor.";
-				mes "After the 4th Floor, passages";
-				mes "between floors only travel one";
-				mes "way, meaning you can't exit the";
-				mes "same way you that you entered.";
-				next;
-				mes "[Burled]";
-				mes "You see, there's a strange";
-				mes "power that affects the 5th";
-				mes "Floor, and all floors above,";
-				mes "which doesn't allow people to";
-				mes "backtrack through the passage in which they entered the floor.";
-				next;
-				mes "[Burled]";
-				mes "So if you ascend past the";
-				mes "4th Floor, please be careful";
-				mes "and make sure that you find";
-				mes "a way to get back. Also, the";
-				mes "monsters grow more powerful";
-				mes "as you ascend the tower...";
-				next;
+		mes "[Burled]";
+		if (getareausers("tha_t02",226,156,236,166) < 5) {
+			mes "First, we need to wait until";
+			mes "at least 5 temps are gathered";
+			mes "to form a work group. Right";
+			mes "now, there are a total of";
+			mes getareausers("tha_t02",226,156,236,166)+ " temp workers waiting to";
+			mes "enter the 3rd Floor.";
+			next;
+			mes "[Burled]";
+			mes "If you can, try to get";
+			mes "your friends to help you";
+			mes "by coming near me. Please";
+			mes "understand that we have this";
+			mes "temp worker group requirement";
+			mes "for various safety reasons.";
+			close;
+		}
+		mes "Great, you're just";
+		mes "in time. We just met";
+		mes "the minimum 5 temp group";
+		mes "requirement, so we'll open";
+		mes "the gate to the 3rd Floor soon.";
+		next;
+		mes "[Burled]";
+		mes "The gate to the 3rd Floor";
+		mes "will close shortly, so enter it";
+		mes "as soon as you can. We have";
+		mes "to close it quickly because we";
+		mes "can't have the tower monsters";
+		mes "entering the lower floors...";
+		if (thana_tower > 3) {
+			next;
+			mes "^4d4dffBurled is smiling lightly so that only I notice.";
+			mes "I nod, then watch him open the gate.^000000";
+		}
+		close2;
+		donpcevent "3rdf_warp#tt::OnEnable";
+		end;
+	case 2:
+		mes "[Burled]";
+		mes "This gate is the only passage";
+		mes "that connects to the 3rd Floor.";
+		mes "After the 4th Floor, passages";
+		mes "between floors only travel one";
+		mes "way, meaning you can't exit the";
+		mes "same way you that you entered.";
+		next;
+		mes "[Burled]";
+		mes "You see, there's a strange";
+		mes "power that affects the 5th";
+		mes "Floor, and all floors above,";
+		mes "which doesn't allow people to";
+		mes "backtrack through the passage in which they entered the floor.";
+		next;
+		mes "[Burled]";
+		mes "So if you ascend past the";
+		mes "4th Floor, please be careful";
+		mes "and make sure that you find";
+		mes "a way to get back.";
+		next;
+		mes "[Burled]";
+		mes "The top is the 12th floor,";
+		mes "and the monsters grow more powerful";
+		mes "as you ascend the tower.";
+		mes "The geographical features also change considerably.";
+		next;
+		mes "[Burled]";
+		mes "Because the higher levels are";
+		mes "too dangerous, we only open the";
+		mes "3rd Floor Gate when 5 or more";
+		mes "are gathered here. Therefore,";
+		mes "you may need to wait if less";
+		mes "than 5 temps have gathered.";
+		close;
+	case 3:
+		if (thana_tower < 3) {
+			mes "[Burled]";
+			mes "...?";
+			mes "Do you have any questions?";
+			next;
+			if(select("About the development.:The relationship of Cool Event Corporation and Rekenber Corporation.:Nope.") == 3) {
 				mes "[Burled]";
-				mes "Because the higher levels are";
-				mes "too dangerous, we only open the";
-				mes "3rd Floor Gate when 5 or more";
-				mes "are gathered here. Therefore,";
-				mes "you may need to wait if less";
-				mes "than 5 temps have gathered.";
+				mes "Take care.";
 				close;
 			}
-		}
-		switch (select("Enter the 3rd Floor:Gate Information:About Satan Morroc...")) {
-		case 1:
 			mes "[Burled]";
-			mes "Oh, alright. Let me";
-			mes "check and see if you're";
-			mes "on our temp list. Hmmm...";
-			mes "Ah, you're "+strcharinfo(0)+", right?";
+			mes "...um, you're quite curious.";
+			mes "If you want to know more, would you do me a favor?";
+			mes "Since you asked for our confidential info...";
 			next;
-			if (getareausers("tha_t02",226,156,236,166) < 5) {
+			if(select("Really? Don't make me afraid of it.:Just tell me about it.:I'll listen about it later.") == 3) {
 				mes "[Burled]";
-				mes "First, we need to wait until";
-				mes "at least 5 temps are gathered";
-				mes "to form a work group. Right";
-				mes "now, there are a total of";
-				mes ""+getareausers("tha_t02",226,156,236,166)+" temp workers waiting to";
-				mes "enter the 3rd Floor.";
-				next;
-				mes "[Burled]";
-				mes "If you can, try to get";
-				mes "your friends to help you";
-				mes "by coming near me. Please";
-				mes "understand that we have this";
-				mes "temp worker group requirement";
-				mes "for various safety reasons.";
+				mes "As you wish...";
+				mes "Take care!";
 				close;
 			}
 			mes "[Burled]";
-			mes "Great, you're just";
-			mes "in time. We just met";
-			mes "the minimum 5 temp group";
-			mes "requirement, so we'll open";
-			mes "the gate to the 3rd Floor soon.";
+			mes "Haha. That's not a big deal.";
+			mes "We, Cool Event, are the corporation that works in many areas of business.";
+			mes "From simple events, guides for dungeons, and trading items.";
 			next;
 			mes "[Burled]";
-			mes "The gate to the 3rd Floor";
-			mes "will close shortly, so enter it";
-			mes "as soon as you can. We have";
-			mes "to close it quickly because we";
-			mes "can't have the tower monsters";
-			mes "entering the lower floors...";
-			close2;
-			donpcevent "3rdf_warp#tt::OnEnable";
-			end;
-		case 2:
+			mes "Though our business started as a small one, we've been getting bigger with assistance from the Rekenber Corporation.";
+			mes "They suggested to develop this tower together.";
+			next;
 			mes "[Burled]";
-			mes "This gate is the only passage";
-			mes "that connects to the 3rd Floor.";
-			mes "After the 4th Floor, passages";
-			mes "between floors only travel one";
-			mes "way, meaning you can't exit the";
-			mes "same way you that you entered.";
+			mes "The Rekenber Corporation is only digging out the remains for studies.";
+			mes "The rest would be made into sightseeing place, which Cool Event Corporation can manage well.";
 			next;
 			mes "[Burled]";
-			mes "You see, there's a strange";
-			mes "power that affects the 5th";
-			mes "Floor, and all floors above,";
-			mes "which doesn't allow people to";
-			mes "backtrack through the passage in which they entered the floor.";
+			mes "It's the biggest business ever.";
+			mes "Also quite profitable as tourist attractions.";
+			mes "But...";
 			next;
 			mes "[Burled]";
-			mes "So if you ascend past the";
-			mes "4th Floor, please be careful";
-			mes "and make sure that you find";
-			mes "a way to get back. Also, the";
-			mes "monsters grow more powerful";
-			mes "as you ascend the tower...";
+			mes "Considerably strong monsters spawn inside the tower.";
+			mes "The monsters weren't spawned there before.";
+			mes "The day after that happened...";
 			next;
 			mes "[Burled]";
-			mes "Because the higher levels are";
-			mes "too dangerous, we only open the";
-			mes "3rd Floor Gate when 5 or more";
-			mes "are gathered here. Therefore,";
-			mes "you may need to wait if less";
-			mes "than 5 temps have gathered.";
-			close;
-		case 3:
+			mes "...anyway, there were some accidently spawned monsters and some troubles...";
+			mes "We and the Rekenber Corporation are in shock.";
+			mes "We were influenced economically, but the more serious thing is...";
+			next;
+			mes "[Burled]";
+			mes "Many staff involved in development are";
+			mes "sacrificing themselves by coming to 3rd floor.";
+			next;
+			mes "[Burled]";
+			mes "While we've pumped our all into the business, that accident happened...";
+			mes "We eventually merged with the Rekenber Corporation.";
+			next;
 			mes "[Burled]";
-			mes "Satan Morroc...?";
-			mes "Ummm... Isn't talking";
-			mes "about that a little taboo?";
-			mes "I mean, people get angry";
-			mes "or scared just hearing";
-			mes "that name, you know?";
+			mes "The development is on hold temporarily.";
+			mes "Recruiting adventurers to defeat monsters...";
+			mes "Isn't this funny?";
 			next;
-			switch (select("It's important that I know more.:I'm sorry, I didn't know...")) {
+			mes "[Burled]";
+			mes "No matter what happened there, they wouldn't be hurt.";
+			mes "Even if they don't get at the root of the accident....";
+			next;
+			switch(select("Oh...:What accident are you referring to?")) {
 			case 1:
 				mes "[Burled]";
-				mes "When the Rekenber Corporation";
-				mes "started reconstruction of the";
-				mes "Thanatos Tower, the Cool Event";
-				mes "Corporation was their biggest";
-				mes "business partner in the tower";
-				mes "reconstruction project.";
-				next;
-				mes "[Burled]";
-				mes "Yeah, I remember that Cool";
-				mes "Event Corp. invested huge";
-				mes "amounts of zeny and manpower";
-				mes "to rebuild to tower, and expand";
-				mes "their business relationship";
-				mes "with Rekenber Corporation...";
+				mes "Yes, it's not that big of a deal. Haha....";
+				mes "If we are working here like this....";
+				mes "we would know about the death of animals.";
 				next;
 				mes "[Burled]";
-				mes "But then, there was some";
-				mes "kind of accident. An explosion";
-				mes "happened in the upper floors";
-				mes "of Thanatos Tower. Some say";
-				mes "it might have been Satan Morroc, but I wouldn't know for sure.";
+				mes "Cool Event Corporation is considered the follower...";
+				mes "They don't clear up how many people";
+				mes "died or any reasons for it.";
 				next;
 				mes "[Burled]";
-				mes "Because of that explosion,";
-				mes "Cool Event Corporation withdrew";
-				mes "their investment into the tower";
-				mes "reconstruction project. They";
-				mes "basically abandoned Rekenber Corporation in the tower effort.";
+				mes "Now you're curious about this case.";
+				mes "What do they sacrifice for?";
 				next;
 				mes "[Burled]";
-				mes "But well...";
-				mes "Shortly after that happened,";
-				mes "Rekenber Corporation took over";
-				mes "Cool Event Corporation. I mean,";
-				mes "the company retains its name, but it's a Rekenber company now.";
-				next;
-				mes "[Burled]";
-				mes "I know, I know...";
-				mes "It all sounds awfully";
-				mes "shady. Please do me a favor";
-				mes "and don't tell anyone that";
-				mes "I told you this rumor, okay?";
+				mes "I talked a lot.";
+				mes "Sorry, I am not supposed to talk about this case like this...";
+				mes "I've been quite concerned about it, that's all.";
+				set thana_tower, 3;
 				close;
 			case 2:
-				close;
+				mes "[Burled]";
+				mes "If you promise me that";
+				mes "you will do me a favor...";
+				next;
+				switch(select("Ok! I will.:No, I won't.")) {
+				case 1:
+					callsub L_Request;
+					next;
+					mes "["+strcharinfo(0)+"]";
+					mes "(What's the accident...?";
+					mes "He might let me know later...)";
+					close;
+				case 2:
+					mes "[Burled]";
+					mes "...there is no way...";
+					mes "They request you to explore the internal part.";
+					mes "You're employed for this exploration.";
+					close;
+				}
 			}
 		}
-		case 2:
-			mes "["+strcharinfo(0)+"]";
-			mes ".............";
+		else if (thana_tower == 3) {
+			callsub L_Request;
+			close;
+		}
+		else if (thana_tower == 4) {
+			mes "[Burled]";
+			mes "Rekenber Corporation must have another intention,";
+			mes "since they don't seem interested in the tower much.";
+			mes "I want to know their intention.";
+			next;
+			mes "[Burled]";
+			mes "This tower is sealed and separated from the outside.";
+			mes "We need to break those seals, explore inside and develop it.";
+			next;
+			mes "[Burled]";
+			mes "We are developing the 3rd and 4th floors now...";
+			mes "There are still seals there.";
+			mes "You can find out some clues when you search around them.";
 			close;
+		}
+		else if ((thana_tower > 4) && (thana_tower < 9)) {
+			mes "[Burled]";
+			mes "The magical key and messages?";
+			mes "...we absolutely haven't learned all the tower's secrets...";
+			next;
+			mes "[Burled]";
+			mes "Who made the seals?";
+			mes "...can you investigate more?";
+			mes "There must be definitive evidence...";
+			close;
+		}
+		else if (thana_tower == 9) {
+			mes "[Burled]";
+			mes "Any new progress?";
+			next;
+			select("I found Varmunt's Journal...");
+			mes "- You show him Varmunt's Journal.";
+			mes "Burled reads it. -";
+			next;
+			mes "[Burled]";
+			mes "...I recognize this.";
+			mes "This is the hologragh of the wise man Varmunt.";
+			mes "Regenschirm from Rekenber's huge research institute has...";
+			next;
+			mes "[Burled]";
+			mes "...isn't this the one they are looking for now?!";
+			mes "Isn't their mission to find out Varmunt's research materials...?";
+			next;
+			mes "[Burled]";
+			mes "For assisting uncompleted research...";
+			mes "Varmunt's research materials are needed...";
+			mes "...so their mission isn't just an investigation of the tower.";
+			next;
+			mes "[Burled]";
+			mes "Something to get as an advantage...";
+			mes "Even they don't know where it is...";
+			mes "...anyways, this is the one of their main objects.";
+			next;
+			mes "[Burled]";
+			mes "It's absolutely great. The wise man Varmunt's belongings. How unbelievable!";
+			mes "Now, what do we do with this?";
+			next;
+			mes "[Burled]";
+			mes "Originally everything we found out in this tower was under control of the Rekenber Corporation.";
+			mes "This is supposed to theirs, but...";
+			next;
+			mes "[Burled]";
+			mes "How would you like to keep this, "+strcharinfo(0)+"?";
+			mes "Definitely this should be a secret.";
+			mes "...um, this is a little revenge for them.";
+			next;
+			mes "[Burled]";
+			mes "I can guess that there are several secrets in this tower through this note.";
+			mes "This secret should be disclosed by you, "+strcharinfo(0)+", before Rekenber does.";
+			next;
+			mes "[Burled]";
+			mes "No matter how much power they obtain... they won't get to know about this tower...";
+			mes "Haha...";
+			next;
+			mes "[Burled]";
+			mes "...haha...";
+			mes "I feel a bit relieved.";
+			mes "Thanks.";
+			mes "This isn't much, but here's a return present.";
+			next;
+			mes "[Burled]";
+			mes "I hope that these will be useful for you, "+strcharinfo(0)+".";
+			next;
+			mes "- Burled gives you the note and an Old Violet Box. -";
+			mes " ";
+			mes "^4d4dffYou acquire one Old Violet Box,";
+			mes "as well as a little EXP.^000000";
+			set thana_tower, 10;
+			completequest 7053;
+			getexp 120000,10000;
+			getitem 617,1; //Old_Violet_Box
+			close;
+		}
+		else {
+			mes "[Burled]";
+			mes "Are you keeping the secrets well?";
+			mes "Is there a Phantom on the top of this tower?";
+			if (rand(3) == 1) {
+				mes "You look tired. This isn't a big deal, but it's for you.";
+//				UseSkillToPC 28 10 50 70
+				percentheal 50,70;
+				specialeffect2 EF_HEAL;
+			}
+			close;
+		}
 	}
+
+L_Request:
+	mes "[Burled]";
+	mes "Ah, it's not that difficult.";
+	mes "After you explore the tower, let me know in detail anything you learn.";
+	next;
+	mes "[Burled]";
+	mes "...I can't believe the Rekenber Corporation. Many colleagues and friends died for them.";
+	mes "But the Rekenber Corporation doesn't expose the reason they are dead.";
+	next;
+	mes "[Burled]";
+	mes "The conditions were bad for us from beginning...";
+	mes "All of the developed places except research materials would be turned into tourist attractions...";
+	mes "Honestly, all the personnel are from Cool Event Corp.";
+	next;
+	mes "[Burled]";
+	mes "They know about it as well.";
+	mes "This business needs much sacrifice as well as personnel who are up for it.";
+	next;
+	mes "[Burled]";
+	mes "Now I don't feel victimized anymore, but I just want to know what drives these accidents...";
+	mes "^4d4dffWhat makes us victimized...?^000000";
+	mes "That's what I want to know.";
+	next;
+	mes "[Burled]";
+	mes "What's this tower?";
+	mes "Why did they develop this dangerous place?";
+	mes "And for what? Should my colleagues be dead for it?";
+	next;
+	mes "[Burled]";
+	mes "I seriously want to know about it.";
+	mes "Why they must sacrifice themselves...";
+	mes "Let me know...";
+	next;
+	mes "He seriously wants to know about it.";
+	mes "His hands are trembling now...";
+	mes "I nodd without answering.";
+	set thana_tower, 4;
+	setquest 7048;
+	return;
 }
 
 tha_t02,227,163,0	script	3rdf_warp#tt	45,1,1,{
 	end;
-
 OnInit:
 	disablenpc "3rdf_warp#tt";
 	end;
-	
 OnTouch:
 	if (thana_tower == 0) warp "tha_t02",227,158;
 	else warp "tha_t03",219,159;
 	end;
-
 OnEnable:
 	enablenpc "3rdf_warp#tt";
 	initnpctimer;
 	end;
-
 OnTimer30000:
 	stopnpctimer;
 	disablenpc "3rdf_warp#tt";
 	end;
 }
 
-tha_t03,67,70,0	script	Machine Device#tt1	111,{
-
+tha_t03,67,70,0	script	Rune Device#tt1	111,4,4,{
 	if ((countitem(7421) == 0) && (countitem(7426) == 0)) {
 		mes "^3355FFA mysterious field of";
 		mes "energy seems to surround";
@@ -918,109 +898,121 @@ tha_t03,67,70,0	script	Machine Device#tt1	111,{
 		mes "its power prevents you from";
 		mes "approaching the machine.^000000";
 		next;
-		switch (select("Smash the Energy Field:Retreat")) {
+		switch(select("Investigate it.:I don't care about it.")) {
 		case 1:
-			if (getequipweaponlv(4) == 4){
+			mes "["+strcharinfo(0)+"]";
+			mes "This seems mysterious...";
+			mes "Let me investigate.";
+			next;
+			mes "^3355FFAs you follow the magical power, there's something wrapped inside the rune device.^000000";
+			next;
+			if (Class == Job_Taekwon) {
+				mes "^3355FFYou kick the energy";
+				mes "field with all of your strength. After absorbing the impact, the";
+				mes "field fizzles out with a soft,";
+				mes "gentle ''pzzzzzh'' sound.^000000";
+				next;
+				goto L_Key;
+			}
+			else if (getequipweaponlv(4) == 4) {
 				mes "^3355FFWith your "+getequipname(4)+" in";
 				mes "hand, you smash the energy";
 				mes "field with all of your strength. After absorbing the impact, the";
 				mes "field fizzles out with a soft,";
 				mes "gentle ''pzzzzzh'' sound.^000000";
 				next;
-				switch (select("Investigate Device:Retreat")) {
-				case 1:
-					mes "^3355FFAs you investigate the";
-					mes "device, you accidentally";
-					mes "press a button, resulting";
-					mes "in a loud beeping noise";
-					mes "and the activation of";
-					mes "the monitor screen.^000000";
-					next;
-					switch (select("Read the Screen:Ignore the Screen")) {
-					case 1:
-						mes "^426F42I've used the Gate Seal";
-						mes "technology to seal the gate";
-						mes "and the charm stones. Although";
-						mes "the seals are in place, I can't";
-						mes "stop worrying that they might";
-						mes "break in the future.^000000";
-						next;
-						mes "^426F42I can't relax when a, shall";
-						mes "I say, particular group covets";
-						mes "the charm stones and can easily";
-						mes "break the seals. To deter them,";
-						mes "I've changed the Gate destination before sealing the Gate.^000000";
-						next;
-						mes "^426F42I didn't check the exact";
-						mes "destination coordinates for";
-						mes "the Gate after I changed them,";
-						mes "but the destination gives me";
-						mes "a warm, comforting feeling,";
-						mes "so it's definitely not hell.^000000";
-						next;
-						mes "^3355FFYou've read all the";
-						mes "text displayed on the";
-						mes "screen. Judging from the";
-						mes "content, there is probably";
-						mes "more text before and after the";
-						mes "section shown on the screen.^000000";
-						next;
-						switch (select("Further Investigate Machine:Finish Investigation")) {
-						case 1:
-							mes "^3355FFYou have found";
-							mes "a small key on the";
-							mes "corner of the machine.";
-							mes "Just touching this key";
-							mes "gives you a strange feeling.^000000";
-							getitem 7421,1; //Key_Red
-							close;
-						case 2:
-							close;
-						}
-					case 2:
-						mes "^3355FFYou decide to ignore the";
-						mes "text displayed on the screen,";
-						mes "and immediately discover a";
-						mes "small key laid on the corner";
-						mes "of the machine. Just touching";
-						mes "it gives you a strange feeling.^000000";
-						getitem 7421,1; //Key_Red
-						close;
-					}
-				case 2:
-					mes "^3355FFYou decide to leave";
-					mes "the machine alone.^000000";
-					close;
-				}
+				goto L_Key;
+			}
+			else {
+				mes "^3355FFYou smash the energy";
+				mes "field with your weapon";
+				mes "using all of your strength,";
+				mes "but you weren't able to";
+				mes "break down the barrier.";
+				mes "You probably need a more";
+				mes "powerful weapon...^000000";
+				close;
 			}
-			mes "^3355FFYou smash the energy";
-			mes "field with your weapon";
-			mes "using all of your strength,";
-			mes "but you weren't able to";
-			mes "break down the barrier.";
-			mes "You probably need a more";
-			mes "powerful weapon...^000000";
-			close;
 		case 2:
 			mes "^3355FFYou decide to leave";
 			mes "the machine alone.^000000";
 			close;
 		}
 	}
-	mes "^3355FFIt's a peculiar machine";
-	mes "that emits a strange buzzing";
-	mes "hum. After looking closer,";
-	mes "you can faintly perceive an";
-	mes "energy barrier surrounding";
-	mes "the machine.^000000";
+	mes "You've acquired everything you need from this rune device.";
 	close;
-}
 
-tha_t04,195,195,0	script	Machine Device#tt2	111,{
+OnTouch:
+	if ((countitem(7421) == 0) && (countitem(7426) == 0))
+		specialeffect EF_LEVEL99_4;
+	end;
 
+L_Key:
+	specialeffect EF_BRANDISH2;
+	mes "After breaking the device, the exterior shatters.";
+	mes "The energy field begins to disappear,";
+	mes "and you see that a red object inside was the origin of the magical power.";
+	next;
+	mes "- You acquired the powerful Red Key. -";
+	getitem 7421,1; //Key_Red
+	if (thana_tower != 4) close;
+	mes "^4d4dffOnce you hold the key, a shocking feeling passes through your head.";
+	mes "You see an illusion of light...^000000";
+	next;
+	switch(select("Ignore it.:Concentrate on it.")) {
+	case 1:
+		mes "^3355FFYou decide to leave";
+		mes "the machine alone.^000000";
+		close;
+	case 2:
+		mes "You focus on the light.";
+		mes "Some letters begin to appear...";
+		next;
+		mes "^b22222I've used the Gate Seal";
+		mes "technology to seal the gate";
+		mes "and the charm stones. Although";
+		mes "the seals are in place, I can't";
+		mes "stop worrying that they might";
+		mes "break in the future.";
+		next;
+		mes "^b22222I can't relax when a, shall";
+		mes "I say, particular group covets";
+		mes "the charm stones and can easily";
+		mes "break the seals. Since they are";
+		mes "broken now, are many people hurt?";
+		next;
+		mes "^b22222This tower contains strong";
+		mes "magical powers and much evil. It is";
+		mes "dangerous by itself, but I sealed it";
+		mes "because of one man's strong desires...";
+		next;
+		mes "^b22222I wouldn't recommend to go futher.";
+		mes "You would need to challenge that poor";
+		mes "being, who I've named this tower after.";
+		mes "His soul still rests here...";
+		next;
+		mes "^b22222Nobody believed me, the crazy scientist.";
+		mes "Though I wanted to keep this a secret, somebody";
+		mes "must get to know about it. That's way I created";
+		mes "this rune device, and hid this message.";
+		next;
+		mes "^b22222Please show that my experience";
+		mes "wasn't just an illusion.^000000";
+		next;
+		mes "That's all.";
+		mes "The letters fly away in the form of a red key...";
+		set thana_tower, 5;
+		changequest 7048,7049;
+		specialeffect2 EF_COMBOATTACK1;
+		close;
+	}
+}
+
+tha_t04,195,195,0	script	Rune Device#tt2	111,3,3,{
 	if ((countitem(7422) == 0) && (countitem(7427) == 0)) {
-		mes "^3355FFYou find a number pad";
-		mes "underneath the monitor.";
+		mes "^3355FFYou find a screen";
+		mes "with three tiny panels and";
+		mes "a numeric keypad underneath.";
 		mes "As you press one of the";
 		mes "number keys, you hear a";
 		mes "beep as the screen activates.^000000";
@@ -1030,22 +1022,18 @@ tha_t04,195,195,0	script	Machine Device#tt2	111,{
 		mes "number. Do not use a";
 		mes "single number more than";
 		mes "once or use the number 0.";
-		set @retry,0;
 		next;
 		while (1) {
-			set @yagu100,rand(1,9);
-			set @yagu10,rand(1,9);
-			set @yagu1,rand(1,9);
-			if (((@yagu100 != @yagu10) && (@yagu100 != @yagu1)) && (@yagu10 != @yagu1)) {
+			set .@yagu100, rand(1,9);
+			set .@yagu10, rand(1,9);
+			set .@yagu1, rand(1,9);
+			if (((.@yagu100 != .@yagu10) && (.@yagu100 != .@yagu1)) && (.@yagu10 != .@yagu1))
 				break;
-			}
 		}
 		while (1) {
 			while (1) {
-L_Retry:
-				next;
-				input @input;
-				if (@input < 100 || @input > 999) {
+				input .@input;
+				if (.@input < 100 || .@input > 999) {
 					mes "[Screen]";
 					mes "Number input";
 					mes "requirement has";
@@ -1054,12 +1042,11 @@ L_Retry:
 					mes "3 digit number.";
 					close;
 				}
-				set @input100,@input / 100;
-				set @input10,(@input % 100) / 10;
-				if (((@input100 > 0) && (@input10 > 0)) && ((@input % 10) > 0)) {
-					if ((@input100 != @input10) && (@input100 != (@input % 10)) && (@input10 != (@input % 10))) {
+				set .@input100, .@input / 100;
+				set .@input10, (.@input % 100) / 10;
+				if (((.@input100 > 0) && (.@input10 > 0)) && (.@input % 10 > 0)) {
+					if (((.@input100 != .@input10) && (.@input100 != .@input % 10)) && (.@input10 != .@input % 10))
 						break;
-					}
 					mes "[Screen]";
 					mes "Violation of number";
 					mes "input parameter. The";
@@ -1069,94 +1056,75 @@ L_Retry:
 					next;
 				}
 			}
-			set @retry,@retry+1;
+			set .@retry, .@retry + 1;
 			mes "[Screen]";
 			mes "You have input...";
-			mes "^0000ff"+@input100+"^000000, ^0000ff"+@input10+"^000000, ^0000ff"+(@input % 10)+"^000000";
+			mes "^0000ff" + .@input100 + "^000000, ^0000ff" + .@input10 + "^000000, ^0000ff" + (.@input % 10) + "^000000";
 			mes " ";
 			mes "Calculating Results...";
 			mes "Please wait a moment...";
 			next;
-			set @strike,0;
-			set @ball,0;
-			if (@yagu100 == @input100) set @strike,@strike+1;
-			if (@yagu10 == @input10) set @strike,@strike+1;
-			if (@yagu1 == (@input % 10)) set @strike,@strike+1;
-			if ((@yagu100 == @input10) || (@yagu100 == (@input % 10))) set .@ball,.@ball+1;
-			if ((@yagu10 == @input100) || (@yagu10 == (@input % 10))) set @ball,@ball+1;
-			if ((@yagu1 == @input100) || (@yagu1 == @input10)) set @ball,@ball+1;
-			if (@strike == 3) {
+			set .@strike, 0;
+			set .@ball, 0;
+			if (.@yagu100 == .@input100) set .@strike, .@strike + 1;
+			if (.@yagu10 == .@input10) set .@strike, .@strike + 1;
+			if (.@yagu1 == .@input % 10) set .@strike, .@strike + 1;
+			if ((.@yagu100 == .@input10) || (.@yagu100 == .@input % 10)) set .@ball, .@ball + 1;
+			if ((.@yagu10 == .@input100) || (.@yagu10 == .@input % 10)) set .@ball, .@ball + 1;
+			if ((.@yagu1 == .@input100) || (.@yagu1 == .@input10)) set .@ball, .@ball + 1;
+			if (.@strike == 3) {
 				mes "[Screen]";
 				mes "Input number accepted.";
 				mes "Access authorized.";
 				next;
 				mes "^3355FFAfter the screen displays";
 				mes "the access authorization";
-				mes "notice, some new text is";
-				mes "displayed on the screen,";
-				mes "and a storage unit slides";
-				mes "open beneath the monitor.^000000";
+				mes "notice, magical power condenses";
+				mes "and appears on the screen's";
+				mes "surface. An object forms...^000000";
 				next;
-				switch (select("Read the Screen's Text:Investigate Monitor Storage:Cancel")) {
+				mes "^4d4dffThe powerful Yellow Key appears.^000000";
+				getitem 7422,1; //Key_Yellow
+				if (thana_tower != 5) close;
+				mes "^4d4dffA fierce feeling passes through your head.";
+				mes "You seen an illusion of light, like when you acquired the first key.^000000";
+				next;
+				switch(select("Ignore it.:Concentrate on it.")) {
 				case 1:
-					mes "[Log Entry]";
-					mes "^426F42That could only mean she";
-					mes "came here for Satan Morroc.";
-					mes "After I investigated the area,";
-					mes "I found traces of a battle that";
-					mes "involved several human sized creatures and one giant monster.^000000";
+					mes "You decide to ignore it.";
+					close;
+				case 2:
+					mes "You focus on the light.";
+					mes "Some letters begin to appear...";
 					next;
-					mes "[Log Entry]";
-					mes "^426F42I'm guessing that her group";
-					mes "actually fought Satan Morroc";
-					mes "and managed to wound it";
-					mes "severely. It looks like Satan";
-					mes "Morroc retreated to the south";
-					mes "and her group followed it.^000000";
+					mes "^b22222Have you found the second key?";
+					mes "I wish to tell you where the seal is, but I won't unveil it so easily.";
+					mes "Here's a hint. Go to the eagle on the 5th floor.";
 					next;
-					mes "[Log Entry]";
-					mes "^426F42Strangely, I haven't found";
-					mes "any traces of her, which is";
-					mes "especially suspicious since";
-					mes "other evidence in the area has";
-					mes "remained for hundreds of years.";
-					mes "But I can't figure out why...^000000";
+					mes "^b22222The reason I came here is...";
+					mes "to find someone.";
+					mes "We human beings can't understand this...";
 					next;
-					mes "^3355FFYou've finished";
-					mes "reading the Log Entry.^000000";
+					mes "^b22222When I found her in Juperos, I couldn't relax.";
+					mes "The giant men staying with her in deep side of cave";
+					mes "made me rush through my investigation...";
 					next;
-					switch (select("Investigate Monitor Storage:Cancel")) {
-					case 1:
-						mes "^3355FFYou find a small, shining";
-						mes "key in an empty corner of the";
-						mes "Monitor's Storage receptacle.";
-						mes "Merely holding it makes you";
-						mes "feel some strange sensation.^000000";
-						if (thana_tower == 1) set thana_tower,2;
-						getitem 7422,1; //Key_Yellow
-						close;
-					case 2:
-						close;
-					}
-				case 2:
-					mes "^3355FFYou find a small, shining";
-					mes "key in an empty corner of the";
-					mes "Monitor's Storage receptacle.";
-					mes "Merely holding it makes you";
-					mes "feel some strange sensation.^000000";
-					getitem 7422,1; //Key_Yellow
-					close;
-				case 3:
-					mes "^3355FFAfter a short while,";
-					mes "you hear a low pitched";
-					mes "beep. The screen's text";
-					mes "disappears, and the storage";
-					mes "receptable under the monitor";
-					mes "slides shut, concealing itself.^000000";
+					mes "^b22222After confirming her existence, I became blindly obsessed with finding traces of her.";
+					mes "'Her', you ask? She is shaped like a woman...";
+					next;
+					mes "^b22222I followed her traces without knowing that she existed 10 years earlier.";
+					mes "Then I came upon this place.";
+					next;
+					mes "^b22222This tower set up for...^000000";
+					next;
+					mes "It suddenly shakes, then disappears.";
+					set thana_tower, 6;
+					changequest 7049,7050;
+					specialeffect2 EF_COMBOATTACK1;
 					close;
 				}
 			}
-			if (@retry > 4) {
+			else {
 				mes "[Screen]";
 				mes "*Beeeeep*";
 				mes "Unauthorized";
@@ -1165,1603 +1133,1188 @@ L_Retry:
 				mes "[Screen]";
 				mes "Correct number";
 				mes "in correct place";
-				mes "in sequence total: ^FF0000"+@strike+"^000000";
+				mes "in sequence total: ^FF0000" + .@strike + "^000000";
 				mes " ";
-				mes "Correct number total: ^FF0000"+@ball+"^000000";
+				mes "Correct number total: ^FF0000" + .@ball + "^000000";
 				next;
-				mes "[Screen]";
-				mes "Correct number";
-				mes "authorization";
-				mes "sequence was...";
-				mes "^ff0000"+@yagu100+"^000000, ^ff0000"+@yagu10+"^000000, ^ff0000"+@yagu1+"^000000";
-				mes "Authorization number";
-				mes "will change upon retry.";
-				close;
+				if (.@retry > 4) {
+					mes "[Screen]";
+					mes "Correct number";
+					mes "authorization";
+					mes "sequence was...";
+					mes "^ff0000" + .@yagu100 + "^000000, ^ff0000" + .@yagu10 + "^000000, ^ff0000" + .@yagu1 + "^000000";
+					mes "Authorization number";
+					mes "will change upon retry.";
+					close;
+				}
 			}
-			mes "[Screen]";
-			mes "*Beeeeep*";
-			mes "Unauthorized";
-			mes "numerical sequence.";
-			next;
-			mes "[Screen]";
-			mes "Correct number";
-			mes "in correct place";
-			mes "in sequence total: ^FF0000"+@strike+"^000000";
-			mes " ";
-			mes "Correct number total: ^FF0000"+@ball+"^000000";
-			goto L_Retry;
 		}
 	}
-	mes "^3355FFThis device is currently";
-	mes "inactivated and not in";
-	mes "operation. However, you";
-	mes "may have use for it later...^000000";
+	mes "You've acquired everything you need from this rune device.";
 	close;
-}
 
-tha_t05,101,37,0	script	Machine Device#tt3	111,{
+OnTouch:
+	if ((countitem(7422) == 0) && (countitem(7427) == 0))
+		specialeffect EF_LEVEL99_4;
+	end;
+}
 
+tha_t05,62,179,0	script	Brilliant Statue#tt3	111,3,3,{
 	if ((countitem(7423) == 0) && (countitem(7428) == 0)) {
-		if (getareausers("tha_t05",98,34,104,40) < 4) {
-			mes "^3355FFYou are inexplicably drawn";
-			mes "to this mechanical device.";
-			mes "Aside from the green screen";
-			mes "in the middle, there are no";
-			mes "buttons and switches.^000000";
-			if (rand(1,3) == 2) {
-				next;
-				mes "^3355FFYou perceive small text at the";
-				mes "bottom of the green screen";
-				mes "that reads, ''Operation of this";
-				mes "device requires presense of";
-				mes "four or more personnel detected";
-				mes "by pressure plate system.''^000000";
-				close;
-			}
+		mes "I can feel some magical power from this beautiful stone statue.";
+		mes "There's a little crack between the wings.";
+		next;
+		mes "Red light is shining on a crack in the left wing, and gold light on a crack in the right one.";
+		mes "What will you do?";
+		next;
+		if(select("Stick the key into the crack...:Ignore it.") == 2) {
+			mes "^3355FFYou decide to leave";
+			mes "the statue alone.^000000";
 			close;
 		}
-		mes "^3355FFAs you approach the device, the";
-		mes "floor around it begins to glow.";
-		mes "Text appears on the device's";
-		mes "screen, and a storage receptacle beneath the monitor slides open.^000000";
-		next;
-		switch (select("Read the Screen's Text:Investigate Monitor Storage:Cancel")) {
-		case 1:
-			mes "[Log Entry]";
-			mes "^426F42After the whole ordeal,";
-			mes "I decided to leave. But";
-			mes "before I could do that,";
-			mes "I had to seal the Gate";
-			mes "that led to that place.^000000";
+		if ((countitem(7421) > 0) && (countitem(7422) > 0)) {
+			mes "["+strcharinfo(0)+"]";
+			mes "I'll try the left wing first.";
+			mes "What key should I put in?";
 			next;
-			mes "[Log Entry]";
-			mes "^426F42If someone were to find";
-			mes "this tower and use the Gate";
-			mes "for evil ends, the world will be plagued with an era of chaos.";
-			mes "Of course, they'd stop me if they knew I was sealing the Gate...^000000";
+			input .@inputstr$;
+			if ((.@inputstr$ != "Red Key") && (.@inputstr$ != "red key")) {
+				mes "It doesn't fit into the crack.";
+				close;
+			}
+			mes "The key fits and makes a click.";
+			mes "You feel the magical power growing stronger...";
 			next;
-			mes "[Log Entry]";
-			mes "^426F42It took me a very long time,";
-			mes "but I managed to secretly";
-			mes "seal the Gate. But before";
-			mes "I began sealing the Gate,";
-			mes "I decided to examine it";
-			mes "further, just in case.^000000";
+			mes "["+strcharinfo(0)+"]";
+			mes "Now the right side...";
 			next;
-			mes "[Log Entry]";
-			mes "^426F42In my studies of the Gate,";
-			mes "I discovered that it derives";
-			mes "its power from the Charm";
-			mes "Stones. So to prevent anyone";
-			mes "from misusing its power, I've separately sealed the stones...^000000";
+			input .@inputstr$;
+			if ((.@inputstr$ != "Yellow Key") && (.@inputstr$ != "yellow key")) {
+				mes "It doesn't fit into the crack.";
+				close;
+			}
+			mes "The key fits and makes a click.";
+			mes "The beak of the bird suddenly opens, and a strong light comes out.";
+			mes "There's a key-shaped object inside...";
 			next;
-			mes "^3355FFYou've finished";
-			mes "reading the text";
-			mes "that was displayed";
-			mes "on the screen.^000000";
-			close;
-		case 2:
-			mes "^3355FFYou've found a small";
-			mes "shining key inside the";
-			mes "storage receptacle located";
-			mes "underneath the monitor.^000000";
+			mes "^4d4dffThe powerful Blue Key appears.^000000";
 			getitem 7423,1; //Key_Blue
-			close;
-		case 3:
-			close;
+			if (thana_tower != 6) close;
+			mes "^4d4dffOnce you hold the key, a shocking feeling passes through your head.";
+			mes "You see an illusion of light...^000000";
+			next;
+			switch(select("Concentrate on it.:Ignore it.")) {
+			case 1:
+				mes "This part isn't as clear as before.";
+				mes "You try to figure out what it's saying...";
+				next;
+				mes "^b22222...this tower was built by a magical tribe, not by human beings.";
+				mes "This was quite interesting to me...";
+				mes "I started to investigate why they built up the tower...";
+				next;
+				mes "^b22222I found out that this tower was a gate for the magic tribe";
+				mes "during a millennium war.^000000";
+				next;
+				mes ".........It's not clearly shown......";
+				mes "^b22222...Morroc has gone through this gate";
+				mes "from the magical world into the Midgard continent after the millennium war terminated...";
+				next;
+				mes "^b22222The question is that when she come up here, the Satan appears at the same time...";
+				mes "The truth is..........^000000";
+				next;
+				mes "The illusion shakes, then melts on the surface of the key as light.";
+				set thana_tower, 7;
+				changequest 7050,7051;
+				specialeffect2 EF_COMBOATTACK1;
+				close;
+			case 2:
+				mes "You decide to ignore it.";
+				close;
+			}
 		}
+		mes "You try to fit something in the crack, but to no avail.";
+		close;
 	}
-	mes "^3355FFYou find nothing here,";
-	mes "aside from the faded";
-	mes "patterns that mark the floor.^000000";
+	mes "You've acquired everything you need from this statue.";
 	close;
-}
 
-tha_t06,43,152,0	script	Machine Devicett4	111,{
+OnTouch:
+	if ((countitem(7423) == 0) && (countitem(7428) == 0))
+		specialeffect EF_LEVEL99_4;
+	end;
+}
 
+tha_t06,226,230,0	script	Brilliant Statue#tt4	111,3,3,{
 	if ((countitem(7424) == 0) && (countitem(7429) == 0)) {
-		mes "^3355FFYou find a mechanical";
-		mes "device that has many";
-		mes "wheels. A black screen";
-		mes "is mounted on the side";
-		mes "of the machine.^000000";
+		mes "I can feel some magical power from this brilliant statue.";
+		mes "This must be one of the seals.";
 		next;
-		switch (select("Investigate:Cancel")) {
-		case 1:
-			if ((countitem(7421) >= 1) || (countitem(7422) >= 1) || (countitem(7423) >= 1)) {
-				mes "^3355FFAs you scrutinize the";
-				mes "wheels, they respond to";
-				mes "the key in your inventory by";
-				mes "emitting light and strange";
-				mes "noises. After a while, they";
-				mes "stop and become silent.^000000";
+		mes "You see a floating round object with a hole in it.";
+		mes "There're red, yellow, and blue light in a row.";
+		mes "What will you do?";
+		next;
+		if(select("Investigate.:Ignore it.") == 2) {
+			mes "^3355FFYou don't see the need to";
+			mes "investigate if nothing seems";
+			mes "peculiar or out of place...^000000";
+			close;
+		}
+		if ((countitem(7421) > 0) && (countitem(7422) > 0) && (countitem(7423) > 0)) {
+			mes "When you insert the key into the keyhole of the ornament";
+			mes "and match them by corresponding color, the Stone Statue will snap open.";
+			mes "You can see small wheels are moving inside.";
+			next;
+			switch(select("Investigate the Machine Chasis:Investigate the Wheels:Cancel")) {
+			case 1:
+				mes "^3355FFThe key in your inventory";
+				mes "does not seem to be affecting";
+				mes "the machine's chasis. The";
+				mes "screen mounted on the side";
+				mes "is still blank and deactivated.^000000";
+				close;
+			case 2:
+				set .@small_1, 0;
+				set .@small_2, 0;
+				set .@big_1, 0;
+				set .@big_2, 0;
+				set .@big_3, 0;
+				mes "^3355FFYou touch the wheels and";
+				mes "find that they are actually";
+				mes "moving very slowly. You note";
+				mes "that there are 2 small wheels";
+				mes "and 3 larger wheels, totaling";
+				mes "5 wheels on this machine.^000000";
 				next;
-				switch (select("Investigate the Machine Chasis:Investigate the Wheels:Cancel")) {
-				case 1:
-					mes "^3355FFThe key in your inventory";
-					mes "does not seem to be affecting";
-					mes "the machine's chasis. The";
-					mes "screen mounted on the side";
-					mes "is still blank and deactivated.^000000";
-					close;
-				case 2:
-					set @small_1,0;
-					set @small_2,0;
-					set @big_1,0;
-					set @big_2,0;
-					set @big_3,0;
-					mes "^3355FFYou touch the wheels and";
-					mes "find that they are actually";
-					mes "moving very slowly. You note";
-					mes "that there are 2 small wheels";
-					mes "and 3 larger wheels, totaling";
-					mes "5 wheels on this machine.^000000";
-					next;
-					mes "^3355FFThe big wheels are moving";
-					mes "vertically, up and down, as";
-					mes "they press against the smaller";
-					mes "wheels to make them rotate.^000000";
+				mes "^3355FFThe big wheels are moving";
+				mes "vertically, up and down, as";
+				mes "they press against the smaller";
+				mes "wheels to make them rotate.^000000";
+				next;
+				mes "^3355FFJudging from the machine's";
+				mes "shaking and jittery noises, the";
+				mes "wheels may be misaligned.";
+				mes "You might be able to activate";
+				mes "the machine by properly ";
+				mes "aligning all the wheels.^000000";
+				while (1) {
 					next;
-					mes "^3355FFJudging from the machine's";
-					mes "shaking and jittery noises, the";
-					mes "wheels may be misaligned.";
-					mes "You might be able to activate";
-					mes "the machine by properly ";
-					mes "aligning all the wheels.^000000";
-					while (1) {
-						next;
-						mes "^3355FFWhich wheel would";
-						mes "you want to shift?^000000";
-						next;
-						switch (select("1st Small Wheel:2nd Small Wheel:1st Big Wheel:2nd Big Wheel:3rd Big Wheel:Check Current Wheel Configuration:Reset Wheels to Default Configuration")) {
+					mes "^3355FFWhich wheel do";
+					mes "you want to shift?^000000";
+					switch(select("1st Small Wheel:2nd Small Wheel:1st Big Wheel:2nd Big Wheel:3rd Big Wheel:Check Current Wheel Configuration:Reset Wheels to Default Configuration")) {
+					case 1:
+						switch(select("Raise Wheel:Lower Wheel:Press Wheel")) {
 						case 1:
-							switch (select("Raise Wheel:Lower Wheel:Press Wheel")) {
-							case 1:
-								mes "^EE0000*Choom*^000000";
-								set @small_1,2;
-								if ((@small_1 == 2) && (@small_2 == 2) && (@big_1 == 2) && (@big_2 == 2) && (@big_3 == 2)) break;
-								continue;
-							case 2:
-								mes "^00B2EE*Sneeeep*^000000";
-								set @small_1,1;
-								if ((@small_1 == 1) && (@small_2 == 1) && (@big_1 == 1) && (@big_2 == 1) && (@big_3 == 1)) break;
-								continue;
-							case 3:
-								mes "^5C246E*Mrreeem*^000000";
-								set @small_1,3;
-								if ((@small_1 == 3) && (@small_2 == 3) && (@big_1 == 3) && (@big_2 == 3) && (@big_3 == 3)) break;
-								continue;
-							}
-							break;
+							mes "^EE0000*Choom*^000000";
+							set .@small_1, 2;
+							if ((.@small_1 == 2) && (.@small_2 == 2) && (.@big_1 == 2) && (.@big_2 == 2) && (.@big_3 == 2)) break;
+							continue;
 						case 2:
-							switch (select("Raise Wheel:Lower Wheel:Press Wheel")) {
-							case 1:
-								mes "^5C246E*Mrreeem*^000000";
-								set @small_2,3;
-								if ((@small_1 == 3) && (@small_2 == 3) && (@big_1 == 3) && (@big_2 == 3) && (@big_3 == 3)) break;
-								continue;
-							case 2:
-								mes "^EE0000*Choom*^000000";
-								set @small_2,2;
-								if ((@small_1 == 2) && (@small_2 == 2) && (@big_1 == 2) && (@big_2 == 2) && (@big_3 == 2)) break;
-								continue;
-							case 3:
-								mes "^00B2EE*Sneeeep*^000000";
-								set @small_2,1;
-								if ((@small_1 == 1) && (@small_2 == 1) && (@big_1 == 1) && (@big_2 == 1) && (@big_3 == 1)) break;
-								continue;
-							}
-							break;
+							mes "^00B2EE*Sneeeep*^000000";
+							set .@small_1, 1;
+							if ((.@small_1 == 1) && (.@small_2 == 1) && (.@big_1 == 1) && (.@big_2 == 1) && (.@big_3 == 1)) break;
+							continue;
 						case 3:
-							switch (select("Raise Wheel:Lower Wheel:Vertically Shift Wheel")) {
-							case 1:
-								mes "^00B2EE*Sneeeep*^000000";
-								set @big_1,1;
-								if ((@small_1 == 1) && (@small_2 == 1) && (@big_1 == 1) && (@big_2 == 1) && (@big_3 == 1)) break;
-								continue;
-							case 2:
-								mes "^5C246E*Mrreeem*^000000";
-								set @big_1,3;
-								if ((@small_1 == 3) && (@small_2 == 3) && (@big_1 == 3) && (@big_2 == 3) && (@big_3 == 3)) break;
-								continue;
-							case 3:
-								mes "^EE0000*Choom*^000000";
-								set @big_1,2;
-								if ((@small_1 == 2) && (@small_2 == 2) && (@big_1 == 2) && (@big_2 == 2) && (@big_3 == 2)) break;
-								continue;
-							}
-							break;
-						case 4:
-							switch (select("Raise Wheel:Lower Wheel:Vertically Shift Wheel")) {
-							case 1:
-								mes "^EE0000*Choom*^000000";
-								set @big_2,2;
-								if ((@small_1 == 2) && (@small_2 == 2) && (@big_1 == 2) && (@big_2 == 2) && (@big_3 == 2)) break;
-								continue;
-							case 2:
-								mes "^5C246E*Mrreeem*^000000";
-								set @big_2,3;
-								if ((@small_1 == 3) && (@small_2 == 3) && (@big_1 == 3) && (@big_2 == 3) && (@big_3 == 3)) break;
-								continue;
-							case 3:
-								mes "^00B2EE*Sneeeep*^000000";
-								set @big_2,1;
-								if ((@small_1 == 1) && (@small_2 == 1) && (@big_1 == 1) && (@big_2 == 1) && (@big_3 == 1)) break;
-								continue;
-							}
-							break;
-						case 5:
-							switch (select("Raise Wheel:Lower Wheel:Vertically Shift Wheel")) {
-							case 1:
-								mes "^EE0000*Choom*^000000";
-								set @big_3,2;
-								if ((@small_1 == 2) && (@small_2 == 2) && (@big_1 == 2) && (@big_2 == 2) && (@big_3 == 2)) break;
-								continue;
-							case 2:
-								mes "^00B2EE*Sneeeep*^000000";
-								set @big_3,1;
-								if ((@small_1 == 1) && (@small_2 == 1) && (@big_1 == 1) && (@big_2 == 1) && (@big_3 == 1)) break;
-								continue;
-							case 3:
-								mes "^5C246E*Mrreeem*^000000";
-								set @big_3,3;
-								if ((@small_1 == 3) && (@small_2 == 3) && (@big_1 == 3) && (@big_2 == 3) && (@big_3 == 3)) break;
-								continue;
-							}
-							break;
-						case 6:
-							mes "---Wheel Position---";
-							if (@small_1 == 0) mes "1st Small Wheel: No Change";
-							else if (@small_1 == 1) mes "1st Small Wheel: Down";
-							else if (@small_1 == 2) mes "1st Small Wheel: Up";
-							else mes "1st Small Wheel: Pressed";
-
-							if (@small_2 == 0) mes "2nd Small Wheel: No Change";
-							else if (@small_2 == 1) mes "2nd Small Wheel: Pressed";
-							else if (@small_2 == 2) mes "2nd Small Wheel: Down";
-							else mes "2nd Small Wheel: Up";
-
-							if (@big_1 == 0) mes "1st Big Wheel: No Change";
-							else if (@big_1 == 1) mes "1st Big Wheel: Up";
-							else if (@big_1 == 2) mes "1st Big Wheel: Moved";
-							else mes "1st Big Wheel: Down";
-
-							if (@big_2 == 0) mes "2nd Big Wheel: No Change";
-							else if (@big_2 == 1) mes "2nd Big Wheel: Moved";
-							else if (@big_2 == 2) mes "2nd Big Wheel: Up";
-							else mes "2nd Big Wheel: Down";
-
-							if (@big_3 == 0) mes "3rd Big Wheel: No Change";
-							else if (@big_3 == 1) mes "3rd Big Wheel: Down";
-							else if (@big_3 == 2) mes "3rd Big Wheel: Up";
-							else mes "3rd Big Wheel: Moved";
-
-							next;
-							mes "---Wheel Sound---";
-							if (@small_1 == 0) mes "1st Small Wheel: *Br-brak!*";
-							else if (@small_1 == 1) mes "1st Small Wheel: *Sneeeep*";
-							else if (@small_1 == 2) mes "1st Small Wheel: *Choom*";
-							else mes "1st Small Wheel: *Mrreeem*";
-
-							if (@small_2 == 0) mes "2nd Small Wheel: *Br-brak!*";
-							else if (@small_2 == 1) mes "2nd Small Wheel: *Sneeeep*";
-							else if (@small_2 == 2) mes "2nd Small Wheel: *Choom*";
-							else mes "2nd Small Wheel: *Mrreeem*";
-
-							if (@big_1 == 0) mes "1st Big Wheel: *Br-brak!*";
-							else if (@big_1 == 1) mes "1st Big Wheel: *Sneeeep*";
-							else if (@big_1 == 2) mes "1st Big Wheel: *Choom*";
-							else mes "1st Big Wheel: *Mrreeem*";
-
-							if (@big_2 == 0) mes "2nd Big Wheel: *Br-brak!*";
-							else if (@big_2 == 1) mes "2nd Big Wheel: *Sneeeep*";
-							else if (@big_2 == 2) mes "2nd Big Wheel: *Choom*";
-							else mes "2nd Big Wheel: *Mrreeem*";
-
-							if (@big_3 == 0) mes "3rd Big Wheel: *Br-brak!*";
-							else if (@big_3 == 1) mes "3rd Big Wheel: *Sneeeep*";
-							else if (@big_3 == 2) mes "3rd Big Wheel: *Choom*";
-							else mes "3rd Big Wheel: *Mrreeem*";
-
+							mes "^5C246E*Mrreeem*^000000";
+							set .@small_1, 3;
+							if ((.@small_1 == 3) && (.@small_2 == 3) && (.@big_1 == 3) && (.@big_2 == 3) && (.@big_3 == 3)) break;
 							continue;
-						case 7:
-							set @small_1,0;
-							set @small_2,0;
-							set @big_1,0;
-							set @big_2,0;
-							set @big_3,0;
-							close;
 						}
 						break;
-					}
-					mes "^3355FFAs you adjust the wheels,";
-					mes "they suddenly immobilize with";
-					mes "a firm click. Then, the device's screen activates and displays";
-					mes "some text while a storage";
-					mes "compartment underneath";
-					mes "the monitor slides open.^000000";
-					next;
-					switch (select("Read the Screen's Text:Investigate Monitor Storage:Cancel")) {
-					case 1:
-						mes "[Log Entry]";
-						mes "^426F42It was never the humans";
-						mes "or the gods that built this";
-						mes "tower: it was the demons.";
-						mes "Intrigued by this information,";
-						mes "I decided to try to learn why they had constructed Thanatos Tower.^000000";
-						next;
-						mes "[Log Entry]";
-						mes "^426F42In my research, I learned";
-						mes "that this tower was used as a";
-						mes "gate to summon demons from hell during the thousand year war,";
-						mes "and that the infamous Satan Morroc was one of those summoned here.^000000";
-						next;
-						mes "[Log Entry]";
-						mes "^426F42Satan Morroc... I admit";
-						mes "that I'm interested in learning";
-						mes "more about his appearance since";
-						mes "that occurred at around the same time as when she came to";
-						mes "Thanatos Tower...^000000";
-						next;
-						mes "^3355FFYou've finished";
-						mes "reading the text";
-						mes "that was displayed";
-						mes "on the screen.^000000";
-						close;
 					case 2:
-						mes "^3355FFInside the monitor";
-						mes "storage compartment,";
-						mes "you find a small, shining";
-						mes "key that you decide to take.^000000";
-						getitem 7424,1; //Key_Green
-						close;
+						switch(select("Raise Wheel:Lower Wheel:Press Wheel")) {
+						case 1:
+							mes "^5C246E*Mrreeem*^000000";
+							set .@small_2, 3;
+							if ((.@small_1 == 3) && (.@small_2 == 3) && (.@big_1 == 3) && (.@big_2 == 3) && (.@big_3 == 3)) break;
+							continue;
+						case 2:
+							mes "^EE0000*Choom*^000000";
+							set .@small_2, 2;
+							if ((.@small_1 == 2) && (.@small_2 == 2) && (.@big_1 == 2) && (.@big_2 == 2) && (.@big_3 == 2)) break;
+							continue;
+						case 3:
+							mes "^00B2EE*Sneeeep*^000000";
+							set .@small_2, 1;
+							if ((.@small_1 == 1) && (.@small_2 == 1) && (.@big_1 == 1) && (.@big_2 == 1) && (.@big_3 == 1)) break;
+							continue;
+						}
+						break;
 					case 3:
-						close;
+						switch(select("Raise Wheel:Lower Wheel:Vertically Shift Wheel")) {
+						case 1:
+							mes "^00B2EE*Sneeeep*^000000";
+							set .@big_1, 1;
+							if ((.@small_1 == 1) && (.@small_2 == 1) && (.@big_1 == 1) && (.@big_2 == 1) && (.@big_3 == 1)) break;
+							continue;
+						case 2:
+							mes "^5C246E*Mrreeem*^000000";
+							set .@big_1, 3;
+							if ((.@small_1 == 3) && (.@small_2 == 3) && (.@big_1 == 3) && (.@big_2 == 3) && (.@big_3 == 3)) break;
+							continue;
+						case 3:
+							mes "^EE0000*Choom*^000000";
+							set .@big_1, 2;
+							if ((.@small_1 == 2) && (.@small_2 == 2) && (.@big_1 == 2) && (.@big_2 == 2) && (.@big_3 == 2)) break;
+							continue;
+						}
+						break;
+					case 4:
+						switch(select("Raise Wheel:Lower Wheel:Vertically Shift Wheel")) {
+						case 1:
+							mes "^EE0000*Choom*^000000";
+							set .@big_2, 2;
+							if ((.@small_1 == 2) && (.@small_2 == 2) && (.@big_1 == 2) && (.@big_2 == 2) && (.@big_3 == 2)) break;
+							continue;
+						case 2:
+							mes "^5C246E*Mrreeem*^000000";
+							set .@big_2, 3;
+							if ((.@small_1 == 3) && (.@small_2 == 3) && (.@big_1 == 3) && (.@big_2 == 3) && (.@big_3 == 3)) break;
+							continue;
+						case 3:
+							mes "^00B2EE*Sneeeep*^000000";
+							set .@big_2, 1;
+							if ((.@small_1 == 1) && (.@small_2 == 1) && (.@big_1 == 1) && (.@big_2 == 1) && (.@big_3 == 1)) break;
+							continue;
+						}
+						break;
+					case 5:
+						switch(select("Raise Wheel:Lower Wheel:Vertically Shift Wheel")) {
+						case 1:
+							mes "^EE0000*Choom*^000000";
+							set .@big_3, 2;
+							if ((.@small_1 == 2) && (.@small_2 == 2) && (.@big_1 == 2) && (.@big_2 == 2) && (.@big_3 == 2)) break;
+							continue;
+						case 2:
+							mes "^00B2EE*Sneeeep*^000000";
+							set .@big_3, 1;
+							if ((.@small_1 == 1) && (.@small_2 == 1) && (.@big_1 == 1) && (.@big_2 == 1) && (.@big_3 == 1)) break;
+							continue;
+						case 3:
+							mes "^5C246E*Mrreeem*^000000";
+							set .@big_3, 3;
+							if ((.@small_1 == 3) && (.@small_2 == 3) && (.@big_1 == 3) && (.@big_2 == 3) && (.@big_3 == 3)) break;
+							continue;
+						}
+						break;
+					case 6:
+						if (.@small_1 == 0) mes "1st Small Wheel: No Change";
+						else if (.@small_1 == 1) mes "1st Small Wheel: Down";
+						else if (.@small_1 == 2) mes "1st Small Wheel: Up";
+						else mes "1st Small Wheel: Pressed";
+
+						if (.@small_2 == 0) mes "2nd Small Wheel: No Change";
+						else if (.@small_2 == 1) mes "2nd Small Wheel: Pressed";
+						else if (.@small_2 == 2) mes "2nd Small Wheel: Down";
+						else mes "2nd Small Wheel: Up";
+
+						if (.@big_1 == 0) mes "1st Big Wheel: No Change";
+						else if (.@big_1 == 1) mes "1st Big Wheel: Up";
+						else if (.@big_1 == 2) mes "1st Big Wheel: Moved";
+						else mes "1st Big Wheel: Down";
+
+						if (.@big_2 == 0) mes "2nd Big Wheel: No Change";
+						else if (.@big_2 == 1) mes "2nd Big Wheel: Moved";
+						else if (.@big_2 == 2) mes "2nd Big Wheel: Up";
+						else mes "2nd Big Wheel: Down";
+
+						if (.@big_3 == 0) mes "3rd Big Wheel: No Change";
+						else if (.@big_3 == 1) mes "3rd Big Wheel: Down";
+						else if (.@big_3 == 2) mes "3rd Big Wheel: Up";
+						else mes "3rd Big Wheel: Moved";
+						continue;
+					case 7:
+						set .@small_1, 0;
+						set .@small_2, 0;
+						set .@big_1, 0;
+						set .@big_2, 0;
+						set .@big_3, 0;
+						continue;
 					}
-				case 3:
+					break;
+				}
+				mes "As you adjust the wheels,";
+				mes "they suddenly activate";
+				mes "with a firm click.";
+				next;
+				mes "A part of the ornament in the stone statue starts to spin,";
+				mes "and a shining light beam climbs up the elegant statue.";
+				mes "A strong cursed power emerges and emits a dazzling green light.";
+				specialeffect EF_DISPELL;
+				specialeffect EF_POTION6;
+				next;
+				mes "^4d4dffAll of a sudden, the Green Key appears and you can feel great power from it.^000000";
+				getitem 7424,1; //Key_Green
+				if (thana_tower != 7) close;
+				mes "^4d4dffWhen you pick up the key,";
+				mes "your body trembles";
+				mes "with an unknown power";
+				mes "and you see a hallucination with some text.^000000";
+				next;
+				switch(select("Concentrate on it.:Ignore it.")) {
+				case 1:
+					mes "^b22222...You found 4 keys";
+					mes "and finally released 4 spells...";
+					mes "This tower used to be";
+					mes "a gate to summon demons ages ago.";
+					mes "And the last visitor was";
+					mes "the infamous Satan Morroc.";
+					next;
+					mes "^b22222As I followed her trail";
+					mes "I realized that her spells";
+					mes "were scattered around the tower.";
+					mes "Then, somehow, it vanished into the ground.";
+					next;
+					mes "^b22222The great battle and";
+					mes "the protracted war...";
+					mes "But her purpose was...";
+					mes "that... sealing of the gate...";
+					mes "so... I tried to seal...";
+					mes "but it was incomplete...";
+					mes "the guard of the gate was...^000000";
+					next;
+					mes "["+strcharinfo(0)+"]";
+					mes "It is hard to read.";
+					next;
+					mes "^b22222...So I changed the location";
+					mes "of the coupling spot...";
+					mes "I mean, push through to the tower";
+					mes "to tangle it...";
+					mes "Anyway, I wanted to respect";
+					mes "her loyalty and block the gate...";
+					next;
+					mes "^b22222If I want to... then I have to";
+					mes "release the last spell...";
+					mes "He finally came to meet...";
+					mes "with his pieces...";
+					mes "...and then...^000000";
+					next;
+					mes "The hallucination wobbles";
+					mes "and fades into the key.";
+					set thana_tower, 8;
+					changequest 7051,7052;
+					specialeffect2 EF_BEGINSPELL6;
+					specialeffect2 EF_SPELLBREAKER;
+					close;
+				case 2:
+					mes "It was too intense to see the hallucination, so you gave up reading.";
 					close;
 				}
+			case 3:
+				mes "You decide to ignore it.";
+				close;
 			}
-			mes "^3355FFThis mechanical device is";
-			mes "activated, as evidenced by";
-			mes "its gleaming, moving wheels.^000000";
-			close;
-		case 2:
-			mes "^3355FFYou don't see the need to";
-			mes "investigate if nothing seems";
-			mes "peculiar or out of place...^000000";
-			close;
 		}
+		mes "You don't have the right key for this keyhole.";
+		close;
 	}
-	mes "^3355FFYou found a deactivated";
-	mes "mechanical device with an";
-	mes "interesting series of wheels.^000000";
+	mes "The spell is already released. You've acquired everything you need from this statue.";
 	close;
-}
 
-tha_t09,19,158,0	script	Machine Device#tt5	111,{
+OnTouch:
+	if ((countitem(7424) == 0) && (countitem(7429) == 0))
+		specialeffect EF_LEVEL99_4;
+	end;
+}
 
+tha_t06,204,181,0	script	Splendid Sword#tt5	111,3,3,{
 	if ((countitem(7425) == 0) && (countitem(7430) == 0)) {
-		if (((countitem(7421) >= 1) || (countitem(7426) >= 1)) && ((countitem(7422) >= 1) || (countitem(7427) >= 1)) && ((countitem(7423) >= 1) || (countitem(7428) >= 1)) && ((countitem(7424) >= 1) || (countitem(7429) >= 1))) {
-			mes "^3355FFYou find a machine that";
-			mes "emits a soft light and weak";
-			mes "hum. There is a monitor, with";
-			mes "several different colored";
-			mes "keyholes beneath it, in";
-			mes "front of the machine.^000000";
+		mes "An old, worn sword hangs above the splendid table.";
+		mes "It emits a gloomy aura.";
+		next;
+		if ((countitem(7421) > 0) && (countitem(7422) > 0) && (countitem(7423) > 0) && (countitem(7424) > 0)) {
+			mes "As you approach, the keys in your pocket";
+			mes "suddenly respond with a mysterious power.";
+			specialeffect2 EF_ABSORBSPIRITS;
 			next;
-			mes "^3355FFYou also notice that there";
-			mes "are several slots that seem";
-			mes "to be the perfect size for";
-			mes "your keys and Charm Stones.";
+			if(select("Observe it.:Ignore it.") == 2) {
+				mes "^3355FFYou decide to leave";
+				mes "the sword alone.^000000";
+				close;
+			}
+			mes "While you get closer and closer, the sword shakes with a loud noise.";
+			mes "Your eyes keep getting drawn to the sword's hilt.";
+			mes "Then you lose control of your hands, and they stretch forth to grasp the handle...";
 			next;
-			input .@inputstr$;
-			if (.@inputstr$ == "Key" || .@inputstr$ == "Charmstone") {
-				mes "^3355FFYou insert the keys into the";
-				mes "keyholes, matching them by";
-				mes "corresponding color, and place";
-				mes "the Charm Stones in the machine slots. The stones begin to glow,";
-				mes "text appears on the screen, and the monitor's storage slides open.^000000";
+			switch(select("Towards the blade of the sword:Towards the hilt of the sword:Towards the table")) {
+			case 1:
+				mes "By an unknown calling you decide to grab the blade of the sword.";
+				mes "Your hands get wounded and begin to bleed.";
+				specialeffect2 EF_HIT1;
+				percentheal -20,0;
+				close;
+			case 2:
+				mes "By an unknown calling you decide to grab the hilt of the sword.";
+				mes "The mysterious power from the keys transfers to the sword, and it falls from the table.";
 				next;
-				switch (select("Read the Screen's Text:Investigate Monitor Storage:Cancel")) {
+				mes "At the same time, a little hole appears on the table's surface.";
+				mes "Now, you hold the sword and...";
+				specialeffect EF_EXIT2;
+				next;
+				switch(select("Strike the table:Insert the sword into the hole:Bring the sword safely")) {
 				case 1:
-					mes "[Log Entry]";
-					mes "^426F42As I followed her trail to";
-					mes "the north, I passed many";
-					mes "deserted places. Finally,";
-					mes "I dropped by a small village";
-					mes "where I learned about a tower";
-					mes "that refuses entry to humans.^000000";
-					next;
-					mes "[Log Entry]";
-					mes "^426F42I instantly realized that she";
-					mes "must have gone to the tower.";
-					mes "I headed over there and when";
-					mes "I arrived, I was shocked: it was grotesque and didn't resemble";
-					mes "a human building at all.^000000";
-					next;
-					mes "^426F42I was also amazed--";
-					mes "advanced technology was";
-					mes "probably necessary to build the tower's intricate structures.";
-					mes "I then learned an interesting fact while searching the tower...^000000";
-					next;
-					mes "^3355FFYou've finished";
-					mes "reading the text";
-					mes "that was displayed";
-					mes "on the screen.^000000";
+					mes "You strike the table with the sword.";
+					mes "Numerous conflicting spells act upon it, and you can tell that you chose incorrectly.";
+					mes "The sword automatically returns to the table, as it was before.";
+					specialeffect EF_HIT1;
+					specialeffect2 EF_HIT1;
+					percentheal -20,0;
 					close;
 				case 2:
-					mes "^3355FFYou search the storage";
-					mes "compartment beneath the";
-					mes "screen and find a strange";
-					mes "key. As soon as you take it,";
-					mes "the machine's activity halts.";
-					mes "You then retrieve the Charm";
-					mes "Stones and your other keys.^000000";
+					mes "As you insert the sword, lightning flashes around it and black smoke rises from the hole.";
+					mes "Slowly the smoke clears, and you see an object with a certain shape...";
+					specialeffect EF_CHANGEDARK;
+					next;
+					mes "^4d4dff All of a sudden, a Black Key appears from the smoke and you feel a great cursed power from it.^000000";
 					getitem 7425,1; //Key_Black
+					if (thana_tower != 8) close;
+					next;
+					mes "A drawer had snapped open under the table while you picked up the key and observed it.";
+					mes "You can see an old notebook inside the drawer.";
+					next;
+					mes "The notebook definitely looks like it contains an important message.";
+					mes "Maybe this notebook is the one that Rekenber wants to find, even with all the sacrifices.";
+					next;
+					mes "^4d4dffYou decide to show the notebook and the keys to Burled.";
+					mes "You received Varmunt's Journal.^000000";
+					set thana_tower, 9;
+					changequest 7052,7053;
+					getitem 11011,1; //Barmund_Note
 					close;
 				case 3:
-					mes "^3355FFYou retrieve the Charm";
-					mes "Stones and keys that you";
-					mes "inserted into the machine.^000000";
+					mes "When you lift the sword, you feel a shock from numerous conflicting spells.";
+					mes "Right... stealing is the worst.";
+					mes "The sword automatically returns to the table, as it was before.";
 					close;
 				}
+			case 3:
+				mes "You stretch your hands to find something under the table, but there is nothing.";
+				close;
 			}
-			mes "You attempt to";
-			mes .@inputstr$+",";
-			mes "but nothing happened.";
-			close;
 		}
-		mes "^3355FFYou find a machine that";
-		mes "emits a soft light and weak";
-		mes "hum. There is a monitor, with";
-		mes "several different colored";
-		mes "keyholes beneath it, in";
-		mes "front of the machine.^000000";
+		mes "You strongly feel a cursed, sealed power from here,";
+		mes "but it is hard to figure out what is causing it.";
+		mes "You cannot approach it.";
 		close;
 	}
-	mes "^3355FFYou find a peculiar";
-	mes "mechanical device that";
-	mes "is not in operation.^000000";
+	mes "You have already released a seal using this sword.";
+	mes "You've acquired everything you need from here.";
 	close;
+
+OnTouch:
+	if ((countitem(7425) == 0) && (countitem(7430) == 0))
+		specialeffect EF_LEVEL99_4;
+	end;
 }
 
-tha_t04,150,44,0	script	Seal#tt1	111,{
+tha_t08,1,1,0	script	#Charm Stone Admintt01	844,{
+	end;
+OnInit:
+OnEnable:
+	initnpctimer;
+	end;
+OnTimer1000:
+	donpcevent "Shining Crystal#tt_r1::OnEnable";
+	donpcevent "Shining Crystal#tt_g1::OnEnable";
+	donpcevent "Shining Crystal#tt_b1::OnEnable";
+	donpcevent "Shining Crystal#tt_y1::OnEnable";
+	end;
+OnTimer600000:
+	donpcevent "Shining Crystal#tt_r1::OnDisable";
+	donpcevent "Shining Crystal#tt_g1::OnDisable";
+	donpcevent "Shining Crystal#tt_b1::OnDisable";
+	donpcevent "Shining Crystal#tt_y1::OnDisable";
+	donpcevent "Shining Crystal#tt_r2::OnEnable";
+	donpcevent "Shining Crystal#tt_g2::OnEnable";
+	donpcevent "Shining Crystal#tt_b2::OnEnable";
+	donpcevent "Shining Crystal#tt_y2::OnEnable";
+	end;
+OnTimer1200000:
+	donpcevent "Shining Crystal#tt_r2::OnDisable";
+	donpcevent "Shining Crystal#tt_g2::OnDisable";
+	donpcevent "Shining Crystal#tt_b2::OnDisable";
+	donpcevent "Shining Crystal#tt_y2::OnDisable";
+	donpcevent "Shining Crystal#tt_r3::OnEnable";
+	donpcevent "Shining Crystal#tt_g3::OnEnable";
+	donpcevent "Shining Crystal#tt_b3::OnEnable";
+	donpcevent "Shining Crystal#tt_y3::OnEnable";
+	end;
+OnTimer1800000:
+	donpcevent "Shining Crystal#tt_r3::OnDisable";
+	donpcevent "Shining Crystal#tt_g3::OnDisable";
+	donpcevent "Shining Crystal#tt_b3::OnDisable";
+	donpcevent "Shining Crystal#tt_y3::OnDisable";
+	donpcevent "Shining Crystal#tt_r4::OnEnable";
+	donpcevent "Shining Crystal#tt_g4::OnEnable";
+	donpcevent "Shining Crystal#tt_b4::OnEnable";
+	donpcevent "Shining Crystal#tt_y4::OnEnable";
+	end;
+OnTimer2400000:
+	donpcevent "Shining Crystal#tt_r4::OnDisable";
+	donpcevent "Shining Crystal#tt_g4::OnDisable";
+	donpcevent "Shining Crystal#tt_b4::OnDisable";
+	donpcevent "Shining Crystal#tt_y4::OnDisable";
+	donpcevent "#Charm Stone Admintt01::OnEnable";
+	end;
+}
 
-	if (countitem(7423) >= 1) {
-		mes "^3355FFThis area is protected by";
-		mes "some mysterious power.";
-		mes "You try to touch the seal,";
-		mes "but then it buzzes loudly";
-		mes "and pushes your hand away.";
-		mes "with a burst of blue light.^000000";
+tha_t08,90,153,0	script	Shining Crystal#tt_r1	844,{
+	if (countitem(7421) > 0) {
+		mes "The Crystal ball is emitting mysterious power.";
 		next;
-		switch (select("Investigate:There's no way I can break this seal!")) {
-		case 1:
-			input .@inputstr$;
-			if (.@inputstr$ == "Blue Key") {
-				mes "^3355FFYou gently hold the blue";
-				mes "key and bring it towards";
-				mes "the seal. Strangely, your";
-				mes "hand isn't pushed away this";
-				mes "time, and the seal begins to";
-				mes "emit a mysterious light.^000000";
-				next;
-				mes "^3355FFYou find a small keyhole";
-				mes "in the seal, insert the blue";
-				mes "key, and slowly turn it. The";
-				mes "seal's light fades, revealing a";
-				mes "Charm Stone. Once you grasp";
-				mes "the stone, someone's memory";
-				mes "is injected into your mind.^000000";
-				next;
-				mes "^333333Thanatos! We've got a";
-				mes "message from the guild.";
-				mes "They want us to stop what";
-				mes "we're doing and return now!^000000";
-				mes " ";
-				mes "^333333W-We better hurry...^000000";
-				next;
-				mes "......";
-				mes ".........";
-				mes "............";
-				next;
-				mes "^3355FFThe images faded from";
-				mes "your mind as quickly as";
-				mes "they appeared. What could";
-				mes "have happened in the past?^000000";
-				delitem 7423,1; //Key_Blue
-				getitem 7428,1; //Magic_Gem_Blue
-				close;
-			}
-			mes "^3355FFYou'll need to try";
-			mes "something else in ";
-			mes "order to break this";
-			mes "seal. What could";
-			mes "you possibly need?^000000";
-			close;
-		case 2:
-			mes "^3355FFYou stepped away from";
-			mes "the seal, unwilling to deal";
-			mes "with the power that keeps";
-			mes "repulsing your advance.^000000";
-			close;
-		}
+		mes "Beside the crystal ball, you find faded patterns marked on the floor.";
+		mes "Looks like some kind of keyhole that needs to be inserted with something...";
+		next;
+		mes "The red key suddenly responds once you come close to the keyhole.";
+		mes "You insert the key in the keyhole and it turns out to be a small gem.";
+		next;
+		mes "When you touch the gem which is dazzling red...";
+		mes "You feel isolated and depressed deep inside your heart...";
+		next;
+		mes "^4d4dffYou have found a Red Charm Stone that is concentrated with cruel fate and a deep darkness.^000000";
+		delitem 7421,1; //Key_Red
+		getitem 7426,1; //Magic_Gem_Red
+		close;
 	}
-	mes "^3355FFThis area is protected by";
-	mes "some mysterious power.";
-	mes "You try to touch the seal,";
-	mes "but then it buzzes loudly";
-	mes "and pushes your hand away.^000000";
-	percentheal -10,0;
+	mes "The Crystal ball is emitting mysterious power.";
+	mes "Something is definitely there inside... How do I get it to open?";
 	close;
-}
 
-tha_t05,218,116,0	script	Seal#tt2	111,{
+OnInit:
+OnDisable:
+	disablenpc strnpcinfo(0);
+	end;
+OnEnable:
+	enablenpc strnpcinfo(0);
+	end;
+}
+tha_t08,90,62,0	duplicate(Shining Crystal#tt_r1)	Shining Crystal#tt_r2	844
+tha_t08,49,59,0	duplicate(Shining Crystal#tt_r1)	Shining Crystal#tt_r3	844
+tha_t08,49,144,0	duplicate(Shining Crystal#tt_r1)	Shining Crystal#tt_r4	844
 
-	if (countitem(7421) >= 1) {
-		mes "^3355FFThis area is protected by";
-		mes "some mysterious power.";
-		mes "You try to touch the seal,";
-		mes "but then it buzzes loudly";
-		mes "and pushes your hand away.";
-		mes "with a burst of red light.^000000";
+tha_t08,49,153,0	script	Shining Crystal#tt_y1	844,{
+	if (countitem(7422) > 0) {
+		mes "The Crystal ball is emitting mysterious power.";
 		next;
-		switch (select("Investigate:There's no way I can break this seal!")) {
-		case 1:
-			input .@inputstr$;
-			if (.@inputstr$ == "Red Key") {
-				mes "^3355FFYou gently hold the red";
-				mes "key and bring it towards";
-				mes "the seal. Strangely, your";
-				mes "hand isn't pushed away this";
-				mes "time, and the seal begins to";
-				mes "emit a mysterious light.^000000";
-				next;
-				mes "^3355FFYou find a small keyhole";
-				mes "in the seal, insert the red";
-				mes "key, and slowly turn it. The";
-				mes "seal's light fades, revealing a";
-				mes "Charm Stone. Once you grasp";
-				mes "the stone, someone's memory";
-				mes "is injected into your mind.^000000";
-				next;
-				mes "...So then we decided";
-				mes "to dispatch some Assassin";
-				mes "Crosses to defeat Satan Morroc.";
-				mes "But honestly, the chances of ";
-				mes "success are about 1 percent.";
-				mes "It's better than nothing, but... It's freakin' Satan Morroc...^000000";
-				next;
-				mes "......";
-				mes ".........";
-				mes "............";
-				next;
-				mes "^3355FFThe images faded from";
-				mes "your mind as quickly as";
-				mes "they appeared. What could";
-				mes "have happened in the past?^000000";
-				delitem 7421,1; //Key_Red
-				getitem 7426,1; //Magic_Gem_Red
-				close;
-			}
-			mes "^3355FFYou'll need to try";
-			mes "something else in ";
-			mes "order to break this";
-			mes "seal. What could";
-			mes "you possibly need?^000000";
-			close;
-		case 2:
-			mes "^3355FFYou stepped away from";
-			mes "the seal, unwilling to deal";
-			mes "with the power that keeps";
-			mes "repulsing your advance.^000000";
-			close;
-		}
+		mes "Beside the crystal ball, you find faded patterns marked on the floor.";
+		mes "Looks like some kind of keyhole that needs to be inserted with something...";
+		next;
+		mes "The yellow key suddenly responds once you come close to the keyhole.";
+		mes "You insert the key in the keyhole and it turns out to be a small gem.";
+		next;
+		mes "When you touch the gem which is dazzling yellow...";
+		mes "Your heart begins to throb as though you are suffering from a broken heart.";
+		next;
+		mes "^4d4dffYou have found a Yellow Charm Stone that is concentrated with grief and mysterious power.^000000";
+		delitem 7422,1; //Key_Yellow
+		getitem 7427,1; //Magic_Gem_Yellow
+		close;
 	}
-	mes "^3355FFThis area is protected by";
-	mes "some mysterious power.";
-	mes "You try to touch the seal,";
-	mes "but then it buzzes loudly";
-	mes "and pushes your hand away.^000000";
-	percentheal -10,0;
+	mes "The Crystal ball is emitting mysterious power.";
+	mes "Something is definitely there inside... How do I get it to open?";
 	close;
-}
 
-tha_t06,226,230,0	script	Seal#tt3	111,{
+OnInit:
+OnDisable:
+	disablenpc strnpcinfo(0);
+	end;
+OnEnable:
+	enablenpc strnpcinfo(0);
+	end;
+}
+tha_t08,90,150,0	duplicate(Shining Crystal#tt_y1)	Shining Crystal#tt_y2	844
+tha_t08,90,59,0	duplicate(Shining Crystal#tt_y1)	Shining Crystal#tt_y3	844
+tha_t08,49,56,0	duplicate(Shining Crystal#tt_y1)	Shining Crystal#tt_y4	844
 
-	if (countitem(7425) >= 1) {
-		mes "^3355FFThis area is protected by";
-		mes "some mysterious power.";
-		mes "You try to touch the seal,";
-		mes "but then it buzzes loudly";
-		mes "and pushes your hand away";
-		mes "with a burst of black light.^000000";
+tha_t08,49,65,0	script	Shining Crystal#tt_b1	844,{
+	if (countitem(7423) > 0) {
+		mes "The Crystal ball is emitting mysterious power.";
 		next;
-		switch (select("Investigate:There's no way I can break this seal!")) {
-		case 1:
-			input .@inputstr$;
-			if (.@inputstr$ == "Black Key") {
-				mes "^3355FFYou gently hold the black";
-				mes "key and bring it towards";
-				mes "the seal. Strangely, your";
-				mes "hand isn't pushed away this";
-				mes "time, and the seal begins to";
-				mes "emit a mysterious light.^000000";
-				next;
-				mes "^3355FFYou find a small keyhole";
-				mes "in the seal, insert the black";
-				mes "key, and slowly turn it. The";
-				mes "seal's light fades, revealing a";
-				mes "Charm Stone. Once you grasp";
-				mes "the stone, someone's memory";
-				mes "is injected into your mind.^000000";
-				next;
-				mes "^333333We found it! So this";
-				mes "must be the tower where";
-				mes "Satan Morroc is gathering";
-				mes "his minions... Dear God,";
-				mes "there's... There's thousands";
-				mes "of them... Is there any hope";
-				mes "at all for us? For mankind?^000000";
-				next;
-				mes "......";
-				mes ".........";
-				mes "............";
-				next;
-				mes "^3355FFThe images faded from";
-				mes "your mind as quickly as";
-				mes "they appeared. What could";
-				mes "have happened in the past?^000000";
-				delitem 7425,1; //Key_Black
-				getitem 7430,1; //Magic_Gem_Black
-				close;
-			}
-			mes "^3355FFYou'll need to try";
-			mes "something else in ";
-			mes "order to break this";
-			mes "seal. What could";
-			mes "you possibly need?^000000";
-			close;
-		case 2:
-			mes "^3355FFYou stepped away from";
-			mes "the seal, unwilling to deal";
-			mes "with the power that keeps";
-			mes "repulsing your advance.^000000";
-			close;
-		}
+		mes "Beside the crystal ball, you find faded patterns marked on the floor.";
+		mes "Looks like some kind of keyhole that needs to be inserted with something...";
+		next;
+		mes "The blue key suddenly responds once you come close to the keyhole.";
+		mes "You insert the key in the keyhole and it turns out to be a small gem.";
+		next;
+		mes "When you touch the gem which is dazzling blue....";
+		mes "Someone's sobbing comes into your ears as you smell blood on the wind and suddenly you become angry.";
+		next;
+		mes "^4d4dffYou have found a Blue Charm Stone that is concentrated with grudge and mysterious power.^000000";
+		delitem 7423,1; //Key_Blue
+		getitem 7428,1; //Magic_Gem_Blue
+		close;
 	}
-	mes "^3355FFThis area is protected by";
-	mes "some mysterious power.";
-	mes "You try to touch the seal,";
-	mes "but then it buzzes loudly";
-	mes "and pushes your hand away.^000000";
-	percentheal -10,0;
+	mes "The Crystal ball is emitting mysterious power.";
+	mes "Something is definitely there inside... How do I get it to open?";
 	close;
-}
 
-tha_t07,113,129,0	script	Seal#tt4	111,{
+OnInit:
+OnDisable:
+	disablenpc strnpcinfo(0);
+	end;
+OnEnable:
+	enablenpc strnpcinfo(0);
+	end;
+}
+tha_t08,49,150,0	duplicate(Shining Crystal#tt_b1)	Shining Crystal#tt_b2	844
+tha_t08,90,147,0	duplicate(Shining Crystal#tt_b1)	Shining Crystal#tt_b3	844
+tha_t08,90,56,0	duplicate(Shining Crystal#tt_b1)	Shining Crystal#tt_b4	844
 
-	if (countitem(7422) >= 1) {
-		mes "^3355FFThis area is protected by";
-		mes "some mysterious power.";
-		mes "You try to touch the seal,";
-		mes "but then it buzzes loudly";
-		mes "and pushes your hand away";
-		mes "with a burst of yellow light.^000000";
+tha_t08,90,65,0	script	Shining Crystal#tt_g1	844,{
+	if (countitem(7424) > 0) {
+		mes "The Crystal ball is emitting mysterious power.";
 		next;
-		switch (select("Investigate:There's no way I can break this seal!")) {
-		case 1:
-			input .@inputstr$;
-			if (.@inputstr$ == "Yellow Key") {
-				mes "^3355FFYou gently hold the yellow";
-				mes "key and bring it towards";
-				mes "the seal. Strangely, your";
-				mes "hand isn't pushed away this";
-				mes "time, and the seal begins to";
-				mes "emit a mysterious light.^000000";
-				next;
-				mes "^3355FFYou find a small keyhole";
-				mes "in the seal, insert the yellow";
-				mes "key, and slowly turn it. The";
-				mes "seal's light fades, revealing a";
-				mes "Charm Stone. Once you grasp";
-				mes "the stone, someone's memory";
-				mes "is injected into your mind.^000000";
-				next;
-				mes "^333333Hi, I'm Lucil. Sorry,";
-				mes "I'm late, but I was far ";
-				mes "away on another mission...^000000";
-				mes " ";
-				mes "^333333I am Thanatos...^000000";
-				next;
-				mes "^333333Why does she make me";
-				mes "feel so strange inside?";
-				mes "I feel everything I was";
-				mes "missing before, all the";
-				mes "things I want and want";
-				mes "to be, she brings, she";
-				mes "completes. How... funny...^000000";
-				mes "'She make me feel strange...as if I found my lost half...'";
-				next;
-				mes "......";
-				mes ".........";
-				mes "............";
-				next;
-				mes "^3355FFThe images faded from";
-				mes "your mind as quickly as";
-				mes "they appeared. What could";
-				mes "have happened in the past?^000000";
-				delitem 7422,1; //Key_Yellow
-				getitem 7427,1; //Magic_Gem_Yellow
-				close;
-			}
-			mes "^3355FFYou'll need to try";
-			mes "something else in ";
-			mes "order to break this";
-			mes "seal. What could";
-			mes "you possibly need?^000000";
-			close;
-		case 2:
-			mes "^3355FFYou stepped away from";
-			mes "the seal, unwilling to deal";
-			mes "with the power that keeps";
-			mes "repulsing your advance.^000000";
-			close;
-		}
+		mes "Beside the crystal ball, you find faded patterns marked on the floor.";
+		mes "Looks like some kind of keyhole that needs to be inserted with something...";
+		next;
+		mes "The green key suddenly responds once you come close to the keyhole.";
+		mes "You insert the key in the keyhole and it turns out to be a small gem.";
+		next;
+		mes "When you touch the gem which is dazzling green...";
+		mes "Your head starts to ache and you feel worried and anxious about something.";
+		next;
+		mes "^4d4dffYou have found a Green Charm Stone that is concentrated with deep suffering.^000000";
+		delitem 7424,1; //Key_Green
+		getitem 7429,1; //Magic_Gem_Green
+		close;
 	}
-	mes "^3355FFThis area is protected by";
-	mes "some mysterious power.";
-	mes "You try to touch the seal,";
-	mes "but then it buzzes loudly";
-	mes "and pushes your hand away.^000000";
-	percentheal -10,0;
+	mes "The Crystal ball is emitting mysterious power.";
+	mes "Something is definitely there inside... How do I get it to open?";
 	close;
-}
 
-tha_t10,129,159,0	script	Seal#tt5	111,{
-
-	if (countitem(7424) >= 1) {
-		mes "^3355FFThis area is protected by";
-		mes "some mysterious power.";
-		mes "You try to touch the seal,";
-		mes "but then it buzzes loudly";
-		mes "and pushes your hand away";
-		mes "with a burst of green light.^000000";
-		next;
-		switch (select("Investigate:There's no way I can break this seal!")) {
-		case 1:
-			input .@inputstr$;
-			if (.@inputstr$ == "Green Key") {
-				mes "^3355FFYou gently hold the green";
-				mes "key and bring it towards";
-				mes "the seal. Strangely, your";
-				mes "hand isn't pushed away this";
-				mes "time, and the seal begins to";
-				mes "emit a mysterious light.^000000";
-				next;
-				mes "^3355FFYou find a small keyhole";
-				mes "in the seal, insert the green";
-				mes "key, and slowly turn it. The";
-				mes "seal's light fades, revealing a";
-				mes "Charm Stone. Once you grasp";
-				mes "the stone, someone's memory";
-				mes "is injected into your mind.^000000";
-				next;
-				mes "^333333This battle will determine";
-				mes "the fate of mankind. We must";
-				mes "defeat Satan Morroc. There is";
-				mes "no alternative. Who's with me?! ";
-				mes "^333333*Cough Cough* The demon";
-				mes "is too strong! We c-can't...^000000";
-				next;
-				mes "^333333Foolish weakling humans.";
-				mes "You should have known better.";
-				mes "...This cannot be! Isn't this--? ";
-				mes "^333333GGGRRRRAH! H-HOW DARE YOU";
-				mes "HUMANS! HOW DARE YOOOOOOOU....! ";
-				next;
-				mes "......";
-				mes ".........";
-				mes "............";
-				next;
-				mes "^3355FFThe images faded from";
-				mes "your mind as quickly as";
-				mes "they appeared. What could";
-				mes "have happened in the past?^000000";
-				delitem 7424,1; //Key_Green
-				getitem 7429,1; //Magic_Gem_Green
+OnInit:
+OnDisable:
+	disablenpc strnpcinfo(0);
+	end;
+OnEnable:
+	enablenpc strnpcinfo(0);
+	end;
+}
+tha_t08,49,62,0	duplicate(Shining Crystal#tt_g1)	Shining Crystal#tt_g2	844
+tha_t08,49,147,0	duplicate(Shining Crystal#tt_g1)	Shining Crystal#tt_g3	844
+tha_t08,90,144,0	duplicate(Shining Crystal#tt_g1)	Shining Crystal#tt_g4	844
+
+tha_t12,161,57,0	script	Gold Religious Statue#tt	111,{
+	if ($@thana_summon == 0) {
+		if (countitem(7427) > 0) {
+			mes "It's a statue giving off a golden light.";
+			mes "The sword appears to be missing a gem.";
+			mes "As I draw closer to the statue, the Yellow Charm Stone emits a bright light.";
+			specialeffect EF_BEGINSPELL5;
+			specialeffect2 EF_BEGINSPELL5;
+			next;
+			if(select("Insert the Yellow Charm Stone.:Run away.") == 2) close;
+			if ($@thana_summon == 0) {
+				mes "After inserting the Yellow Charm Stone into the sword, the statue begins to react.";
+				specialeffect EF_BEGINSPELL5;
+				delitem 7427,1; //Magic_Gem_Yellow
+				set $@thana_summon, 1;
+				donpcevent "#tteffect01::OnEnable";
+				mapannounce "tha_t12","The golden magic power has released part of the seal.",bc_map,"0x00ff00"; //FW_NORMAL 12 0 0
 				close;
 			}
-			mes "^3355FFYou'll need to try";
-			mes "something else in ";
-			mes "order to break this";
-			mes "seal. What could";
-			mes "you possibly need?^000000";
-			close;
-		case 2:
-			mes "^3355FFYou stepped away from";
-			mes "the seal, unwilling to deal";
-			mes "with the power that keeps";
-			mes "repulsing your advance.^000000";
+			mes "Someone has already inserted a Charm Stone into this statue.";
 			close;
 		}
+		mes "The statue give off mysterious light.";
+		mes "Strange power has blocked your access.";
+		close;
 	}
-	mes "^3355FFThis area is protected by";
-	mes "some mysterious power.";
-	mes "You try to touch the seal,";
-	mes "but then it buzzes loudly";
-	mes "and pushes your hand away.^000000";
-	percentheal -10,0;
+	mes "The statue has such a strong light that I can't see or touch it.";
 	close;
 }
 
-tha_t12,96,58,0	script	Stone Statue#1	111,{
-
-	if (!$@thana_summon) {
-		mes "^3355FFYou've found a ";
-		mes "stone statue with";
-		mes "a conspicuous hole";
-		mes "in the chest area.^000000";
-		if ((countitem(7426) >= 1) && (countitem(7427) >= 1) && (countitem(7428) >= 1) && (countitem(7429) >= 1) && (countitem(7430) >= 1)) {
-			next;
-			mes "^3355FFAs you approach the statue,";
-			mes "your Red Charm Stone and";
-			mes "the statue begin to glow with";
-			mes "a glimmering red light.^000000";
+tha_t12,154,17,0	script	Green Wiseman Statue#tt	111,{
+	if ($@thana_summon == 1) {
+		if (countitem(7429) > 0) {
+			mes "A statue gives off green light.";
+			mes "The wiseman's wand seems to be missing a gem.";
+			mes "As I draw closer to the statue, the Green Charm Stone emits a bright light.";
+			specialeffect EF_BEGINSPELL4;
+			specialeffect2 EF_BEGINSPELL4;
 			next;
-			switch (select("Insert Charm Stone into Statue:Cancel")) {
-			case 1:
-				mes "^3355FFOnce you insert the";
-				mes "Red Charm Stone, the";
-				mes "statue glows even brighter";
-				mes "with a mysterious light.^000000";
-				delitem 7426,1; //Magic_Gem_Red
-				specialeffect EF_BEGINSPELL3;
-				set $@thana_summon,1;
-				donpcevent "tt_effect2::OnEnable";
-				close;
-			case 2:
-				mes "^3355FFYou decided not to";
-				mes "insert the Charm Stone,";
-				mes "opting to investigate this";
-				mes "area a little further.^000000";
+			if(select("Insert the Green Charm Stone.:Run away.") == 2) close;
+			if ($@thana_summon == 1) {
+				mes "After inserting the Green Charm Stone into the wand, the statue begins to react.";
+				specialeffect EF_BEGINSPELL4;
+				delitem 7429,1; //Magic_Gem_Green
+				set $@thana_summon, 2;
+				donpcevent "#tteffect02::OnEnable";
+				mapannounce "tha_t12","The green magic power has released part of the seal.",bc_map,"0x00ff00"; //FW_NORMAL 12 0 0
 				close;
 			}
-		}
-		else if ((countitem(7426) >= 1) || (countitem(7427) >= 1) || (countitem(7428) >= 1) || (countitem(7429) >= 1) || (countitem(7430) >= 1)) {
-			mes "^3355FFAs you approach this statue, one^FFFFFF ^3355FF of your Charm Stones begins to";
-			mes "glow. However, the statue itself is not responding. You probably";
-			mes "need all the Charm Stones in";
-			mes "order to fully activate it.^000000";
+			mes "Someone has already inserted a Charm Stone into this statue.";
 			close;
 		}
+		mes "The statue give off mysterious light.";
+		mes "Strange power has blocked your access.";
 		close;
 	}
-	else if ($@thana_summon == 6) {
-		mes "^3355FFThe statue is emanating an";
-		mes "intense light, making it so hot";
-		mes "that you cannot approach it.^000000";
-		close;
-	}
-	mes "^3355FFThis status is glowing";
-	mes "with a mysterious light.";
-	mes "Some strange force keeps";
-	mes "you from approaching it.^000000";
+	mes "The statue has such a strong light that I can't see or touch it.";
 	close;
 }
 
-tha_t12,104,18,0	script	Stone Statue#tt2	111,{
-
+tha_t12,103,17,0	script	Blue Angel Statue#tt	111,{
 	if ($@thana_summon == 2) {
-		mes "^3355FFYou've found a ";
-		mes "stone statue with";
-		mes "a conspicuous hole";
-		mes "in the chest area.^000000";
-		if (countitem(7428) >= 1) {
+		if (countitem(7428) > 0) {
+			mes "An angel statue is covered with a blue light.";
+			mes "A gem seems to be missing from the statue's belt.";
+			mes "As I draw closer to the statue, the Blue Charm Stone emits a bright light.";
+			specialeffect EF_BEGINSPELL2;
+			specialeffect2 EF_BEGINSPELL2;
 			next;
-			mes "^3355FFAs you approach the statue,";
-			mes "your Blue Charm Stone begins";
-			mes "to glow with a glimmering blue";
-			mes "light, and the statue responds";
-			mes "by shimmering with a red glow.^000000";
-			next;
-			switch (select("Insert Charm Stone into Statue:Cancel")) {
-			case 1:
-				mes "^3355FFOnce you insert the";
-				mes "Blue Charm Stone, the";
-				mes "statue glows even brighter";
-				mes "with a mysterious light.^000000";
-				delitem 7428,1; //Magic_Gem_Blue
+			if(select("Insert the Blue Charm Stone.:Run away.") == 2) close;
+			if ($@thana_summon == 2) {
+				mes "After inserting the Blue Charm Stone into the belt, the statue begins to react.";
 				specialeffect EF_BEGINSPELL2;
-				donpcevent "tt_effect5::OnEnable";
-				set $@thana_summon,3;
-				close;
-			case 2:
-				mes "^3355FFYou decided not to";
-				mes "insert the Charm Stone,";
-				mes "opting to investigate this";
-				mes "area a little further.^000000";
+				delitem 7428,1; //Magic_Gem_Blue
+				set $@thana_summon, 3;
+				donpcevent "#tteffect03::OnEnable";
+				mapannounce "tha_t12","The blue magic power has released part of the seal.",bc_map,"0x00ff00"; //FW_NORMAL 12 0 0
 				close;
 			}
+			mes "Someone has already inserted a Charm Stone into this statue.";
+			close;
 		}
+		mes "The statue give off mysterious light.";
+		mes "Strange power has blocked you to access.";
 		close;
 	}
-	else if ($@thana_summon == 6) {
-		mes "^3355FFThe statue is emanating an";
-		mes "intense light, making it so hot";
-		mes "that you cannot approach it.^000000";
-		close;
-	}
-	mes "^3355FFThis status is glowing";
-	mes "with a mysterious light.";
-	mes "Some strange force keeps";
-	mes "you from approaching it.^000000";
+	mes "The statue has such a strong light that I can't see or touch it.";
 	close;
 }
 
-tha_t12,128,86,0	script	Stone Statue#3	111,{
-
+tha_t12,96,57,0	script	Bloody Knight Statue#tt	111,{
 	if ($@thana_summon == 3) {
-		mes "^3355FFYou've found a ";
-		mes "stone statue with";
-		mes "a conspicuous hole";
-		mes "in the chest area.^000000";
-		if (countitem(7430) >= 1) {
-			next;
-			mes "^3355FFAs you approach the statue,";
-			mes "your Black Charm Stone begins";
-			mes "to emanate an eerie darkness.";
-			mes "In response, the statue starts glowing with a sinister red light.^000000";
+		if (countitem(7426) > 0) {
+			mes "A statue is shining like blood.";
+			mes "A gem seems to be missing from the heart area of its armor.";
+			mes "As I draw closer to the statue, the Red Charm Stone emits a bright light.";
+			specialeffect EF_BEGINSPELL3;
+			specialeffect2 EF_BEGINSPELL3;
 			next;
-			switch (select("Insert Charm Stone into Statue:Cancel")) {
-			case 1:
-				mes "^3355FFOnce you insert the";
-				mes "Black Charm Stone, the";
-				mes "statue glows even brighter";
-				mes "with a mysterious light.^000000";
-				delitem 7430,1; //Magic_Gem_Black
-				specialeffect EF_BEGINSPELL7;
-				donpcevent "tt_effect1::OnEnable";
-				set $@thana_summon,4;
-				close;
-			case 2:
-				mes "^3355FFYou decided not to";
-				mes "insert the Charm Stone,";
-				mes "opting to investigate this";
-				mes "area a little further.^000000";
+			if(select("Insert the Red Charm Stone.:Run away.") == 2) close;
+			if ($@thana_summon == 3) {
+				mes "After inserting the Red Charm Stone into the armor, the statue begins to react.";
+				specialeffect EF_BEGINSPELL3;
+				delitem 7426,1; //Magic_Gem_Red
+				set $@thana_summon, 4;
+				donpcevent "#tteffect04::OnEnable";
+				mapannounce "tha_t12","The red magic power has released part of the seal.",bc_map,"0x00ff00"; //FW_NORMAL 12 0 0
 				close;
 			}
+			mes "Someone has already inserted a Charm Stone into this statue.";
+			close;
 		}
+		mes "The statue give off mysterious light.";
+		mes "Strange power has blocked you to access.";
 		close;
 	}
-	else if ($@thana_summon == 6) {
-		mes "^3355FFThe statue is emanating an";
-		mes "intense light, making it so hot";
-		mes "that you cannot approach it.^000000";
-		close;
-	}
-	mes "^3355FFThis status is glowing";
-	mes "with a mysterious light.";
-	mes "Some strange force keeps";
-	mes "you from approaching it.^000000";
+	mes "The statue has such a strong light that I can't see or touch it.";
 	close;
 }
 
-tha_t12,161,58,0	script	Stone Statue#tt4	111,{
-
-	if ($@thana_summon == 1) {
-		mes "^3355FFYou've found a ";
-		mes "stone statue with";
-		mes "a conspicuous hole";
-		mes "in the chest area.^000000";
-		if (countitem(7427) >= 1) {
-			next;
-			mes "^3355FFAs you approach the statue,";
-			mes "your Yellow Charm Stone";
-			mes "starts shining a bright yellow";
-			mes "light, and the statue emits";
-			mes "a glimmering red glow.^000000";
-			next;
-			switch (select("Insert Charm Stone into Statue:Cancel")) {
-			case 1:
-				mes "^3355FFOnce you insert the";
-				mes "Yellow Charm Stone, the";
-				mes "statue glows even brighter";
-				mes "with a mysterious light.^000000";
-				delitem 7427,1; //Magic_Gem_Yellow
-				specialeffect EF_BEGINSPELL5;
-				donpcevent "tt_effect3::OnEnable";
-				set $@thana_summon,2;
-				close;
-			case 2:
-				mes "^3355FFYou decided not to";
-				mes "insert the Charm Stone,";
-				mes "opting to investigate this";
-				mes "area a little further.^000000";
-				close;
-			}
-		}
-		close;
-	}
-	else if ($@thana_summon == 6) {
-		mes "^3355FFThe statue is emanating an";
-		mes "intense light, making it so hot";
-		mes "that you cannot approach it.^000000";
-		close;
-	}
-	mes "^3355FFThis status is glowing";
-	mes "with a mysterious light.";
-	mes "Some strange force keeps";
-	mes "you from approaching it.^000000";
-	close;
-}
-
-tha_t12,154,18,0	script	Stone Statue#tt5	111,{
-
+tha_t12,129,86,0	script	Dark Devil Statue#tt	111,{
 	if ($@thana_summon == 4) {
-		mes "^3355FFYou've found a ";
-		mes "stone statue with";
-		mes "a conspicuous hole";
-		mes "in the chest area.^000000";
-		if (countitem(7429) >= 1) {
-			next;
-			mes "^3355FFAs you approach the statue,";
-			mes "your Green Charm Stone begins";
-			mes "radiating soft green light, and";
-			mes "and the statue starts to shine";
-			mes "with a bright red glow.^000000";
+		if (countitem(7430) > 0) {
+			mes "A devil statue emits dark light.";
+			mes "The right eye seems to be missing a gem.";
+			mes "As I draw closer to the statue, the Black Charm Stone emits a bright light.";
+			specialeffect EF_BEGINSPELL7;
+			specialeffect2 EF_BEGINSPELL7;
 			next;
-			switch (select("Insert Charm Stone into Statue:Cancel")) {
-			case 1:
-				mes "^3355FFOnce you insert the";
-				mes "Green Charm Stone, the";
-				mes "statue glows even brighter";
-				mes "with a mysterious light.^000000";
-				specialeffect EF_BEGINSPELL4;
-				next;
-				mes "^3355FFThe crest on the ground";
-				mes "surrounded by the five";
-				mes "glowing statues has now";
-				mes "activated, and is emitting";
-				mes "a fearsome, powerful energy.^000000";
-				delitem 7429,1; //Magic_Gem_Green
-				set $@thana_summon2,0;
-				set $@thana_summon,5;
-				donpcevent "tt_effect4::OnEnable";
-				hideoffnpc "to_the_boss_room_tt";
-				close;
-			case 2:
-				mes "^3355FFYou decided not to";
-				mes "insert the Charm Stone,";
-				mes "opting to investigate this";
-				mes "area a little further.^000000";
+			if(select("Insert the Black Charm Stone.:Run away.") == 2) close;
+			if ($@thana_summon == 4) {
+				mes "After inserting the Red Charm Stone into the eye socket, the statue begins to react.";
+				specialeffect EF_BEGINSPELL7;
+				delitem 7430,1; //Magic_Gem_Black
+				set $@thana_summon, 5;
+				donpcevent "#gateto_thanatos::OnEnable";
+				donpcevent "#tteffect01::OnStop";
+				donpcevent "#tteffect02::OnStop";
+				donpcevent "#tteffect03::OnStop";
+				donpcevent "#tteffect04::OnStop";
+				mapannounce "tha_t12","The Black Charm Stone's magic power has released the final seal.",bc_map,"0x00ff00"; //FW_NORMAL 12 0 0
 				close;
 			}
+			mes "Someone has already inserted a Charm Stone into this statue.";
+			close;
 		}
+		mes "The statue give off mysterious light.";
+		mes "Strange power has blocked you to access.";
 		close;
 	}
-	else if ($@thana_summon == 6) {
-		mes "^3355FFThe statue is emanating an";
-		mes "intense light, making it so hot";
-		mes "that you cannot approach it.^000000";
-		close;
-	}
-	mes "^3355FFThis status is glowing";
-	mes "with a mysterious light.";
-	mes "Some strange force keeps";
-	mes "you from approaching it.^000000";
+	mes "The statue has such a strong light that I can't see or touch it.";
 	close;
 }
 
-tha_t12,129,56,0	script	tt_effect1	139,{
+tha_t12,134,52,0	script	#tteffect01	139,{
 	end;
-
 OnEnable:
 	initnpctimer;
 	end;
-
+OnStop:
+	stopnpctimer;
+	end;
 OnTimer500:
 OnTimer1000:
 OnTimer1500:
 OnTimer2000:
 OnTimer2500:
-	specialeffect EF_BEGINSPELL7;
+	specialeffect EF_BEGINSPELL5;
 	end;
-
 OnTimer3000:
-	specialeffect EF_BEGINSPELL7;
-	stopnpctimer;
-	if ($@thana_summon != 6) initnpctimer;
-	end;
-
-OnDisable:
-	stopnpctimer;
+	donpcevent "#tteffect01::OnEnable";
 	end;
 }
 
-tha_t12,125,52,0	script	tt_effect2	139,{
+tha_t12,132,47,0	script	#tteffect02	139,{
 	end;
-
 OnEnable:
 	initnpctimer;
 	end;
-
+OnStop:
+	stopnpctimer;
+	end;
 OnTimer500:
 OnTimer1000:
 OnTimer1500:
 OnTimer2000:
 OnTimer2500:
-	specialeffect EF_BEGINSPELL3;
+	specialeffect EF_BEGINSPELL4;
 	end;
-
 OnTimer3000:
-	specialeffect EF_BEGINSPELL3;
-	stopnpctimer;
-	if ($@thana_summon != 6) initnpctimer;
-	end;
-
-OnDisable:
-	stopnpctimer;
+	donpcevent "#tteffect02::OnEnable";
 	end;
 }
 
-tha_t12,134,52,0	script	tt_effect3	139,{
+tha_t12,127,47,0	script	#tteffect03	139,{
 	end;
 OnEnable:
 	initnpctimer;
 	end;
-
+OnStop:
+	stopnpctimer;
+	end;
 OnTimer500:
 OnTimer1000:
 OnTimer1500:
 OnTimer2000:
 OnTimer2500:
-	specialeffect EF_BEGINSPELL5;
+	specialeffect EF_BEGINSPELL2;
 	end;
-
 OnTimer3000:
-	specialeffect EF_BEGINSPELL5;
-	stopnpctimer;
-	if ($@thana_summon != 6) initnpctimer;
-	end;
-
-OnDisable:
-	stopnpctimer;
+	donpcevent "#tteffect03::OnEnable";
 	end;
 }
 
-tha_t12,132,47,0	script	tt_effect4	139,{
+tha_t12,125,52,0	script	#tteffect04	139,{
 	end;
-
 OnEnable:
 	initnpctimer;
 	end;
-
+OnStop:
+	stopnpctimer;
+	end;
 OnTimer500:
 OnTimer1000:
 OnTimer1500:
 OnTimer2000:
 OnTimer2500:
-	specialeffect EF_BEGINSPELL4;
+	specialeffect EF_BEGINSPELL3;
 	end;
-
 OnTimer3000:
-	specialeffect EF_BEGINSPELL4;
-	stopnpctimer;
-	if ($@thana_summon != 6) initnpctimer;
-	end;
-
-OnDisable:
-	stopnpctimer;
+	donpcevent "#tteffect04::OnEnable";
 	end;
 }
 
-tha_t12,127,47,0	script	tt_effect5	139,{
+tha_t12,129,56,0	script	#tteffect05	139,{
 	end;
-	
 OnEnable:
 	initnpctimer;
 	end;
-
+OnStop:
+	stopnpctimer;
+	end;
 OnTimer500:
 OnTimer1000:
 OnTimer1500:
 OnTimer2000:
 OnTimer2500:
-	specialeffect EF_BEGINSPELL2;
+	specialeffect EF_BEGINSPELL7;
 	end;
-
 OnTimer3000:
-	specialeffect EF_BEGINSPELL2;
-	stopnpctimer;
-	if ($@thana_summon != 6) initnpctimer;
-	end;
-
-OnDisable:
-	stopnpctimer;
+	donpcevent "#tteffect05::OnEnable";
 	end;
 }
 
-tha_t12,130,52,0	script	to_the_boss_room_tt	45,1,1,{
+tha_t12,130,52,0	script	#gateto_thanatos	45,1,1,{
 	end;
-
 OnInit:
-	hideonnpc "to_the_boss_room_tt";
+	disablenpc "#gateto_thanatos";
 	end;
-
-OnTouch:
-	if ($@thana_summon == 0 || $@thana_summon == 6) {
-		donpcevent "tt_effect1::OnDisable";
-		donpcevent "tt_effect2::OnDisable";
-		donpcevent "tt_effect3::OnDisable";
-		donpcevent "tt_effect4::OnDisable";
-		donpcevent "tt_effect5::OnDisable";
-		hideonnpc "to_the_boss_room_tt";
-	}
-	else warp "thana_boss",136,116;
+OnEnable:
+	enablenpc "#gateto_thanatos";
+	initnpctimer;
 	end;
-}
-
-thana_boss,217,167,0	script	Crest#tt1	111,3,3,{
+OnOn2:
+	initnpctimer;
 	end;
-
 OnTouch:
-	if ($@thana_summon2 == 6 || $@thana_summon != 5) {
-		mes "^3355FFYou cannot approach";
-		mes "the crest because it is";
-		mes "generating intense heat.^000000";
-		close;
+	set .@touch,1;
+OnTimer6000:
+	set .@boss_tt, $@thana_summon;
+	if ((.@boss_tt == 0) || (.@boss_tt == 6)) {
+		disablenpc "#gateto_thanatos";
+		stopnpctimer;
 	}
-	mes "^3355FFThere is a strangely";
-	mes "shaped hole in the";
-	mes "middle of this purple crest.^000000";
-	if (countitem(7437) > 0) {
-		mes "^3355FFIt seems like a Fragment";
-		mes "of Misery would fit perfectly";
-		mes "if you placed it inside.^000000";
+	else if (.@boss_tt == 5) {
+		if (.@touch) warp "thana_boss",136,116;
+		else donpcevent "#gateto_thanatos::OnOn2";
 	}
-	next;
-	input .@inputstr$;
-	if (countitem(7437) > 0) {
-		if (.@inputstr$ == "Fragment of Misery") {
-			mes "^3355FFYou insert the";
-			mes "Fragment of Misery";
-			mes "into the crest, causing";
-			mes "its glow to intensify.^000000";
-			delitem 7437,1; //Piece_Of_Memory_Purple
-			close2;
-			monster "thana_boss",217,167,"Misery",1711,1,"Crest#tt1::OnMyMobDead";
-			hideonnpc "Crest#tt1";
-			end;
-		}
-		mes "^3355FFThat action had no";
-		mes "effect. You'll have to";
-		mes "try something else.^000000";
-		close;
-	}
-	mes "^3355FFThat action had no";
-	mes "effect. You'll have to";
-	mes "try something else.^000000";
-	close2;
 	end;
-
-OnMyMobDead:
-	set $@thana_summon2,$@thana_summon2 + 1;
+OnTimer1000:
+OnTimer5000:
+	set .@pillar,1;
+OnTimer3000:
+	specialeffect EF_BEGINSPELL7,AREA,"#tteffect05";
+	specialeffect EF_BEGINSPELL3,AREA,"#tteffect04";
+	specialeffect EF_BEGINSPELL2,AREA,"#tteffect03";
+	specialeffect EF_BEGINSPELL4,AREA,"#tteffect02";
+	specialeffect EF_BEGINSPELL5,AREA,"#tteffect01";
+	if (.@pillar) specialeffect EF_MAPPILLAR2;
 	end;
 }
 
-thana_boss,202,75,0	script	Crest#tt2	111,3,3,{
+thana_boss,217,167,3	script	Memory Seal#tt1	1711,3,3,{
 	end;
-
-OnTouch:
-	if (($@thana_summon2 == 6) || ($@thana_summon != 5)) {
-		mes "^3355FFYou cannot approach";
-		mes "the crest because it is";
-		mes "generating intense heat.^000000";
-		close;
-	}
-	mes "^3355FFThere is a strangely";
-	mes "shaped hole in the";
-	mes "middle of this green crest.^000000";
-	if (countitem(7436) > 0) {
-		mes "^3355FFIt seems like a Fragment";
-		mes "of Agony would fit perfectly";
-		mes "if you placed it inside.^000000";
-	}
-	next;
-	input .@inputstr$;
-	if (countitem(7436) > 0) {
-		if (.@inputstr$ == "Fragment of Agony") {
-			mes "^3355FFYou insert the";
-			mes "Fragment of Agony";
-			mes "into the crest, causing";
-			mes "its glow to intensify.^000000";
-			delitem 7436,1; //Piece_Of_Memory_Green
-			close2;
-			monster "thana_boss",202,75,"Agony",1712,1,"Crest#tt2::OnMyMobDead";
-			hideonnpc "Crest#tt2";
-			end;
-		}
-		mes "^3355FFThat action had no";
-		mes "effect. You'll have to";
-		mes "try something else.^000000";
-		close;
-	}
-	mes "^3355FFThat action had no";
-	mes "effect. You'll have to";
-	mes "try something else.^000000";
-	close2;
+OnEnable:
+	hideoffnpc strnpcinfo(0);
+	set .hide,0;
 	end;
-
-OnMyMobDead:
-	set $@thana_summon2,$@thana_summon2 + 1;
+OnDisable:
+	hideonnpc strnpcinfo(0);
+	set .hide,0;
 	end;
-}
+OnTouch:
+	set .@seal, atoi(charat(strnpcinfo(2),2));
+	if (.hide & (1<<.@seal)) end;
 
-thana_boss,80,76,0	script	Crest#tt3	111,3,3,{
-	end;
+	//  .@i: ItemID,MobID,MapX,MapY,EffectNum
+	// .@j$: FragmentName
+	switch(.@seal) {
+	case 1:
+		setarray .@i[0],7437,1711,217,167,238;
+		set .@j$,"Misery";
+		break;
+	case 2:
+		setarray .@i[0],7436,1712,202,75,102;
+		set .@j$,"Agony";
+		break;
+	case 3:
+		setarray .@i[0],7438,1709,80,76,101;
+		set .@j$,"Hatred";
+		break;
+	case 4:
+		setarray .@i[0],7439,1710,62,171,100;
+		set .@j$,"Despair";
+		break;
+	}
 
-OnTouch:
-	if (($@thana_summon2 == 6) || ($@thana_summon != 5)) {
+	specialeffect EF_GUMGANG;
+	if ($@thana_summon2 > 3) {
 		mes "^3355FFYou cannot approach";
 		mes "the crest because it is";
 		mes "generating intense heat.^000000";
 		close;
 	}
-	mes "^3355FFThere is a strangely";
-	mes "shaped hole in the";
-	mes "middle of this blue crest.^000000";
-	if (countitem(7438) > 0) {
-		mes "^3355FFIt seems like a Fragment";
-		mes "of Hatred would fit perfectly";
-		mes "if you placed it inside.^000000";
-	}
+	mes "The seal seems to be dormant.";
+	mes "There is a fragment missing from the crest of the Seal.";
+	mes "Surely I saw a familiar fragment before...";
 	next;
 	input .@inputstr$;
-	if (countitem(7438) > 0) {
-		if (.@inputstr$ == "Fragment of Hatred") {
-			mes "^3355FFYou insert the";
-			mes "Fragment of Hatred";
-			mes "into the crest, causing";
-			mes "its glow to intensify.^000000";
-			delitem 7438,1; //Piece_Of_Memory_Blue
-			close2;
-			monster "thana_boss",80,76,"Hatred",1709,1,"Crest#tt3::OnMyMobDead";
-			hideonnpc "Crest#tt3";
-			end;
+	set .@exact_tt$, "Fragment of "+.@j$;
+	if (countitem(.@i[0]) > 0 && .@exact_tt$ == .@inputstr$) {
+		mes "^3355FFYou insert the";
+		mes .@exact_tt$;
+		mes "into the crest, causing";
+		mes "its glow to intensify.^000000";
+		close2;
+		hideonnpc strnpcinfo(0);
+		set .hide, .hide | (1<<.@seal);
+		delitem .@i[0],1;
+		specialeffect .@i[4];
+		monster "thana_boss",.@i[2],.@i[3],.@j$,.@i[1],1,strnpcinfo(0)+"::OnMyMobDead";
+		switch($@thana_summon2) {
+			case 0: set .@str$,"... who... released... the... Memory... of... "+.@j$+"...?"; break;
+			case 1: set .@str$,"... why... did you... release... the... Memory... of... "+.@j$+"...?"; break;
+			case 2: set .@str$,"... ugh... stop it... the Memory of "+.@j$+"..."; break;
+			default: set .@str$,"... finally... you released the last piece of Memory..."; break;
 		}
-		mes "^3355FFThat action had no";
-		mes "effect. You'll have to";
-		mes "try something else.^000000";
-		close;
+		mapannounce "thana_boss",.@str$,bc_map,"0x7b68ee"; //FW_NORMAL 12 0 0
+		end;
 	}
 	mes "^3355FFThat action had no";
 	mes "effect. You'll have to";
 	mes "try something else.^000000";
-	close2;
-	end;
+	close;
 
 OnMyMobDead:
-	set $@thana_summon2,$@thana_summon2 + 1;
+	set $@thana_summon2, $@thana_summon2+1;
+	if ($@thana_summon2 == 4)
+		mapwarp "thana_boss","thana_boss",141,228;
 	end;
 }
+thana_boss,202,75,3	duplicate(Memory Seal#tt1)	Memory Seal#tt2	1712,3,3
+thana_boss,80,76,7	duplicate(Memory Seal#tt1)	Memory Seal#tt3	1709,3,3
+thana_boss,62,171,5	duplicate(Memory Seal#tt1)	Memory Seal#tt4	1710,3,3
 
-thana_boss,62,171,0	script	Crest#tt4	111,3,3,{
+thana_boss,141,228,0	script	#thanatos_seal	139,3,3,{
 	end;
-
-OnTouch:
-	if (($@thana_summon2 == 6) || ($@thana_summon != 5)) {
-		mes "^3355FFYou cannot approach";
-		mes "the crest because it is";
-		mes "generating intense heat.^000000";
-		close;
-	}
-	mes "^3355FFThere is a strangely";
-	mes "shaped hole in the";
-	mes "middle of this red crest.^000000";
-	if (countitem(7439) > 0) {
-		mes "^3355FFIt seems like a Fragment";
-		mes "of Despair would fit perfectly";
-		mes "if you placed it inside.^000000";
-	}
-	next;
-	input .@inputstr$;
-	if (countitem(7439) > 0) {
-		if (.@inputstr$ == "Fragment of Despair") {
-			mes "^3355FFYou insert the";
-			mes "Fragment of Despair";
-			mes "into the crest, causing";
-			mes "its glow to intensify.^000000";
-			delitem 7439,1; //Piece_Of_Memory_Red
-			close2;
-			monster "thana_boss",62,171,"Despair",1710,1,"Crest#tt4::OnMyMobDead";
-			hideonnpc "Crest#tt4";
-			end;
-		}
-		mes "^3355FFThat action had no";
-		mes "effect. You'll have to";
-		mes "try something else.^000000";
-		close;
-	}
-	mes "^3355FFThat action had no";
-	mes "effect. You'll have to";
-	mes "try something else.^000000";
-	close2;
-	end;
-
-OnMyMobDead:
-	set $@thana_summon2,$@thana_summon2 + 1;
+OnEnable:
+	enablenpc "#thanatos_seal";
 	end;
-}
-
-thana_boss,141,218,0	script	Crest#tt5	111,3,3,{
+OnDisable:
+	disablenpc "#thanatos_seal";
 	end;
-
 OnTouch:
 	if ($@thana_summon2 == 4) {
-		mes "^3355FFAs you approach the";
-		mes "crest, it begins shining";
-		mes "brighter and brighter until its";
-		mes "illumination becomes blinding.^000000";
-		close2;
-		monster "thana_boss",140,217,"Despair",1710,1,"Crest#tt5::OnMyMobDead";
-		monster "thana_boss",140,216,"Hatred",1709,1,"Crest#tt5::OnMyMobDead";
-		monster "thana_boss",141,217,"Misery",1711,1,"Crest#tt5::OnMyMobDead";
-		monster "thana_boss",141,216,"Agony",1712,1,"Crest#tt5::OnMyMobDead";
-		hideonnpc "Crest#tt5";
-		end;
-	}
-	if ($@thana_summon < 5) {
-		mapwarp "thana_boss","tha_t12",130,47;
-		end;
+		initnpctimer;
+		donpcevent "Memory Seal#tt5::OnEnable";
+		disablenpc "#thanatos_seal";
 	}
-	mes "^3355FFYou find a strange";
-	mes "crest engraved";
-	mes "on the floor.^000000";
-	next;
-	input .@inputstr$;
-	mes "^3355FFNothing happened.^000000";
-	close2;
 	end;
-
-OnMyMobDead:
-	if (mobcount("thana_boss","Crest#tt5::OnMyMobDead") < 1) {
-		set $@thana_summon,5;
-		set $@thana_summon2,6;
-		donpcevent "boss_summon#tt::OnEnable";
-	}
+OnTimer1000:
+	mapannounce "thana_boss","Thanatos : RAWWWWWWWWWWWWWWWWR!",bc_map,"0xff0000"; //FW_NORMAL 12 0 0
 	end;
-}
-
-thana_boss,5,5,0	script	boss_summon#tt	139,{
+OnTimer4000:
+	mapannounce "thana_boss","Thanatos : ... crashed... broken... spread... and come back as tears...",bc_map,"0xff0000"; //FW_NORMAL 12 0 0
 	end;
-	
-OnEnable:
-	monster "thana_boss",136,129,"Thanatos Phantom",1708,1,"boss_summon#tt::OnMyMobDead";
-	initnpctimer;
+OnTimer7000:
+	mapannounce "thana_boss","Thanatos : I live again to fulfill my ambition!",bc_map,"0xff0000"; //FW_NORMAL 12 0 0
 	end;
-
-OnTimer1000:
-	mapannounce "thana_boss","Thanatos : RAWWWWWWWWWWWWWWWWR!",bc_map,"0x00CC00"; //FW_NORMAL 12 0 0
-	set $@thana_summon,6;
+OnTimer10000:
+	mapannounce "thana_boss","Thanatos : ... gives off a strong bloody scent... soaked in sorrow...",bc_map,"0xff0000"; //FW_NORMAL 12 0 0
 	end;
-
-OnTimer3000:
-	mapannounce "thana_boss","Thanatos : I live again to fulfill my ambition!",bc_map,"0x00CC00"; //FW_NORMAL 12 0 0
+OnTimer13000:
+	mapannounce "thana_boss","Thanatos : I will remove all people who invade this continent again!",bc_map,"0xff0000"; //FW_NORMAL 12 0 0
 	end;
-
-OnTimer30000:
-	mapannounce "thana_boss","Thanatos : Come, be the first to fall before my might!",bc_map,"0x00CC00"; //FW_NORMAL 12 0 0
+OnTimer16000:
+	mapannounce "thana_boss","Thanatos : Come, be the first to fall before my might!",bc_map,"0xff0000"; //FW_NORMAL 12 0 0
+	donpcevent "Memory Seal#tt5::OnDisable";
+	donpcevent "#sommon_thanatos::OnEnable";
+	set $@thana_summon2, 5;
+	stopnpctimer;
 	end;
+}
 
-OnTimer900000:
-	set $@thana_summon,5;
-	donpcevent "tt_effect1::OnEnable";
-	donpcevent "tt_effect2::OnEnable";
-	donpcevent "tt_effect3::OnEnable";
-	donpcevent "tt_effect4::OnEnable";
-	donpcevent "tt_effect5::OnEnable";
-	hideoffnpc "to_the_boss_room_tt";
-	stopnpctimer;
+thana_boss,141,235,3	script	Memory Seal#tt5	1708,{
 	end;
+OnInit:
+	disablenpc "Memory Seal#tt5";
+	end;
+OnEnable:
+	enablenpc "Memory Seal#tt5";
+	end;
+OnDisable:
+	disablenpc "Memory Seal#tt5";
+	specialeffect EF_ICECRASH;
+	end;
+}
 
+thana_boss,141,218,0	script	#sommon_thanatos	-1,{
+OnEnable:
+	specialeffect EF_MAPPILLAR2,AREA,"#sommon_thanatos";
+	specialeffect EF_SEISMICWEAPON,AREA,"#sommon_thanatos";
+	monster "thana_boss",141,218,"Thanatos Phantom",1708,1,"#sommon_thanatos::OnMyMobDead";
+	end;
 OnMyMobDead:
-	if (mobcount("thana_boss","boss_summon#tt::OnMyMobDead") < 1) {
-		stopnpctimer;
-		donpcevent "#timer_t::OnEnable";
+	if (mobcount("thana_boss","#sommon_thanatos::OnMyMobDead") < 1) {
+		mapannounce "thana_boss","RAWWWWWWWWWWR........ This can't be.........................",bc_map,"0xff0000"; //FW_NORMAL 12 0 0
+		donpcevent "#cooltime_thana::OnEnable";
+		set $@thana_summon, 6;
 	}
 	end;
 }
 
-thana_boss,3,3,0	script	#timer_t	139,{
+thana_boss,1,1,0	script	#cooltime_thana	844,{
 	end;
-
 OnInit:
-	set $@thana_summon,0;
-	set $@thana_summon2,0;
+	set $@thana_summon, 0;
+	set $@thana_summon2, 0;
 	end;
-
 OnEnable:
 	initnpctimer;
 	end;
-
-OnTimer1000:
-	mapannounce "thana_boss","GGGGRRRRRRR!",bc_map,"0xFF0000"; //FW_NORMAL 12 0 0
-	set $@thana_summon,6;
-	end;
-
-OnTimer2000:
-	mapannounce "thana_boss","*Rumble Rumble*",bc_map,"0xFF0000"; //FW_NORMAL 12 0 0
+OnStop:
+	stopnpctimer;
 	end;
-
 OnTimer3000:
-	mapannounce "thana_boss","*Crik Crik*",bc_map,"0xFF0000"; //FW_NORMAL 12 0 0
+	mapannounce "thana_boss","Warning!!",bc_map,"0x00ff00"; //FW_NORMAL 12 0 0
 	end;
-
-OnTimer4000:
-	mapannounce "thana_boss","*Zzzzrt Zzzzrt*",bc_map,"0xFF0000"; //FW_NORMAL 12 0 0
+OnTimer6000:
+	mapannounce "thana_boss","The seal will re-activate in 30 seconds.",bc_map,"0x00ff00"; //FW_NORMAL 12 0 0
 	end;
-
-OnTimer5000:
-	mapannounce "thana_boss","*Crik Crik*",bc_map,"0xFF0000"; //FW_NORMAL 12 0 0
+OnTimer16000:
+	mapannounce "thana_boss","20 seconds left...",bc_map,"0x00ff00"; //FW_NORMAL 12 0 0
 	end;
-
-OnTimer60000:
-OnTimer1000000:
-OnTimer2000000:
-OnTimer3000000:
-OnTimer4000000:
-OnTimer5000000:
-OnTimer6000000:
-	mapwarp "thana_boss","tha_t12",130,47;
+OnTimer26000:
+	mapannounce "thana_boss","10 seconds left...",bc_map,"0x00ff00"; //FW_NORMAL 12 0 0
+	end;
+OnTimer31000:
+	mapannounce "thana_boss","5 seconds.",bc_map,"0x00ff00"; //FW_NORMAL 12 0 0
+	end;
+OnTimer32000:
+	mapannounce "thana_boss","4 seconds.",bc_map,"0x00ff00"; //FW_NORMAL 12 0 0
+	end;
+OnTimer33000:
+	mapannounce "thana_boss","3 seconds.",bc_map,"0x00ff00"; //FW_NORMAL 12 0 0
+	end;
+OnTimer34000:
+	mapannounce "thana_boss","2 seconds.",bc_map,"0x00ff00"; //FW_NORMAL 12 0 0
+	end;
+OnTimer35000:
+	mapannounce "thana_boss","Time's up!",bc_map,"0xff0000"; //FW_NORMAL 12 0 0
+	end;
+OnTimer36000:
+OnTimer37000:
+	mapwarp "thana_boss","tha_t12",130,52;
 	end;
-
 OnTimer7200000:
-	set $@thana_summon,0;
-	hideoffnpc "Crest#tt1";
-	hideoffnpc "Crest#tt2";
-	hideoffnpc "Crest#tt3";
-	hideoffnpc "Crest#tt4";
-	hideoffnpc "Crest#tt5";
+	set $@thana_summon, 0;
+	set $@thana_summon2, 0;
+	donpcevent "Memory Seal#tt1::OnEnable";
+	donpcevent "Memory Seal#tt2::OnEnable";
+	donpcevent "Memory Seal#tt3::OnEnable";
+	donpcevent "Memory Seal#tt4::OnEnable";
+	donpcevent "#thanatos_seal::OnEnable";
 	stopnpctimer;
 	end;
 }
 
-tha_t06,119,120,0	script	to the 7th floor	45,1,1,{
+tha_scene01,30,30,0	warp	scene	1,1,tha_scene01,131,220
+tha_t04,81,36,0	warp	to 5th Floor	1,1,tha_t05,62,8
+tha_t06,119,120,0	script	to 7th Floor	45,1,1,{
 	end;
-
 OnTouch:
-	if (eaclass()&(EAJL_2|EAJL_UPPER) || eaclass()&EAJL_THIRD) {
-		warp "thana_step",69,369;
-		end;
-	}
-	if ((Class == Job_SuperNovice || Class == Job_Taekwon || Class == Job_Star_Gladiator || Class == Job_Soul_Linker || Class == Job_Ninja || Class == Job_Gunslinger) && BaseLevel > 94) {
-		warp "thana_step",69,369;
-		end;
+	if (eaclass()&(EAJL_2|EAJL_UPPER) || eaclass()&EAJL_THIRD || ((Class == Job_SuperNovice || Class == Job_Taekwon || Class == Job_Star_Gladiator || Class == Job_Soul_Linker || Class == Job_Ninja || Class == Job_Gunslinger) && BaseLevel > 94)) {
+		if (countitem(7425) > 0) {
+			mes "The shadow of a Black Key is gleaming in the center of the portal.";
+			mes "To pass this way, looks like I need something.";
+			next;
+			mes "The Black Key reacts to the portal and floats in the air.";
+			next;
+			mes "The key seems to separate into many particles and suddenly collapses into a ball.";
+			mes "The barricade is removed through the power from newly formed black magic gem.";
+			close2;
+			delitem 7425,1; //Key_Black
+			getitem 7430,1; //Magic_Gem_Black
+			warp "thana_step",69,369;
+			end;
+		}
+		mes "The shadow of a Black Key is gleaming in the center of the portal.";
+		mes "To pass this way, looks like I need something.";
+		close;
 	}
-	mes "^3355FFAn overwhelming force";
-	mes "acts against you, preventing";
-	mes "you from proceeding this way...^000000";
+	mes "A mysterious power is blocking my path.";
 	close;
-}
+}
\ No newline at end of file
diff --git a/sql-files/item_db_re.sql b/sql-files/item_db_re.sql
index e2a84b24c..6df044b98 100644
--- a/sql-files/item_db_re.sql
+++ b/sql-files/item_db_re.sql
@@ -5466,9 +5466,9 @@ REPLACE INTO `item_db_re` VALUES (12388,'Runstone_Crush','Rhydo Runestone For Ap
 REPLACE INTO `item_db_re` VALUES (12389,'Runstone_Storm','Pertz Runestone For Apprentice',11,NULL,NULL,10,NULL,NULL,NULL,NULL,0xFFFFFFFF,7,2,NULL,NULL,NULL,NULL,NULL,'if(strcharinfo(3)=="job3_rune02") { itemskill "RK_STORMBLAST",1; }',NULL,NULL);
 REPLACE INTO `item_db_re` VALUES (12390,'Runstone_Millennium','Verkana Runestone For Apprentice',11,NULL,NULL,10,NULL,NULL,NULL,NULL,0xFFFFFFFF,7,2,NULL,NULL,NULL,NULL,NULL,'if(strcharinfo(3)=="job3_rune02") { itemskill "RK_MILLENNIUMSHIELD",1; }',NULL,NULL);
 REPLACE INTO `item_db_re` VALUES (12391,'Lucky_Egg_C','Lucky Egg',2,NULL,NULL,10,NULL,NULL,NULL,NULL,0xFFFFFFFF,7,2,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL);
-REPLACE INTO `item_db_re` VALUES (12392,'Repair_A','Repair A',0,220,NULL,70,NULL,NULL,NULL,NULL,0x00000400,8,2,NULL,NULL,NULL,NULL,NULL,/*' madoheal rand(200,300),0;'*/,NULL,NULL);
-REPLACE INTO `item_db_re` VALUES (12393,'Repair_B','Repair B',0,500,NULL,70,NULL,NULL,NULL,NULL,0x00000400,8,2,NULL,NULL,NULL,NULL,NULL,/*' madoheal rand(300,400),0;'*/,NULL,NULL);
-REPLACE INTO `item_db_re` VALUES (12394,'Repair_C','Repair C',0,1100,NULL,70,NULL,NULL,NULL,NULL,0x00000400,8,2,NULL,NULL,NULL,NULL,NULL,/*' madoheal rand(400,500),0;'*/,NULL,NULL);
+REPLACE INTO `item_db_re` VALUES (12392,'Repair_A','Repair A',0,220,NULL,70,NULL,NULL,NULL,NULL,0x00000400,8,2,NULL,NULL,NULL,NULL,NULL,'/* madoheal rand(200,300),0; */',NULL,NULL);
+REPLACE INTO `item_db_re` VALUES (12393,'Repair_B','Repair B',0,500,NULL,70,NULL,NULL,NULL,NULL,0x00000400,8,2,NULL,NULL,NULL,NULL,NULL,'/* madoheal rand(300,400),0; */',NULL,NULL);
+REPLACE INTO `item_db_re` VALUES (12394,'Repair_C','Repair C',0,1100,NULL,70,NULL,NULL,NULL,NULL,0x00000400,8,2,NULL,NULL,NULL,NULL,NULL,'/* madoheal rand(400,500),0; */',NULL,NULL);
 REPLACE INTO `item_db_re` VALUES (12395,'Tantanmen','Tantan Noodle',2,20,NULL,50,NULL,NULL,NULL,NULL,0xFFFFFFFF,7,2,NULL,NULL,NULL,NULL,NULL,'pet 1519;',NULL,NULL);
 REPLACE INTO `item_db_re` VALUES (12396,'Fools_Day_Box','Gift Box?',11,20,NULL,10,NULL,NULL,NULL,NULL,0xFFFFFFFF,7,2,NULL,NULL,NULL,NULL,NULL,'if(rand(1,10)==1) itemskill "AL_TELEPORT",1; else if(rand(1,10)==2) itemskill "AL_TELEPORT",3; else if(rand(1,10)==3) percentheal 50,0; else if(rand(1,10)==4) percentheal 0,50; else if(rand(1,10)==5) end; else if(rand(1,10)==6) getitem 512,1; else if(rand(1,10)==7) itemskill "ALL_REVERSEORCISH",1; else if(rand(1,10)==8) specialeffect2 247; else if(rand(1,10)==9) specialeffect2 338; else specialeffect2 10;',NULL,NULL);
 REPLACE INTO `item_db_re` VALUES (12397,'Fools_Day_Box2','Gift Box?',11,20,NULL,10,NULL,NULL,NULL,NULL,0xFFFFFFFF,7,2,NULL,NULL,NULL,NULL,NULL,'if(rand(1,10)==1) itemskill "TF_DETOXIFY",1; else if(rand(1,10)==2) itemskill "TF_PICKSTONE",1; else if(rand(1,10)==3) itemskill "BA_FROSTJOKER",1; else if(rand(1,10)==4) itemskill "DC_SCREAM",1; else if(rand(1,10)==5) end; else if(rand(1,10)==6) getitem 909,1; else if(rand(1,10)==7) itemskill "AL_RUWACH",1; else if(rand(1,10)==8) specialeffect2 328; else if(rand(1,10)==9) specialeffect2 68; else specialeffect2 196;',NULL,NULL);