From 028a7c8b35e30c1d382c7a9c1fa6619e43873e37 Mon Sep 17 00:00:00 2001 From: Playtester Date: Fri, 30 Jun 2006 09:12:50 +0000 Subject: 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://rathena.svn.sourceforge.net/svnroot/rathena/trunk@7406 54d463be-8e91-2dee-dedb-b68131a5f0ec --- npc/quests/thana_quest.txt | 1629 ++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 1629 insertions(+) create mode 100644 npc/quests/thana_quest.txt (limited to 'npc/quests/thana_quest.txt') diff --git a/npc/quests/thana_quest.txt b/npc/quests/thana_quest.txt new file mode 100644 index 000000000..f06efba06 --- /dev/null +++ b/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; + +} -- cgit v1.2.3-70-g09d2