* Updated Thanatos Tower quest to official.

- Moved some NPC in proper quest file and updated warps.
- Removed old Thanatos custom warps.
* Fixed drops of Thanatos Dolor & Thanatos Odium regarding the quest.

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

4 files changed, 2521 insertions, 1793 deletions

diff --git a/npc/Changelog.txt b/npc/Changelog.txt
index a40a0216d..71fa9e851 100644
--- a/npc/Changelog.txt
+++ b/npc/Changelog.txt
@@ -1,6 +1,9 @@
 Date		Added
 ======
 2007/05/18
+	* Updated Thanatos Tower quest to official. [SinSloth]
+	- Moved some NPC in proper quest file and updated warps.
+	- Removed old Thanatos custom warps.
 	* Sage Job Quest Item name fix: Mantis Scythe [Lupus]
  	* Rev 10561 Kiel Hyre quest fixes. [L0ne_W0lf]
 	- Fixed a typo in Elly, in her room. (<= should have been <) 
diff --git a/npc/quests/thana_quest.txt b/npc/quests/thana_quest.txt
index a3f12957b..88c95abd9 100644
--- a/npc/quests/thana_quest.txt
+++ b/npc/quests/thana_quest.txt
@@ -3,1631 +3,2585 @@
 //===== By: ==================================================
 //= [Ishizu-chan]
 //===== Current Version: =====================================
-//= 1.0 Beta
+//= 1.1
 //===== Compatible With: =====================================
 //= Any eAthena Version i guess?
 //===== Description: =========================================
 //= It's the Thanatos Tower Quest...
 //===== Additional Comments: =================================
 //= 1.0 - First Release [Ishizu-chan]
+//= 1.1 - Updated Thanatos Tower Quest to official. [SinSloth]
 //============================================================
 
-
-// Tour Guide - 1st Floor
-tha_t01,149,78,3	script	Tour Guide#1	90,{
-
-  if (ThanaQuest & 1) {
-
-    mes "[Tour Guide]";
-    mes "Hello my friend.";
-    mes "How are you? Do you enjoy working for the Rekkenber Corporation?";
-    close;
-
-  }
-
-  mes "[Tour Guide]";
-  mes "Hello there.";
-  mes "So you came all the way to investigate the ^777777Thanatos Tower^000000, huh?";
-  next;
-
-  mes "[Tour Guide]";
-  mes "I'm with the Rekkenber Corporation.";
-  mes "We are still searching brave people, who would like to work for us and discover the deeper levels of the ^777777Thanatos Tower^000000.";
-  next;
-
-  mes "[Tour Guide]";
-  mes "Are you by chance interested to volunteer to the ^777777Thanatos Tower Task Force^000000?";
-  next;
-  menu "No thanks.",L_End,
-       "Yes, sign me up!",-;
-
-  mes "[Tour Guide]";
-  mes "Please sign your name here...";
-  next;
-
-  set ThanaQuest, ThanaQuest | 1;
-
-  mes "[Tour Guide]";
-  mes "Ok, ^000077"+strcharinfo(0)+"^000000, isn't it?";
-  mes "Welcome to the ^777777Thanatos Tower Task Force^000000!";
-  next;
-
-  mes "[Tour Guide]";
-  mes "Please be carefull when investigating the deeper levels of the ^777777Thanatos Tower^000000.";
-  mes "The deeper you get, the less is known about it's dangers...";
-  close;
-
-  L_End:
-  mes "[Tour Guide]";
-  mes "Ok, but it was worth a try, wasn't it.";
-  mes "Come back when you're interested.";
-  close;
-
+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" ) )
+	{
+		case 1:
+			mes "[Gatei]";
+			mes "Yes, the tower in front";
+			mes "of you was an ancient ruins";
+			mes "that got its name from a word";
+			mes "written on a stone plate found";
+			mes "inside. Today, this place is";
+			mes "a popular tourist attraction.";
+			next;
+			mes "[Gatei]";
+			mes "This tower grew in popularity";
+			mes "for adventurers when the";
+			mes "Rekenber Corporation began";
+			mes "tower reconstruction efforts.";
+			mes "The 1st and 2nd floors are now";
+			mes "repaired and free of monsters.";
+			next;
+			mes "[Gatei]";
+			mes "However, reconstruction of";
+			mes "the 3rd and higher floors is";
+			mes "incomplete. Those levels are";
+			mes "still infested with monsters, so we're contracting temp workers";
+			mes "to exterminate all of them.";
+			next;
+			mes "[Gatei]";
+			mes "If you're interested in";
+			mes "temporary contract work,";
+			mes "or would like to know about";
+			mes "this place in detail, please";
+			mes "ask one of the guides inside.";
+			mes "Thank you and enjoy your visit~";
+			close;
+			
+		case 2:
+			mes "[Gatei]";
+			mes "Everyone is welcome to";
+			mes "enjoy Thanatos Tower.";
+			mes "Only the 1st and 2nd floors";
+			mes "are open to the public at";
+			mes "this time. The entrance fee";
+			mes "is 5,000 zeny per person.";
+			next;
+			mes "[Gatei]";
+			mes "5,000 zeny may seem a little";
+			mes "steep for a tourist attraction,";
+			mes "but trust me, this tower provides a very unique experience. Also,";
+			mes "our loyal customers and contract workers get a special discount~";
+			close;
+			
+		case 3:
+			mes "[Gatei]";
+			mes "Would you like to";
+			mes "enter Thanatos Tower?";
+			mes "The entry fee is ^FF00005,000 zeny^000000.";
+			next;
+			switch( select( "Enter","Maybe next time." ) )
+			{
+				case 1:
+					if (thana_quest)
+					{
+						mes "[Gatei]";
+						mes "Oh, "+strcharinfo(0)+"!";
+						mes "Welcome back! Since you've";
+						mes "got a temporary Rekenber";
+						mes "work contract, your entrance";
+						mes "fee is only 3,000 zeny.";
+						next;
+						switch( select( "Enter","No, thanks." ) )
+						{
+							case 1:
+								if (Zeny < 3000)
+								{
+									mes "[Gatei]";
+									mes "Oh, I'm sorry...";
+									mes "But you don't seem to";
+									mes "have enough zeny. Oh well,";
+									mes "just come back again later~";
+									close;
+								}
+								mes "[Gatei]";
+								mes "Thank you, and";
+								mes "please keep up the";
+								mes "good work. Ah, and don't";
+								mes "forget: safety first when";
+								mes "you fight those monsters!";
+								set Zeny,Zeny - 3000;
+								close2;
+								warp "tha_scene01",131,220;
+								end;
+								
+							case 2:
+								mes "[Gatei]";
+								mes "Oh, I'm sorry...";
+								mes "But you don't seem to";
+								mes "have enough zeny. Oh well,";
+								mes "just come back again later~";
+								close;
+						}
+					}
+					if (Zeny < 5000)
+					{
+						mes "[Gatei]";
+						mes "Well...";
+						mes "Hm. I'm sorry, but you";
+						mes "don't seem to have enough";
+						mes "zeny for the entrance fee.";
+						mes "Please come back later...";
+						close;
+					}
+					mes "[Gatei]";
+					mes "Ah, I've received your";
+					mes "entrance fee. Thank you";
+					mes "very much. Now, I hope";
+					mes "you enjoy your visit";
+					mes "to Thanatos Tower~";
+					set Zeny,Zeny - 5000;
+					close2;
+					warp "tha_scene01",131,220;
+					end;
+				
+				case 2:
+					mes "[Gatei]";
+					mes "Very well. Please come";
+					mes "and visit us again here";
+					mes "in Thanatos Tower.";
+					close;
+			}
+		
+		case 4:
+			mes "[Gatei]";
+			mes "Very well. Please come";
+			mes "and visit us again here";
+			mes "in Thanatos Tower.";
+			close;
+	}
 }
 
-
-// Tour Guide - 2nd Floor
-tha_t02,231,161,5	script	Tour Guide#2	874,{
-
-  if (ThanaQuest < 1) {
-
-    mes "[Tour Guide]";
-    mes "Hello there.";
-    mes "Nice day, isn't it?";
-    next;
-
-    mes "[Tour Guide]";
-    mes "If you want to visit the higher levels, you'll need to volunteer to the ^777777Thanatos Tower Task Force^000000.";
-    next;
-
-    mes "[Tour Guide]";
-    mes "You can do so by speaking with the nice woman at the counter, near the entrance.";
-    mes "See you later~";
-    close;
-
-  }
-
-  mes "[Tour Guide]";
-  mes "Hello my friend.";
-  mes "Oh, you're one of the new volunteers from the ^777777Thanatos Tower Task Force^000000.";
-  next;
-
-  mes "[Tour Guide]";
-  mes "If you wish to enter the next level, you'll need to form a party.";
-  mes "Please gather at least 5 of your Friends around me, so that I can warp you towards the next level.";
-  next;
-
-  mes "[Tour Guide]";
-  mes "I will warp your whole party, so tell your comrades to stand by.";
-  mes "Shall I warp you now?";
-  next;
-  menu "No, I need some time...",L_End,
-       "Yes, please warp us!",-;
-  
-  set @partyid, getcharid(1);
-
-  if (@partyid == 0) goto L_NoParty;
-
-  getpartymember(@partyid);
-  set @partymembercount,$@partymembercount;
-  copyarray @partymembername$[0],$@partymembername$[0],@partymembercount;
-
-  if (@partymembercount < 6) goto L_NotEnough;
-
-  for(set @i, 0; @i < @partymembercount; set @i, @i + 1) {
-    if (getmapxy(@mapname$,@mapx,@mapy,0,@partymembername$[@i]) != 0) goto L_Offline;
-    if (@mapname$ != "tha_t02" || @mapx < 223 || @mapx > 239 || @mapy < 153 || @mapy > 169) goto L_Away;
-  }
-
-  warpparty "tha_t03",220,165,@partyid;
-  end;
-
-  L_NoParty:
-  mes "[Tour Guide]";
-  mes "Erm, you need to form a party first.";
-  close;
-
-  L_NotEnough:
-  mes "[Tour Guide]";
-  mes "You'll need to bring at least 5 friends, if you want to enter the next level.";
-  close;
-
-  L_Offline:
-  mes "[Tour Guide]";
-  mes "Hmm, it seems some of your friends aren't online.";
-  close;
-
-  L_Away:
-  mes "[Tour Guide]";
-  mes "I can't find some of your friends.";
-  mes "Please tell them to come close to me, so I can see them.";
-  close;
-
-  L_End:
-  mes "[Tour Guide]";
-  mes "Ok, come back whenever you're ready to go.";
-  close;
-
+tha_t01,149,78,4	script	Guide	90,{
+
+	if(!thana_quest)
+	{
+		mes "[Ditze]";
+		mes "Welcome to Thanatos Tower.";
+		mes "The tower's reconstruction is";
+		mes "a Rekenber Corporation project,";
+		mes "and the 1st and 2nd floors are";
+		mes "now open to the public. So";
+		mes "how may I help you today?";
+		next;
+		switch( select( "Tower Information","Temporary Work Contract","Cancel" ) )
+		{
+			case 1:
+				mes "[Ditze]";
+				mes "When this tower was built,";
+				mes "who built it, and its purpose";
+				mes "are all mysteries. There are";
+				mes "many rumors about it being a";
+				mes "Mage lab, a hero's monument,";
+				mes "or a demon fortress...";
+				next;
+				mes "[Ditze]";
+				mes "The Rekenber Corporation has";
+				mes "been researching the origin of";
+				mes "this tower, but has not yet been able to confirm anything. Although";
+				mes "we've lost many researchers to the tower monsters, we won't give up!";
+				next;
+				mes "[Ditze]";
+				mes "Rekenber is convinced that this";
+				mes "tower holds many secrets, and";
+				mes "successfully reconstructed the";
+				mes "first 2 floors of this tower in";
+				mes "the pursuit of this knowledge.";
+				next;
+				mes "[Ditze]";
+				mes "Currently, we are focused on";
+				mes "reconstructing the tower's 3rd";
+				mes "and 4th floors. Luckily, many";
+				mes "adventurers are exterminating";
+				mes "the monsters on those floors, working under temporary contracts.";
+				next;
+				mes "[Ditze]";
+				mes "At this rate, we expect";
+				mes "to complete reconstruction";
+				mes "of the 3rd and 4th floors in";
+				mes "the near future, bringing us";
+				mes "closer to our goal of opening all 12 floors of Thanatos Tower.";
+				next;
+L_Ask1:
+				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.";
+						next;
+						goto L_Ask1;
+
+					case 2:
+						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;
+				}
+				break;
+				
+			case 2:
+				break;
+				
+			case 3:
+				mes "[Ditze]";
+				mes "Well, if you have any";
+				mes "questions, feel free to";
+				mes "ask me later. My name is";
+				mes "Ditze Lappa. Have a good day!";
+				close;
+		}
+		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;
+		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;
+				switch( select( "Yes" ) )
+				{
+					case 1:
+						break;
+				}
+				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 within 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_quest,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;
+				}
+		}
+	}
+	mes "[Ditze]";
+	mes "For more detailed information";
+	mes "about monster exterminations,";
+	mes "please ask the 2nd Floor Guide";
+	mes "and the Guide next to me. Well,";
+	mes "we hope you enjoy your experience working with Rekenber Corporation~";
+	close;
 }
 
