summaryrefslogtreecommitdiff
path: root/npc/quests/thana_quest.txt
diff options
context:
space:
mode:
Diffstat (limited to 'npc/quests/thana_quest.txt')
-rw-r--r--npc/quests/thana_quest.txt3266
1 files changed, 1633 insertions, 1633 deletions
diff --git a/npc/quests/thana_quest.txt b/npc/quests/thana_quest.txt
index 5a6e455a6..d9f28ff17 100644
--- a/npc/quests/thana_quest.txt
+++ b/npc/quests/thana_quest.txt
@@ -1,1633 +1,1633 @@
-//===== 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;
-
- if (!getmapmobs("thana_boss.gat")) {
- monster "thana_boss.gat",135,119,"Thanatos",1708,1,"TimerThana::OnThanaDead";
- stopnpctimer "TimerThana";
- set $Thana, $Thana | 16;
- 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;
- } else {
- mes "[Carvings]";
- mes "But nothing happened...";
- 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;
-
-}
+//===== 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;
+
+ if (!getmapmobs("thana_boss.gat")) {
+ monster "thana_boss.gat",135,119,"Thanatos",1708,1,"TimerThana::OnThanaDead";
+ stopnpctimer "TimerThana";
+ set $Thana, $Thana | 16;
+ 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;
+ } else {
+ mes "[Carvings]";
+ mes "But nothing happened...";
+ 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;
+
+}
generated by cgit v1.2.3-70-g09d2 (git 2.46.0) at 2024-11-16 17:38:39 +0000