Added the official Thanatos Tower Quest written by Ishizu-chan, not included in the conf files yet, because we still need to update the warps.

git-svn-id: https://svn.code.sf.net/p/rathena/svn/trunk@7406 54d463be-8e91-2dee-dedb-b68131a5f0ec

npc/quests/thana_quest.txt

@@ -0,0 +1,1629 @@
+//===== eAthena Script =======================================
+//= Thanatos Tower Quest
+//===== By: ==================================================
+//= [Ishizu-chan]
+//===== Current Version: =====================================
+//= 1.0 Beta
+//===== Compatible With: =====================================
+//= Any eAthena Version i guess?
+//===== Description: =========================================
+//= It's the Thanatos Tower Quest...
+//===== Additional Comments: =================================
+//= 1.0 - First Release [Ishizu-chan]
+//============================================================
+
+
+// Tour Guide - 1st Floor
+tha_t01.gat,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;
+
+}
+
+
+// Tour Guide - 2nd Floor
+tha_t02.gat,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.gat" || @mapx < 223 || @mapx > 239 || @mapy < 153 || @mapy > 169) goto L_Away;
+  }
+
+  warpparty "tha_t03.gat",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;
+
+}
+
+
+// Mechanical Device - Red Key
+tha_t03.gat,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;
+
+}
+
+
+// Mechanical Device - Yellow Key
+tha_t04.gat,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;
+
+}
+
+
+// Mechanical Device - Blue Key
+tha_t05.gat,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.gat",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;
+
+}
+
+
+// Mechanical Device - Green Key
+tha_t06.gat,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;
+
+}
+
+
+// Mechanical Device - Black Key
+tha_t09.gat,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;
+
+}
+
+
+// Seal - Blue Magical Stone
+tha_t04.gat,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;
+
+}
+
+
+// Seal - Red Magical Stone
+tha_t05.gat,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;
+
+}
+
+
+// Seal - Black Magical Stone
+tha_t06.gat,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;
+
+}
+
+
+// Seal - Yellow Magical Stone
+tha_t07.gat,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;
+
+}
+
+// Seal - Green Magical Stone
+tha_t10.gat,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;
+
+}
+
+
+// Stone Statue - Floor 9
+tha_t09.gat,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;
+
+}
+
+
+// Stone Statue - Floor 10 (A)
+tha_t10.gat,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;
+
+}
+
+
+// Stone Statue - Floor 10 (B)
+tha_t10.gat,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;
+
+}
+
+
+// Stone Statue - Floor 11 (A)
+tha_t11.gat,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;
+
+}
+
+
+// Stone Statue - Floor 11 (B)
+tha_t11.gat,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;
+
+}
+
+
+// Stone Statue - Floor 11 (C)
+tha_t11.gat,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;
+
+}
+
+
+// Stone Statue - Floor 11 (D)
+tha_t11.gat,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;
+
+}
+
+
+// Stone Statue - Red Magical Stone
+tha_t12.gat,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;
+
+}
+
+
+// Stone Statue - Yellow Magical Stone
+tha_t12.gat,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;
+
+}
+
+
+// Stone Statue - Blue Magical Stone
+tha_t12.gat,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;
+
+}
+
+
+// Stone Statue - Green Magical Stone
+tha_t12.gat,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;
+
+}
+
+
+// Stone Statue - Black Magical Stone
+tha_t12.gat,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;
+
+}
+
+
+// Carvings
+tha_t12.gat,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.gat",185,15;
+    end;
+
+  }
+
+  warp "thana_step.gat",73,288;
+  end;
+
+}
+
+
+// Seal of Sorrow
+thana_boss.gat,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.gat", "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;
+
+}
+
+
+// Seal of Agony
+thana_boss.gat,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.gat", "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;
+
+}
+
+
+// Seal of Hatred
+thana_boss.gat,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.gat", "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;
+
+}
+
+
+// Seal of Despair
+thana_boss.gat,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.gat", "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;
+
+}
+
+
+// Seal of Thanatos
+thana_boss.gat,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;
+
+    stopnpctimer "TimerThana";
+    set $Thana, $Thana | 16;
+    monster "thana_boss.gat",135,119,"Thanatos",1708,1,"TimerThana::OnThanaDead";
+    mapannounce "thana_boss.gat", "The Seal of Thanatos has been broken.",bc_npc;
+
+    mes "[Carvings]";
+    mes "You hear the screams of the undead coming from below...";
+    close;
+
+  }
+
+  mes "[Carvings]";
+  mes "There is a plate here, which seems to be some sort of switch, but it doesn't move.";
+  close;
+
+}
+
+
+// NPC Timer
+thana_boss.gat,1,1,1	script	TimerThana	-1,{
+
+  // 10 secs
+  OnTimer10000:
+
+    if ($Thana >= 15) end;
+    stopnpctimer;
+    mapannounce "thana_boss.gat", "You didn't manage to break all four Seals in time...",bc_npc;
+    set $Thana, 0;
+    end;
+
+  OnThanaDead:
+
+    initnpctimer;
+    end;
+
+  // 600 secs = 10 mins
+  OnTimer600000:
+
+    stopnpctimer;
+    set $Thana, 0;
+    end;
+
+}