+tha_t01,140,78,4	script	Guide	831,{
 
-// Mechanical Device - Red Key
-tha_t03,67,70,0	script	Mechanical Device#1	111,{
-
-  if (ThanaQuest & 2) {
-
-    mes "[Mechanical Device]";
-    mes "This is where you found the";
-    mes "^EF797BRed Key^000000.";
-    close;
-
-  }
-
-  mes "[Mechanical Device]";
-  mes "There's a strange mechanical device here.";
-  next;
-  menu "Investigate the device.",-,
-       "Leave it alone.",L_End;
-
-  mes "[Mechanical Device]";
-  mes "...";
-  next;
-
-  mes "[Mechanical Device]";
-  mes "It seems there is something inside, but the device is protected by a mysterious strong power.";
-  next;
-  menu "Try to get whats inside.",L_Denied,
-       "Get rid of the strong power",-,
-       "Leave it alone.",L_End;
-
-  if (getequipweaponlv(4) < 4) goto L_NoWeapon;
-
-  mes "[Mechanical Device]";
-  mes "As you point your weapon towards the device, the magic power seems to fade.";
-  mes "You now can get inside the device.";
-  next;
-
-  set ThanaQuest, ThanaQuest | 2;
-  getitem 7421,1;  // Red Key
-
-  mes "[Mechanical Device]";
-  mes "You found the ^EF797BRed Key^000000.";
-  close;
-
-  L_Denied:
-  mes "[Mechanical Device]";
-  mes "You were pushed away as you tried to get inside.";
-  mes "It seems the device is protected by a strong magical force.";
-  close;
-
-  L_NoWeapon:
-  mes "[Mechanical Device]";
-  mes "You tried to get rid of the mysterious power, but your weapon doesn't seem to be strong enough...";
-  close;
-
-  L_End:
-  mes "[Mechanical Device]";
-  mes "You left the mechanical device alone.";
-  close;
-
+	if(!thana_quest)
+	{
+		mes "[Liei]";
+		mes "Good day, I'm";
+		mes "Liei Kuniziet of the";
+		mes "Employee Mission";
+		mes "Reward Department";
+		mes "here in Thanatos Tower.";
+		next;
+		switch( select( "Employee's mission reward?","Keep up the good work." ) )
+		{
+			case 1:
+				mes "[Liei]";
+				mes "Currently, Rekenber Corporation";
+				mes "is contracting temp employees";
+				mes "to develop the higher levels";
+				mes "of Thanatos Tower. If you'd";
+				mes "like to apply, please ask";
+				mes "Ditze right next to me.";
+				close;
+				
+			case 2:
+				mes "[Liei]";
+				mes "Thank you. Ah, and I hope";
+				mes "that you enjoy your visit";
+				mes "here to Thanatos Tower.";
+				close;
+		}
+	}
+	mes "[Liei]";
+	mes "Ah, hello~";
+	mes "How may I help you?";
+	next;
+	switch( select( "Reward","Nothing" ) )
+	{
+		case 1:
+			mes "[Liei]";
+			mes "You're "+strcharinfo(0)+", yes?";
+			mes "Let me check our temp";
+			mes "employee records for--ah.";
+			mes "Here it is. Alright, so would";
+			mes "you please tell me what kind";
+			mes "of mission proof you brought?";
+			next;
+			switch( select( "Golden Ornament","Red Feather","Blue Feather","Cursed Seal" ) )
+			{
+				case 1:
+					callfunc "Func_Thana",7435;
+				
+				case 2:
+					callfunc "Func_Thana",7440;
+					
+				case 3:
+					callfunc "Func_Thana",7441;
+				
+				case 4:
+					callfunc "Func_Thana",7442;
+			}
+			
+		case 2:
+			mes "[Liei]";
+			mes "Alright, then.";
+			mes "Please do your best";
+			mes "to exterminate the";
+			mes "monsters that infest";
+			mes "the higher floors of";
+			mes "the Thanatos Tower~";
+			close;
+	}
 }
-
-
-// Mechanical Device - Yellow Key
-tha_t04,195,195,0	script	Mechanical Device#2	111,{
-
-  if (ThanaQuest & 4) {
-
-    mes "[Mechanical Device]";
-    mes "This is where you found the";
-    mes "^DE9673Yellow Key^000000.";
-    close;
-
-  }
-
-  mes "[Mechanical Device]";
-  mes "There's a strange mechanical device here.";
-  next;
-  menu "Investigate the device.",-,
-       "Leave it alone.",L_End;
-
-  mes "[Mechanical Device]";
-  mes "The device started to make a certain noise since you approached to it.";
-  mes "Theres a terminal in front of it, where you could enter a number with 3 digits.";
-  next;
-
-  mes "[Mechanical Device]";
-  mes "The noise sounds very strange, and it seems as if the device doesn't work the way it should.";
-  next;
-  menu "Use the terminal",-,
-       "Leave it alone.",L_End;
-
-  set @number, rand(100,999);
-  set @count, 0;
-
-  L_Input:
-  set @count, @count + 1;
-  if (@count > 10) goto L_Broken;
-
-  input @input;
-
-  if (@input < 100 || @input > 999) goto L_Wrong;
-
-  if (@input > @number) goto L_TooBig;
-  if (@input < @number) goto L_TooSmall;
-
-  mes "[Mechanical Device]";
-  mes "As you use the terminal to adjust the number on it, the strange noise changed into a pleasant working sound, and a small box near the terminal opened.";
-  mes "There's something in that box.";
-  next;
-
-  set ThanaQuest, ThanaQuest | 4;
-  getitem 7422,1;  // Yellow Key
-
-  mes "[Mechanical Device]";
-  mes "You found the ^DE9673Yellow Key^000000.";
-  close;
-
-  L_TooBig:
-  mes "[Mechanical Device]";
-  mes "As you use the terminal to adjust the number on it, the strange noise changed.";
-  mes "However, it still sounds wrong. It's a very high sound now.";
-  next;
-
-  mes "[Mechanical Device]";
-  mes "It seems the number you entered was too big.";
-  next;
-
-  goto L_Input;
-
-  L_TooSmall:
-  mes "[Mechanical Device]";
-  mes "As you use the terminal to adjust the number on it, the strange noise changed.";
-  mes "However, it still sounds wrong. It's a very deep sound now.";
-  next;
-
-  mes "[Mechanical Device]";
-  mes "It seems the number you entered was too small.";
-  next;
-
-  goto L_Input;
-
-  L_Broken:
-  mes "[Mechanical Device]";
-  mes "The Device stoped with an akward sound.";
-  mes "It seems the device doesn't work anymore...";
-  close;
-
-  L_Wrong:
-  mes "[Mechanical Device]";
-  mes "You tried to enter the number, but the terminal wasn't able to handle it.";
-  mes "It seems the device doesn't work anymore...";
-  close;
-
-  L_End:
-  mes "[Mechanical Device]";
-  mes "You left the mechanical device alone.";
-  close;
-
+		
+function	script	Func_Thana	{
+
+	if(!countitem(getarg(0)))
+	{
+		mes "[Liei]";
+		mes "Oh, I'm sorry, but you";
+		mes "don't have any "+ getitemname(getarg(0)) +"";
+		mes "Please check your inventory one more time...";
+		close;
+	}
+	mes "[Liei]";
+	mes "The reward for each";
+	mes ""+ getitemname(getarg(0)) +" is...";
+	mes " ";
+	mes "1,000 zeny";
+	mes "2,000 EXP";
+	next;
+	mes "[Liei]";
+	mes "If you turn in your "+ countitem(getarg(0)) +"";
+	mes ""+ getitemname(getarg(0)) +", then";
+	mes "you will receive a total of...";
+	mes " ";
+	mes ""+ countitem(getarg(0)) * 1000 +" zeny";
+	mes ""+ countitem(getarg(0)) * 2000 +" EXP";
+	next;
+	mes "[Liei]";
+	mes "So would you like to";
+	mes "exchange all of your "+ getitemname(getarg(0)) +"";
+	mes "for your reward now?";
+	next;
+	switch( select( "Yes","No" ) )
+	{
+		case 1:
+			mes "[Liei]";
+			mes "Great! Here is your";
+			mes ""+ countitem(getarg(0)) * 1000 +" zeny and";
+			mes ""+ countitem(getarg(0)) * 2000 +" EXP. Thank you,";
+			mes "and please keep up";
+			mes "the good work~";
+			delitem getarg(0),countitem(getarg(0));
+			set Zeny,Zeny + countitem(getarg(0)) * 1000;
+			set BaseExp,BaseExp + countitem(getarg(0)) * 2000;
+			close;
+			
+		case 2:
+			mes "[Liei]";
+			mes "Sure, no problem.";
+			mes "Just come back and";
+			mes "talk to me whenever";
+			mes "you want to receive";
+			mes "your reward, alright?";
+			close;
+	}
 }
 
