diff options
Diffstat (limited to 'npc/quests/thana_quest.txt')
| -rw-r--r-- | npc/quests/thana_quest.txt | 4034 |
1 files changed, 2494 insertions, 1540 deletions
diff --git a/npc/quests/thana_quest.txt b/npc/quests/thana_quest.txt index a3f12957b..88c95abd9 100644 --- a/npc/quests/thana_quest.txt +++ b/npc/quests/thana_quest.txt @@ -3,1631 +3,2585 @@ //===== By: ================================================== //= [Ishizu-chan] //===== Current Version: ===================================== -//= 1.0 Beta +//= 1.1 //===== Compatible With: ===================================== //= Any eAthena Version i guess? //===== Description: ========================================= //= It's the Thanatos Tower Quest... //===== Additional Comments: ================================= //= 1.0 - First Release [Ishizu-chan] +//= 1.1 - Updated Thanatos Tower Quest to official. [SinSloth] //============================================================ - -// Tour Guide - 1st Floor -tha_t01,149,78,3 script Tour Guide#1 90,{ - - if (ThanaQuest & 1) { - - mes "[Tour Guide]"; - mes "Hello my friend."; - mes "How are you? Do you enjoy working for the Rekkenber Corporation?"; - close; - - } - - mes "[Tour Guide]"; - mes "Hello there."; - mes "So you came all the way to investigate the ^777777Thanatos Tower^000000, huh?"; - next; - - mes "[Tour Guide]"; - mes "I'm with the Rekkenber Corporation."; - mes "We are still searching brave people, who would like to work for us and discover the deeper levels of the ^777777Thanatos Tower^000000."; - next; - - mes "[Tour Guide]"; - mes "Are you by chance interested to volunteer to the ^777777Thanatos Tower Task Force^000000?"; - next; - menu "No thanks.",L_End, - "Yes, sign me up!",-; - - mes "[Tour Guide]"; - mes "Please sign your name here..."; - next; - - set ThanaQuest, ThanaQuest | 1; - - mes "[Tour Guide]"; - mes "Ok, ^000077"+strcharinfo(0)+"^000000, isn't it?"; - mes "Welcome to the ^777777Thanatos Tower Task Force^000000!"; - next; - - mes "[Tour Guide]"; - mes "Please be carefull when investigating the deeper levels of the ^777777Thanatos Tower^000000."; - mes "The deeper you get, the less is known about it's dangers..."; - close; - - L_End: - mes "[Tour Guide]"; - mes "Ok, but it was worth a try, wasn't it."; - mes "Come back when you're interested."; - close; - +hu_fild01,140,163,5 script Tower Keeper 852,3,3,{ + + mes "[Gatei]"; + mes "Greetings, adventurer."; + mes "I am Gatei Knumm, keeper"; + mes "of this Thanatos Tower."; + mes "How may I help you?"; + next; + switch( select( "Thanatos Tower?","Entrance Fee.","Enter the tower","Cancel" ) ) + { + case 1: + mes "[Gatei]"; + mes "Yes, the tower in front"; + mes "of you was an ancient ruins"; + mes "that got its name from a word"; + mes "written on a stone plate found"; + mes "inside. Today, this place is"; + mes "a popular tourist attraction."; + next; + mes "[Gatei]"; + mes "This tower grew in popularity"; + mes "for adventurers when the"; + mes "Rekenber Corporation began"; + mes "tower reconstruction efforts."; + mes "The 1st and 2nd floors are now"; + mes "repaired and free of monsters."; + next; + mes "[Gatei]"; + mes "However, reconstruction of"; + mes "the 3rd and higher floors is"; + mes "incomplete. Those levels are"; + mes "still infested with monsters, so we're contracting temp workers"; + mes "to exterminate all of them."; + next; + mes "[Gatei]"; + mes "If you're interested in"; + mes "temporary contract work,"; + mes "or would like to know about"; + mes "this place in detail, please"; + mes "ask one of the guides inside."; + mes "Thank you and enjoy your visit~"; + close; + + case 2: + mes "[Gatei]"; + mes "Everyone is welcome to"; + mes "enjoy Thanatos Tower."; + mes "Only the 1st and 2nd floors"; + mes "are open to the public at"; + mes "this time. The entrance fee"; + mes "is 5,000 zeny per person."; + next; + mes "[Gatei]"; + mes "5,000 zeny may seem a little"; + mes "steep for a tourist attraction,"; + mes "but trust me, this tower provides a very unique experience. Also,"; + mes "our loyal customers and contract workers get a special discount~"; + close; + + case 3: + mes "[Gatei]"; + mes "Would you like to"; + mes "enter Thanatos Tower?"; + mes "The entry fee is ^FF00005,000 zeny^000000."; + next; + switch( select( "Enter","Maybe next time." ) ) + { + case 1: + if (thana_quest) + { + mes "[Gatei]"; + mes "Oh, "+strcharinfo(0)+"!"; + mes "Welcome back! Since you've"; + mes "got a temporary Rekenber"; + mes "work contract, your entrance"; + mes "fee is only 3,000 zeny."; + next; + switch( select( "Enter","No, thanks." ) ) + { + case 1: + if (Zeny < 3000) + { + mes "[Gatei]"; + mes "Oh, I'm sorry..."; + mes "But you don't seem to"; + mes "have enough zeny. Oh well,"; + mes "just come back again later~"; + close; + } + mes "[Gatei]"; + mes "Thank you, and"; + mes "please keep up the"; + mes "good work. Ah, and don't"; + mes "forget: safety first when"; + mes "you fight those monsters!"; + set Zeny,Zeny - 3000; + close2; + warp "tha_scene01",131,220; + end; + + case 2: + mes "[Gatei]"; + mes "Oh, I'm sorry..."; + mes "But you don't seem to"; + mes "have enough zeny. Oh well,"; + mes "just come back again later~"; + close; + } + } + if (Zeny < 5000) + { + mes "[Gatei]"; + mes "Well..."; + mes "Hm. I'm sorry, but you"; + mes "don't seem to have enough"; + mes "zeny for the entrance fee."; + mes "Please come back later..."; + close; + } + mes "[Gatei]"; + mes "Ah, I've received your"; + mes "entrance fee. Thank you"; + mes "very much. Now, I hope"; + mes "you enjoy your visit"; + mes "to Thanatos Tower~"; + set Zeny,Zeny - 5000; + close2; + warp "tha_scene01",131,220; + end; + + case 2: + mes "[Gatei]"; + mes "Very well. Please come"; + mes "and visit us again here"; + mes "in Thanatos Tower."; + close; + } + + case 4: + mes "[Gatei]"; + mes "Very well. Please come"; + mes "and visit us again here"; + mes "in Thanatos Tower."; + close; + } } - -// Tour Guide - 2nd Floor -tha_t02,231,161,5 script Tour Guide#2 874,{ - - if (ThanaQuest < 1) { - - mes "[Tour Guide]"; - mes "Hello there."; - mes "Nice day, isn't it?"; - next; - - mes "[Tour Guide]"; - mes "If you want to visit the higher levels, you'll need to volunteer to the ^777777Thanatos Tower Task Force^000000."; - next; - - mes "[Tour Guide]"; - mes "You can do so by speaking with the nice woman at the counter, near the entrance."; - mes "See you later~"; - close; - - } - - mes "[Tour Guide]"; - mes "Hello my friend."; - mes "Oh, you're one of the new volunteers from the ^777777Thanatos Tower Task Force^000000."; - next; - - mes "[Tour Guide]"; - mes "If you wish to enter the next level, you'll need to form a party."; - mes "Please gather at least 5 of your Friends around me, so that I can warp you towards the next level."; - next; - - mes "[Tour Guide]"; - mes "I will warp your whole party, so tell your comrades to stand by."; - mes "Shall I warp you now?"; - next; - menu "No, I need some time...",L_End, - "Yes, please warp us!",-; - - set @partyid, getcharid(1); - - if (@partyid == 0) goto L_NoParty; - - getpartymember(@partyid); - set @partymembercount,$@partymembercount; - copyarray @partymembername$[0],$@partymembername$[0],@partymembercount; - - if (@partymembercount < 6) goto L_NotEnough; - - for(set @i, 0; @i < @partymembercount; set @i, @i + 1) { - if (getmapxy(@mapname$,@mapx,@mapy,0,@partymembername$[@i]) != 0) goto L_Offline; - if (@mapname$ != "tha_t02" || @mapx < 223 || @mapx > 239 || @mapy < 153 || @mapy > 169) goto L_Away; - } - - warpparty "tha_t03",220,165,@partyid; - end; - - L_NoParty: - mes "[Tour Guide]"; - mes "Erm, you need to form a party first."; - close; - - L_NotEnough: - mes "[Tour Guide]"; - mes "You'll need to bring at least 5 friends, if you want to enter the next level."; - close; - - L_Offline: - mes "[Tour Guide]"; - mes "Hmm, it seems some of your friends aren't online."; - close; - - L_Away: - mes "[Tour Guide]"; - mes "I can't find some of your friends."; - mes "Please tell them to come close to me, so I can see them."; - close; - - L_End: - mes "[Tour Guide]"; - mes "Ok, come back whenever you're ready to go."; - close; - +tha_t01,149,78,4 script Guide 90,{ + + if(!thana_quest) + { + mes "[Ditze]"; + mes "Welcome to Thanatos Tower."; + mes "The tower's reconstruction is"; + mes "a Rekenber Corporation project,"; + mes "and the 1st and 2nd floors are"; + mes "now open to the public. So"; + mes "how may I help you today?"; + next; + switch( select( "Tower Information","Temporary Work Contract","Cancel" ) ) + { + case 1: + mes "[Ditze]"; + mes "When this tower was built,"; + mes "who built it, and its purpose"; + mes "are all mysteries. There are"; + mes "many rumors about it being a"; + mes "Mage lab, a hero's monument,"; + mes "or a demon fortress..."; + next; + mes "[Ditze]"; + mes "The Rekenber Corporation has"; + mes "been researching the origin of"; + mes "this tower, but has not yet been able to confirm anything. Although"; + mes "we've lost many researchers to the tower monsters, we won't give up!"; + next; + mes "[Ditze]"; + mes "Rekenber is convinced that this"; + mes "tower holds many secrets, and"; + mes "successfully reconstructed the"; + mes "first 2 floors of this tower in"; + mes "the pursuit of this knowledge."; + next; + mes "[Ditze]"; + mes "Currently, we are focused on"; + mes "reconstructing the tower's 3rd"; + mes "and 4th floors. Luckily, many"; + mes "adventurers are exterminating"; + mes "the monsters on those floors, working under temporary contracts."; + next; + mes "[Ditze]"; + mes "At this rate, we expect"; + mes "to complete reconstruction"; + mes "of the 3rd and 4th floors in"; + mes "the near future, bringing us"; + mes "closer to our goal of opening all 12 floors of Thanatos Tower."; + next; +L_Ask1: + switch( select( "Tower Monsters?","Temp Contract Work?","......" ) ) + { + case 1: + mes "[Ditze]"; + mes "Yes, when we began"; + mes "reconstruction of the"; + mes "Thanatos Tower, these"; + mes "monsters that look like angels"; + mes "just appeared out of nowhere"; + mes "to attack all the workers."; + next; + mes "[Ditze]"; + mes "At first, witnesses thought"; + mes "that these monsters might"; + mes "be, you know, actual angels."; + mes "But if they were, why were they"; + mes "attacking for no reason?"; + next; + mes "[Ditze]"; + mes "Anyway, we asked the Juno "; + mes "Sage Academy to investigate"; + mes "them, and they confirmed that"; + mes "these angelic creatures are true monsters--their resemblance to"; + mes "angels is merely coincidence."; + next; + goto L_Ask1; + + case 2: + break; + + case 3: + mes "[Ditze]"; + mes "To develop the floors above"; + mes "the 2nd floor, we're going to"; + mes "need as many temp contract"; + mes "workers as we can hire. Why"; + mes "don't you consider working"; + mes "for us under a temp contract?"; + close; + } + break; + + case 2: + break; + + case 3: + mes "[Ditze]"; + mes "Well, if you have any"; + mes "questions, feel free to"; + mes "ask me later. My name is"; + mes "Ditze Lappa. Have a good day!"; + close; + } + mes "[Ditze]"; + mes "You may have already heard"; + mes "from the Tower Keeper, but"; + mes "we're contracting adventurers to exterminate the tower monsters"; + mes "in the 3rd and higher levels on"; + mes "a temporary employee basis."; + next; + mes "[Ditze]"; + mes "I'm in charge of hiring"; + mes "temp contract workers, so"; + mes "talk to me if you're interested. Only temp workers are allowed"; + mes "to access the higher levels"; + mes "here in Thanatos Tower."; + next; + switch( select( "Maybe next time","Sure, I'd like to work for you." ) ) + { + case 1: + mes "[Ditze]"; + mes "Well, alright."; + mes "But come and talk to"; + mes "me as soon as you decide"; + mes "that you want to help with"; + mes "the tower reconstruction by"; + mes "working for Rekenber."; + close; + + case 2: + mes "[Ditze]"; + mes "That's great!"; + mes "Would you please fill"; + mes "out this employment"; + mes "agreement first? Let's"; + mes "see. Your name is..."; + mes ""+strcharinfo(0)+", right?"; + next; + switch( select( "Yes" ) ) + { + case 1: + break; + } + mes "[Ditze]"; + mes "Alright, please read"; + mes "this agreement carefully."; + mes "If you agree with all of"; + mes "the conditions, go ahead"; + mes "and just sign the bottom."; + next; + mes "^3355FFDitze hands you the"; + mes "Employment Agreement"; + mes "document for you to read.^000000"; + next; + mes "- Employment Agreement -"; + mes " "; + mes "1. This employment agreement"; + mes "is effective between Rekenber"; + mes "Corporation (''Employer'') and "+strcharinfo(0)+"(''Employee'')."; + mes "1-1. This employment agreement"; + mes "is classified as a Mercernary"; + mes "contract between both parties."; + mes "2. The terms of this contract"; + mes "immediately take effect once"; + mes "it is signed by both parties"; + mes "(Employer and Employee)."; + mes "3. When the Employee performs"; + mes "a mission, the mission results"; + mes "must be verified with acceptible physical proof that must be"; + mes "presented to the Employer."; + mes "3-1. Please refer to Section"; + mes "7A for examples of acceptible"; + mes "proof of monster extermination."; + mes "3-2. Acceptible proof is"; + mes "determined and defined by a"; + mes "representative of the Employer."; + mes "4. Employer will allot rewards"; + mes "to Employees after receiving"; + mes "extermination proof."; + mes "4-1. Possible rewards for"; + mes "monster exterminations may"; + mes "include the following."; + mes "................................................."; + mes "................................................."; + mes "................................................."; + mes "................................................."; + mes "................................................."; + mes "13. This contract's terms are"; + mes "only applicable within Thanatos"; + mes "Tower."; + mes "14. Employees will receive"; + mes "a discount on the Entry Fee"; + mes "to the Thanatos Tower."; + mes " "; + mes " "; + mes " "; + mes "Employer Signature____________"; + mes "Employee Signature____________"; + next; + switch( select( "Sign","Don't Sign" ) ) + { + case 1: + mes "^3355FFYou sign two copies of the"; + mes "Employment Agreement.^000000"; + next; + mes "[Ditze]"; + mes "Thank you. Now, you are"; + mes "an official employee of the"; + mes "Rekenber Corporation! Well,"; + mes "within the limits of this tower"; + mes "anyway. This contract doesn't"; + mes "apply outside of this place."; + next; + mes "[Ditze]"; + mes "From now on, you can talk"; + mes "to the 2nd Floor Guide to"; + mes "enter the 3rd Floor. If you"; + mes "have any mission reward"; + mes "questions, please ask ^3355FFLiei^000000."; + next; + mes "[Ditze]"; + mes "If you want to check"; + mes "more information about"; + mes "your work, please talk"; + mes "to the 2nd Floor Guide."; + mes "Thank you, and welcome"; + mes "to the Rekenber Corporation~"; + set thana_quest,1; + close; + + case 2: + mes "[Ditze]"; + mes "Oh? Was there an article"; + mes "within the contract that you"; + mes "disagreed with? Hm. Well,"; + mes "that's fine. But if you change"; + mes "your mind, please come back"; + mes "and ask me anytime. Thank you~"; + close; + } + } + } + mes "[Ditze]"; + mes "For more detailed information"; + mes "about monster exterminations,"; + mes "please ask the 2nd Floor Guide"; + mes "and the Guide next to me. Well,"; + mes "we hope you enjoy your experience working with Rekenber Corporation~"; + close; } +tha_t01,140,78,4 script Guide 831,{ -// Mechanical Device - Red Key -tha_t03,67,70,0 script Mechanical Device#1 111,{ - - if (ThanaQuest & 2) { - - mes "[Mechanical Device]"; - mes "This is where you found the"; - mes "^EF797BRed Key^000000."; - close; - - } - - mes "[Mechanical Device]"; - mes "There's a strange mechanical device here."; - next; - menu "Investigate the device.",-, - "Leave it alone.",L_End; - - mes "[Mechanical Device]"; - mes "..."; - next; - - mes "[Mechanical Device]"; - mes "It seems there is something inside, but the device is protected by a mysterious strong power."; - next; - menu "Try to get whats inside.",L_Denied, - "Get rid of the strong power",-, - "Leave it alone.",L_End; - - if (getequipweaponlv(4) < 4) goto L_NoWeapon; - - mes "[Mechanical Device]"; - mes "As you point your weapon towards the device, the magic power seems to fade."; - mes "You now can get inside the device."; - next; - - set ThanaQuest, ThanaQuest | 2; - getitem 7421,1; // Red Key - - mes "[Mechanical Device]"; - mes "You found the ^EF797BRed Key^000000."; - close; - - L_Denied: - mes "[Mechanical Device]"; - mes "You were pushed away as you tried to get inside."; - mes "It seems the device is protected by a strong magical force."; - close; - - L_NoWeapon: - mes "[Mechanical Device]"; - mes "You tried to get rid of the mysterious power, but your weapon doesn't seem to be strong enough..."; - close; - - L_End: - mes "[Mechanical Device]"; - mes "You left the mechanical device alone."; - close; - + if(!thana_quest) + { + mes "[Liei]"; + mes "Good day, I'm"; + mes "Liei Kuniziet of the"; + mes "Employee Mission"; + mes "Reward Department"; + mes "here in Thanatos Tower."; + next; + switch( select( "Employee's mission reward?","Keep up the good work." ) ) + { + case 1: + mes "[Liei]"; + mes "Currently, Rekenber Corporation"; + mes "is contracting temp employees"; + mes "to develop the higher levels"; + mes "of Thanatos Tower. If you'd"; + mes "like to apply, please ask"; + mes "Ditze right next to me."; + close; + + case 2: + mes "[Liei]"; + mes "Thank you. Ah, and I hope"; + mes "that you enjoy your visit"; + mes "here to Thanatos Tower."; + close; + } + } + mes "[Liei]"; + mes "Ah, hello~"; + mes "How may I help you?"; + next; + switch( select( "Reward","Nothing" ) ) + { + case 1: + mes "[Liei]"; + mes "You're "+strcharinfo(0)+", yes?"; + mes "Let me check our temp"; + mes "employee records for--ah."; + mes "Here it is. Alright, so would"; + mes "you please tell me what kind"; + mes "of mission proof you brought?"; + next; + switch( select( "Golden Ornament","Red Feather","Blue Feather","Cursed Seal" ) ) + { + case 1: + callfunc "Func_Thana",7435; + + case 2: + callfunc "Func_Thana",7440; + + case 3: + callfunc "Func_Thana",7441; + + case 4: + callfunc "Func_Thana",7442; + } + + case 2: + mes "[Liei]"; + mes "Alright, then."; + mes "Please do your best"; + mes "to exterminate the"; + mes "monsters that infest"; + mes "the higher floors of"; + mes "the Thanatos Tower~"; + close; + } } - - -// Mechanical Device - Yellow Key -tha_t04,195,195,0 script Mechanical Device#2 111,{ - - if (ThanaQuest & 4) { - - mes "[Mechanical Device]"; - mes "This is where you found the"; - mes "^DE9673Yellow Key^000000."; - close; - - } - - mes "[Mechanical Device]"; - mes "There's a strange mechanical device here."; - next; - menu "Investigate the device.",-, - "Leave it alone.",L_End; - - mes "[Mechanical Device]"; - mes "The device started to make a certain noise since you approached to it."; - mes "Theres a terminal in front of it, where you could enter a number with 3 digits."; - next; - - mes "[Mechanical Device]"; - mes "The noise sounds very strange, and it seems as if the device doesn't work the way it should."; - next; - menu "Use the terminal",-, - "Leave it alone.",L_End; - - set @number, rand(100,999); - set @count, 0; - - L_Input: - set @count, @count + 1; - if (@count > 10) goto L_Broken; - - input @input; - - if (@input < 100 || @input > 999) goto L_Wrong; - - if (@input > @number) goto L_TooBig; - if (@input < @number) goto L_TooSmall; - - mes "[Mechanical Device]"; - mes "As you use the terminal to adjust the number on it, the strange noise changed into a pleasant working sound, and a small box near the terminal opened."; - mes "There's something in that box."; - next; - - set ThanaQuest, ThanaQuest | 4; - getitem 7422,1; // Yellow Key - - mes "[Mechanical Device]"; - mes "You found the ^DE9673Yellow Key^000000."; - close; - - L_TooBig: - mes "[Mechanical Device]"; - mes "As you use the terminal to adjust the number on it, the strange noise changed."; - mes "However, it still sounds wrong. It's a very high sound now."; - next; - - mes "[Mechanical Device]"; - mes "It seems the number you entered was too big."; - next; - - goto L_Input; - - L_TooSmall: - mes "[Mechanical Device]"; - mes "As you use the terminal to adjust the number on it, the strange noise changed."; - mes "However, it still sounds wrong. It's a very deep sound now."; - next; - - mes "[Mechanical Device]"; - mes "It seems the number you entered was too small."; - next; - - goto L_Input; - - L_Broken: - mes "[Mechanical Device]"; - mes "The Device stoped with an akward sound."; - mes "It seems the device doesn't work anymore..."; - close; - - L_Wrong: - mes "[Mechanical Device]"; - mes "You tried to enter the number, but the terminal wasn't able to handle it."; - mes "It seems the device doesn't work anymore..."; - close; - - L_End: - mes "[Mechanical Device]"; - mes "You left the mechanical device alone."; - close; - + +function script Func_Thana { + + if(!countitem(getarg(0))) + { + mes "[Liei]"; + mes "Oh, I'm sorry, but you"; + mes "don't have any "+ getitemname(getarg(0)) +""; + mes "Please check your inventory one more time..."; + close; + } + mes "[Liei]"; + mes "The reward for each"; + mes ""+ getitemname(getarg(0)) +" is..."; + mes " "; + mes "1,000 zeny"; + mes "2,000 EXP"; + next; + mes "[Liei]"; + mes "If you turn in your "+ countitem(getarg(0)) +""; + mes ""+ getitemname(getarg(0)) +", then"; + mes "you will receive a total of..."; + mes " "; + mes ""+ countitem(getarg(0)) * 1000 +" zeny"; + mes ""+ countitem(getarg(0)) * 2000 +" EXP"; + next; + mes "[Liei]"; + mes "So would you like to"; + mes "exchange all of your "+ getitemname(getarg(0)) +""; + mes "for your reward now?"; + next; + switch( select( "Yes","No" ) ) + { + case 1: + mes "[Liei]"; + mes "Great! Here is your"; + mes ""+ countitem(getarg(0)) * 1000 +" zeny and"; + mes ""+ countitem(getarg(0)) * 2000 +" EXP. Thank you,"; + mes "and please keep up"; + mes "the good work~"; + delitem getarg(0),countitem(getarg(0)); + set Zeny,Zeny + countitem(getarg(0)) * 1000; + set BaseExp,BaseExp + countitem(getarg(0)) * 2000; + close; + + case 2: + mes "[Liei]"; + mes "Sure, no problem."; + mes "Just come back and"; + mes "talk to me whenever"; + mes "you want to receive"; + mes "your reward, alright?"; + close; + } } +tha_t02,231,161,5 script Entrance Guide 874,{ -// Mechanical Device - Blue Key -tha_t05,101,37,0 script Mechanical Device#3 111,{ - - if (ThanaQuest & 8) { - - mes "[Mechanical Device]"; - mes "This is where you found the"; - mes "^8CA6EFBlue Key^000000."; - close; - - } - - mes "[Mechanical Device]"; - mes "There's a strange mechanical device here."; - next; - menu "Investigate the device.",-, - "Leave it alone.",L_End; - - mes "[Mechanical Device]"; - mes "It seems there's something hidden under the device. However, the device is too heavy to lift it up alone."; - next; - menu "Try it anyways.",L_Alone, - "Try it together.",-, - "Leave it alone.",L_End; - - getmapxy @mapname$,@mapx,@mapy,0,strcharinfo(0); - if (@mapx < 101 || @mapx > 104 || @mapy < 37 || @mapy > 40) goto L_Away; - - set @help, getareausers("tha_t05",101,40,104,37); - if (@help == 1) goto L_Alone; - if (@help < 3) goto L_NotEnough; - - mes "[Mechanical Device]"; - mes "As you manage to lift the device with the help of your friends, you find something underneath, covered in dirt."; - next; - - set ThanaQuest, ThanaQuest | 8; - getitem 7423,1; // Blue Key - - mes "[Mechanical Device]"; - mes "You found a ^8CA6EFBlue Key^000000."; - close; - - L_Alone: - getmapxy @mapname$,@mapx,@mapy,0; - if (@mapx < 101 || @mapx > 104 || @mapy < 37 || @mapy > 40) goto L_Away; - - mes "[Mechanical Device]"; - mes "You coudn't move the device at all..."; - close; - - L_Away: - mes "[Mechanical Device]"; - mes "You are too far away to move the device..."; - close; - - L_NotEnough: - mes "[Mechanical Device]"; - mes "Even with some help you coudn't move the device."; - mes "It seem you'll need more help..."; - close; - - L_End: - mes "[Mechanical Device]"; - mes "You left the mechanical device alone."; - close; - + if(!thana_quest) + { + mes "[Burled]"; + mes "You are in front of the entrance to the 3rd Floor. Only contracted"; + mes "temp employees are authorized"; + mes "to enter that area. For Rekenber temp contract information, please"; + mes "speak to the 2nd Floor Guide."; + close; + } + mes "[Burled]"; + mes "......"; + mes "........."; + mes "............"; + next; + switch( select( "Excuse me...","........." ) ) + { + case 1: + mes "[Burled]"; + mes "Oh..."; + mes "I'm sorry, how"; + mes "can I help you?"; + next; + if(thana_quest < 2) + { + switch( select( "Enter the 3rd Floor","Gate Information" ) ) + { + case 1: +L_Access3: + mes "[Burled]"; + mes "Oh, alright. Let me"; + mes "check and see if you're"; + mes "on our temp list. Hmmm..."; + mes "Ah, you're "+strcharinfo(0)+", right?"; + set .@thana_level2,getareausers("tha_t02",226,156,236,166); + next; + if(.@thana_level2 < 5) + { + mes "[Burled]"; + mes "First, we need to wait until"; + mes "at least 5 temps are gathered"; + mes "to form a work group. Right"; + mes "now, there are a total of"; + mes ""+ .@thana_level2 +" temp workers waiting to"; + mes "enter the 3rd Floor."; + next; + mes "[Burled]"; + mes "If you can, try to get"; + mes "your friends to help you"; + mes "by coming near me. Please"; + mes "understand that we have this"; + mes "temp worker group requirement"; + mes "for various safety reasons."; + close; + } + mes "[Burled]"; + mes "Great, you're just"; + mes "in time. We just met"; + mes "the minimum 5 temp group"; + mes "requirement, so we'll open"; + mes "the gate to the 3rd Floor soon."; + next; + mes "[Burled]"; + mes "The gate to the 3rd Floor"; + mes "will close shortly, so enter it"; + mes "as soon as you can. We have"; + mes "to close it quickly because we"; + mes "can't have the tower monsters"; + mes "entering the lower floors..."; + close2; + donpcevent "#thana3::OnOpen"; + end; + + case 2: +L_GateInfo: + mes "[Burled]"; + mes "This gate is the only passage"; + mes "that connects to the 3rd Floor."; + mes "After the 4th Floor, passages"; + mes "between floors only travel one"; + mes "way, meaning you can't exit the"; + mes "same way you that you entered."; + next; + mes "[Burled]"; + mes "You see, there's a strange"; + mes "power that affects the 5th"; + mes "Floor, and all floors above,"; + mes "which doesn't allow people to"; + mes "backtrack through the passage in which they entered the floor."; + next; + mes "[Burled]"; + mes "So if you ascend past the"; + mes "4th Floor, please be careful"; + mes "and make sure that you find"; + mes "a way to get back. Also, the"; + mes "monsters grow more powerful"; + mes "as you ascend the tower..."; + next; + mes "[Burled]"; + mes "Because the higher levels are"; + mes "too dangerous, we only open the"; + mes "3rd Floor Gate when 5 or more"; + mes "are gathered here. Therefore,"; + mes "you may need to wait if less"; + mes "than 5 temps have gathered."; + close; + } + } + switch( select( "Enter the 3rd Floor","Gate Information","About Satan Morroc..." ) ) + { + case 1: + goto L_Access3; + + case 2: + goto L_GateInfo; + + case 3: + mes "[Burled]"; + mes "Satan Morroc...?"; + mes "Ummm... Isn't talking"; + mes "about that a little taboo?"; + mes "I mean, people get angry"; + mes "or scared just hearing"; + mes "that name, you know?"; + next; + switch( select( "It's important that I know more.","I'm sorry, I didn't know..." ) ) + { + case 1: + mes "[Burled]"; + mes "When the Rekenber Corporation"; + mes "started reconstruction of the"; + mes "Thanatos Tower, the Cool Event"; + mes "Corporation was their biggest"; + mes "business partner in the tower"; + mes "reconstruction project."; + next; + mes "[Burled]"; + mes "Yeah, I remember that Cool"; + mes "Event Corp. invested huge"; + mes "amounts of zeny and manpower"; + mes "to rebuild to tower, and expand"; + mes "their business relationship"; + mes "with Rekenber Corporation..."; + next; + mes "[Burled]"; + mes "But then, there was some"; + mes "kind of accident. An explosion"; + mes "happened in the upper floors"; + mes "of Thanatos Tower. Some say"; + mes "it might have been Satan Morroc, but I wouldn't know for sure."; + next; + mes "[Burled]"; + mes "Because of that explosion,"; + mes "Cool Event Corporation withdrew"; + mes "their investment into the tower"; + mes "reconstruction project. They"; + mes "basically abandoned Rekenber Corporation in the tower effort."; + next; + mes "[Burled]"; + mes "But well..."; + mes "Shortly after that happened,"; + mes "Rekenber Corporation took over"; + mes "Cool Event Corporation. I mean,"; + mes "the company retains its name, but it's a Rekenber company now."; + next; + mes "[Burled]"; + mes "I know, I know..."; + mes "It all sounds awfully"; + mes "shady. Please do me a favor"; + mes "and don't tell anyone that"; + mes "I told you this rumor, okay?"; + close; + + case 2: + close; + } + } + + case 2: + mes "["+strcharinfo(0)+"]"; + mes "............."; + close; + } } - -// Mechanical Device - Green Key -tha_t06,43,152,0 script Mechanical Device#4 111,{ - - setarray @directions$[0],"up","right","down","left"; - - if (ThanaQuest & 16) { - - mes "[Mechanical Device]"; - mes "This is where you found the"; - mes "^84A684Green Key^000000."; - close; - - } - - mes "[Mechanical Device]"; - mes "There's a strange mechanical device here."; - next; - menu "Investigate the device.",-, - "Leave it alone.",L_End; - - mes "[Mechanical Device]"; - mes "There are several switches, cogwheels, tubes and wires."; - next; - menu "Investigate the switches.",L_Switches, - "Investigate the cogwheels.",-, - "Investigate the tubes and wires.",L_Tubes, - "Leave it alone.",L_End; - - set @wheel1, rand(1,3); - if (@wheel1 == 1) set @wheel2,1; - if (@wheel1 == 2) set @wheel2,0; - if (@wheel1 == 3) set @wheel2,3; - - set @wheel3, rand(0,3); - set @wheel4, rand(1,3); - if (@wheel4 == 1) set @wheel5,3; - if (@wheel4 == 2) set @wheel5,2; - if (@wheel4 == 3) set @wheel5,1; - - L_Cogwheels: - if (@wheel1 == 0 && @wheel2 == 2 && @wheel4 == 0 && @wheel5 == 0) goto L_Work; - mes "[Mechanical Device]"; - mes "There are five cogwheels here, two small ones and three big ones."; - mes "They seem to activate the device if they are adjusted the right way."; - next; - menu "Adjust the small ones.",L_Small, - "Adjust the big ones.",L_Big, - "Leave it alone.",L_End; - - L_Small: - mes "[Mechanical Device]"; - mes "The first wheel points ^0000AA"+@directions$[@wheel1]+"^000000,"; - mes "the second one points ^0000AA"+@directions$[@wheel2]+"^000000."; - next; - menu "Spin them clockwise.",L_Small_Clock, - "Spin them counterclockwise.",L_Small_Counter, - "Adjust the other ones.",L_Big, - "Go back.",L_Cogwheels; - - L_Small_Clock: - set @wheel1, @wheel1 + 1; - if (@wheel1 > 3) set @wheel1, @wheel1 - 4; - set @wheel2, @wheel2 - 1; - if (@wheel2 < 0) set @wheel2, @wheel2 + 4; - goto L_Small; - - L_Small_Counter: - set @wheel1, @wheel1 - 1; - if (@wheel1 < 0) set @wheel1, @wheel1 + 4; - set @wheel2, @wheel2 + 1; - if (@wheel2 > 3) set @wheel2, @wheel2 - 4; - goto L_Small; - - L_Big: - mes "[Mechanical Device]"; - mes "The first wheel points ^0000AA"+@directions$[@wheel3]+"^000000,"; - mes "the second one points ^0000AA"+@directions$[@wheel4]+"^000000 and"; - mes "the third one points ^0000AA"+@directions$[@wheel5]+"^000000."; - next; - menu "Spin them clockwise.",L_Big_Clock, - "Spin them counterclockwise.",L_Big_Counter, - "Adjust the other ones.",L_Small, - "Go back.",L_Cogwheels; - - L_Big_Clock: - set @wheel3, @wheel3 + 1; - if (@wheel3 > 3) set @wheel3, @wheel3 - 4; - set @wheel4, @wheel4 - 1; - if (@wheel4 < 0) set @wheel4, @wheel4 + 4; - set @wheel5, @wheel5 + 1; - if (@wheel5 > 3) set @wheel5, @wheel5 - 4; - goto L_Big; - - L_Big_Counter: - set @wheel3, @wheel3 - 1; - if (@wheel3 < 0) set @wheel3, @wheel3 + 4; - set @wheel4, @wheel4 + 1; - if (@wheel4 > 3) set @wheel4, @wheel4 - 4; - set @wheel5, @wheel5 - 1; - if (@wheel5 < 0) set @wheel5, @wheel5 + 4; - goto L_Big; - - L_Work: - mes "[Mechanical Device]"; - mes "After you've adjusted the cogwheels this way, the device started to work."; - mes "It produced a small metal object."; - next; - - set ThanaQuest, ThanaQuest | 16; - getitem 7424,1; // Green Key - - mes "[Mechanical Device]"; - mes "You found the ^84A684Green Key^000000."; - close; - - L_Switches: - mes "[Mechanical Device]"; - mes "There are many switches, but most of them are stuck or seem to have no effect on the device."; - close; - - L_Tubes: - mes "[Mechanical Device]"; - mes "There are some tubes and wires which are connected to the other parts of the device."; - mes "It seems all tubes and wires are as they are supposed to be."; - close; - - L_End: - mes "[Mechanical Device]"; - mes "You left the mechanical device alone."; - close; - +tha_t02,227,163,1 script #thana3 45,1,1,{ + +OnInit: + disablenpc "#thana3"; + end; + +OnTouch: + if(!thana_quest) warp "tha_t02",227,158; + else warp "tha_t03",219,159; + end; + +OnOpen: + enablenpc "#thana3"; + initnpctimer; + end; + +OnTimer30000: + stopnpctimer; + disablenpc "#thana3"; + end; } - -// Mechanical Device - Black Key -tha_t09,19,158,0 script Mechanical Device#5 111,{ - - if (ThanaQuest & 32) { - - mes "[Mechanical Device]"; - mes "This is where you found the"; - mes "^9C716BBlack Key^000000."; - close; - - } - - mes "[Mechanical Device]"; - mes "There's a small mechanical device here."; - next; - menu "Investigate the device.",-, - "Leave it alone.",L_End; - - mes "[Mechanical Device]"; - mes "After investigating it closely, you find a small drawer with something in it."; - mes "You take it out of the drawer."; - next; - - set ThanaQuest, ThanaQuest | 32; - getitem 7425,1; // Black Key - - mes "[Mechanical Device]"; - mes "You found the ^84A684Black Key^000000."; - close; - - L_End: - mes "[Mechanical Device]"; - mes "You left the mechanical device alone."; - close; - +tha_t03,67,70,0 script Machine Device 111,{ + + if((countitem(7421)) || (countitem(7426))) + { + mes "^3355FFIt's a peculiar machine"; + mes "that emits a strange buzzing"; + mes "hum. After looking closer,"; + mes "you can faintly perceive an"; + mes "energy barrier surrounding"; + mes "the machine.^000000"; + close; + } + mes "^3355FFA mysterious field of"; + mes "energy seems to surround"; + mes "the mechanical device and"; + mes "its power prevents you from"; + mes "approaching the machine.^000000"; + next; + switch( select( "Smash the Energy Field","Retreat" ) ) + { + case 1: + if (getequipweaponlv(4) < 4) + { + mes "^3355FFYou smash the energy"; + mes "field with your weapon"; + mes "using all of your strength,"; + mes "but you weren't able to"; + mes "break down the barrier."; + mes "You probably need a more"; + mes "powerful weapon...^000000"; + close; + } + mes "^3355FFWith your "+getequipname(4)+" in"; + mes "hand, you smash the energy"; + mes "field with all of your strength. After absorbing the impact, the"; + mes "field fizzles out with a soft,"; + mes "gentle ''pzzzzzh'' sound.^000000"; + next; + switch( select( "Investigate Device","Retreat" ) ) + { + case 1: + mes "^3355FFAs you investigate the"; + mes "device, you accidentally"; + mes "press a button, resulting"; + mes "in a loud beeping noise"; + mes "and the activation of"; + mes "the monitor screen.^000000"; + next; + switch( select( "Read the Screen","Ignore the Screen" ) ) + { + case 1: + mes "^426F42I've used the Gate Seal"; + mes "technology to seal the gate"; + mes "and the charm stones. Although"; + mes "the seals are in place, I can't"; + mes "stop worrying that they might"; + mes "break in the future.^000000"; + next; + mes "^426F42I can't relax when a, shall"; + mes "I say, particular group covets"; + mes "the charm stones and can easily"; + mes "break the seals. To deter them,"; + mes "I've changed the Gate destination before sealing the Gate.^000000"; + next; + mes "^426F42I didn't check the exact"; + mes "destination coordinates for"; + mes "the Gate after I changed them,"; + mes "but the destination gives me"; + mes "a warm, comforting feeling,"; + mes "so it's definitely not hell.^000000"; + next; + mes "^3355FFYou've read all the"; + mes "text displayed on the"; + mes "screen. Judging from the"; + mes "content, there is probably"; + mes "more text before and after the"; + mes "section shown on the screen.^000000"; + next; + switch( select( "Further Investigate Machine","Finish Investigation" ) ) + { + case 1: + mes "^3355FFYou have found"; + mes "a small key on the"; + mes "corner of the machine."; + mes "Just touching this key"; + mes "gives you a strange feeling.^000000"; + getitem 7421,1; + close; + + case 2: + break; + } + break; + + case 2: + mes "^3355FFYou decide to ignore the"; + mes "text displayed on the screen,"; + mes "and immediately discover a"; + mes "small key laid on the corner"; + mes "of the machine. Just touching"; + mes "it gives you a strange feeling.^000000"; + getitem 7421,1; + close; + } + break; + + case 2: + mes "^3355FFYou decide to leave"; + mes "the machine alone.^000000"; + close; + } + break; + + case 2: + break; + } + mes "^3355FFYou decide to leave"; + mes "the machine alone.^000000"; + close; } +tha_t04,195,195,0 script Machine Device 111,{ -// Seal - Blue Magical Stone -tha_t04,150,44,0 script Seal#1 111,{ - - if (ThanaQuest < 63) { - - mes "[Seal]"; - mes "There is a seal here, but it seems it cannot be revealed."; - close; - - } - - if (ThanaQuest & 64) { - - mes "[Seal]"; - mes "This is where you found the"; - mes "^738EE7Blue Magical Stone^000000."; - close; - - } - - mes "[Seal]"; - mes "There's a seal here."; - next; - - mes "[Seal]"; - mes "It seems it can be revealed with a certain ^8CA6EFKey^000000..."; - next; - - input @input$; - - if (@input$ != "Blue Key" || countitem(7423) < 1) goto L_Wrong; - - mes "[Seal]"; - mes "After you've inserted the ^8CA6EFBlue Key^000000, the seal opened and revealed a beautiful Crystal."; - next; - - set ThanaQuest, ThanaQuest | 64; - delitem 7423,1; // Blue Key - getitem 7428,1; // Blue Magical Stone - - mes "[Seal]"; - mes "You found the ^738EE7Blue Magical Stone^000000."; - close; - - L_Wrong: - mes "[Seal]"; - mes "Nothing happened."; - close; - + if((countitem(7422)) || (countitem(7427))) + { + mes "^3355FFThis device is currently"; + mes "inactivated and not in"; + mes "operation. However, you"; + mes "may have use for it later...^000000"; + close; + } + mes "^3355FFYou find a number pad"; + mes "underneath the monitor."; + mes "As you press one of the"; + mes "number keys, you hear a"; + mes "beep as the screen activates.^000000"; + next; + mes "[Screen]"; + mes "Please enter a 3 digit"; + mes "number. Do not use a"; + mes "single number more than"; + mes "once or use the number 0."; + next; +L_Recode: + set @thanacode1,rand(1,9); + set @thanacode2,rand(1,9); + set @thanacode3,rand(1,9); + if((@thanacode1 == @thanacode2) || (@thanacode1 == @thanacode3) || (@thanacode2 == @thanacode3)) goto L_Recode; +L_Input: + input @thanainput; + if((@thanainput < 100) || (@thanainput > 999)) + { + mes "[Screen]"; + mes "Number input"; + mes "requirement has"; + mes "not been fulfilled."; + mes "Please enter a"; + mes "3 digit number."; + close; + } + set @thanainput1,@thanainput / 100; + set @thanainput2,(@thanainput % 100) / 10; + set @thanainput3,@thanainput % 10; + if ((@thanainput1 == 0) || (@thanainput2 == 0) || (@thanainput3 == 0)) + { + mes "[Screen]"; + mes "Violation of number"; + mes "input parameter. The"; + mes "number 0 has been input,"; + mes "or a number has been"; + mes "input more than once."; + next; + goto L_Input; + } + mes "[Screen]"; + mes "You have input..."; + mes "^0000ff"+@thanainput1+"^000000, ^0000ff"+@thanainput2+"^000000, ^0000ff"+@thanainput3+"^000000"; + mes " "; + mes "Calculating Results..."; + mes "Please wait a moment..."; + set @thanatry,@thanatry +1; + next; + set @strike,0; + set @ball,0; + if(@thanainput1 == @thanacode1) set @strike,@strike +1; + if(@thanainput2 == @thanacode2) set @strike,@strike +1; + if(@thanainput3 == @thanacode3) set @strike,@strike +1; + if((@thanainput1 == @thanacode2) || (@thanainput1 == @thanacode2)) set @ball,@ball +1; + if((@thanainput2 == @thanacode1) || (@thanainput2 == @thanacode3)) set @ball,@ball +1; + if((@thanainput3 == @thanacode1) || (@thanainput3 == @thanacode2)) set @ball,@ball +1; + if(@strike == 3) + { + mes "[Screen]"; + mes "Input number accepted."; + mes "Access authorized."; + next; + mes "^3355FFAfter the screen displays"; + mes "the access authorization"; + mes "notice, some new text is"; + mes "displayed on the screen,"; + mes "and a storage unit slides"; + mes "open beneath the monitor.^000000"; + next; + switch( select( "Read the Screen's Text","Investigate Monitor Storage","Cancel" ) ) + { + case 1: + mes "[Log Entry]"; + mes "^426F42That could only mean she"; + mes "came here for Satan Morroc."; + mes "After I investigated the area,"; + mes "I found traces of a battle that"; + mes "involved several human sized creatures and one giant monster.^000000"; + next; + mes "[Log Entry]"; + mes "^426F42I'm guessing that her group"; + mes "actually fought Satan Morroc"; + mes "and managed to wound it"; + mes "severely. It looks like Satan"; + mes "Morroc retreated to the south"; + mes "and her group followed it.^000000"; + next; + mes "[Log Entry]"; + mes "^426F42Strangely, I haven't found"; + mes "any traces of her, which is"; + mes "especially suspicious since"; + mes "other evidence in the area has"; + mes "remained for hundreds of years."; + mes "But I can't figure out why...^000000"; + next; + mes "^3355FFYou've finished"; + mes "reading the Log Entry.^000000"; + next; + switch( select( "Investigate Monitor Storage","Cancel" ) ) + { + case 1: + break; + + case 2: + close; + } + + case 2: + mes "^3355FFYou find a small, shining"; + mes "key in an empty corner of the"; + mes "Monitor's Storage receptacle."; + mes "Merely holding it makes you"; + mes "feel some strange sensation.^000000"; + if(thana_quest == 1) set thana_quest,2; + getitem 7422,1; + close; + + case 3: + mes "^3355FFAfter a short while,"; + mes "you hear a low pitched"; + mes "beep. The screen's text"; + mes "disappears, and the storage"; + mes "receptable under the monitor"; + mes "slides shut, concealing itself.^000000"; + close; + } + } + mes "[Screen]"; + mes "*Beeeeep*"; + mes "Unauthorized"; + mes "numerical sequence."; + next; + mes "[Screen]"; + mes "Correct number"; + mes "in correct place"; + mes "in sequence total: ^FF0000"+@strike+"^000000"; + mes " "; + mes "Correct number total: ^FF0000"+@ball+"^000000"; + next; + if(@thanatry > 4) + { + mes "[Screen]"; + mes "Correct number"; + mes "authorization"; + mes "sequence was..."; + mes "^ff0000"+@thanacode1+"^000000, ^ff0000"+@thanacode2+"^000000, ^ff0000"+@thanacode3+"^000000"; + mes "Authorization number"; + mes "will change upon retry."; + set @thanatry,0; + close; + } + goto L_Input; } +tha_t05,101,37,0 script Machine Device 111,{ -// Seal - Red Magical Stone -tha_t05,218,116,0 script Seal#2 111,{ - - if (ThanaQuest < 63) { - - mes "[Seal]"; - mes "There is a seal here, but it seems it cannot be revealed."; - close; - - } - - if (ThanaQuest & 128) { - - mes "[Seal]"; - mes "This is where you found the"; - mes "^CE6163Red Magical Stone^000000."; - close; - - } - - mes "[Seal]"; - mes "There's a seal here."; - next; - - mes "[Seal]"; - mes "It seems it can be revealed with a certain ^EF797BKey^000000..."; - next; - - input @input$; - - if (@input$ != "Red Key" || countitem(7421) < 1) goto L_Wrong; - - mes "[Seal]"; - mes "After you've inserted the ^EF797BRed Key^000000, the seal opened and revealed a beautiful Crystal."; - next; - - set ThanaQuest, ThanaQuest | 128; - delitem 7421,1; // Red Key - getitem 7426,1; // Red Magical Stone - - mes "[Seal]"; - mes "You found the ^CE6163Red Magical Stone^000000."; - close; - - L_Wrong: - mes "[Seal]"; - mes "Nothing happened."; - close; - + if((countitem(7423)) || (countitem(7428))) + { + mes "^3355FFYou find nothing here,"; + mes "aside from the faded"; + mes "patterns that mark the floor.^000000"; + close; + } + set .@thana_level5,getareausers("tha_t05",98,34,104,40); + if(!.@thana_level5) + { + mes "^3355FFYou are inexplicably drawn"; + mes "to this mechanical device."; + mes "Aside from the green screen"; + mes "in the middle, there are no"; + mes "buttons and switches.^000000"; + if(rand(1,3) == 2) + { + next; + mes "^3355FFYou perceive small text at the"; + mes "bottom of the green screen"; + mes "that reads, ''Operation of this"; + mes "device requires presense of"; + mes "four or more personnel detected"; + mes "by pressure plate system.''^000000"; + close; + } + close; + } + else if(.@thana_level5 < 4) + { + mes "^3355FFYou are inexplicably drawn"; + mes "to this mechanical device."; + mes "Aside from the green screen"; + mes "in the middle, there are no"; + mes "buttons and switches.^000000"; + next; + mes "^3355FFYou carefully investigate"; + mes "your surroundings and notice"; + mes "a gleaming spot on the ground"; + mes "next to the mechanical device.^000000"; + close; + } + else + { + mes "^3355FFAs you approach the device, the"; + mes "floor around it begins to glow."; + mes "Text appears on the device's"; + mes "screen, and a storage receptacle beneath the monitor slides open.^000000"; + next; + switch( select( "Read the Screen's Text","Investigate Monitor Storage","Cancel" ) ) + { + case 1: + mes "[Log Entry]"; + mes "^426F42After the whole ordeal,"; + mes "I decided to leave. But"; + mes "before I could do that,"; + mes "I had to seal the Gate"; + mes "that led to that place.^000000"; + next; + mes "[Log Entry]"; + mes "^426F42If someone were to find"; + mes "this tower and use the Gate"; + mes "for evil ends, the world will be plagued with an era of chaos."; + mes "Of course, they'd stop me if they knew I was sealing the Gate...^000000"; + next; + mes "[Log Entry]"; + mes "^426F42It took me a very long time,"; + mes "but I managed to secretly"; + mes "seal the Gate. But before"; + mes "I began sealing the Gate,"; + mes "I decided to examine it"; + mes "further, just in case.^000000"; + next; + mes "[Log Entry]"; + mes "^426F42In my studies of the Gate,"; + mes "I discovered that it derives"; + mes "its power from the Charm"; + mes "Stones. So to prevent anyone"; + mes "from misusing its power, I've separately sealed the stones...^000000"; + next; + mes "^3355FFYou've finished"; + mes "reading the text"; + mes "that was displayed"; + mes "on the screen.^000000"; + close; + + case 2: + mes "^3355FFYou've found a small"; + mes "shining key inside the"; + mes "storage receptacle located"; + mes "underneath the monitor.^000000"; + getitem 7423,1; + close; + + case 3: + close; + } + } } +tha_t06,43,152,0 script Machine Device 111,{ -// Seal - Black Magical Stone -tha_t06,226,230,0 script Seal#3 111,{ - - if (ThanaQuest < 63) { - - mes "[Seal]"; - mes "There is a seal here, but it seems it cannot be revealed."; - close; - - } - - if (ThanaQuest & 256) { - - mes "[Seal]"; - mes "This is where you found the"; - mes "^7B698CBlack Magical Stone^000000."; - close; - - } - - mes "[Seal]"; - mes "There's a seal here."; - next; - - mes "[Seal]"; - mes "It seems it can be revealed with a certain ^84A684Key^000000..."; - next; - - input @input$; - - if (@input$ != "Black Key" || countitem(7425) < 1) goto L_Wrong; - - mes "[Seal]"; - mes "After you've inserted the ^84A684Black Key^000000, the seal opened and revealed a beautiful Crystal."; - next; - - set ThanaQuest, ThanaQuest | 256; - delitem 7425,1; // Black Key - getitem 7430,1; // Black Magical Stone - - mes "[Seal]"; - mes "You found the ^7B698CBlack Magical Stone^000000."; - close; - - L_Wrong: - mes "[Seal]"; - mes "Nothing happened."; - close; - + if((countitem(7424)) || (countitem(7429))) + { + mes "^3355FFYou found a deactivated"; + mes "mechanical device with an"; + mes "interesting series of wheels.^000000"; + close; + } + mes "^3355FFYou find a mechanical"; + mes "device that has many"; + mes "wheels. A black screen"; + mes "is mounted on the side"; + mes "of the machine.^000000"; + next; + switch( select( "Investigate","Cancel" ) ) + { + case 1: + if((countitem(7421)) || (countitem(7422)) || (countitem(7423))) + { + mes "^3355FFAs you scrutinize the"; + mes "wheels, they respond to"; + mes "the key in your inventory by"; + mes "emitting light and strange"; + mes "noises. After a while, they"; + mes "stop and become silent.^000000"; + next; + switch( select( "Investigate the Machine Chasis","Investigate the Wheels","Cancel" ) ) + { + case 1: + mes "^3355FFThe key in your inventory"; + mes "does not seem to be affecting"; + mes "the machine's chasis. The"; + mes "screen mounted on the side"; + mes "is still blank and deactivated.^000000"; + close; + + case 2: + set @thana_small1,0; + set @thana_small2,0; + set @thana_big1,0; + set @thana_big2,0; + set @thana_big3,0; + mes "^3355FFYou touch the wheels and"; + mes "find that they are actually"; + mes "moving very slowly. You note"; + mes "that there are 2 small wheels"; + mes "and 3 larger wheels, totaling"; + mes "5 wheels on this machine.^000000"; + next; + mes "^3355FFThe big wheels are moving"; + mes "vertically, up and down, as"; + mes "they press against the smaller"; + mes "wheels to make them rotate.^000000"; + next; + mes "^3355FFJudging from the machine's"; + mes "shaking and jittery joises, the"; + mes "wheels may be misaligned."; + mes "You might be able to activate"; + mes "the machine by properly"; + mes "aligning all the wheels.^000000"; +L_Wheels: + next; + mes "^3355FFWhich wheel would"; + mes "you want to shift?^000000"; + switch( select( "1st Small Wheel","2nd Small Wheel","1st Big Wheel","2nd Big Wheel","3rd Big Wheel","Check Current Wheel Configuration","Reset Wheels to Default Configuration" ) ) + { + case 1: + set @wheelresult,callfunc("Thana_Wheels","Press Wheel",@thana_small1,2,1,3); + if(@wheelresult == 1) break; + goto L_Wheels; + + case 2: + set @wheelresult,callfunc("Thana_Wheels","Press Wheel",@thana_small2,3,2,1); + if(@wheelresult == 1) break; + goto L_Wheels; + + case 3: + set @wheelresult,callfunc("Thana_Wheels","Vertically Shift Wheel",@thana_big1,1,3,2); + if(@wheelresult == 1) break; + goto L_Wheels; + + case 4: + set @wheelresult,callfunc("Thana_Wheels","Vertically Shift Wheel",@thana_big2,2,3,1); + if(@wheelresult == 1) break; + goto L_Wheels; + + case 5: + set @wheelresult,callfunc("Thana_Wheels","Vertically Shift Wheel",@thana_big3,2,1,3); + if(@wheelresult == 1) break; + goto L_Wheels; + + case 6: + if(@thana_small1 == 0) mes "1st Small Wheel: No Change"; + else if(@thana_small1 == 1) mes "1st Small Wheel: Down"; + else if(@thana_small1 == 2) mes "1st Small Wheel: Up"; + else if(@thana_small1 == 3) mes "1st Small Wheel: Pressed"; + if(@thana_small2 == 0) mes "2nd Small Wheel: No Change"; + else if(@thana_small2 == 1) mes "2nd Small Wheel: Pressed"; + else if(@thana_small2 == 2) mes "2nd Small Wheel: Down"; + else if(@thana_small2 == 3) mes "2nd Small Wheel: Up"; + if(@thana_big1 == 0) mes "1st Big Wheel: No Change"; + else if(@thana_big1 == 1) mes "1st Big Wheel: Up"; + else if(@thana_big1 == 2) mes "1st Big Wheel: Moved"; + else if(@thana_big1 == 3) mes "1st Big Wheel: Down"; + if(@thana_big2 == 0) mes "2nd Big Wheel: No Change"; + else if(@thana_big2 == 1) mes "2nd Big Wheel: Moved"; + else if(@thana_big2 == 2) mes "2nd Big Wheel: Up"; + else if(@thana_big2 == 3) mes "2nd Big Wheel: Down"; + if(@thana_big3 == 0) mes "3rd Big Wheel: No Change"; + else if(@thana_big3 == 1) mes "3rd Big Wheel: Down"; + else if(@thana_big3 == 2) mes "3rd Big Wheel: Up"; + else if(@thana_big3 == 3) mes "3rd Big Wheel: Moved"; + goto L_Wheels; + + case 7: + set @thana_small1,0; + set @thana_small2,0; + set @thana_big1,0; + set @thana_big2,0; + set @thana_big3,0; + goto L_Wheels; + } + next; + mes "^3355FFAs you adjust the wheels,"; + mes "they suddenly immobilize with"; + mes "a firm click. Then, the device's screen activates and displays"; + mes "some text while a storage"; + mes "compartment underneath"; + mes "the monitor slides open.^000000"; + next; + switch( select( "Read the Screen's Text","Investigate Monitor Storage","Cancel" ) ) + { + case 1: + mes "[Log Entry]"; + mes "^426F42It was never the humans"; + mes "or the gods that built this"; + mes "tower: it was the demons."; + mes "Intrigued by this information,"; + mes "I decided to try to learn why they had constructed Thanatos Tower.^000000"; + next; + mes "[Log Entry]"; + mes "^426F42In my research, I learned"; + mes "that this tower was used as a"; + mes "gate to summon demons from hell during the thousand year war,"; + mes "and that the infamous Satan Morroc was one of those summoned here.^000000"; + next; + mes "[Log Entry]"; + mes "^426F42Satan Morroc... I admit"; + mes "that I'm interested in learning"; + mes "more about his appearance since"; + mes "that occurred at around the same time as when she came to"; + mes "Thanatos Tower...^000000"; + next; + mes "^3355FFYou've finished"; + mes "reading the text"; + mes "that was displayed"; + mes "on the screen.^000000"; + close; + + case 2: + mes "^3355FFInside the monitor"; + mes "storage compartment,"; + mes "you find a small, shining"; + mes "key that you decide to take.^000000"; + getitem 7424,1; + close; + + case 3: + break; + } + break; + + case 3: + break; + } + } + else + { + mes "^3355FFThis mechanical device is"; + mes "activated, as evidenced by"; + mes "its gleaming, moving wheels.^000000"; + close; + } + + case 2: + mes "^3355FFYou don't see the need to"; + mes "investigate if nothing seems"; + mes "peculiar or out of place...^000000"; + close; + } + } - -// Seal - Yellow Magical Stone -tha_t07,113,129,0 script Seal#4 111,{ - - if (ThanaQuest < 63) { - - mes "[Seal]"; - mes "There is a seal here, but it seems it cannot be revealed."; - close; - - } - - if (ThanaQuest & 512) { - - mes "[Seal]"; - mes "This is where you found the"; - mes "^EFA673Yellow Magical Stone^000000."; - close; - - } - - mes "[Seal]"; - mes "There's a seal here."; - next; - - mes "[Seal]"; - mes "It seems it can be revealed with a certain ^DE9673Key^000000..."; - next; - - input @input$; - - if (@input$ != "Yellow Key" || countitem(7422) < 1) goto L_Wrong; - - mes "[Seal]"; - mes "After you've inserted the ^DE9673Yellow Key^000000, the seal opened and revealed a beautiful Crystal."; - next; - - set ThanaQuest, ThanaQuest | 512; - delitem 7422,1; // Yellow Key - getitem 7427,1; // Yellow Magical Stone - - mes "[Seal]"; - mes "You found the ^EFA673Yellow Magical Stone^000000."; - close; - - L_Wrong: - mes "[Seal]"; - mes "Nothing happened."; - close; - +function script Thana_Wheels { + + switch( select( "Raise Wheel","Lower Wheel",getarg(0) ) ) + { + case 1: + set getarg(1),getarg(2); + if((@thana_small1 == getarg(2)) && (@thana_small2 == getarg(2)) && (@thana_big1 == getarg(2)) && (@thana_big2 == getarg(2)) && (@thana_big3 == getarg(2))) return 1; + return 0; + + case 2: + set getarg(1),getarg(3); + if((@thana_small1 == getarg(3)) && (@thana_small2 == getarg(3)) && (@thana_big1 == getarg(3)) && (@thana_big2 == getarg(3)) && (@thana_big3 == getarg(3))) return 1; + return 0; + + case 3: + set getarg(1),getarg(4); + if((@thana_small1 == getarg(4)) && (@thana_small2 == getarg(4)) && (@thana_big1 == getarg(4)) && (@thana_big2 == getarg(4)) && (@thana_big3 == getarg(4))) return 1; + return 0; + } } -// Seal - Green Magical Stone -tha_t10,129,159,0 script Seal#5 111,{ - - if (ThanaQuest < 63) { - - mes "[Seal]"; - mes "There is a seal here, but it seems it cannot be revealed."; - close; - - } - - if (ThanaQuest & 1024) { - - mes "[Seal]"; - mes "This is where you found the"; - mes "^738652Green Magical Stone^000000."; - close; - - } - - mes "[Seal]"; - mes "There's a seal here."; - next; - - mes "[Seal]"; - mes "It seems it can be revealed with a certain ^84A684Key^000000..."; - next; - - input @input$; - - if (@input$ != "Green Key" || countitem(7424) < 1) goto L_Wrong; - - mes "[Seal]"; - mes "After you've inserted the ^84A684Green Key^000000, the seal opened and revealed a beautiful Crystal."; - next; - - set ThanaQuest, ThanaQuest | 1024; - delitem 7424,1; // Green Key - getitem 7429,1; // Green Magical Stone - - mes "[Seal]"; - mes "You found the ^738652Green Magical Stone^000000."; - close; - - L_Wrong: - mes "[Seal]"; - mes "Nothing happened."; - close; +tha_t09,19,158,0 script Machine Device 111,{ + if((countitem(7425)) || (countitem(7430))) + { + mes "^3355FFYou find a peculiar"; + mes "mechanical device that"; + mes "is not in operation.^000000"; + close; + } + mes "^3355FFYou find a machine that"; + mes "emits a soft light and weak"; + mes "hum. There is a monitor, with"; + mes "several different colored"; + mes "keyholes beneath it, in"; + mes "front of the machine.^000000"; + if(!((countitem(7421)) || (countitem(7426))) && ((countitem(7422)) || (countitem(7427))) && ((countitem(7423)) || (countitem(7428))) && ((countitem(7424)) || (countitem(7429)))) close; + next; + mes "^3355FFYou also notice that there"; + mes "are several slots that seem"; + mes "to be the perfect size for"; + mes "your keys and Charm Stones."; + next; + input @input$; + if ((@input$ == "Key") || (@input$ == "Charmstone")) + { + mes "^3355FFYou insert the keys into the"; + mes "keyholes, matching them by"; + mes "corresponding color, and place"; + mes "the Charm Stones in the machine slots. The stones begin to glow,"; + mes "text appears on the screen, and the monitor's storage slides open.^000000"; + next; + switch( select( "Read the Screen's Text","Investigate Monitor Storage","Cancel" ) ) + { + case 1: + mes "[Log Entry]"; + mes "^426F42As I followed her trail to"; + mes "the north, I passed many"; + mes "deserted places. Finally,"; + mes "I dropped by a small village"; + mes "where I learned about a tower"; + mes "that refuses entry to humans.^000000"; + next; + mes "[Log Entry]"; + mes "^426F42I instantly realized that she"; + mes "must have gone to the tower."; + mes "I headed over there and when"; + mes "I arrived, I was shocked: it was grotesque and didn't resemble"; + mes "a human building at all.^000000"; + next; + mes "^426F42I was also amazed--"; + mes "advanced technology was"; + mes "probably necessary to build the tower's intricate structures."; + mes "I then learned an interesting fact while searching the tower...^000000"; + next; + mes "^3355FFYou've finished"; + mes "reading the text"; + mes "that was displayed"; + mes "on the screen.^000000"; + close; + + case 2: + mes "^3355FFYou search the storage"; + mes "compartment beneath the"; + mes "screen and find a strange"; + mes "key. As soon as you take it,"; + mes "the machine's activity halts."; + mes "You then retrieve the Charm"; + mes "Stones and your other keys.^000000"; + getitem 7425,1; + close; + + case 3: + mes "^3355FFYou retrieve the Charm"; + mes "Stones and keys that you"; + mes "inserted into the machine.^000000"; + close; + } + } + mes "You attempt to"; + mes ""+@input$+","; + mes "but nothing happened."; + close; } - -// Stone Statue - Floor 9 -tha_t09,82,99,0 script Stone Statue#09a 111,{ - - mes "[Stone Statue]"; - mes "There is a lever here."; - if (ThanaSteps & 1) mes "It is pointing up."; - else mes "It is pointing down."; - next; - menu "Pull the lever.",-, - "Leave it as it is.",L_End; - - set ThanaSteps, ThanaSteps ^ 1; - - mes "[Stone Statue]"; - mes "You decided to pull the lever."; - mes "It sounded as if it started some mechanical process."; - close; - - L_End: - mes "[Stone Statue]"; - mes "You decided to leave the lever as it is."; - close; - +tha_t04,150,44,0 script Seal 111,{ + + if(!countitem(7423)) + { + mes "^3355FFThis area is protected by"; + mes "some mysterious power."; + mes "You try to touch the seal,"; + mes "but then it buzzes loudly"; + mes "and pushes your hand away.^000000"; + percentheal -10,0; + close; + } + mes "^3355FFThis area is protected by"; + mes "some mysterious power."; + mes "You try to touch the seal,"; + mes "but then it buzzes loudly"; + mes "and pushes your hand away."; + mes "with a burst of blue light.^000000"; + next; + switch( select( "Investigate","There's no way I can break this seal!" ) ) + { + case 1: + input @input$; + if (@input$ == "Blue Key") + { + mes "^3355FFYou gently hold the blue"; + mes "key and bring it towards"; + mes "the seal. Strangely, your"; + mes "hand isn't pushed away this"; + mes "time, and the seal begins to"; + mes "emit a mysterious light.^000000"; + next; + mes "^3355FFYou find a small keyhole"; + mes "in the seal, insert the blue"; + mes "key, and slowly turn it. The"; + mes "seal's light fades, revealing a"; + mes "Charm Stone. Once you grasp"; + mes "the stone, someone's memory"; + mes "is injected into your mind.^000000"; + next; + mes "^333333Thanatos! We've got a"; + mes "message from the guild."; + mes "They want us to stop what"; + mes "we're doing and return now!^000000"; + mes " "; + mes "^333333W-We better hurry...^000000"; + next; + mes "......"; + mes "........."; + mes "............"; + next; + mes "^3355FFThe images faded from"; + mes "your mind as quickly as"; + mes "they appeared. What could"; + mes "have happened in the past?^000000"; + delitem 7423,1; + getitem 7428,1; + close; + } + mes "^3355FFYou'll need to try"; + mes "something else in "; + mes "order to break this"; + mes "seal. What could"; + mes "you possibly need?^000000"; + close; + + case 2: + mes "^3355FFYou stepped away from"; + mes "the seal, unwilling to deal"; + mes "with the power that keeps"; + mes "repulsing your advance.^000000"; + close; + } } - -// Stone Statue - Floor 10 (A) -tha_t10,159,97,0 script Stone Statue#10a 111,{ - - mes "[Stone Statue]"; - mes "There is a lever here."; - if (ThanaSteps & 2) mes "It is pointing up."; - else mes "It is pointing down."; - next; - menu "Pull the lever.",-, - "Leave it as it is.",L_End; - - set ThanaSteps, ThanaSteps ^ 2; - if (ThanaSteps & 4) set ThanaSteps, ThanaSteps ^ 4; - - mes "[Stone Statue]"; - mes "You decided to pull the lever."; - mes "It sounded as if it started some mechanical process."; - close; - - L_End: - mes "[Stone Statue]"; - mes "You decided to leave the lever as it is."; - close; - +tha_t05,218,116,0 script Seal 111,{ + + if(!countitem(7421)) + { + mes "^3355FFThis area is protected by"; + mes "some mysterious power."; + mes "You try to touch the seal,"; + mes "but then it buzzes loudly"; + mes "and pushes your hand away.^000000"; + percentheal -10,0; + close; + } + mes "^3355FFThis area is protected by"; + mes "some mysterious power."; + mes "You try to touch the seal,"; + mes "but then it buzzes loudly"; + mes "and pushes your hand away."; + mes "with a burst of red light.^000000"; + next; + switch( select( "Investigate","There's no way I can break this seal!" ) ) + { + case 1: + input @input$; + if (@input$ == "Red Key") + { + mes "^3355FFYou gently hold the red"; + mes "key and bring it towards"; + mes "the seal. Strangely, your"; + mes "hand isn't pushed away this"; + mes "time, and the seal begins to"; + mes "emit a mysterious light.^000000"; + next; + mes "^3355FFYou find a small keyhole"; + mes "in the seal, insert the red"; + mes "key, and slowly turn it. The"; + mes "seal's light fades, revealing a"; + mes "Charm Stone. Once you grasp"; + mes "the stone, someone's memory"; + mes "is injected into your mind.^000000"; + next; + mes "...So then we decided"; + mes "to dispatch some Assassin"; + mes "Crosses to defeat Satan Morroc."; + mes "But honestly, the chances of "; + mes "success are about 1 percent."; + mes "It's better than nothing, but... It's freakin' Satan Morroc...^000000"; + next; + mes "......"; + mes "........."; + mes "............"; + next; + mes "^3355FFThe images faded from"; + mes "your mind as quickly as"; + mes "they appeared. What could"; + mes "have happened in the past?^000000"; + delitem 7421,1; + getitem 7426,1; + close; + } + mes "^3355FFYou'll need to try"; + mes "something else in "; + mes "order to break this"; + mes "seal. What could"; + mes "you possibly need?^000000"; + close; + + case 2: + mes "^3355FFYou stepped away from"; + mes "the seal, unwilling to deal"; + mes "with the power that keeps"; + mes "repulsing your advance.^000000"; + close; + } } - -// Stone Statue - Floor 10 (B) -tha_t10,97,97,0 script Stone Statue#10b 111,{ - - if (ThanaSteps & 2) { - - mes "[Stone Statue]"; - mes "There is a lever here."; - if (ThanaSteps & 4) mes "It is pointing up."; - else mes "It is pointing down."; - next; - menu "Pull the lever.",-, - "Leave it as it is.",L_End; - - if (ThanaSteps & 4) set ThanaSteps, ThanaSteps ^ 2; - set ThanaSteps, ThanaSteps ^ 4; - - mes "[Stone Statue]"; - mes "You decided to pull the lever."; - mes "It sounded as if it started some mechanical process."; - close; - - } - - mes "[Stone Statue]"; - mes "There is a lever here, but it cannot be moved."; - close; - - L_End: - mes "[Stone Statue]"; - mes "You decided to leave the lever as it is."; - close; - +tha_t06,226,230,0 script Seal 111,{ + + if(!countitem(7425)) + { + mes "^3355FFThis area is protected by"; + mes "some mysterious power."; + mes "You try to touch the seal,"; + mes "but then it buzzes loudly"; + mes "and pushes your hand away.^000000"; + percentheal -10,0; + close; + } + mes "^3355FFThis area is protected by"; + mes "some mysterious power."; + mes "You try to touch the seal,"; + mes "but then it buzzes loudly"; + mes "and pushes your hand away."; + mes "with a burst of black light.^000000"; + next; + switch( select( "Investigate","There's no way I can break this seal!" ) ) + { + case 1: + input @input$; + if (@input$ == "Black Key") + { + mes "^3355FFYou gently hold the black"; + mes "key and bring it towards"; + mes "the seal. Strangely, your"; + mes "hand isn't pushed away this"; + mes "time, and the seal begins to"; + mes "emit a mysterious light.^000000"; + next; + mes "^3355FFYou find a small keyhole"; + mes "in the seal, insert the black"; + mes "key, and slowly turn it. The"; + mes "seal's light fades, revealing a"; + mes "Charm Stone. Once you grasp"; + mes "the stone, someone's memory"; + mes "is injected into your mind.^000000"; + next; + mes "^333333We found it! So this"; + mes "must be the tower where"; + mes "Satan Morroc is gathering"; + mes "his minions... Dear God,"; + mes "there's... There's thousands"; + mes "of them... Is there any hope"; + mes "at all for us? For mankind?^000000"; + next; + mes "......"; + mes "........."; + mes "............"; + next; + mes "^3355FFThe images faded from"; + mes "your mind as quickly as"; + mes "they appeared. What could"; + mes "have happened in the past?^000000"; + delitem 7425,1; + getitem 7430,1; + close; + } + mes "^3355FFYou'll need to try"; + mes "something else in "; + mes "order to break this"; + mes "seal. What could"; + mes "you possibly need?^000000"; + close; + + case 2: + mes "^3355FFYou stepped away from"; + mes "the seal, unwilling to deal"; + mes "with the power that keeps"; + mes "repulsing your advance.^000000"; + close; + } } - -// Stone Statue - Floor 11 (A) -tha_t11,85,85,0 script Stone Statue#11a 111,{ - - mes "[Stone Statue]"; - mes "There is a lever here."; - if (ThanaSteps & 8) mes "It is pointing up."; - else mes "It is pointing down."; - next; - menu "Pull the lever.",-, - "Leave it as it is.",L_End; - - if (ThanaSteps & 8) { - if (ThanaSteps & 64) set ThanaSteps, ThanaSteps ^ 64; - if (ThanaSteps & 32) set ThanaSteps, ThanaSteps ^ 32; - if (ThanaSteps & 16) set ThanaSteps, ThanaSteps ^ 16; - } - set ThanaSteps, ThanaSteps ^ 8; - - mes "[Stone Statue]"; - mes "You decided to pull the lever."; - mes "It sounded as if it started some mechanical process."; - close; - - L_End: - mes "[Stone Statue]"; - mes "You decided to leave the lever as it is."; - close; - +tha_t07,113,129,0 script Seal 111,{ + + if(!countitem(7422)) + { + mes "^3355FFThis area is protected by"; + mes "some mysterious power."; + mes "You try to touch the seal,"; + mes "but then it buzzes loudly"; + mes "and pushes your hand away.^000000"; + percentheal -10,0; + close; + } + mes "^3355FFThis area is protected by"; + mes "some mysterious power."; + mes "You try to touch the seal,"; + mes "but then it buzzes loudly"; + mes "and pushes your hand away."; + mes "with a burst of yellow light.^000000"; + next; + switch( select( "Investigate","There's no way I can break this seal!" ) ) + { + case 1: + input @input$; + if (@input$ == "Yellow Key") + { + mes "^3355FFYou gently hold the yellow"; + mes "key and bring it towards"; + mes "the seal. Strangely, your"; + mes "hand isn't pushed away this"; + mes "time, and the seal begins to"; + mes "emit a mysterious light.^000000"; + next; + mes "^3355FFYou find a small keyhole"; + mes "in the seal, insert the yellow"; + mes "key, and slowly turn it. The"; + mes "seal's light fades, revealing a"; + mes "Charm Stone. Once you grasp"; + mes "the stone, someone's memory"; + mes "is injected into your mind.^000000"; + next; + mes "^333333Hi, I'm Lucil. Sorry,"; + mes "I'm late, but I was far "; + mes "away on another mission...^000000"; + mes " "; + mes "^333333I am Thanatos...^000000"; + next; + mes "^333333Why does she make me"; + mes "feel so strange inside?"; + mes "I feel everything I was"; + mes "missing before, all the"; + mes "things I want and want"; + mes "to be, she brings, she"; + mes "completes. How... funny...^000000"; + mes "'She make me feel strange...as if I found my lost half...'"; + next; + mes "......"; + mes "........."; + mes "............"; + next; + mes "^3355FFThe images faded from"; + mes "your mind as quickly as"; + mes "they appeared. What could"; + mes "have happened in the past?^000000"; + delitem 7422,1; + getitem 7427,1; + close; + } + mes "^3355FFYou'll need to try"; + mes "something else in "; + mes "order to break this"; + mes "seal. What could"; + mes "you possibly need?^000000"; + close; + + case 2: + mes "^3355FFYou stepped away from"; + mes "the seal, unwilling to deal"; + mes "with the power that keeps"; + mes "repulsing your advance.^000000"; + close; + } } - -// Stone Statue - Floor 11 (B) -tha_t11,16,16,0 script Stone Statue#11b 111,{ - - if (ThanaSteps & 8) { - - mes "[Stone Statue]"; - mes "There is a lever here."; - if (ThanaSteps & 16) mes "It is pointing up."; - else mes "It is pointing down."; - next; - menu "Pull the lever.",-, - "Leave it as it is.",L_End; - - if (ThanaSteps & 16) { - if (ThanaSteps & 64) set ThanaSteps, ThanaSteps ^ 64; - if (ThanaSteps & 32) set ThanaSteps, ThanaSteps ^ 32; - set ThanaSteps, ThanaSteps ^ 8; - } - set ThanaSteps, ThanaSteps ^ 16; - - mes "[Stone Statue]"; - mes "You decided to pull the lever."; - mes "It sounded as if it started some mechanical process."; - close; - - } - - mes "[Stone Statue]"; - mes "There is a lever here, but it cannot be moved."; - close; - - L_End: - mes "[Stone Statue]"; - mes "You decided to leave the lever as it is."; - close; - +tha_t10,129,159,0 script Seal 111,{ + + if(!countitem(7424)) + { + mes "^3355FFThis area is protected by"; + mes "some mysterious power."; + mes "You try to touch the seal,"; + mes "but then it buzzes loudly"; + mes "and pushes your hand away.^000000"; + percentheal -10,0; + close; + } + mes "^3355FFThis area is protected by"; + mes "some mysterious power."; + mes "You try to touch the seal,"; + mes "but then it buzzes loudly"; + mes "and pushes your hand away."; + mes "with a burst of green light.^000000"; + next; + switch( select( "Investigate","There's no way I can break this seal!" ) ) + { + case 1: + input @input$; + if (@input$ == "Green Key") + { + mes "^3355FFYou gently hold the green"; + mes "key and bring it towards"; + mes "the seal. Strangely, your"; + mes "hand isn't pushed away this"; + mes "time, and the seal begins to"; + mes "emit a mysterious light.^000000"; + next; + mes "^3355FFYou find a small keyhole"; + mes "in the seal, insert the green"; + mes "key, and slowly turn it. The"; + mes "seal's light fades, revealing a"; + mes "Charm Stone. Once you grasp"; + mes "the stone, someone's memory"; + mes "is injected into your mind.^000000"; + next; + mes "^333333This battle will determine"; + mes "the fate of mankind. We must"; + mes "defeat Satan Morroc. There is"; + mes "no alternative. Who's with me?! "; + mes "^333333*Cough Cough* The demon"; + mes "is too strong! We c-can't...^000000"; + next; + mes "^333333Foolish weakling humans."; + mes "You should have known better."; + mes "...This cannot be! Isn't this--? "; + mes "^333333GGGRRRRAH! H-HOW DARE YOU"; + mes "HUMANS! HOW DARE YOOOOOOOU....! "; + next; + mes "......"; + mes "........."; + mes "............"; + next; + mes "^3355FFThe images faded from"; + mes "your mind as quickly as"; + mes "they appeared. What could"; + mes "have happened in the past?^000000"; + delitem 7424,1; + getitem 7429,1; + close; + } + mes "^3355FFYou'll need to try"; + mes "something else in "; + mes "order to break this"; + mes "seal. What could"; + mes "you possibly need?^000000"; + close; + + case 2: + mes "^3355FFYou stepped away from"; + mes "the seal, unwilling to deal"; + mes "with the power that keeps"; + mes "repulsing your advance.^000000"; + close; + } } - -// Stone Statue - Floor 11 (C) -tha_t11,85,16,0 script Stone Statue#11c 111,{ - - if (ThanaSteps & 16) { - - mes "[Stone Statue]"; - mes "There is a lever here."; - if (ThanaSteps & 32) mes "It is pointing up."; - else mes "It is pointing down."; - next; - menu "Pull the lever.",-, - "Leave it as it is.",L_End; - - if (ThanaSteps & 32) { - if (ThanaSteps & 64) set ThanaSteps, ThanaSteps ^ 64; - set ThanaSteps, ThanaSteps ^ 16; - set ThanaSteps, ThanaSteps ^ 8; - } - set ThanaSteps, ThanaSteps ^ 32; - - mes "[Stone Statue]"; - mes "You decided to pull the lever."; - mes "It sounded as if it started some mechanical process."; - close; - - } - - mes "[Stone Statue]"; - mes "There is a lever here, but it cannot be moved."; - close; - - L_End: - mes "[Stone Statue]"; - mes "You decided to leave the lever as it is."; - close; - +tha_t12,96,58,0 script Stone Statue 111,{ + + if(!$@thana_summon) + { + mes "^3355FFYou've found a "; + mes "stone statue with"; + mes "a conspicuous hole"; + mes "in the chest area.^000000"; + if((countitem(7426)) && (countitem(7427)) && (countitem(7428)) && (countitem(7429)) && (countitem(7430))) + { + next; + mes "^3355FFAs you approach the statue,"; + mes "your Red Charm Stone and"; + mes "the statue begin to glow with"; + mes "a glimmering red light.^000000"; + next; + switch( select( "Insert Charm Stone into Statue","Cancel" ) ) + { + case 1: + mes "^3355FFOnce you insert the"; + mes "Red Charm Stone, the"; + mes "statue glows even brighter"; + mes "with a mysterious light.^000000"; + delitem 7426,1; + specialeffect 55; + enablenpc "tteffect2"; + donpcevent "tteffect2::OnGlow"; + set $@thana_summon,1; + close; + + case 2: + mes "^3355FFYou decided not to"; + mes "insert the Charm Stone,"; + mes "opting to investigate this"; + mes "area a little further.^000000"; + close; + } + } + else if((countitem(7426)) || (countitem(7427)) || (countitem(7428)) || (countitem(7429)) || (countitem(7430))) + { + next; + mes "^3355FFAs you approach this statue, one^FFFFFF ^3355FF of your Charm Stones begins to"; + mes "glow. However, the statue itself^FFFFFF ^000000 is not responding. You probably"; + mes "need all the Charm Stones in"; + mes "order to fully activate it.^000000"; + close; + } + else close; + } + else if($@thana_summon == 6) + { + mes "^3355FFThe statue is emanating an"; + mes "intense light, making it so hot"; + mes "that you cannot approach it.^000000"; + close; + } + else + { + mes "^3355FFThis statue is glowing"; + mes "with a mysterious light."; + mes "Some strange force keeps"; + mes "you from approaching it.^000000"; + close; + } } - -// Stone Statue - Floor 11 (D) -tha_t11,16,85,0 script Stone Statue#11d 111,{ - - if (ThanaSteps & 32) { - - mes "[Stone Statue]"; - mes "There is a lever here."; - if (ThanaSteps & 64) mes "It is pointing up."; - else mes "It is pointing down."; - next; - menu "Pull the lever.",-, - "Leave it as it is.",L_End; - - if (ThanaSteps & 64) { - set ThanaSteps, ThanaSteps ^ 32; - set ThanaSteps, ThanaSteps ^ 16; - set ThanaSteps, ThanaSteps ^ 8; - } - set ThanaSteps, ThanaSteps ^ 64; - - mes "[Stone Statue]"; - mes "You decided to pull the lever."; - mes "It sounded as if it started some mechanical process."; - close; - - } - - mes "[Stone Statue]"; - mes "There is a lever here, but it cannot be moved."; - close; - - L_End: - mes "[Stone Statue]"; - mes "You decided to leave the lever as it is."; - close; - +tha_t12,104,18,0 script Stone Statue 111,{ + + if($@thana_summon == 2) + { + mes "^3355FFYou've found a "; + mes "stone statue with"; + mes "a conspicuous hole"; + mes "in the chest area.^000000"; + if(countitem(7428)) + { + next; + mes "^3355FFAs you approach the statue,"; + mes "your Blue Charm Stone begins"; + mes "to glow with a glimmering blue"; + mes "light, and the statue responds"; + mes "by shimmering with a red glow.^000000"; + next; + switch( select( "Insert Charm Stone into Statue","Cancel" ) ) + { + case 1: + mes "^3355FFOnce you insert the"; + mes "Blue Charm Stone, the"; + mes "statue glows even brighter"; + mes "with a mysterious light.^000000"; + delitem 7428,1; + specialeffect 55; + enablenpc "tteffect5"; + donpcevent "tteffect5::OnGlow"; + set $@thana_summon,3; + close; + + case 2: + mes "^3355FFYou decided not to"; + mes "insert the Charm Stone,"; + mes "opting to investigate this"; + mes "area a little further.^000000"; + close; + } + } + close; + } + else if($@thana_summon == 6) + { + mes "^3355FFThe statue is emanating an"; + mes "intense light, making it so hot"; + mes "that you cannot approach it.^000000"; + close; + } + else + { + mes "^3355FFThis statue is glowing"; + mes "with a mysterious light."; + mes "Some strange force keeps"; + mes "you from approaching it.^000000"; + close; + } } - -// Stone Statue - Red Magical Stone -tha_t12,96,58,0 script Stone Statue#12a 111,{ - - if (ThanaQuest < 2047) { - - mes "[Stone Statue]"; - mes "There is a socket here, but you don't know what to do."; - close; - - } - - if (ThanaQuest & 2048) { - - mes "[Stone Statue]"; - mes "This is where you inserted the ^CE6163Red Magical Stone^000000."; - close; - - } - - mes "[Stone Statue]"; - mes "There's a socket here."; - next; - - input @input$; - - if (@input$ != "Red Magical Stone" || countitem(7426) < 1) goto L_Wrong; - - set ThanaQuest, ThanaQuest | 2048; - delitem 7426,1; // Red Magical Stone - - mes "[Stone Statue]"; - mes "You've inserted the ^CE6163Red Magical Stone^000000 into the socket and it fits perfectly."; - close; - - L_Wrong: - mes "[Stone Statue]"; - mes "Nothing happened."; - close; - +tha_t12,128,86,0 script Stone Statue 111,{ + + if($@thana_summon == 3) + { + mes "^3355FFYou've found a "; + mes "stone statue with"; + mes "a conspicuous hole"; + mes "in the chest area.^000000"; + if(countitem(7430)) + { + next; + mes "^3355FFAs you approach the statue,"; + mes "your Black Charm Stone begins"; + mes "to emanate an eerie darkness."; + mes "In response, the statue starts glowing with a sinister red light.^000000"; + next; + switch( select( "Insert Charm Stone into Statue","Cancel" ) ) + { + case 1: + mes "^3355FFOnce you insert the"; + mes "Black Charm Stone, the"; + mes "statue glows even brighter"; + mes "with a mysterious light.^000000"; + delitem 7430,1; + specialeffect 59; + enablenpc "tteffect1"; + donpcevent "tteffect1::OnGlow"; + set $@thana_summon,4; + close; + + case 2: + mes "^3355FFYou decided not to"; + mes "insert the Charm Stone,"; + mes "opting to investigate this"; + mes "area a little further.^000000"; + close; + } + } + close; + } + else if($@thana_summon == 6) + { + mes "^3355FFThe statue is emanating an"; + mes "intense light, making it so hot"; + mes "that you cannot approach it.^000000"; + close; + } + else + { + mes "^3355FFThis statue is glowing"; + mes "with a mysterious light."; + mes "Some strange force keeps"; + mes "you from approaching it.^000000"; + close; + } } - -// Stone Statue - Yellow Magical Stone -tha_t12,161,58,0 script Stone Statue#12b 111,{ - - if (ThanaQuest < 2047) { - - mes "[Stone Statue]"; - mes "There is a socket here, but you don't know what to do."; - close; - - } - - if (ThanaQuest & 4096) { - - mes "[Stone Statue]"; - mes "This is where you inserted the ^EFA673Yellow Magical Stone^000000."; - close; - - } - - mes "[Stone Statue]"; - mes "There's a socket here."; - next; - - input @input$; - - if (@input$ != "Yellow Magical Stone" || countitem(7427) < 1) goto L_Wrong; - - set ThanaQuest, ThanaQuest | 4096; - delitem 7427,1; // Yellow Magical Stone - - mes "[Stone Statue]"; - mes "You've inserted the ^EFA673Yellow Magical Stone^000000 into the socket and it fits perfectly."; - close; - - L_Wrong: - mes "[Stone Statue]"; - mes "Nothing happened."; - close; - +tha_t12,161,58,0 script Stone Statue 111,{ + + if($@thana_summon == 1) + { + mes "^3355FFYou've found a "; + mes "stone statue with"; + mes "a conspicuous hole"; + mes "in the chest area.^000000"; + if(countitem(7427)) + { + next; + mes "^3355FFAs you approach the statue,"; + mes "your Yellow Charm Stone"; + mes "starts shining a bright yellow"; + mes "light, and the statue emits"; + mes "a glimmering red glow.^000000"; + next; + switch( select( "Insert Charm Stone into Statue","Cancel" ) ) + { + case 1: + mes "^3355FFOnce you insert the"; + mes "Yellow Charm Stone, the"; + mes "statue glows even brighter"; + mes "with a mysterious light.^000000"; + delitem 7427,1; + specialeffect 57; + enablenpc "tteffect3"; + donpcevent "tteffect3::OnGlow"; + set $@thana_summon,2; + close; + + case 2: + mes "^3355FFYou decided not to"; + mes "insert the Charm Stone,"; + mes "opting to investigate this"; + mes "area a little further.^000000"; + close; + } + } + close; + } + else if($@thana_summon == 6) + { + mes "^3355FFThe statue is emanating an"; + mes "intense light, making it so hot"; + mes "that you cannot approach it.^000000"; + close; + } + else + { + mes "^3355FFThis statue is glowing"; + mes "with a mysterious light."; + mes "Some strange force keeps"; + mes "you from approaching it.^000000"; + close; + } } - -// Stone Statue - Blue Magical Stone -tha_t12,104,18,0 script Stone Statue#12c 111,{ - - if (ThanaQuest < 2047) { - - mes "[Stone Statue]"; - mes "There is a socket here, but you don't know what to do."; - close; - - } - - if (ThanaQuest & 8192) { - - mes "[Stone Statue]"; - mes "This is where you inserted the ^738EE7Blue Magical Stone^000000."; - close; - - } - - mes "[Stone Statue]"; - mes "There's a socket here."; - next; - - input @input$; - - if (@input$ != "Blue Magical Stone" || countitem(7428) < 1) goto L_Wrong; - - set ThanaQuest, ThanaQuest | 8192; - delitem 7428,1; // Blue Magical Stone - - mes "[Stone Statue]"; - mes "You've inserted the ^738EE7Blue Magical Stone^000000 into the socket and it fits perfectly."; - close; - - L_Wrong: - mes "[Stone Statue]"; - mes "Nothing happened."; - close; - +tha_t12,154,18,0 script Stone Statue 111,{ + + if($@thana_summon == 4) + { + mes "^3355FFYou've found a "; + mes "stone statue with"; + mes "a conspicuous hole"; + mes "in the chest area.^000000"; + if(countitem(7429)) + { + next; + mes "^3355FFAs you approach the statue,"; + mes "your Green Charm Stone begins"; + mes "radiating soft green light, and"; + mes "and the statue starts to shine"; + mes "with a bright red glow.^000000"; + next; + switch( select( "Insert Charm Stone into Statue","Cancel" ) ) + { + case 1: + mes "^3355FFOnce you insert the"; + mes "Green Charm Stone, the"; + mes "statue glows even brighter"; + mes "with a mysterious light.^000000"; + specialeffect 56; + enablenpc "tteffect4"; + donpcevent "tteffect4::OnGlow"; + delitem 7429,1; + next; + mes "^3355FFThe crest on the ground"; + mes "surrounded by the five"; + mes "glowing statues has now"; + mes "activated, and is emitting"; + mes "a fearsome, powerful energy.^000000"; + set $@thana_summon,5; + set $@thana_summon2,0; + enablenpc "WarpThana"; + close; + + case 2: + mes "^3355FFYou decided not to"; + mes "insert the Charm Stone,"; + mes "opting to investigate this"; + mes "area a little further.^000000"; + close; + } + } + close; + } + else if($@thana_summon == 6) + { + mes "^3355FFThe statue is emanating an"; + mes "intense light, making it so hot"; + mes "that you cannot approach it.^000000"; + close; + } + else + { + mes "^3355FFThis statue is glowing"; + mes "with a mysterious light."; + mes "Some strange force keeps"; + mes "you from approaching it.^000000"; + close; + } } - -// Stone Statue - Green Magical Stone -tha_t12,154,18,0 script Stone Statue#12d 111,{ - - if (ThanaQuest < 2047) { - - mes "[Stone Statue]"; - mes "There is a socket here, but you don't know what to do."; - close; - - } - - if (ThanaQuest & 16384) { - - mes "[Stone Statue]"; - mes "This is where you inserted the ^738652Green Magical Stone^000000."; - close; - - } - - mes "[Stone Statue]"; - mes "There's a socket here."; - next; - - input @input$; - - if (@input$ != "Green Magical Stone" || countitem(7429) < 1) goto L_Wrong; - - set ThanaQuest, ThanaQuest | 16384; - delitem 7429,1; // Green Magical Stone - - mes "[Stone Statue]"; - mes "You've inserted the ^738652Green Magical Stone^000000 into the socket and it fits perfectly."; - close; - - L_Wrong: - mes "[Stone Statue]"; - mes "Nothing happened."; - close; - +tha_t12,129,56,0 script tteffect1 139,{ + +OnInit: + disablenpc "tteffect1"; + end; + +OnGlow: + initnpctimer; + end; + +OnTimer500: +OnTimer1000: +OnTimer1500: +OnTimer2000: +OnTimer2500: + specialeffect 59; + end; + +OnTimer3000: + specialeffect 59; + stopnpctimer; + if($@thana_summon == 6) end; + initnpctimer; + end; + +OnStop: + stopnpctimer; + end; } - -// Stone Statue - Black Magical Stone -tha_t12,128,86,0 script Stone Statue#12e 111,{ - - if (ThanaQuest < 2047) { - - mes "[Stone Statue]"; - mes "There is a socket here, but you don't know what to do."; - close; - - } - - if (ThanaQuest & 32768) { - - mes "[Stone Statue]"; - mes "This is where you inserted the ^7B698CBlack Magical Stone^000000."; - close; - - } - - mes "[Stone Statue]"; - mes "There's a socket here."; - next; - - input @input$; - - if (@input$ != "Black Magical Stone" || countitem(7430) < 1) goto L_Wrong; - - set ThanaQuest, ThanaQuest | 32768; - delitem 7430,1; // Black Magical Stone - - mes "[Stone Statue]"; - mes "You've inserted the ^7B698CBlack Magical Stone^000000 into the socket and it fits perfectly."; - close; - - L_Wrong: - mes "[Stone Statue]"; - mes "Nothing happened."; - close; - +tha_t12,125,52,0 script tteffect2 139,{ + +OnInit: + disablenpc "tteffect2"; + end; + +OnGlow: + initnpctimer; + end; + +OnTimer500: +OnTimer1000: +OnTimer1500: +OnTimer2000: +OnTimer2500: + specialeffect 55; + end; + +OnTimer3000: + specialeffect 55; + stopnpctimer; + if($@thana_summon == 6) end; + initnpctimer; + end; + +OnStop: + stopnpctimer; + end; } - -// Carvings -tha_t12,130,52,0 script Carvings#1 111,{ - - mes "[Carvings]"; - mes "There are some beautifull carvings here."; - next; - - mes "[Carvings]"; - mes "As you look closer at the carvings, a portal opens and takes you away..."; - next; - - if (ThanaQuest < 65535) { - - warp "thana_step",185,15; - end; - - } - - warp "thana_step",73,288; - end; - +tha_t12,134,52,0 script tteffect3 139,{ + +OnInit: + disablenpc "tteffect3"; + end; + +OnGlow: + initnpctimer; + end; + +OnTimer500: +OnTimer1000: +OnTimer1500: +OnTimer2000: +OnTimer2500: + specialeffect 57; + end; + +OnTimer3000: + specialeffect 57; + stopnpctimer; + if($@thana_summon == 6) end; + initnpctimer; + end; + +OnStop: + stopnpctimer; + end; } - -// Seal of Sorrow -thana_boss,217,167,0 script Carvings#2 111,{ - - if ($Thana & 1) { - - mes "[Carvings]"; - mes "This is where you inserted the ^CE86C6Fragment of Sorrow^000000."; - close; - - } - - mes "[Carvings]"; - mes "There's a hole in the floor, which seems to be made for something to fit in."; - mes "It twinkles in ^CE86C6violet color^000000."; - next; - - menu "Insert ^CE86C6Fragment of Sorrow^000000",L_Sorrow, - "Insert ^7B9663Fragment of Agony^000000",L_Agony, - "Insert ^8C79ADFragment of Hatred^000000",L_Hatred, - "Insert ^F7865AFragment of Despair^000000",L_Despair, - "Don't insert something.",L_End; - - L_Sorrow: - if (countitem(7437) == 0) goto L_NoFragment; - - delitem 7437,1; - stopnpctimer "TimerThana"; - set $Thana, $Thana | 1; - initnpctimer "TimerThana"; - mapannounce "thana_boss", "The Seal of Sorrow has been broken.",bc_npc; - - mes "[Carvings]"; - mes "You've inserted the ^CE86C6Fragment of Sorrow^000000 into the hole and it fits perfectly."; - mes "It now glows in bright ^CE86C6violet color^000000."; - if ($Thana >= 15) close; - next; - - mes "[Carvings]"; - mes "Hurry now, tell your comrades to insert the other fragments."; - close; - - L_Agony: - if (countitem(7436) == 0) goto L_NoFragment; - mes "[Carvings]"; - mes "You've tried to insert the ^7B9663Fragment of Agony^000000 into the hole, but it didn't fit."; - close; - - L_Hatred: - if (countitem(7438) == 0) goto L_NoFragment; - mes "[Carvings]"; - mes "You've tried to insert the ^8C79ADFragment of Hatred^000000 into the hole, but it didn't fit."; - close; - - L_Despair: - if (countitem(7439) == 0) goto L_NoFragment; - mes "[Carvings]"; - mes "You've tried to insert the ^F7865AFragment of Despair^000000 into the hole, but it didn't fit."; - close; - - L_NoFragment: - mes "[Carvings]"; - mes "You don't have this fragment."; - close; - - L_End: - mes "[Carvings]"; - mes "You left the cravings alone."; - close; - - OnInit: - set $Thana, 0; - end; - +tha_t12,132,47,0 script tteffect4 139,{ + +OnInit: + disablenpc "tteffect4"; + end; + +OnGlow: + initnpctimer; + end; + +OnTimer500: +OnTimer1000: +OnTimer1500: +OnTimer2000: +OnTimer2500: + specialeffect 56; + end; + +OnTimer3000: + specialeffect 56; + stopnpctimer; + if($@thana_summon == 6) end; + initnpctimer; + end; + +OnStop: + stopnpctimer; + end; } - -// Seal of Agony -thana_boss,202,75,0 script Carvings#3 111,{ - - if ($Thana & 2) { - - mes "[Carvings]"; - mes "This is where you inserted the ^7B9663Fragment of Agony^000000."; - close; - - } - - mes "[Carvings]"; - mes "There's a hole in the floor, which seems to be made for something to fit in."; - mes "It twinkles in ^7B9663green color^000000."; - next; - - menu "Insert ^CE86C6Fragment of Sorrow^000000",L_Sorrow, - "Insert ^7B9663Fragment of Agony^000000",L_Agony, - "Insert ^8C79ADFragment of Hatred^000000",L_Hatred, - "Insert ^F7865AFragment of Despair^000000",L_Despair, - "Don't insert something.",L_End; - - L_Sorrow: - if (countitem(7437) == 0) goto L_NoFragment; - mes "[Carvings]"; - mes "You've tried to insert the ^CE86C6Fragment of Sorrow^000000 into the hole, but it didn't fit."; - close; - - L_Agony: - if (countitem(7436) == 0) goto L_NoFragment; - - delitem 7436,1; - stopnpctimer "TimerThana"; - set $Thana, $Thana | 2; - initnpctimer "TimerThana"; - mapannounce "thana_boss", "The Seal of Agony has been broken.",bc_npc; - - mes "[Carvings]"; - mes "You've inserted the ^7B9663Fragment of Agony^000000 into the hole and it fits perfectly."; - mes "It now glows in bright ^7B9663green color^000000."; - if ($Thana >= 15) close; - next; - - mes "[Carvings]"; - mes "Hurry now, tell your comrades to insert the other fragments."; - close; - - L_Hatred: - if (countitem(7438) == 0) goto L_NoFragment; - mes "[Carvings]"; - mes "You've tried to insert the ^8C79ADFragment of Hatred^000000 into the hole, but it didn't fit."; - close; - - L_Despair: - if (countitem(7439) == 0) goto L_NoFragment; - mes "[Carvings]"; - mes "You've tried to insert the ^F7865AFragment of Despair^000000 into the hole, but it didn't fit."; - close; - - L_NoFragment: - mes "[Carvings]"; - mes "You don't have this fragment."; - close; - - L_End: - mes "[Carvings]"; - mes "You left the cravings alone."; - close; - +tha_t12,127,47,0 script tteffect5 139,{ + +OnInit: + disablenpc "tteffect5"; + end; + +OnGlow: + initnpctimer; + end; + +OnTimer500: +OnTimer1000: +OnTimer1500: +OnTimer2000: +OnTimer2500: + specialeffect 54; + end; + +OnTimer3000: + specialeffect 54; + stopnpctimer; + if($@thana_summon == 6) end; + initnpctimer; + end; + +OnStop: + stopnpctimer; + end; } - -// Seal of Hatred -thana_boss,80,76,0 script Carvings#4 111,{ - - if ($Thana & 4) { - - mes "[Carvings]"; - mes "This is where you inserted the ^8C79ADFragment of Hatred^000000."; - close; - - } - - mes "[Carvings]"; - mes "There's a hole in the floor, which seems to be made for something to fit in."; - mes "It twinkles in ^8C79ADblue color^000000."; - next; - - menu "Insert ^CE86C6Fragment of Sorrow^000000",L_Sorrow, - "Insert ^7B9663Fragment of Agony^000000",L_Agony, - "Insert ^8C79ADFragment of Hatred^000000",L_Hatred, - "Insert ^F7865AFragment of Despair^000000",L_Despair, - "Don't insert something.",L_End; - - L_Sorrow: - if (countitem(7437) == 0) goto L_NoFragment; - mes "[Carvings]"; - mes "You've tried to insert the ^CE86C6Fragment of Sorrow^000000 into the hole, but it didn't fit."; - close; - - L_Agony: - if (countitem(7436) == 0) goto L_NoFragment; - mes "[Carvings]"; - mes "You've tried to insert the ^7B9663Fragment of Agony^000000 into the hole, but it didn't fit."; - close; - - L_Hatred: - if (countitem(7438) == 0) goto L_NoFragment; - - delitem 7438,1; - stopnpctimer "TimerThana"; - set $Thana, $Thana | 4; - initnpctimer "TimerThana"; - mapannounce "thana_boss", "The Seal of Hatred has been broken.",bc_npc; - - mes "[Carvings]"; - mes "You've inserted the ^8C79ADFragment of Hatred^000000 into the hole and it fits perfectly."; - mes "It now glows in bright ^8C79ADblue color^000000."; - if ($Thana >= 15) close; - next; - - mes "[Carvings]"; - mes "Hurry now, tell your comrades to insert the other fragments."; - close; - - L_Despair: - if (countitem(7439) == 0) goto L_NoFragment; - mes "[Carvings]"; - mes "You've tried to insert the ^F7865AFragment of Despair^000000 into the hole, but it didn't fit."; - close; - - L_NoFragment: - mes "[Carvings]"; - mes "You don't have this fragment."; - close; - - L_End: - mes "[Carvings]"; - mes "You left the cravings alone."; - close; - +tha_t12,130,52,0 script WarpThana 45,1,1,{ + +OnInit: + disablenpc "WarpThana"; + end; + +OnTouch: + if($@thana_summon == 5) warp "thana_boss",136,116; + else + { + donpcevent "tteffect1::OnStop"; + donpcevent "tteffect2::OnStop"; + donpcevent "tteffect3::OnStop"; + donpcevent "tteffect4::OnStop"; + donpcevent "tteffect5::OnStop"; + disablenpc "WarpThana"; + end; + } } - -// Seal of Despair -thana_boss,62,171,0 script Carvings#5 111,{ - - if ($Thana & 8) { - - mes "[Carvings]"; - mes "This is where you inserted the ^F7865AFragment of Despair^000000."; - close; - - } - - mes "[Carvings]"; - mes "There's a hole in the floor, which seems to be made for something to fit in."; - mes "It twinkles in ^F7865Ared color^000000."; - next; - - menu "Insert ^CE86C6Fragment of Sorrow^000000",L_Sorrow, - "Insert ^7B9663Fragment of Agony^000000",L_Agony, - "Insert ^8C79ADFragment of Hatred^000000",L_Hatred, - "Insert ^F7865AFragment of Despair^000000",L_Despair, - "Don't insert something.",L_End; - - L_Sorrow: - if (countitem(7437) == 0) goto L_NoFragment; - mes "[Carvings]"; - mes "You've tried to insert the ^CE86C6Fragment of Sorrow^000000 into the hole, but it didn't fit."; - close; - - L_Agony: - if (countitem(7436) == 0) goto L_NoFragment; - mes "[Carvings]"; - mes "You've tried to insert the ^7B9663Fragment of Agony^000000 into the hole, but it didn't fit."; - close; - - L_Hatred: - if (countitem(7438) == 0) goto L_NoFragment; - mes "[Carvings]"; - mes "You've tried to insert the ^8C79ADFragment of Hatred^000000 into the hole, but it didn't fit."; - close; - - L_Despair: - if (countitem(7439) == 0) goto L_NoFragment; - - delitem 7439,1; - stopnpctimer "TimerThana"; - set $Thana, $Thana | 8; - initnpctimer "TimerThana"; - mapannounce "thana_boss", "The Seal of Despair has been broken.",bc_npc; - - mes "[Carvings]"; - mes "You've inserted the ^F7865AFragment of Despair^000000 into the hole and it fits perfectly."; - mes "It now glows in bright ^F7865Ared color^000000."; - if ($Thana >= 15) close; - next; - - mes "[Carvings]"; - mes "Hurry now, tell your comrades to insert the other fragments."; - close; - - L_NoFragment: - mes "[Carvings]"; - mes "You don't have this fragment."; - close; - - L_End: - mes "[Carvings]"; - mes "You left the cravings alone."; - close; - +thana_boss,217,167,0 script Crest#1 111,3,3,{ + + end; + +OnTouch: + if($@thana_summon2 == 6) + { + mes "^3355FFYou cannot approach"; + mes "the crest because it is"; + mes "generating intense heat.^000000"; + close; + } + mes "^3355FFThere is a strangely"; + mes "shaped hole in the"; + mes "middle of this purple crest.^000000"; + if (countitem(7437)) + { + mes "^3355FFIt seems like a Fragment"; + mes "of Sorrow would fit perfectly"; + mes "if you placed it inside.^000000"; + } + next; + input @input$; + if(countitem(7437)) + { + if(@input$ == "Fragment of Sorrow") + { + mes "^3355FFYou insert the"; + mes "Fragment of Sorrow"; + mes "into the crest, causing"; + mes "its glow to intensify.^000000"; + delitem 7437,1; + monster "thana_boss",217,167,"Sorrow",1711,1,"#Death::OnDead"; + disablenpc "Crest#1"; + close; + } + } + mes "^3355FFThat action had no"; + mes "effect. You'll have to"; + mes "try something else.^000000"; + close; } - -// Seal of Thanatos -thana_boss,141,217,0 script Carvings#6 111,{ - - if ($Thana == 15) { - - mes "[Carvings]"; - mes "You stepped on the plate, and it seems it activated some sort of mechanism."; - next; - - if (!getmapmobs("thana_boss")) { - monster "thana_boss",135,119,"Thanatos",1708,1,"TimerThana::OnThanaDead"; - stopnpctimer "TimerThana"; - set $Thana, $Thana | 16; - mapannounce "thana_boss", "The Seal of Thanatos has been broken.",bc_npc; - mes "[Carvings]"; - mes "You hear the screams of the undead coming from below..."; - close; - } else { - mes "[Carvings]"; - mes "But nothing happened..."; +thana_boss,202,75,0 script Crest#2 111,3,3,{ + + end; + +OnTouch: + if($@thana_summon2 == 6) + { + mes "^3355FFYou cannot approach"; + mes "the crest because it is"; + mes "generating intense heat.^000000"; + close; + } + mes "^3355FFThere is a strangely"; + mes "shaped hole in the"; + mes "middle of this green crest.^000000"; + if (countitem(7436)) + { + mes "^3355FFIt seems like a Fragment"; + mes "of Agony would fit perfectly"; + mes "if you placed it inside.^000000"; + } + next; + input @input$; + if(countitem(7436)) + { + if(@input$ == "Fragment of Agony") + { + mes "^3355FFYou insert the"; + mes "Fragment of Agony"; + mes "into the crest, causing"; + mes "its glow to intensify.^000000"; + delitem 7436,1; + monster "thana_boss",202,75,"Agony",1712,1,"#Death::OnDead"; + disablenpc "Crest#2"; close; } } + mes "^3355FFThat action had no"; + mes "effect. You'll have to"; + mes "try something else.^000000"; + close; +} - mes "[Carvings]"; - mes "There is a plate here, which seems to be some sort of switch, but it doesn't move."; +thana_boss,80,76,0 script Crest#3 111,3,3,{ + + end; + +OnTouch: + if($@thana_summon2 == 6) + { + mes "^3355FFYou cannot approach"; + mes "the crest because it is"; + mes "generating intense heat.^000000"; + close; + } + mes "^3355FFThere is a strangely"; + mes "shaped hole in the"; + mes "middle of this blue crest.^000000"; + if (countitem(7438)) + { + mes "^3355FFIt seems like a Fragment"; + mes "of Hatred would fit perfectly"; + mes "if you placed it inside.^000000"; + } + next; + input @input$; + if(countitem(7438)) + { + if(@input$ == "Fragment of Hatred") + { + mes "^3355FFYou insert the"; + mes "Fragment of Hatred"; + mes "into the crest, causing"; + mes "its glow to intensify.^000000"; + delitem 7438,1; + monster "thana_boss",80,76,"Hatred",1709,1,"#Death::OnDead"; + disablenpc "Crest#3"; + close; + } + } + mes "^3355FFThat action had no"; + mes "effect. You'll have to"; + mes "try something else.^000000"; close; +} +thana_boss,62,171,0 script Crest#4 111,3,3,{ + + end; + +OnTouch: + if($@thana_summon2 == 6) + { + mes "^3355FFYou cannot approach"; + mes "the crest because it is"; + mes "generating intense heat.^000000"; + close; + } + mes "^3355FFThere is a strangely"; + mes "shaped hole in the"; + mes "middle of this red crest.^000000"; + if (countitem(7439)) + { + mes "^3355FFIt seems like a Fragment"; + mes "of Despair would fit perfectly"; + mes "if you placed it inside.^000000"; + } + next; + input @input$; + if(countitem(7439)) + { + if(@input$ == "Fragment of Despair") + { + mes "^3355FFYou insert the"; + mes "Fragment of Despair"; + mes "into the crest, causing"; + mes "its glow to intensify.^000000"; + delitem 7439,1; + monster "thana_boss",62,171,"Despair",1710,1,"#Death::OnDead"; + disablenpc "Crest#4"; + close; + } + } + mes "^3355FFThat action had no"; + mes "effect. You'll have to"; + mes "try something else.^000000"; + close; } +thana_boss,141,218,0 script Crest#5 111,3,3,{ + + end; + +OnTouch: + if($@thana_summon2 > 3) + { + mes "^3355FFAs you approach the"; + mes "crest, it begins shining"; + mes "brighter and brighter until its"; + mes "illumination becomes blinding.^000000"; + set $@thana_wave,4; + monster "thana_boss",140,217,"Despair",1710,1,"#Death::OnWave"; + monster "thana_boss",140,216,"Hatred",1709,1,"#Death::OnWave"; + monster "thana_boss",141,217,"Sorrow",1711,1,"#Death::OnWave"; + monster "thana_boss",141,216,"Agony",1712,1,"#Death::OnWave"; + disablenpc "Crest#5"; + close; + } + input @input$; + mes "^3355FFNothing happened.^000000"; + close; +} -// NPC Timer -thana_boss,1,1,1 script TimerThana -1,{ +thana_boss,5,5,0 script #thanasummon -1,{ - // 10 secs - OnTimer10000: + end; - if ($Thana >= 15) end; - stopnpctimer; - mapannounce "thana_boss", "You didn't manage to break all four Seals in time...",bc_npc; - set $Thana, 0; - end; +OnSummon: + monster "thana_boss",139,129,"Thanatos Phantom",1708,1,"#Death::OnThanaDead"; + end; - OnThanaDead: +} - initnpctimer; - end; +thana_boss,3,3,0 script #thanatimer -1,{ + +OnInit: + set $@thana_summon,0; + set $@thana_summon2,0; + end; + +OnActive: + initnpctimer; + end; + +OnTimer1000: + mapannounce "thana_boss","GGGGRRRRRRR!",1; + end; + +OnTimer2000: + mapannounce "thana_boss","*Rumble Rumble*",1; + end; + +OnTimer3000: + mapannounce "thana_boss","*Crik Crik*",1; + end; + +OnTimer4000: + mapannounce "thana_boss","*Zzzzrt Zzzzrt*",1; + end; + +OnTimer5000: + mapannounce "thana_boss","*Crik Crik*",1; + end; + +OnTimer60000: + mapwarp "thana_boss","tha_t12",130,47; + enablenpc "Crest#1"; + enablenpc "Crest#2"; + enablenpc "Crest#3"; + enablenpc "Crest#4"; + enablenpc "Crest#5"; + end; + +OnTimer7200000: + set $@thana_summon,0; + stopnpctimer; + end; +} - // 600 secs = 10 mins - OnTimer600000: +thana_boss,1,1,0 script #Death -1,{ - stopnpctimer; - set $Thana, 0; - end; +OnDead: + set $@thana_summon2,$@thana_summon2 +1; + end; +OnWave: + set $@thana_wave,$@thana_wave -1; + if($@thana_wave < 1) + { + set $@thana_summon,6; + donpcevent "#thanasummon::OnSummon"; + } + end; + +OnThanaDead: + donpcevent "#thanatimer::OnActive"; + end; } + +tha_t06,119,120,0 script thana6-7 45,1,1,{ + + if((Class == Job_Lord_Knight) || (Class == Job_High_Priest) || (Class == Job_High_Wizard) || (Class == Job_Whitesmith) || (Class == Job_Sniper) || (Class == Job_Assassin_Cross) || (Class == Job_High_Wizard) || (Class == Job_Lord_Knight2) || (Class == Job_Paladin) || (Class == Job_Champion) || (Class == Job_Professor) || (Class == Job_Stalker) || (Class == Job_Creator) || (Class == Job_Clown) || (Class == Job_Gypsy) || (Class == Job_Paladin2)) warp "thana_step",69,369; + else + { + mes "^3355FFAn overwhelming force"; + mes "acts against you, preventing"; + mes "you from proceeding this way...^000000"; + close; + } +}
\ No newline at end of file |