+tha_t02,231,161,5	script	Entrance Guide	874,{
 
-// Mechanical Device - Blue Key
-tha_t05,101,37,0	script	Mechanical Device#3	111,{
-
-  if (ThanaQuest & 8) {
-
-    mes "[Mechanical Device]";
-    mes "This is where you found the";
-    mes "^8CA6EFBlue Key^000000.";
-    close;
-
-  }
-
-  mes "[Mechanical Device]";
-  mes "There's a strange mechanical device here.";
-  next;
-  menu "Investigate the device.",-,
-       "Leave it alone.",L_End;
-
-  mes "[Mechanical Device]";
-  mes "It seems there's something hidden under the device. However, the device is too heavy to lift it up alone.";
-  next;
-  menu "Try it anyways.",L_Alone,
-       "Try it together.",-,
-       "Leave it alone.",L_End;
-
-  getmapxy @mapname$,@mapx,@mapy,0,strcharinfo(0);
-  if (@mapx < 101 || @mapx > 104 || @mapy < 37 || @mapy > 40) goto L_Away;
-
-  set @help, getareausers("tha_t05",101,40,104,37);
-  if (@help == 1) goto L_Alone;
-  if (@help < 3) goto L_NotEnough;
-
-  mes "[Mechanical Device]";
-  mes "As you manage to lift the device with the help of your friends, you find something underneath, covered in dirt.";
-  next;
-
-  set ThanaQuest, ThanaQuest | 8;
-  getitem 7423,1;  // Blue Key
-
-  mes "[Mechanical Device]";
-  mes "You found a ^8CA6EFBlue Key^000000.";
-  close;
-
-  L_Alone:
-  getmapxy @mapname$,@mapx,@mapy,0;
-  if (@mapx < 101 || @mapx > 104 || @mapy < 37 || @mapy > 40) goto L_Away;
-
-  mes "[Mechanical Device]";
-  mes "You coudn't move the device at all...";
-  close;
-
-  L_Away:
-  mes "[Mechanical Device]";
-  mes "You are too far away to move the device...";
-  close;
-
-  L_NotEnough:
-  mes "[Mechanical Device]";
-  mes "Even with some help you coudn't move the device.";
-  mes "It seem you'll need more help...";
-  close;
-
-  L_End:
-  mes "[Mechanical Device]";
-  mes "You left the mechanical device alone.";
-  close;
-
+	if(!thana_quest)
+	{
+		mes "[Burled]";
+		mes "You are in front of the entrance to the 3rd Floor. Only contracted";
+		mes "temp employees are authorized";
+		mes "to enter that area. For Rekenber temp contract information, please";
+		mes "speak to the 2nd Floor Guide.";
+		close;
+	}
+	mes "[Burled]";
+	mes "......";
+	mes ".........";
+	mes "............";
+	next;
+	switch( select( "Excuse me...","........." ) )
+	{
+		case 1:
+			mes "[Burled]";
+			mes "Oh...";
+			mes "I'm sorry, how";
+			mes "can I help you?";
+			next;
+			if(thana_quest < 2)
+			{
+				switch( select( "Enter the 3rd Floor","Gate Information" ) )
+				{
+					case 1:
+L_Access3:
+						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?";
+						set .@thana_level2,getareausers("tha_t02",226,156,236,166);
+						next;
+						if(.@thana_level2 < 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 ""+ .@thana_level2 +" 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 "[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 "#thana3::OnOpen";
+						end;
+					
+					case 2:
+L_GateInfo:
+						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]";
+						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;
+				}
+			}
+			switch( select( "Enter the 3rd Floor","Gate Information","About Satan Morroc..." ) )
+			{
+				case 1:
+					goto L_Access3;
+					
+				case 2:
+					goto L_GateInfo;
+				
+				case 3:
+					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?";
+					next;
+					switch( select( "It's important that I know more.","I'm sorry, I didn't know..." ) )
+					{
+						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...";
+							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.";
+							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.";
+							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?";
+							close;
+
+						case 2:
+							close;
+					}
+			}
+		
+		case 2:
+			mes "["+strcharinfo(0)+"]";
+			mes ".............";
+			close;
+	}
 }
 
-
-// Mechanical Device - Green Key
-tha_t06,43,152,0	script	Mechanical Device#4	111,{
-
-  setarray @directions$[0],"up","right","down","left";
-
-  if (ThanaQuest & 16) {
-
-    mes "[Mechanical Device]";
-    mes "This is where you found the";
-    mes "^84A684Green Key^000000.";
-    close;
-
-  }
-
-  mes "[Mechanical Device]";
-  mes "There's a strange mechanical device here.";
-  next;
-  menu "Investigate the device.",-,
-       "Leave it alone.",L_End;
-
-  mes "[Mechanical Device]";
-  mes "There are several switches, cogwheels, tubes and wires.";
-  next;
-  menu "Investigate the switches.",L_Switches,
-       "Investigate the cogwheels.",-,
-       "Investigate the tubes and wires.",L_Tubes,
-       "Leave it alone.",L_End;
-
-  set @wheel1, rand(1,3);
-  if (@wheel1 == 1) set @wheel2,1;
-  if (@wheel1 == 2) set @wheel2,0;
-  if (@wheel1 == 3) set @wheel2,3;
-
-  set @wheel3, rand(0,3);
-  set @wheel4, rand(1,3);
-  if (@wheel4 == 1) set @wheel5,3;
-  if (@wheel4 == 2) set @wheel5,2;
-  if (@wheel4 == 3) set @wheel5,1;
-
-  L_Cogwheels:
-  if (@wheel1 == 0 && @wheel2 == 2 && @wheel4 == 0 && @wheel5 == 0) goto L_Work;
-  mes "[Mechanical Device]";
-  mes "There are five cogwheels here, two small ones and three big ones.";
-  mes "They seem to activate the device if they are adjusted the right way.";
-  next;
-  menu "Adjust the small ones.",L_Small,
-       "Adjust the big ones.",L_Big,
-       "Leave it alone.",L_End;
-
-  L_Small:
-  mes "[Mechanical Device]";
-  mes "The first wheel points ^0000AA"+@directions$[@wheel1]+"^000000,";
-  mes "the second one points ^0000AA"+@directions$[@wheel2]+"^000000.";
-  next;
-  menu "Spin them clockwise.",L_Small_Clock,
-       "Spin them counterclockwise.",L_Small_Counter,
-       "Adjust the other ones.",L_Big,
-       "Go back.",L_Cogwheels;
-
-  L_Small_Clock:
-  set @wheel1, @wheel1 + 1;
-  if (@wheel1 > 3) set @wheel1, @wheel1 - 4;
-  set @wheel2, @wheel2 - 1;
-  if (@wheel2 < 0) set @wheel2, @wheel2 + 4;
-  goto L_Small;
-
-  L_Small_Counter:
-  set @wheel1, @wheel1 - 1;
-  if (@wheel1 < 0) set @wheel1, @wheel1 + 4;
-  set @wheel2, @wheel2 + 1;
-  if (@wheel2 > 3) set @wheel2, @wheel2 - 4;
-  goto L_Small;
-
-  L_Big:
-  mes "[Mechanical Device]";
-  mes "The first wheel points ^0000AA"+@directions$[@wheel3]+"^000000,";
-  mes "the second one points ^0000AA"+@directions$[@wheel4]+"^000000 and";
-  mes "the third one points ^0000AA"+@directions$[@wheel5]+"^000000.";
-  next;
-  menu "Spin them clockwise.",L_Big_Clock,
-       "Spin them counterclockwise.",L_Big_Counter,
-       "Adjust the other ones.",L_Small,
-       "Go back.",L_Cogwheels;
-
-  L_Big_Clock:
-  set @wheel3, @wheel3 + 1;
-  if (@wheel3 > 3) set @wheel3, @wheel3 - 4;
-  set @wheel4, @wheel4 - 1;
-  if (@wheel4 < 0) set @wheel4, @wheel4 + 4;
-  set @wheel5, @wheel5 + 1;
-  if (@wheel5 > 3) set @wheel5, @wheel5 - 4;
-  goto L_Big;
-
-  L_Big_Counter:
-  set @wheel3, @wheel3 - 1;
-  if (@wheel3 < 0) set @wheel3, @wheel3 + 4;
-  set @wheel4, @wheel4 + 1;
-  if (@wheel4 > 3) set @wheel4, @wheel4 - 4;
-  set @wheel5, @wheel5 - 1;
-  if (@wheel5 < 0) set @wheel5, @wheel5 + 4;
-  goto L_Big;
-
-  L_Work:
-  mes "[Mechanical Device]";
-  mes "After you've adjusted the cogwheels this way, the device started to work.";
-  mes "It produced a small metal object.";
-  next;
-
-  set ThanaQuest, ThanaQuest | 16;
-  getitem 7424,1;  // Green Key
-
-  mes "[Mechanical Device]";
-  mes "You found the ^84A684Green Key^000000.";
-  close;
-
-  L_Switches:
-  mes "[Mechanical Device]";
-  mes "There are many switches, but most of them are stuck or seem to have no effect on the device.";
-  close;
-
-  L_Tubes:
-  mes "[Mechanical Device]";
-  mes "There are some tubes and wires which are connected to the other parts of the device.";
-  mes "It seems all tubes and wires are as they are supposed to be.";
-  close;
-
-  L_End:
-  mes "[Mechanical Device]";
-  mes "You left the mechanical device alone.";
-  close;
-
+tha_t02,227,163,1	script	#thana3	45,1,1,{
+
+OnInit:
+	disablenpc "#thana3";
+	end;
+
+OnTouch:
+	if(!thana_quest) warp "tha_t02",227,158;
+	else warp "tha_t03",219,159;
+	end;
+	
+OnOpen:
+	enablenpc "#thana3";
+	initnpctimer;
+	end;
+	
+OnTimer30000:
+	stopnpctimer;
+	disablenpc "#thana3";
+	end;
 }
 
-
-// Mechanical Device - Black Key
-tha_t09,19,158,0	script	Mechanical Device#5	111,{
-
-  if (ThanaQuest & 32) {
-
-    mes "[Mechanical Device]";
-    mes "This is where you found the";
-    mes "^9C716BBlack Key^000000.";
-    close;
-
-  }
-
-  mes "[Mechanical Device]";
-  mes "There's a small mechanical device here.";
-  next;
-  menu "Investigate the device.",-,
-       "Leave it alone.",L_End;
-
-  mes "[Mechanical Device]";
-  mes "After investigating it closely, you find a small drawer with something in it.";
-  mes "You take it out of the drawer.";
-  next;
-
-  set ThanaQuest, ThanaQuest | 32;
-  getitem 7425,1;  // Black Key
-
-  mes "[Mechanical Device]";
-  mes "You found the ^84A684Black Key^000000.";
-  close;
-
-  L_End:
-  mes "[Mechanical Device]";
-  mes "You left the mechanical device alone.";
-  close;
-
+tha_t03,67,70,0	script	Machine Device	111,{
+
+	if((countitem(7421)) || (countitem(7426)))
+	{
+		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";
+		close;
+	}
+	mes "^3355FFA mysterious field of";
+	mes "energy seems to surround";
+	mes "the mechanical device and";
+	mes "its power prevents you from";
+	mes "approaching the machine.^000000";
+	next;
+	switch( select( "Smash the Energy Field","Retreat" ) )
+	{
+		case 1:
+			if (getequipweaponlv(4) < 4)
+			{
+				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 "^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;
+									close;
+									
+								case 2:
+									break;
+							}
+							break;
+							
+						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;
+							close;
+					}
+					break;
+					
+				case 2:
+					mes "^3355FFYou decide to leave";
+					mes "the machine alone.^000000";
+					close;
+			}
+			break;
+		
+		case 2:
+			break;
+	}
+	mes "^3355FFYou decide to leave";
+	mes "the machine alone.^000000";
+	close;
 }
 
+tha_t04,195,195,0	script	Machine Device	111,{
 
-// Seal - Blue Magical Stone
-tha_t04,150,44,0	script	Seal#1	111,{
-
-  if (ThanaQuest < 63) {
-
-    mes "[Seal]";
-    mes "There is a seal here, but it seems it cannot be revealed.";
-    close;
-
-  }
-
-  if (ThanaQuest & 64) {
-
-    mes "[Seal]";
-    mes "This is where you found the";
-    mes "^738EE7Blue Magical Stone^000000.";
-    close;
-
-  }
-
-  mes "[Seal]";
-  mes "There's a seal here.";
-  next;
-
-  mes "[Seal]";
-  mes "It seems it can be revealed with a certain ^8CA6EFKey^000000...";
-  next;
-
-  input @input$;
-
-  if (@input$ != "Blue Key" || countitem(7423) < 1) goto L_Wrong;
-
-  mes "[Seal]";
-  mes "After you've inserted the ^8CA6EFBlue Key^000000, the seal opened and revealed a beautiful Crystal.";
-  next;
-
-  set ThanaQuest, ThanaQuest | 64;
-  delitem 7423,1; // Blue Key
-  getitem 7428,1; // Blue Magical Stone
-
-  mes "[Seal]";
-  mes "You found the ^738EE7Blue Magical Stone^000000.";
-  close;
-
-  L_Wrong:
-  mes "[Seal]";
-  mes "Nothing happened.";
-  close;
-
+	if((countitem(7422)) || (countitem(7427)))
+	{
+		mes "^3355FFThis device is currently";
+		mes "inactivated and not in";
+		mes "operation. However, you";
+		mes "may have use for it later...^000000";
+		close;
+	}
+	mes "^3355FFYou find a number pad";
+	mes "underneath the monitor.";
+	mes "As you press one of the";
+	mes "number keys, you hear a";
+	mes "beep as the screen activates.^000000";
+	next;
+	mes "[Screen]";
+	mes "Please enter a 3 digit";
+	mes "number. Do not use a";
+	mes "single number more than";
+	mes "once or use the number 0.";
+	next;
+L_Recode:
+	set @thanacode1,rand(1,9);
+	set @thanacode2,rand(1,9);
+	set @thanacode3,rand(1,9);
+	if((@thanacode1 == @thanacode2) || (@thanacode1 == @thanacode3) || (@thanacode2 == @thanacode3)) goto L_Recode;
+L_Input:
+	input @thanainput;
+	if((@thanainput < 100) || (@thanainput > 999))
+	{
+		mes "[Screen]";
+		mes "Number input";
+		mes "requirement has";
+		mes "not been fulfilled.";
+		mes "Please enter a";
+		mes "3 digit number.";
+		close;
+	}
+	set @thanainput1,@thanainput / 100;
+	set @thanainput2,(@thanainput % 100) / 10;
+	set @thanainput3,@thanainput % 10;
+	if ((@thanainput1 == 0) || (@thanainput2 == 0) || (@thanainput3 == 0))
+	{
+		mes "[Screen]";
+		mes "Violation of number";
+		mes "input parameter. The";
+		mes "number 0 has been input,";
+		mes "or a number has been";
+		mes "input more than once.";
+		next;
+		goto L_Input;
+	}
+	mes "[Screen]";
+	mes "You have input...";
+	mes "^0000ff"+@thanainput1+"^000000, ^0000ff"+@thanainput2+"^000000, ^0000ff"+@thanainput3+"^000000";
+	mes " ";
+	mes "Calculating Results...";
+	mes "Please wait a moment...";
+	set @thanatry,@thanatry +1;
+	next;
+	set @strike,0;
+	set @ball,0;
+	if(@thanainput1 == @thanacode1) set @strike,@strike +1;
+	if(@thanainput2 == @thanacode2) set @strike,@strike +1;
+	if(@thanainput3 == @thanacode3) set @strike,@strike +1;
+	if((@thanainput1 == @thanacode2) || (@thanainput1 == @thanacode2)) set @ball,@ball +1;
+	if((@thanainput2 == @thanacode1) || (@thanainput2 == @thanacode3)) set @ball,@ball +1;
+	if((@thanainput3 == @thanacode1) || (@thanainput3 == @thanacode2)) 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";
+		next;
+		switch( select( "Read the Screen's Text","Investigate Monitor Storage","Cancel" ) )
+		{
+			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";
+				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";
+				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";
+				next;
+				mes "^3355FFYou've finished";
+				mes "reading the Log Entry.^000000";
+				next;
+				switch( select( "Investigate Monitor Storage","Cancel" ) )
+				{
+					case 1:
+						break;
+						
+					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";
+				if(thana_quest == 1) set thana_quest,2;
+				getitem 7422,1;
+				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";
+				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";
+	next;
+	if(@thanatry > 4)
+	{
+		mes "[Screen]";
+		mes "Correct number";
+		mes "authorization";
+		mes "sequence was...";
+		mes "^ff0000"+@thanacode1+"^000000, ^ff0000"+@thanacode2+"^000000, ^ff0000"+@thanacode3+"^000000";
+		mes "Authorization number";
+		mes "will change upon retry.";
+		set @thanatry,0;
+		close;
+	}
+	goto L_Input;
 }
 
+tha_t05,101,37,0	script	Machine Device	111,{
 
-// Seal - Red Magical Stone
-tha_t05,218,116,0	script	Seal#2	111,{
-
-  if (ThanaQuest < 63) {
-
-    mes "[Seal]";
-    mes "There is a seal here, but it seems it cannot be revealed.";
-    close;
-
-  }
-
-  if (ThanaQuest & 128) {
-
-    mes "[Seal]";
-    mes "This is where you found the";
-    mes "^CE6163Red Magical Stone^000000.";
-    close;
-
-  }
-
-  mes "[Seal]";
-  mes "There's a seal here.";
-  next;
-
-  mes "[Seal]";
-  mes "It seems it can be revealed with a certain ^EF797BKey^000000...";
-  next;
-
-  input @input$;
-
-  if (@input$ != "Red Key" || countitem(7421) < 1) goto L_Wrong;
-
-  mes "[Seal]";
-  mes "After you've inserted the ^EF797BRed Key^000000, the seal opened and revealed a beautiful Crystal.";
-  next;
-
-  set ThanaQuest, ThanaQuest | 128;
-  delitem 7421,1; // Red Key
-  getitem 7426,1; // Red Magical Stone
-
-  mes "[Seal]";
-  mes "You found the ^CE6163Red Magical Stone^000000.";
-  close;
-
-  L_Wrong:
-  mes "[Seal]";
-  mes "Nothing happened.";
-  close;
-
+	if((countitem(7423)) || (countitem(7428)))
+	{
+		mes "^3355FFYou find nothing here,";
+		mes "aside from the faded";
+		mes "patterns that mark the floor.^000000";
+		close;
+	}
+	set .@thana_level5,getareausers("tha_t05",98,34,104,40);
+	if(!.@thana_level5)
+	{
+		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;
+		}
+		close;
+	}
+	else if(.@thana_level5 < 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";
+		next;
+		mes "^3355FFYou carefully investigate";
+		mes "your surroundings and notice";
+		mes "a gleaming spot on the ground";
+		mes "next to the mechanical device.^000000";
+		close;
+	}
+	else
+	{
+		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";
+				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";
+				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";
+				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";
+				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";
+				getitem 7423,1;
+				close;
+				
+			case 3:
+				close;
+		}
+	}
 }
 
+tha_t06,43,152,0	script	Machine Device	111,{
 
-// Seal - Black Magical Stone
-tha_t06,226,230,0	script	Seal#3	111,{
-
-  if (ThanaQuest < 63) {
-
-    mes "[Seal]";
-    mes "There is a seal here, but it seems it cannot be revealed.";
-    close;
-
-  }
-
-  if (ThanaQuest & 256) {
-
-    mes "[Seal]";
-    mes "This is where you found the";
-    mes "^7B698CBlack Magical Stone^000000.";
-    close;
-
-  }
-
-  mes "[Seal]";
-  mes "There's a seal here.";
-  next;
-
-  mes "[Seal]";
-  mes "It seems it can be revealed with a certain ^84A684Key^000000...";
-  next;
-
-  input @input$;
-
-  if (@input$ != "Black Key" || countitem(7425) < 1) goto L_Wrong;
-
-  mes "[Seal]";
-  mes "After you've inserted the ^84A684Black Key^000000, the seal opened and revealed a beautiful Crystal.";
-  next;
-
-  set ThanaQuest, ThanaQuest | 256;
-  delitem 7425,1; // Black Key
-  getitem 7430,1; // Black Magical Stone
-
-  mes "[Seal]";
-  mes "You found the ^7B698CBlack Magical Stone^000000.";
-  close;
-
-  L_Wrong:
-  mes "[Seal]";
-  mes "Nothing happened.";
-  close;
-
+	if((countitem(7424)) || (countitem(7429)))
+	{
+		mes "^3355FFYou found a deactivated";
+		mes "mechanical device with an";
+		mes "interesting series of wheels.^000000";
+		close;
+	}
+	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";
+	next;
+	switch( select( "Investigate","Cancel" ) )
+	{
+		case 1:
+			if((countitem(7421)) || (countitem(7422)) || (countitem(7423)))
+			{
+				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";
+				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 @thana_small1,0;
+						set @thana_small2,0;
+						set @thana_big1,0;
+						set @thana_big2,0;
+						set @thana_big3,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";
+						next;
+						mes "^3355FFJudging from the machine's";
+						mes "shaking and jittery joises, the";
+						mes "wheels may be misaligned.";
+						mes "You might be able to activate";
+						mes "the machine by properly";
+						mes "aligning all the wheels.^000000";
+L_Wheels:
+						next;
+						mes "^3355FFWhich wheel would";
+						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:
+								set @wheelresult,callfunc("Thana_Wheels","Press Wheel",@thana_small1,2,1,3);
+								if(@wheelresult == 1) break;
+								goto L_Wheels;
+								
+							case 2:
+								set @wheelresult,callfunc("Thana_Wheels","Press Wheel",@thana_small2,3,2,1);
+								if(@wheelresult == 1) break;
+								goto L_Wheels;
+								
+							case 3:
+								set @wheelresult,callfunc("Thana_Wheels","Vertically Shift Wheel",@thana_big1,1,3,2);
+								if(@wheelresult == 1) break;
+								goto L_Wheels;
+										
+							case 4:
+								set @wheelresult,callfunc("Thana_Wheels","Vertically Shift Wheel",@thana_big2,2,3,1);
+								if(@wheelresult == 1) break;
+								goto L_Wheels;
+										
+							case 5:
+								set @wheelresult,callfunc("Thana_Wheels","Vertically Shift Wheel",@thana_big3,2,1,3);
+								if(@wheelresult == 1) break;
+								goto L_Wheels;
+										
+							case 6:
+								if(@thana_small1 == 0) mes "1st Small Wheel: No Change";
+								else if(@thana_small1 == 1) mes "1st Small Wheel: Down";
+								else if(@thana_small1 == 2) mes "1st Small Wheel: Up";
+								else if(@thana_small1 == 3) mes "1st Small Wheel: Pressed";
+								if(@thana_small2 == 0) mes "2nd Small Wheel: No Change";
+								else if(@thana_small2 == 1) mes "2nd Small Wheel: Pressed";
+								else if(@thana_small2 == 2) mes "2nd Small Wheel: Down";
+								else if(@thana_small2 == 3) mes "2nd Small Wheel: Up";
+								if(@thana_big1 == 0) mes "1st Big Wheel: No Change";
+								else if(@thana_big1 == 1) mes "1st Big Wheel: Up";
+								else if(@thana_big1 == 2) mes "1st Big Wheel: Moved";
+								else if(@thana_big1 == 3) mes "1st Big Wheel: Down";
+								if(@thana_big2 == 0) mes "2nd Big Wheel: No Change";
+								else if(@thana_big2 == 1) mes "2nd Big Wheel: Moved";
+								else if(@thana_big2 == 2) mes "2nd Big Wheel: Up";
+								else if(@thana_big2 == 3) mes "2nd Big Wheel: Down";
+								if(@thana_big3 == 0) mes "3rd Big Wheel: No Change";
+								else if(@thana_big3 == 1) mes "3rd Big Wheel: Down";
+								else if(@thana_big3 == 2) mes "3rd Big Wheel: Up";
+								else if(@thana_big3 == 3) mes "3rd Big Wheel: Moved";
+								goto L_Wheels;
+									
+							case 7:
+								set @thana_small1,0;
+								set @thana_small2,0;
+								set @thana_big1,0;
+								set @thana_big2,0;
+								set @thana_big3,0;
+								goto L_Wheels;
+						}
+						next;
+						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;
+								close;
+										
+							case 3:
+								break;
+						}
+						break;
+						
+					case 3:
+						break;
+				}
+			}
+			else
+			{
+				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;
+	}
+			
 }
 
-
-// Seal - Yellow Magical Stone
-tha_t07,113,129,0	script	Seal#4	111,{
-
-  if (ThanaQuest < 63) {
-
-    mes "[Seal]";
-    mes "There is a seal here, but it seems it cannot be revealed.";
-    close;
-
-  }
-
-  if (ThanaQuest & 512) {
-
-    mes "[Seal]";
-    mes "This is where you found the";
-    mes "^EFA673Yellow Magical Stone^000000.";
-    close;
-
-  }
-
-  mes "[Seal]";
-  mes "There's a seal here.";
-  next;
-
-  mes "[Seal]";
-  mes "It seems it can be revealed with a certain ^DE9673Key^000000...";
-  next;
-
-  input @input$;
-
-  if (@input$ != "Yellow Key" || countitem(7422) < 1) goto L_Wrong;
-
-  mes "[Seal]";
-  mes "After you've inserted the ^DE9673Yellow Key^000000, the seal opened and revealed a beautiful Crystal.";
-  next;
-
-  set ThanaQuest, ThanaQuest | 512;
-  delitem 7422,1; // Yellow Key
-  getitem 7427,1; // Yellow Magical Stone
-
-  mes "[Seal]";
-  mes "You found the ^EFA673Yellow Magical Stone^000000.";
-  close;
-
-  L_Wrong:
-  mes "[Seal]";
-  mes "Nothing happened.";
-  close;
-
+function	script	Thana_Wheels	{
+
+	switch( select( "Raise Wheel","Lower Wheel",getarg(0) ) )
+	{
+		case 1:
+			set getarg(1),getarg(2);
+			if((@thana_small1 == getarg(2)) && (@thana_small2 == getarg(2)) && (@thana_big1 == getarg(2)) && (@thana_big2 == getarg(2)) && (@thana_big3 == getarg(2))) return 1;
+			return 0;
+							
+		case 2:
+			set getarg(1),getarg(3);
+			if((@thana_small1 == getarg(3)) && (@thana_small2 == getarg(3)) && (@thana_big1 == getarg(3)) && (@thana_big2 == getarg(3)) && (@thana_big3 == getarg(3))) return 1;
+			return 0;
+							
+		case 3:
+			set getarg(1),getarg(4);
+			if((@thana_small1 == getarg(4)) && (@thana_small2 == getarg(4)) && (@thana_big1 == getarg(4)) && (@thana_big2 == getarg(4)) && (@thana_big3 == getarg(4))) return 1;
+			return 0;
+	}
 }
 
-// Seal - Green Magical Stone
-tha_t10,129,159,0	script	Seal#5	111,{
-
-  if (ThanaQuest < 63) {
-
-    mes "[Seal]";
-    mes "There is a seal here, but it seems it cannot be revealed.";
-    close;
-
-  }
-
-  if (ThanaQuest & 1024) {
-
-    mes "[Seal]";
-    mes "This is where you found the";
-    mes "^738652Green Magical Stone^000000.";
-    close;
-
-  }
-
-  mes "[Seal]";
-  mes "There's a seal here.";
-  next;
-
-  mes "[Seal]";
-  mes "It seems it can be revealed with a certain ^84A684Key^000000...";
-  next;
-
-  input @input$;
-
-  if (@input$ != "Green Key" || countitem(7424) < 1) goto L_Wrong;
-
-  mes "[Seal]";
-  mes "After you've inserted the ^84A684Green Key^000000, the seal opened and revealed a beautiful Crystal.";
-  next;
-
-  set ThanaQuest, ThanaQuest | 1024;
-  delitem 7424,1; // Green Key
-  getitem 7429,1; // Green Magical Stone
-
-  mes "[Seal]";
-  mes "You found the ^738652Green Magical Stone^000000.";
-  close;
-
-  L_Wrong:
-  mes "[Seal]";
-  mes "Nothing happened.";
-  close;
+tha_t09,19,158,0	script	Machine Device	111,{
 
+	if((countitem(7425)) || (countitem(7430)))
+	{
+		mes "^3355FFYou find a peculiar";
+		mes "mechanical device that";
+		mes "is not in operation.^000000";
+		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";
+	if(!((countitem(7421)) || (countitem(7426))) && ((countitem(7422)) || (countitem(7427))) && ((countitem(7423)) || (countitem(7428))) && ((countitem(7424)) || (countitem(7429)))) close;
+	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.";
+	next;
+	input @input$;
+	if ((@input$ == "Key") || (@input$ == "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";
+		next;
+		switch( select( "Read the Screen's Text","Investigate Monitor Storage","Cancel" ) )
+		{
+			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";
+				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";
+				getitem 7425,1;
+				close;
+			
+			case 3:
+				mes "^3355FFYou retrieve the Charm";
+				mes "Stones and keys that you";
+				mes "inserted into the machine.^000000";
+				close;
+		}
+	}
+	mes "You attempt to";
+	mes ""+@input$+",";
+	mes "but nothing happened.";
+	close;
 }
 
-
-// Stone Statue - Floor 9
-tha_t09,82,99,0	script	Stone Statue#09a	111,{
-
-  mes "[Stone Statue]";
-  mes "There is a lever here.";
-  if (ThanaSteps & 1) mes "It is pointing up.";
-  else mes "It is pointing down.";
-  next;
-  menu "Pull the lever.",-,
-       "Leave it as it is.",L_End;
-
-  set ThanaSteps, ThanaSteps ^ 1;
-
-  mes "[Stone Statue]";
-  mes "You decided to pull the lever.";
-  mes "It sounded as if it started some mechanical process.";
-  close;
-
-  L_End:
-  mes "[Stone Statue]";
-  mes "You decided to leave the lever as it is.";
-  close;
-
+tha_t04,150,44,0	script	Seal	111,{
+
+	if(!countitem(7423))
+	{
+		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;
+		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.";
+	mes "with a burst of blue light.^000000";
+	next;
+	switch( select( "Investigate","There's no way I can break this seal!" ) )
+	{
+		case 1:
+			input @input$;
+			if (@input$ == "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;
+				getitem 7428,1;
+				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;
+	}
 }
 
-
-// Stone Statue - Floor 10 (A)
-tha_t10,159,97,0	script	Stone Statue#10a	111,{
-
-  mes "[Stone Statue]";
-  mes "There is a lever here.";
-  if (ThanaSteps & 2) mes "It is pointing up.";
-  else mes "It is pointing down.";
-  next;
-  menu "Pull the lever.",-,
-       "Leave it as it is.",L_End;
-
-  set ThanaSteps, ThanaSteps ^ 2;
-  if (ThanaSteps & 4) set ThanaSteps, ThanaSteps ^ 4;
-
-  mes "[Stone Statue]";
-  mes "You decided to pull the lever.";
-  mes "It sounded as if it started some mechanical process.";
-  close;
-
-  L_End:
-  mes "[Stone Statue]";
-  mes "You decided to leave the lever as it is.";
-  close;
-
+tha_t05,218,116,0	script	Seal	111,{
+
+	if(!countitem(7421))
+	{
+		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;
+		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.";
+	mes "with a burst of red light.^000000";
+	next;
+	switch( select( "Investigate","There's no way I can break this seal!" ) )
+	{
+		case 1:
+			input @input$;
+			if (@input$ == "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;
+				getitem 7426,1;
+				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;
+	}
 }
 
-
-// Stone Statue - Floor 10 (B)
-tha_t10,97,97,0	script	Stone Statue#10b	111,{
-
-  if (ThanaSteps & 2) {
-
-    mes "[Stone Statue]";
-    mes "There is a lever here.";
-    if (ThanaSteps & 4) mes "It is pointing up.";
-    else mes "It is pointing down.";
-    next;
-    menu "Pull the lever.",-,
-         "Leave it as it is.",L_End;
-
-    if (ThanaSteps & 4) set ThanaSteps, ThanaSteps ^ 2;
-    set ThanaSteps, ThanaSteps ^ 4;
-
-    mes "[Stone Statue]";
-    mes "You decided to pull the lever.";
-    mes "It sounded as if it started some mechanical process.";
-    close;
-
-  }
-
-  mes "[Stone Statue]";
-  mes "There is a lever here, but it cannot be moved.";
-  close;
-
-  L_End:
-  mes "[Stone Statue]";
-  mes "You decided to leave the lever as it is.";
-  close;
-
+tha_t06,226,230,0	script	Seal	111,{
+
+	if(!countitem(7425))
+	{
+		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;
+		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.";
+	mes "with a burst of black light.^000000";
+	next;
+	switch( select( "Investigate","There's no way I can break this seal!" ) )
+	{
+		case 1:
+			input @input$;
+			if (@input$ == "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;
+				getitem 7430,1;
+				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;
+	}
 }
 
-
-// Stone Statue - Floor 11 (A)
-tha_t11,85,85,0	script	Stone Statue#11a	111,{
-
-  mes "[Stone Statue]";
-  mes "There is a lever here.";
-  if (ThanaSteps & 8) mes "It is pointing up.";
-  else mes "It is pointing down.";
-  next;
-  menu "Pull the lever.",-,
-       "Leave it as it is.",L_End;
-
-  if (ThanaSteps & 8) {
-    if (ThanaSteps & 64) set ThanaSteps, ThanaSteps ^ 64;
-    if (ThanaSteps & 32) set ThanaSteps, ThanaSteps ^ 32;
-    if (ThanaSteps & 16) set ThanaSteps, ThanaSteps ^ 16;
-  }
-  set ThanaSteps, ThanaSteps ^ 8;
-
-  mes "[Stone Statue]";
-  mes "You decided to pull the lever.";
-  mes "It sounded as if it started some mechanical process.";
-  close;
-
-  L_End:
-  mes "[Stone Statue]";
-  mes "You decided to leave the lever as it is.";
-  close;
-
+tha_t07,113,129,0	script	Seal	111,{
+
+	if(!countitem(7422))
+	{
+		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;
+		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.";
+	mes "with a burst of yellow light.^000000";
+	next;
+	switch( select( "Investigate","There's no way I can break this seal!" ) )
+	{
+		case 1:
+			input @input$;
+			if (@input$ == "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;
+				getitem 7427,1;
+				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;
+	}
 }
 
-
-// Stone Statue - Floor 11 (B)
-tha_t11,16,16,0	script	Stone Statue#11b	111,{
-
-  if (ThanaSteps & 8) {
-
-    mes "[Stone Statue]";
-    mes "There is a lever here.";
-    if (ThanaSteps & 16) mes "It is pointing up.";
-    else mes "It is pointing down.";
-    next;
-    menu "Pull the lever.",-,
-         "Leave it as it is.",L_End;
-
-    if (ThanaSteps & 16) {
-      if (ThanaSteps & 64) set ThanaSteps, ThanaSteps ^ 64;
-      if (ThanaSteps & 32) set ThanaSteps, ThanaSteps ^ 32;
-      set ThanaSteps, ThanaSteps ^ 8;
-    }
-    set ThanaSteps, ThanaSteps ^ 16;
-
-    mes "[Stone Statue]";
-    mes "You decided to pull the lever.";
-    mes "It sounded as if it started some mechanical process.";
-    close;
-
-  }
-
-  mes "[Stone Statue]";
-  mes "There is a lever here, but it cannot be moved.";
-  close;
-
-  L_End:
-  mes "[Stone Statue]";
-  mes "You decided to leave the lever as it is.";
-  close;
-
+tha_t10,129,159,0	script	Seal	111,{
+
+	if(!countitem(7424))
+	{
+		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;
+		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.";
+	mes "with a burst of green light.^000000";
+	next;
+	switch( select( "Investigate","There's no way I can break this seal!" ) )
+	{
+		case 1:
+			input @input$;
+			if (@input$ == "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;
+				getitem 7429,1;
+				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;
+	}
 }
 
-
-// Stone Statue - Floor 11 (C)
-tha_t11,85,16,0	script	Stone Statue#11c	111,{
-
-  if (ThanaSteps & 16) {
-
-    mes "[Stone Statue]";
-    mes "There is a lever here.";
-    if (ThanaSteps & 32) mes "It is pointing up.";
-    else mes "It is pointing down.";
-    next;
-    menu "Pull the lever.",-,
-         "Leave it as it is.",L_End;
-
-    if (ThanaSteps & 32) {
-      if (ThanaSteps & 64) set ThanaSteps, ThanaSteps ^ 64;
-      set ThanaSteps, ThanaSteps ^ 16;
-      set ThanaSteps, ThanaSteps ^ 8;
-    }
-    set ThanaSteps, ThanaSteps ^ 32;
-
-    mes "[Stone Statue]";
-    mes "You decided to pull the lever.";
-    mes "It sounded as if it started some mechanical process.";
-    close;
-
-  }
-
-  mes "[Stone Statue]";
-  mes "There is a lever here, but it cannot be moved.";
-  close;
-
-  L_End:
-  mes "[Stone Statue]";
-  mes "You decided to leave the lever as it is.";
-  close;
-
+tha_t12,96,58,0	script	Stone Statue	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)) && (countitem(7427)) && (countitem(7428)) && (countitem(7429)) && (countitem(7430)))
+		{
+			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";
+			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;
+					specialeffect 55;
+					enablenpc "tteffect2";
+					donpcevent "tteffect2::OnGlow";
+					set $@thana_summon,1;
+					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;
+			}
+		}
+		else if((countitem(7426)) || (countitem(7427)) || (countitem(7428)) || (countitem(7429)) || (countitem(7430)))
+		{
+			next;
+			mes "^3355FFAs you approach this statue, one^FFFFFF  ^3355FF of your Charm Stones begins to";
+			mes "glow. However, the statue itself^FFFFFF  ^000000 is not responding. You probably";
+			mes "need all the Charm Stones in";
+			mes "order to fully activate it.^000000";
+			close;
+		}
+		else 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;
+	}
+	else
+	{
+		mes "^3355FFThis statue is glowing";
+		mes "with a mysterious light.";
+		mes "Some strange force keeps";
+		mes "you from approaching it.^000000";
+		close;
+	}
 }
 
-
-// Stone Statue - Floor 11 (D)
-tha_t11,16,85,0	script	Stone Statue#11d	111,{
-
-  if (ThanaSteps & 32) {
-
-    mes "[Stone Statue]";
-    mes "There is a lever here.";
-    if (ThanaSteps & 64) mes "It is pointing up.";
-    else mes "It is pointing down.";
-    next;
-    menu "Pull the lever.",-,
-         "Leave it as it is.",L_End;
-
-    if (ThanaSteps & 64) {
-      set ThanaSteps, ThanaSteps ^ 32;
-      set ThanaSteps, ThanaSteps ^ 16;
-      set ThanaSteps, ThanaSteps ^ 8;
-    }
-    set ThanaSteps, ThanaSteps ^ 64;
-
-    mes "[Stone Statue]";
-    mes "You decided to pull the lever.";
-    mes "It sounded as if it started some mechanical process.";
-    close;
-
-  }
-
-  mes "[Stone Statue]";
-  mes "There is a lever here, but it cannot be moved.";
-  close;
-
-  L_End:
-  mes "[Stone Statue]";
-  mes "You decided to leave the lever as it is.";
-  close;
-
+tha_t12,104,18,0	script	Stone Statue	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))
+		{
+			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;
+					specialeffect 55;
+					enablenpc "tteffect5";
+					donpcevent "tteffect5::OnGlow";
+					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";
+					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;
+	}
+	else
+	{
+		mes "^3355FFThis statue is glowing";
+		mes "with a mysterious light.";
+		mes "Some strange force keeps";
+		mes "you from approaching it.^000000";
+		close;
+	}
 }
 
-
-// Stone Statue - Red Magical Stone
-tha_t12,96,58,0	script	Stone Statue#12a	111,{
-
-  if (ThanaQuest < 2047) {
-
-    mes "[Stone Statue]";
-    mes "There is a socket here, but you don't know what to do.";
-    close;
-
-  }
-
-  if (ThanaQuest & 2048) {
-
-    mes "[Stone Statue]";
-    mes "This is where you inserted the ^CE6163Red Magical Stone^000000.";
-    close;
-
-  }
-
-  mes "[Stone Statue]";
-  mes "There's a socket here.";
-  next;
-
-  input @input$;
-
-  if (@input$ != "Red Magical Stone" || countitem(7426) < 1) goto L_Wrong;
-
-  set ThanaQuest, ThanaQuest | 2048;
-  delitem 7426,1; // Red Magical Stone
-
-  mes "[Stone Statue]";
-  mes "You've inserted the ^CE6163Red Magical Stone^000000 into the socket and it fits perfectly.";
-  close;
-
-  L_Wrong:
-  mes "[Stone Statue]";
-  mes "Nothing happened.";
-  close;
-
+tha_t12,128,86,0	script	Stone Statue	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))
+		{
+			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";
+			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;
+					specialeffect 59;
+					enablenpc "tteffect1";
+					donpcevent "tteffect1::OnGlow";
+					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";
+					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;
+	}
+	else
+	{
+		mes "^3355FFThis statue is glowing";
+		mes "with a mysterious light.";
+		mes "Some strange force keeps";
+		mes "you from approaching it.^000000";
+		close;
+	}
 }
 
-
-// Stone Statue - Yellow Magical Stone
-tha_t12,161,58,0	script	Stone Statue#12b	111,{
-
-  if (ThanaQuest < 2047) {
-
-    mes "[Stone Statue]";
-    mes "There is a socket here, but you don't know what to do.";
-    close;
-
-  }
-
-  if (ThanaQuest & 4096) {
-
-    mes "[Stone Statue]";
-    mes "This is where you inserted the ^EFA673Yellow Magical Stone^000000.";
-    close;
-
-  }
-
-  mes "[Stone Statue]";
-  mes "There's a socket here.";
-  next;
-
-  input @input$;
-
-  if (@input$ != "Yellow Magical Stone" || countitem(7427) < 1) goto L_Wrong;
-
-  set ThanaQuest, ThanaQuest | 4096;
-  delitem 7427,1; // Yellow Magical Stone
-
-  mes "[Stone Statue]";
-  mes "You've inserted the ^EFA673Yellow Magical Stone^000000 into the socket and it fits perfectly.";
-  close;
-
-  L_Wrong:
-  mes "[Stone Statue]";
-  mes "Nothing happened.";
-  close;
-
+tha_t12,161,58,0	script	Stone Statue	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))
+		{
+			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;
+					specialeffect 57;
+					enablenpc "tteffect3";
+					donpcevent "tteffect3::OnGlow";
+					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;
+	}
+	else
+	{
+		mes "^3355FFThis statue is glowing";
+		mes "with a mysterious light.";
+		mes "Some strange force keeps";
+		mes "you from approaching it.^000000";
+		close;
+	}
 }
 
-
-// Stone Statue - Blue Magical Stone
-tha_t12,104,18,0	script	Stone Statue#12c	111,{
-
-  if (ThanaQuest < 2047) {
-
-    mes "[Stone Statue]";
-    mes "There is a socket here, but you don't know what to do.";
-    close;
-
-  }
-
-  if (ThanaQuest & 8192) {
-
-    mes "[Stone Statue]";
-    mes "This is where you inserted the ^738EE7Blue Magical Stone^000000.";
-    close;
-
-  }
-
-  mes "[Stone Statue]";
-  mes "There's a socket here.";
-  next;
-
-  input @input$;
-
-  if (@input$ != "Blue Magical Stone" || countitem(7428) < 1) goto L_Wrong;
-
-  set ThanaQuest, ThanaQuest | 8192;
-  delitem 7428,1; // Blue Magical Stone
-
-  mes "[Stone Statue]";
-  mes "You've inserted the ^738EE7Blue Magical Stone^000000 into the socket and it fits perfectly.";
-  close;
-
-  L_Wrong:
-  mes "[Stone Statue]";
-  mes "Nothing happened.";
-  close;
-
+tha_t12,154,18,0	script	Stone Statue	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))
+		{
+			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";
+			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 56;
+					enablenpc "tteffect4";
+					donpcevent "tteffect4::OnGlow";
+					delitem 7429,1;
+					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";
+					set $@thana_summon,5;
+					set $@thana_summon2,0;
+					enablenpc "WarpThana";
+					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;
+	}
+	else
+	{
+		mes "^3355FFThis statue is glowing";
+		mes "with a mysterious light.";
+		mes "Some strange force keeps";
+		mes "you from approaching it.^000000";
+		close;
+	}
 }
 
-
-// Stone Statue - Green Magical Stone
-tha_t12,154,18,0	script	Stone Statue#12d	111,{
-
-  if (ThanaQuest < 2047) {
-
-    mes "[Stone Statue]";
-    mes "There is a socket here, but you don't know what to do.";
-    close;
-
-  }
-
-  if (ThanaQuest & 16384) {
-
-    mes "[Stone Statue]";
-    mes "This is where you inserted the ^738652Green Magical Stone^000000.";
-    close;
-
-  }
-
-  mes "[Stone Statue]";
-  mes "There's a socket here.";
-  next;
-
-  input @input$;
-
-  if (@input$ != "Green Magical Stone" || countitem(7429) < 1) goto L_Wrong;
-
-  set ThanaQuest, ThanaQuest | 16384;
-  delitem 7429,1; // Green Magical Stone
-
-  mes "[Stone Statue]";
-  mes "You've inserted the ^738652Green Magical Stone^000000 into the socket and it fits perfectly.";
-  close;
-
-  L_Wrong:
-  mes "[Stone Statue]";
-  mes "Nothing happened.";
-  close;
-
+tha_t12,129,56,0	script	tteffect1	139,{
+
+OnInit:
+	disablenpc "tteffect1";
+	end;
+	
+OnGlow:
+	initnpctimer;
+	end;
+	
+OnTimer500:
+OnTimer1000:
+OnTimer1500:
+OnTimer2000:
+OnTimer2500:
+	specialeffect 59;
+	end;
+	
+OnTimer3000:
+	specialeffect 59;
+	stopnpctimer;
+	if($@thana_summon == 6)	end;
+	initnpctimer;
+	end;
+
+OnStop:
+	stopnpctimer;
+	end;
 }
 
-
-// Stone Statue - Black Magical Stone
-tha_t12,128,86,0	script	Stone Statue#12e	111,{
-
-  if (ThanaQuest < 2047) {
-
-    mes "[Stone Statue]";
-    mes "There is a socket here, but you don't know what to do.";
-    close;
-
-  }
-
-  if (ThanaQuest & 32768) {
-
-    mes "[Stone Statue]";
-    mes "This is where you inserted the ^7B698CBlack Magical Stone^000000.";
-    close;
-
-  }
-
-  mes "[Stone Statue]";
-  mes "There's a socket here.";
-  next;
-
-  input @input$;
-
-  if (@input$ != "Black Magical Stone" || countitem(7430) < 1) goto L_Wrong;
-
-  set ThanaQuest, ThanaQuest | 32768;
-  delitem 7430,1; // Black Magical Stone
-
-  mes "[Stone Statue]";
-  mes "You've inserted the ^7B698CBlack Magical Stone^000000 into the socket and it fits perfectly.";
-  close;
-
-  L_Wrong:
-  mes "[Stone Statue]";
-  mes "Nothing happened.";
-  close;
-
+tha_t12,125,52,0	script	tteffect2	139,{
+
+OnInit:
+	disablenpc "tteffect2";
+	end;
+	
+OnGlow:
+	initnpctimer;
+	end;
+	
+OnTimer500:
+OnTimer1000:
+OnTimer1500:
+OnTimer2000:
+OnTimer2500:
+	specialeffect 55;
+	end;
+	
+OnTimer3000:
+	specialeffect 55;
+	stopnpctimer;
+	if($@thana_summon == 6)	end;
+	initnpctimer;
+	end;
+
+OnStop:
+	stopnpctimer;
+	end;
 }
 
-
-// Carvings
-tha_t12,130,52,0	script	Carvings#1	111,{
-
-  mes "[Carvings]";
-  mes "There are some beautifull carvings here.";
-  next;
-
-  mes "[Carvings]";
-  mes "As you look closer at the carvings, a portal opens and takes you away...";
-  next;
-
-  if (ThanaQuest < 65535) {
-
-    warp "thana_step",185,15;
-    end;
-
-  }
-
-  warp "thana_step",73,288;
-  end;
-
+tha_t12,134,52,0	script	tteffect3	139,{
+
+OnInit:
+	disablenpc "tteffect3";
+	end;
+	
+OnGlow:
+	initnpctimer;
+	end;
+	
+OnTimer500:
+OnTimer1000:
+OnTimer1500:
+OnTimer2000:
+OnTimer2500:
+	specialeffect 57;
+	end;
+	
+OnTimer3000:
+	specialeffect 57;
+	stopnpctimer;
+	if($@thana_summon == 6)	end;
+	initnpctimer;
+	end;
+	
+OnStop:
+	stopnpctimer;
+	end;
 }
 
-
-// Seal of Sorrow
-thana_boss,217,167,0	script	Carvings#2	111,{
-
-  if ($Thana & 1) {
-
-    mes "[Carvings]";
-    mes "This is where you inserted the ^CE86C6Fragment of Sorrow^000000.";
-    close;
-
-  }
-
-  mes "[Carvings]";
-  mes "There's a hole in the floor, which seems to be made for something to fit in.";
-  mes "It twinkles in ^CE86C6violet color^000000.";
-  next;
-
-  menu "Insert ^CE86C6Fragment of Sorrow^000000",L_Sorrow,
-       "Insert ^7B9663Fragment of Agony^000000",L_Agony,
-       "Insert ^8C79ADFragment of Hatred^000000",L_Hatred,
-       "Insert ^F7865AFragment of Despair^000000",L_Despair,
-       "Don't insert something.",L_End;
-
-  L_Sorrow:
-  if (countitem(7437) == 0) goto L_NoFragment;
-
-  delitem 7437,1;
-  stopnpctimer "TimerThana";
-  set $Thana, $Thana | 1;
-  initnpctimer "TimerThana";
-  mapannounce "thana_boss", "The Seal of Sorrow has been broken.",bc_npc;
-
-  mes "[Carvings]";
-  mes "You've inserted the ^CE86C6Fragment of Sorrow^000000 into the hole and it fits perfectly.";
-  mes "It now glows in bright ^CE86C6violet color^000000.";
-  if ($Thana >= 15) close;
-  next;
-
-  mes "[Carvings]";
-  mes "Hurry now, tell your comrades to insert the other fragments.";
-  close;
-
-  L_Agony:
-  if (countitem(7436) == 0) goto L_NoFragment;
-  mes "[Carvings]";
-  mes "You've tried to insert the ^7B9663Fragment of Agony^000000 into the hole, but it didn't fit.";
-  close;
-
-  L_Hatred:
-  if (countitem(7438) == 0) goto L_NoFragment;
-  mes "[Carvings]";
-  mes "You've tried to insert the ^8C79ADFragment of Hatred^000000 into the hole, but it didn't fit.";
-  close;
-
-  L_Despair:
-  if (countitem(7439) == 0) goto L_NoFragment;
-  mes "[Carvings]";
-  mes "You've tried to insert the ^F7865AFragment of Despair^000000 into the hole, but it didn't fit.";
-  close;
-
-  L_NoFragment:
-  mes "[Carvings]";
-  mes "You don't have this fragment.";
-  close;
-
-  L_End:
-  mes "[Carvings]";
-  mes "You left the cravings alone.";
-  close;
-
-  OnInit:
-  set $Thana, 0;
-  end;
-
+tha_t12,132,47,0	script	tteffect4	139,{
+
+OnInit:
+	disablenpc "tteffect4";
+	end;
+	
+OnGlow:
+	initnpctimer;
+	end;
+	
+OnTimer500:
+OnTimer1000:
+OnTimer1500:
+OnTimer2000:
+OnTimer2500:
+	specialeffect 56;
+	end;
+	
+OnTimer3000:
+	specialeffect 56;
+	stopnpctimer;
+	if($@thana_summon == 6)	end;
+	initnpctimer;
+	end;
+	
+OnStop:
+	stopnpctimer;
+	end;
 }
 
-
-// Seal of Agony
-thana_boss,202,75,0	script	Carvings#3	111,{
-
-  if ($Thana & 2) {
-
-    mes "[Carvings]";
-    mes "This is where you inserted the ^7B9663Fragment of Agony^000000.";
-    close;
-
-  }
-
-  mes "[Carvings]";
-  mes "There's a hole in the floor, which seems to be made for something to fit in.";
-  mes "It twinkles in ^7B9663green color^000000.";
-  next;
-
-  menu "Insert ^CE86C6Fragment of Sorrow^000000",L_Sorrow,
-       "Insert ^7B9663Fragment of Agony^000000",L_Agony,
-       "Insert ^8C79ADFragment of Hatred^000000",L_Hatred,
-       "Insert ^F7865AFragment of Despair^000000",L_Despair,
-       "Don't insert something.",L_End;
-
-  L_Sorrow:
-  if (countitem(7437) == 0) goto L_NoFragment;
-  mes "[Carvings]";
-  mes "You've tried to insert the ^CE86C6Fragment of Sorrow^000000 into the hole, but it didn't fit.";
-  close;
-
-  L_Agony:
-  if (countitem(7436) == 0) goto L_NoFragment;
-
-  delitem 7436,1;
-  stopnpctimer "TimerThana";
-  set $Thana, $Thana | 2;
-  initnpctimer "TimerThana";
-  mapannounce "thana_boss", "The Seal of Agony has been broken.",bc_npc;
-
-  mes "[Carvings]";
-  mes "You've inserted the ^7B9663Fragment of Agony^000000 into the hole and it fits perfectly.";
-  mes "It now glows in bright ^7B9663green color^000000.";
-  if ($Thana >= 15) close;
-  next;
-
-  mes "[Carvings]";
-  mes "Hurry now, tell your comrades to insert the other fragments.";
-  close;
-
-  L_Hatred:
-  if (countitem(7438) == 0) goto L_NoFragment;
-  mes "[Carvings]";
-  mes "You've tried to insert the ^8C79ADFragment of Hatred^000000 into the hole, but it didn't fit.";
-  close;
-
-  L_Despair:
-  if (countitem(7439) == 0) goto L_NoFragment;
-  mes "[Carvings]";
-  mes "You've tried to insert the ^F7865AFragment of Despair^000000 into the hole, but it didn't fit.";
-  close;
-
-  L_NoFragment:
-  mes "[Carvings]";
-  mes "You don't have this fragment.";
-  close;
-
-  L_End:
-  mes "[Carvings]";
-  mes "You left the cravings alone.";
-  close;
-
+tha_t12,127,47,0	script	tteffect5	139,{
+
+OnInit:
+	disablenpc "tteffect5";
+	end;
+	
+OnGlow:
+	initnpctimer;
+	end;
+	
+OnTimer500:
+OnTimer1000:
+OnTimer1500:
+OnTimer2000:
+OnTimer2500:
+	specialeffect 54;
+	end;
+	
+OnTimer3000:
+	specialeffect 54;
+	stopnpctimer;
+	if($@thana_summon == 6)	end;
+	initnpctimer;
+	end;
+	
+OnStop:
+	stopnpctimer;
+	end;
 }
 
-
-// Seal of Hatred
-thana_boss,80,76,0	script	Carvings#4	111,{
-
-  if ($Thana & 4) {
-
-    mes "[Carvings]";
-    mes "This is where you inserted the ^8C79ADFragment of Hatred^000000.";
-    close;
-
-  }
-
-  mes "[Carvings]";
-  mes "There's a hole in the floor, which seems to be made for something to fit in.";
-  mes "It twinkles in ^8C79ADblue color^000000.";
-  next;
-
-  menu "Insert ^CE86C6Fragment of Sorrow^000000",L_Sorrow,
-       "Insert ^7B9663Fragment of Agony^000000",L_Agony,
-       "Insert ^8C79ADFragment of Hatred^000000",L_Hatred,
-       "Insert ^F7865AFragment of Despair^000000",L_Despair,
-       "Don't insert something.",L_End;
-
-  L_Sorrow:
-  if (countitem(7437) == 0) goto L_NoFragment;
-  mes "[Carvings]";
-  mes "You've tried to insert the ^CE86C6Fragment of Sorrow^000000 into the hole, but it didn't fit.";
-  close;
-
-  L_Agony:
-  if (countitem(7436) == 0) goto L_NoFragment;
-  mes "[Carvings]";
-  mes "You've tried to insert the ^7B9663Fragment of Agony^000000 into the hole, but it didn't fit.";
-  close;
-
-  L_Hatred:
-  if (countitem(7438) == 0) goto L_NoFragment;
-
-  delitem 7438,1;
-  stopnpctimer "TimerThana";
-  set $Thana, $Thana | 4;
-  initnpctimer "TimerThana";
-  mapannounce "thana_boss", "The Seal of Hatred has been broken.",bc_npc;
-
-  mes "[Carvings]";
-  mes "You've inserted the ^8C79ADFragment of Hatred^000000 into the hole and it fits perfectly.";
-  mes "It now glows in bright ^8C79ADblue color^000000.";
-  if ($Thana >= 15) close;
-  next;
-
-  mes "[Carvings]";
-  mes "Hurry now, tell your comrades to insert the other fragments.";
-  close;
-
-  L_Despair:
-  if (countitem(7439) == 0) goto L_NoFragment;
-  mes "[Carvings]";
-  mes "You've tried to insert the ^F7865AFragment of Despair^000000 into the hole, but it didn't fit.";
-  close;
-
-  L_NoFragment:
-  mes "[Carvings]";
-  mes "You don't have this fragment.";
-  close;
-
-  L_End:
-  mes "[Carvings]";
-  mes "You left the cravings alone.";
-  close;
-
+tha_t12,130,52,0	script	WarpThana	45,1,1,{
+
+OnInit:
+	disablenpc "WarpThana";
+	end;
+	
+OnTouch:
+	if($@thana_summon == 5) warp "thana_boss",136,116;
+	else
+	{
+		donpcevent "tteffect1::OnStop";
+		donpcevent "tteffect2::OnStop";
+		donpcevent "tteffect3::OnStop";
+		donpcevent "tteffect4::OnStop";
+		donpcevent "tteffect5::OnStop";
+		disablenpc "WarpThana";
+		end;
+	}
 }
 
-
-// Seal of Despair
-thana_boss,62,171,0	script	Carvings#5	111,{
-
-  if ($Thana & 8) {
-
-    mes "[Carvings]";
-    mes "This is where you inserted the ^F7865AFragment of Despair^000000.";
-    close;
-
-  }
-
-  mes "[Carvings]";
-  mes "There's a hole in the floor, which seems to be made for something to fit in.";
-  mes "It twinkles in ^F7865Ared color^000000.";
-  next;
-
-  menu "Insert ^CE86C6Fragment of Sorrow^000000",L_Sorrow,
-       "Insert ^7B9663Fragment of Agony^000000",L_Agony,
-       "Insert ^8C79ADFragment of Hatred^000000",L_Hatred,
-       "Insert ^F7865AFragment of Despair^000000",L_Despair,
-       "Don't insert something.",L_End;
-
-  L_Sorrow:
-  if (countitem(7437) == 0) goto L_NoFragment;
-  mes "[Carvings]";
-  mes "You've tried to insert the ^CE86C6Fragment of Sorrow^000000 into the hole, but it didn't fit.";
-  close;
-
-  L_Agony:
-  if (countitem(7436) == 0) goto L_NoFragment;
-  mes "[Carvings]";
-  mes "You've tried to insert the ^7B9663Fragment of Agony^000000 into the hole, but it didn't fit.";
-  close;
-
-  L_Hatred:
-  if (countitem(7438) == 0) goto L_NoFragment;
-  mes "[Carvings]";
-  mes "You've tried to insert the ^8C79ADFragment of Hatred^000000 into the hole, but it didn't fit.";
-  close;
-
-  L_Despair:
-  if (countitem(7439) == 0) goto L_NoFragment;
-
-  delitem 7439,1;
-  stopnpctimer "TimerThana";
-  set $Thana, $Thana | 8;
-  initnpctimer "TimerThana";
-  mapannounce "thana_boss", "The Seal of Despair has been broken.",bc_npc;
-
-  mes "[Carvings]";
-  mes "You've inserted the ^F7865AFragment of Despair^000000 into the hole and it fits perfectly.";
-  mes "It now glows in bright ^F7865Ared color^000000.";
-  if ($Thana >= 15) close;
-  next;
-
-  mes "[Carvings]";
-  mes "Hurry now, tell your comrades to insert the other fragments.";
-  close;
-
-  L_NoFragment:
-  mes "[Carvings]";
-  mes "You don't have this fragment.";
-  close;
-
-  L_End:
-  mes "[Carvings]";
-  mes "You left the cravings alone.";
-  close;
-
+thana_boss,217,167,0	script	Crest#1	111,3,3,{
+
+	end;
+	
+OnTouch:
+	if($@thana_summon2 == 6)
+	{
+		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 purple crest.^000000";
+	if (countitem(7437))
+	{
+		mes "^3355FFIt seems like a Fragment";
+		mes "of Sorrow would fit perfectly";
+		mes "if you placed it inside.^000000";
+	}
+	next;
+	input @input$;
+	if(countitem(7437))
+	{
+		if(@input$ == "Fragment of Sorrow")
+		{
+			mes "^3355FFYou insert the";
+			mes "Fragment of Sorrow";
+			mes "into the crest, causing";
+			mes "its glow to intensify.^000000";
+			delitem 7437,1;
+			monster "thana_boss",217,167,"Sorrow",1711,1,"#Death::OnDead";
+			disablenpc "Crest#1";
+			close;
+		}
+	}
+	mes "^3355FFThat action had no";
+	mes "effect. You'll have to";
+	mes "try something else.^000000";
+	close;	
 }
 
-
-// Seal of Thanatos
-thana_boss,141,217,0	script	Carvings#6	111,{
-
-	if ($Thana == 15) {
-
-		mes "[Carvings]";
-		mes "You stepped on the plate, and it seems it activated some sort of mechanism.";
-		next;
-
-		if (!getmapmobs("thana_boss")) {
-			monster "thana_boss",135,119,"Thanatos",1708,1,"TimerThana::OnThanaDead";
-			stopnpctimer "TimerThana";
-			set $Thana, $Thana | 16; 
-			mapannounce "thana_boss", "The Seal of Thanatos has been broken.",bc_npc;
-			mes "[Carvings]";
-			mes "You hear the screams of the undead coming from below...";
-			close;
-		} else {
-			mes "[Carvings]";
-			mes "But nothing happened...";
+thana_boss,202,75,0	script	Crest#2	111,3,3,{
+
+	end;
+	
+OnTouch:
+	if($@thana_summon2 == 6)
+	{
+		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))
+	{
+		mes "^3355FFIt seems like a Fragment";
+		mes "of Agony would fit perfectly";
+		mes "if you placed it inside.^000000";
+	}
+	next;
+	input @input$;
+	if(countitem(7436))
+	{
+		if(@input$ == "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;
+			monster "thana_boss",202,75,"Agony",1712,1,"#Death::OnDead";
+			disablenpc "Crest#2";
 			close;
 		}
 	}
+	mes "^3355FFThat action had no";
+	mes "effect. You'll have to";
+	mes "try something else.^000000";
+	close;
+}
 
-	mes "[Carvings]";
-	mes "There is a plate here, which seems to be some sort of switch, but it doesn't move.";
+thana_boss,80,76,0	script	Crest#3	111,3,3,{
+
+	end;
+	
+OnTouch:
+	if($@thana_summon2 == 6)
+	{
+		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))
+	{
+		mes "^3355FFIt seems like a Fragment";
+		mes "of Hatred would fit perfectly";
+		mes "if you placed it inside.^000000";
+	}
+	next;
+	input @input$;
+	if(countitem(7438))
+	{
+		if(@input$ == "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;
+			monster "thana_boss",80,76,"Hatred",1709,1,"#Death::OnDead";
+			disablenpc "Crest#3";
+			close;
+		}
+	}
+	mes "^3355FFThat action had no";
+	mes "effect. You'll have to";
+	mes "try something else.^000000";
 	close;
+}
 
+thana_boss,62,171,0	script	Crest#4	111,3,3,{
+
+	end;
+	
+OnTouch:
+	if($@thana_summon2 == 6)
+	{
+		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))
+	{
+		mes "^3355FFIt seems like a Fragment";
+		mes "of Despair would fit perfectly";
+		mes "if you placed it inside.^000000";
+	}
+	next;
+	input @input$;
+	if(countitem(7439))
+	{
+		if(@input$ == "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;
+			monster "thana_boss",62,171,"Despair",1710,1,"#Death::OnDead";
+			disablenpc "Crest#4";
+			close;
+		}
+	}
+	mes "^3355FFThat action had no";
+	mes "effect. You'll have to";
+	mes "try something else.^000000";
+	close;	
 }
 
+thana_boss,141,218,0	script	Crest#5	111,3,3,{
+
+	end;
+	
+OnTouch:
+	if($@thana_summon2 > 3)
+	{
+		mes "^3355FFAs you approach the";
+		mes "crest, it begins shining";
+		mes "brighter and brighter until its";
+		mes "illumination becomes blinding.^000000";
+		set $@thana_wave,4;
+		monster "thana_boss",140,217,"Despair",1710,1,"#Death::OnWave";
+		monster "thana_boss",140,216,"Hatred",1709,1,"#Death::OnWave";
+		monster "thana_boss",141,217,"Sorrow",1711,1,"#Death::OnWave";
+		monster "thana_boss",141,216,"Agony",1712,1,"#Death::OnWave";
+		disablenpc "Crest#5";
+		close;
+	}
+	input @input$;
+	mes "^3355FFNothing happened.^000000";
+	close;
+}
 
-// NPC Timer
-thana_boss,1,1,1	script	TimerThana	-1,{
+thana_boss,5,5,0	script	#thanasummon	-1,{
 
-  // 10 secs
-  OnTimer10000:
+	end;
 
-    if ($Thana >= 15) end;
-    stopnpctimer;
-    mapannounce "thana_boss", "You didn't manage to break all four Seals in time...",bc_npc;
-    set $Thana, 0;
-    end;
+OnSummon:
+	monster "thana_boss",139,129,"Thanatos Phantom",1708,1,"#Death::OnThanaDead";
+	end;
 
-  OnThanaDead:
+}
 
-    initnpctimer;
-    end;
+thana_boss,3,3,0	script	#thanatimer	-1,{
+
+OnInit:
+	set $@thana_summon,0;
+	set $@thana_summon2,0;
+	end;
+
+OnActive:
+	initnpctimer;
+	end;
+	
+OnTimer1000:
+	mapannounce "thana_boss","GGGGRRRRRRR!",1;
+	end;
+
+OnTimer2000:
+	mapannounce "thana_boss","*Rumble Rumble*",1;
+	end;
+
+OnTimer3000:
+	mapannounce "thana_boss","*Crik Crik*",1;
+	end;
+
+OnTimer4000:
+	mapannounce "thana_boss","*Zzzzrt Zzzzrt*",1;
+	end;
+
+OnTimer5000:
+	mapannounce "thana_boss","*Crik Crik*",1;
+	end;
+
+OnTimer60000:
+	mapwarp "thana_boss","tha_t12",130,47;
+	enablenpc "Crest#1";
+	enablenpc "Crest#2";
+	enablenpc "Crest#3";
+	enablenpc "Crest#4";
+	enablenpc "Crest#5";
+	end;
+	
+OnTimer7200000:
+	set $@thana_summon,0;
+	stopnpctimer;
+	end;
+}
 
-  // 600 secs = 10 mins
-  OnTimer600000:
+thana_boss,1,1,0	script	#Death	-1,{
 
-    stopnpctimer;
-    set $Thana, 0;
-    end;
+OnDead:
+	set $@thana_summon2,$@thana_summon2 +1;
+	end;
 
+OnWave:
+	set $@thana_wave,$@thana_wave -1;
+	if($@thana_wave < 1)
+	{
+		set $@thana_summon,6;
+		donpcevent "#thanasummon::OnSummon";
+	}
+	end;
+	
+OnThanaDead:
+	donpcevent "#thanatimer::OnActive";
+	end;
 }
+
+tha_t06,119,120,0	script	thana6-7	45,1,1,{
+
+	if((Class == Job_Lord_Knight) || (Class == Job_High_Priest) || (Class == Job_High_Wizard) || (Class == Job_Whitesmith) || (Class == Job_Sniper) || (Class == Job_Assassin_Cross) || (Class == Job_High_Wizard) || (Class == Job_Lord_Knight2) || (Class == Job_Paladin) || (Class == Job_Champion) || (Class == Job_Professor) || (Class == Job_Stalker) || (Class == Job_Creator) || (Class == Job_Clown) || (Class == Job_Gypsy) || (Class == Job_Paladin2)) warp "thana_step",69,369;
+	else
+	{
+		mes "^3355FFAn overwhelming force";
+		mes "acts against you, preventing";
+		mes "you from proceeding this way...^000000";
+		close;
+	}
+}
\ No newline at end of file
diff --git a/npc/warps/dungeons/thana_custom.txt b/npc/warps/dungeons/thana_custom.txt
deleted file mode 100644
index 2b53a9e01..000000000
--- a/npc/warps/dungeons/thana_custom.txt
+++ /dev/null
@@ -1,159 +0,0 @@
-//===== Athena Script ========================================
-//= Thanatos Tower Warp Script
-//===== By: ==================================================
-//= Bibilol & Moryagorn  (1.0)
-//===== Current Version: =====================================
-//= 1.6
-//===== Compatible With: =====================================
-//= Any Athena Version; RO Episode 10+
-//===== Description: =========================================
-//= Warp Points for Thanatos Tower
-//===== Additional Comments: =================================
-//= It's just Temp warps [Lupus]
-//= 1.2 Updated to level tha_t12
-//= 1.3 Some warps changes due to official info [Justin84]
-//= 1.4 Fixed 2 warps [Justin84]
-//= 1.5 Added Thanatos entrance warp. Now you can go in [Justin84]
-//= 1.6 Fixed warps: tha_t06,tha_t06a,tha_t06b,tha_t05a
-//=	Added Temp Keys solution [Justin84]
-//============================================================
-
-// Affiliated Files : tha_statues.txt
-// ^^^^ it's in the custom quests
-
-//Hugel Field 01 -> Thanatos Scene 01
-hu_fild01,139,164,0	script	Thanatos Tower Warper	111,{
-	mes "[Thanatos Tower Warper]";
-	mes "There is no turning back.";
-	mes "Are you sure want to go Thanatos Tower?";
-	next;
-	menu "Yes",-,"No",T_CLOSE;
-
-	warp "tha_scene01",131,224;
-	end;
-
-T_CLOSE:
-	close;
-}
-
-//Thanatos Scene 01 -> Thantos Tower F1
-tha_scene01,144,200,0	warp	tha_scene01	1,1,tha_t01,150,39
-tha_t01,150,32,0	warp	tha_scene02	1,1,tha_scene01,142,200
-
-//Thanatos Tower
-tha_scene01,144,200,0	warp	tha_scene03	1,1,tha_t01,150,39
-tha_t01,150,32,0	warp	tha_scene04	1,1,tha_scene01,142,200
-tha_t01,150,149,0	warp	tha_t02	1,1,tha_t02,150,136
-tha_t02,150,129,0	warp	tha_t01	1,1,tha_t01,150,142
-tha_t02,226,161,0	warp	tha_t03	1,1,tha_t03,220,158
-tha_t03,220,165,0	warp	tha_t02a	1,1,tha_t02,226,149
-tha_t03,60,134,0	warp	tha_t04	1,1,tha_t04,59,143
-tha_t04,59,136,0	warp	tha_t03a	1,1,tha_t03,59,126
-tha_t04,83,36,0	warp	tha_t05	1,1,tha_t05,62,11
-//According to official info, 5F it is not possible to return to the 4F, so we disable this warp:
-//tha_t05,62,4,0	warp	tha_t04a	1,1,tha_t04,90,34
-tha_t05,208,96,0	warp	tha_t06	1,1,tha_t06,206,8
-tha_t05,185,232,0	warp	tha_t06a	1,1,tha_t06,206,8
-tha_t05,61,157,0	warp	tha_t06b	1,1,tha_t06,206,8
-tha_t06,206,5,0	warp	tha_t05a	1,1,tha_t05,61,164
-
-//tha_t06,119,120,0	warp	tha_t07	1,1,tha_t07,35,166
-//Thanatos 6F to 7F
-tha_t06,119,120,4	script	tha_t07warp	45,2,2,{
-	mes "You have to gather 4 types of keys to enter the 7th Floor.";
-	mes "Give me the key of red, yellow, blue & green.";
-	next;
-	menu "Give the keys",-,"Leave",T_CLOSE;
-
-	if(countitem(7421) < 1 || countitem(7422) < 1 || countitem(7423) < 1 || countitem(7424) < 1) goto T_1;
-	delitem 7421,1;
-	delitem 7422,1;
-	delitem 7423,1;
-	delitem 7424,1;
-	warp "tha_t07",35,166;
-	end;
-
-T_1:
-	mes "You don't have enough keys.";
-T_CLOSE:
-	close;
-}
-
-
-tha_t07,28,166,0	warp	tha_t06c	1,1,tha_t06,119,127
-tha_t07,112,166,0	warp	tha_t08	1,1,tha_t08,105,44
-tha_t08,112,44,0	warp	tha_t07b	1,1,tha_t07,105,166
-tha_t08,26,44,0	warp	tha_t09	1,1,tha_t09,88,145
-tha_t09,93,145,0	warp	tha_t08	1,1,tha_t08,30,44
-tha_t10,171,138,0	warp	tha_t09	1,1,tha_t09,18,97
-tha_t11,93,36,0	warp	tha_t10	1,1,tha_t10,91,130
-tha_t12,129,51,0	warp	tha_t11	1,1,tha_t11,13,38
-
-//Thana_step
-thana_step,12,73,0	warp	thana_step1	1,1,tha_t12,128,58
-thana_step,16,16,0	warp	thana_step2	1,1,thana_step,32,224
-thana_step,30,224,0	warp	thana_step3	1,1,thana_step,19,16
-thana_step,32,166,0	warp	thana_step4	1,1,thana_step,184,74
-thana_step,180,74,0	warp	thana_step5	1,1,thana_step,36,166
-thana_step,182,16,0	warp	thana_step6	1,1,thana_step,184,224
-thana_step,180,224,0	warp	thana_step7	1,1,thana_step,185,16
-thana_step,182,166,0	warp	thana_step8	1,1,thana_step,73,287
-thana_step,69,287,0	warp	thana_step9	1,1,thana_step,186,166
-thana_step,70,371,0	warp	thana_step10	1,1,thana_step,170,287
-thana_step,174,287,0	warp	thana_step11	1,1,thana_step,74,371
-
-//Thana_boss
-thana_step,169,371,0	warp	thana_boss	1,1,thana_boss,85,76
-thana_boss,80,76,0	warp	thana_step9	1,1,thana_step,163,371
-thana_boss,62,171,0	warp	thana_step10	1,1,thana_step,163,371
-thana_boss,141,217,0	warp	thana_step11	1,1,thana_step,163,371
-thana_boss,202,75,0	warp	thana_step12	1,1,thana_step,163,371
-
-//Temp Plug for KEYS
-tha_t03,139,46,0	script	#TanKey1	111,{
-	if(countitem(7421) < 1) getitem 7421,1;
-	end;
-}
-
-tha_t03,67,70,0	script	#TanKey2	111,{
-	if(countitem(7421) < 1) end;
-	delitem 7421,1;
-	getitem 7426,1;
-	end;
-}
-
-tha_t03,48,143,0	script	#TanKey3	111,{
-	if(countitem(7422) < 1) getitem 7422,1;
-	end;
-}
-
-tha_t03,66,208,0	script	#TanKey4	111,{
-	if(countitem(7422) < 1) end;
-	delitem 7422,1;
-	getitem 7427,1;
-	end;
-}
-
-tha_t03,139,230,0	script	#TanKey5	111,{
-	if(countitem(7423) < 1) getitem 7423,1;
-	end;
-}
-
-tha_t03,208,208,0	script	#TanKey6	111,{
-	if(countitem(7423) < 1) end;
-	delitem 7423,1;
-	getitem 7428,1;
-	end;
-}
-
-tha_t03,230,143,0	script	#TanKey7	111,{
-	if(countitem(7424) < 1) getitem 7424,1;
-	end;
-}
-
-tha_t03,207,70,0	script	#TanKey8	111,{
-	if(countitem(7424) < 1) end;
-	delitem 7424,1;
-	getitem 7429,1;
-	end;
-}
diff --git a/npc/warps/dungeons/thana_dun.txt b/npc/warps/dungeons/thana_dun.txt
index 346f1e3a1..de237b5d1 100644
--- a/npc/warps/dungeons/thana_dun.txt
+++ b/npc/warps/dungeons/thana_dun.txt
@@ -11,120 +11,50 @@
 //===== Additional Comments: =================================
 //= 1.0 - First Release [Ishizu-chan]
 //= 1.1 - Added Entrance Warp Guard
+//= 1.2 - Updated warps to official and moved Entrance Guard
+//= to proper quest file. [SinSloth]
 //============================================================
 
-
-// Tour Guide - Thanatos Tower
-hu_fild01,140,163,5	script	Thanatos Tower Guard	852,{
-
-  mes "[Thanatos Tower Guard]";
-  mes "Are you sure you want to go to the Thanatos Tower?";
-  mes "You can't go back, and I'll have to charge 5000 Zeny.";
-  next;
-  menu "Yes.",-,
-       "No.",L_End;
-
-  if (Zeny < 5000) goto L_Zeny;
-  set Zeny, Zeny - 5000;
-  warp "tha_scene01",131,224;
-  end;
-
-  L_Zeny:
-  mes "[Thanatos Tower Guard]";
-  mes "You don't have enough Zeny.";
-  close;
-
-  L_End:
-  mes "[Thanatos Tower Guard]";
-  mes "Goodbye.";
-  close;
-
-}
-
 // Thanatos Scene (tha_scene01)
-tha_scene01,144,200,0	warp	WarpThana0a	1,1,tha_t01,150,39
-tha_t01,150,32,0	warp	WarpThana0b	1,1,tha_scene01,142,200
+tha_scene01,144,198,0	warp	WarpThana0a	1,1,tha_t01,149,38
+tha_t01,149,33,0	warp	WarpThana0b	1,1,hu_fild01,140,158
 
 // Thanatos Tower Level 1 (tha_t01)
-tha_t01,150,149,0	warp	WarpThana1a	1,1,tha_t02,150,129
-tha_t02,150,126,0	warp	WarpThana1b	1,1,tha_t01,150,146
+tha_t01,150,150,0	warp	WarpThana1a	1,1,tha_t02,149,130
+tha_t02,149,125,0	warp	WarpThana1b	1,1,tha_t01,150,145
 
 // Thanatos Tower Level 2 (tha_t02)
-tha_t03,218,167,0	warp	WarpThana2a	1,1,tha_t02,227,159
+tha_t03,217,165,0	warp	WarpThana2a	1,1,tha_t02,227,157
 
 // Thanatos Tower Level 3 (tha_t03)
-tha_t03,60,141,0	warp	WarpThana3a	1,1,tha_t04,60,141
-tha_t04,60,138,0	warp	WarpThana3b	1,1,tha_t03,60,138
+tha_t03,59,140,0	warp	WarpThana3a	1,1,tha_t04,60,142
+tha_t04,60,137,0	warp	WarpThana3b	1,1,tha_t03,59,135
 
 // Thanatos Tower Level 4 (tha_t04)
-tha_t04,82,36,0	warp	WarpThana4a	1,1,tha_t05,62,6
+tha_t04,81,36,0		warp	WarpThana4a	1,1,tha_t05,62,8
 
 // Thanatos Tower Level 5 (tha_t05)
-tha_t05,61,157,0	warp	WarpThana5a	1,1,tha_t05,211,97
-tha_t05,208,97,0	warp	WarpThana5b	1,1,tha_t05,61,162
-tha_t05,186,236,0	warp	WarpThana5c	1,1,tha_t06,207,6
-
-// Thanatos Tower Level 6 (tha_t06)
-tha_t06,119,120,4	script	WarpThana6a	45,2,2,{
-
-  if (ThanaQuest < 31) {
-
-    mes "[Seal]";
-    mes "It seems this portal will only open when 4 Keys are placed in the Keyholes around it.";
-    close;
-
-  }
-
-  warp "thana_step",73,372;
-  end;
-
-}
-thana_step,70,372,0	warp	WarpThana6b	1,1,tha_t06,236,120
-thana_step,173,372,0	warp	WarpThana6c	1,1,tha_t07,28,166
-tha_t07,25,166,0	warp	WarpThana6d	1,1,thana_step,170,372
-
-// Thanatos Tower Level 7 (tha_t07)
-tha_t07,114,166,0	warp	WarpThana7a	1,1,tha_t08,28,44
-tha_t08,25,44,0	warp	WarpThana7b	1,1,tha_t07,111,166
+tha_t05,62,157,0	warp	WarpThana5a	1,1,tha_t05,213,97
+tha_t05,208,97,0	warp	WarpThana5b	1,1,tha_t05,62,162
+tha_t05,185,235,0	warp	WarpThana5c	1,1,tha_t06,206,11
+thana_step,174,288,0	warp	WarpThana6b	1,1,tha_t08,28,43
+thana_step,173,372,0	warp	WarpThana6c	1,1,tha_t07,30,166
+tha_t07,114,166,0	warp	WarpThana6d	1,1,thana_step,69,287
 
 // Thanatos Tower Level 8 (tha_t08)
-tha_t08,114,44,0	warp	WarpThana8a	1,1,thana_step,33,223
-thana_step,30,223,0	warp	WarpThana8b	1,1,tha_t08,111,44
+tha_t08,114,43,0	warp	WarpThana8a	1,1,thana_step,30,223
+thana_step,32,166,0	warp	WarpThana8b	1,1,tha_t09,20,96
 
 // Thanatos Tower Level 9 (tha_t09)
-thana_step,32,165,0	warp	WarpThana9a	1,1,tha_t09,89,146
-tha_t09,92,146,0	script	WarpThana9b	45,1,1,{
-
-  if (ThanaSteps & 1) warp "thana_step",183,223;
-  else warp "thana_step",35,165;
-  end;
-
-}
-thana_step,180,223,0	warp	WarpThana9c	1,1,tha_t09,89,146
+tha_t09,92,146,0	warp	WarpThana9b	1,1,thana_step,180,223
 
 // Thanatos Tower Level 10 (tha_t10)
-thana_step,182,165,0	warp	WarpThana10a	1,1,tha_t10,167,138
-tha_t10,170,138,0	script	WarpThana10b	45,1,1,{
-
-  if (ThanaSteps & 4) warp "thana_step",17,73;
-  else warp "thana_step",185,165;
-  end;
-
-}
-thana_step,14,73,0	warp	WarpThana10c	1,1,tha_t10,167,138
+thana_step,182,166,0	warp	WarpThana10a	1,1,tha_t10,155,100
+tha_t10,170,138,0	warp	WarpThana10b	1,1,thana_step,14,73
 
 // Thanatos Tower Level 11 (tha_t11)
-thana_step,16,15,0	warp	WarpThana11a	1,1,tha_t11,89,36
-tha_t11,92,36,0	script	WarpThana11b	45,1,1,{
-
-  if (ThanaSteps & 64) warp "thana_step",183,73;
-  else warp "thana_step",19,15;
-  end;
-
-}
-thana_step,180,73,0	warp	WarpThana11c	1,1,tha_t11,89,36
+thana_step,15,15,0	warp	WarpThana11a	1,1,tha_t11,50,17
+tha_t11,92,36,0		warp	WarpThana11b	1,1,thana_step,180,73
 
 // Thanatos Tower Level 12 (tha_t12)
-thana_step,182,15,0	warp	WarpThana12a	1,1,tha_t12,129,51
-thana_step,70,288,0	warp	WarpThana12b	1,1,tha_t12,129,51
-thana_step,173,288,0	warp	WarpThana12c	1,1,thana_boss,135,128
+thana_step,181,15,0	warp	WarpThana12a	1,1,tha_t12,115,16
\ No newline at end of file