diff options
Diffstat (limited to 'npc')
| -rw-r--r-- | npc/custom/etc/quest_warper.txt | 2 | ||||
| -rw-r--r-- | npc/custom/jobmaster.txt | 2 | ||||
| -rw-r--r-- | npc/quests/thana_quest.txt | 3559 |
3 files changed, 1558 insertions, 2005 deletions
diff --git a/npc/custom/etc/quest_warper.txt b/npc/custom/etc/quest_warper.txt index 12709ac15..2c2d31083 100644 --- a/npc/custom/etc/quest_warper.txt +++ b/npc/custom/etc/quest_warper.txt @@ -63,7 +63,7 @@ //= 2.0b - Special warpname menu option name bug fixed //= 2.1 - Updated names to fall within retrictions. [L0ne_W0lf] //= 2.2 - #kafra_code is now stored as is. [brianluau] -//= 2.3 - Addednew town maps, cleanup, and removed pre-1.8 backwards fix. [Euphy] +//= 2.3 - Added new town maps, cleanup, and removed pre-1.8 backwards fix. [Euphy] //================================================================= //========================Function=&=Script======================== diff --git a/npc/custom/jobmaster.txt b/npc/custom/jobmaster.txt index 1112c515e..e072ee4b9 100644 --- a/npc/custom/jobmaster.txt +++ b/npc/custom/jobmaster.txt @@ -140,7 +140,7 @@ Get_Platinum: case 5: skill 153,1,0; skill 154,1,0; skill 155,1,0; break; case 6: skill 149,1,0; skill 150,1,0; skill 151,1,0; skill 152,1,0; break; default: break; } - switch(roclass(eaclass()&EAJ_UPPERMASK)) { + switch(BaseJob) { case 7: skill 1001,1,0; break; case 8: skill 1014,1,0; break; case 9: skill 1006,1,0; break; diff --git a/npc/quests/thana_quest.txt b/npc/quests/thana_quest.txt index fcd3c5451..c2117c7e7 100644 --- a/npc/quests/thana_quest.txt +++ b/npc/quests/thana_quest.txt @@ -1,46 +1,26 @@ //===== rAthena Script ======================================= //= Thanatos Tower Quest //===== By: ================================================== -//= [Ishizu-chan] +//= Muad_Dib //===== Current Version: ===================================== -//= 2.7 +//= 1.0 //===== Compatible With: ===================================== //= rAthena SVN //===== Description: ========================================= -//= It's the Thanatos Tower Quest... +//= [Official Conversion] +//= Episode 13.1 Thanatos Tower quest. //===== Additional Comments: ================================= -//= 1.0 First Release [Ishizu-chan] -//= 1.1 Updated Thanatos Tower Quest to official. [SinSloth] -//= 1.2 Fixed a bug where Reward NPC didn't give you Zeny and Exp. [SinSloth] -//= 1.3 Added a checking in boss map to reset event if there's no player. [SinSloth] -//= 1.4 Changed the way the Thanatos Portal works to allow people to enter -//= as long as Thanatos is alive. [SinSloth] -//= 1.4a You may enter either "Charmstone" or "Charm Stone" [Lupus] -//= 1.5 Fixed a bug in the number part of the quest. [SinSloth] -//= 1.6 Fixed experience gains to match upcoming rate adjustments. [SinSloth] -//= 1.7 Fixed a minor bug with prevented code part from reseting properly. [SinSloth] -//= 1.8 Corrected NPC names to fall within proper restrictions. [L0ne_W0lf] -//= 1.9 Fixed a bug in the last event which allowed an exploit after the first summoning. [SinSloth] -//= 2.0 Cleaned up the trans-only check, and added expanded classes. [L0ne_W0lf] -//= 2.1 Replaced effect numerics with constants. [Samuray22] -//= 2.2 Updated the whole Script to match with latest available official file. [Masao] -//= 2.3 Added continue and break in switch case. [JayPee] -//= 2.4 Fixed a minor bug with Arch Bishop checks. [Euphy] -//= 2.5 Cleaning. [Euphy] -//= 2.5a Fixed an incorrect variable. [Euphy] -//= 2.6 Merged identical timer labels. [Euphy] -//= 2.7 Fixed hidden warp (2nd floor) still warp players. [Joseph] +//= 1.0 Adapted from official release. [Euphy] //============================================================ 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")) { + switch(select("Thanatos Tower?:Entrance Fee?:Enter the tower:Cancel")) { case 1: mes "[Gatei]"; mes "Yes, the tower in front"; @@ -94,7 +74,7 @@ hu_fild01,140,163,5 script Tower Keeper 852,3,3,{ mes "enter Thanatos Tower?"; mes "The entry fee is ^FF00005,000 zeny^000000."; next; - switch (select("Enter:Maybe next time.")) { + switch(select("Enter:Maybe next time.")) { case 1: if (thana_tower > 0) { mes "[Gatei]"; @@ -104,7 +84,7 @@ hu_fild01,140,163,5 script Tower Keeper 852,3,3,{ mes "work contract, your entrance"; mes "fee is only 3,000 zeny."; next; - switch (select("Enter:No, thanks.")) { + switch(select("Enter:No, thanks.")) { case 1: if (Zeny > 2999) { mes "[Gatei]"; @@ -139,8 +119,8 @@ hu_fild01,140,163,5 script Tower Keeper 852,3,3,{ mes "very much. Now, I hope"; mes "you enjoy your visit"; mes "to Thanatos Tower~"; - set Zeny, Zeny - 5000; close2; + set Zeny, Zeny - 5000; warp "tha_scene01",131,220; end; } @@ -180,7 +160,6 @@ OnTouch: } tha_t01,149,78,4 script Guide 90,{ - if (thana_tower == 0) { mes "[Ditze]"; mes "Welcome to Thanatos Tower."; @@ -190,7 +169,7 @@ tha_t01,149,78,4 script Guide 90,{ mes "now open to the public. So"; mes "how may I help you today?"; next; - switch (select("Tower Information:Temporary Work Contract:Cancel")) { + switch(select("Tower Information:Temporary Work Contract:Cancel")) { case 1: mes "[Ditze]"; mes "When this tower was built,"; @@ -227,171 +206,55 @@ tha_t01,149,78,4 script Guide 90,{ mes "the near future, bringing us"; mes "closer to our goal of opening all 12 floors of Thanatos Tower."; next; - 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."; - close; - case 2: - 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; - 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; - } - switch (select("Maybe next time:Sure, I'd like to work for you.")) { + switch(select("Tower Monsters?:Temp Contract Work?:......")) { 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."; + 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."; 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?"; + 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; - menu "Yes",-; 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"; + 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; - 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 witin 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_tower,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; - } + goto L_Contract; + 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; } case 2: mes "[Ditze]"; @@ -408,122 +271,7 @@ tha_t01,149,78,4 script Guide 90,{ 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; - menu "Yes",-; - 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 witin 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_tower,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; - } - } + goto L_Contract; case 3: mes "[Ditze]"; mes "Well, if you have any"; @@ -540,10 +288,127 @@ tha_t01,149,78,4 script Guide 90,{ mes "and the Guide next to me. Well,"; mes "we hope you enjoy your experience working with Rekenber Corporation~"; close; + +L_Contract: + 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; + select("Yes"); + 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 witin 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_tower, 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; + } + } } tha_t01,140,78,4 script Guide#reward 831,{ - mes "[Liei]"; if (thana_tower == 0) { mes "Good day, I'm"; @@ -552,7 +417,7 @@ tha_t01,140,78,4 script Guide#reward 831,{ mes "Reward Department"; mes "here in Thanatos Tower."; next; - switch (select("Employee's mission reward?:Keep up the good work.")) { + switch(select("Employee's mission reward?:Keep up the good work.")) { case 1: mes "[Liei]"; mes "Currently, Rekenber Corporation"; @@ -573,7 +438,7 @@ tha_t01,140,78,4 script Guide#reward 831,{ mes "Ah, hello~"; mes "How may I help you?"; next; - if(select("Reward:Nothing")==2) { + if(select("Reward:Nothing") == 2) { mes "[Liei]"; mes "Alright, then."; mes "Please do your best"; @@ -581,7 +446,8 @@ tha_t01,140,78,4 script Guide#reward 831,{ mes "monsters that infest"; mes "the higher floors of"; mes "the Thanatos Tower~"; - close; } + close; + } mes "[Liei]"; mes "You're "+strcharinfo(0)+", yes?"; mes "Let me check our temp"; @@ -606,17 +472,16 @@ tha_t01,140,78,4 script Guide#reward 831,{ mes getitemname(.@Items[.@i])+" is..."; mes " "; mes "1,000 zeny"; - mes "2,000 EXP"; + //mes "2,000 EXP"; next; set .@zeny_tt,(countitem(.@Items[.@i]) * 1000); - set .@exp_tt,(countitem(.@Items[.@i]) * 2000); + //set .@exp_tt,(countitem(.@Items[.@i]) * 2000); mes "[Liei]"; - mes "If you turn in your"; mes countitem(.@Items[.@i])+" "+getitemname(.@Items[.@i])+"s, then"; mes "you will receive a total of..."; mes " "; mes ""+.@zeny_tt+" zeny"; - mes ""+.@exp_tt+" EXP"; + //mes ""+.@exp_tt+" EXP"; next; mes "[Liei]"; mes "Would you like to exchange"; @@ -627,13 +492,13 @@ tha_t01,140,78,4 script Guide#reward 831,{ case 1: mes "[Liei]"; mes "Great! Here is your"; - mes ""+.@zeny_tt+" zeny and"; - mes ""+.@exp_tt+" EXP. Thank you,"; + mes .@zeny_tt+" zeny. Thank you,"; + //mes .@exp_tt+" EXP. Thank you,"; mes "and please keep up"; mes "the good work~"; delitem .@Items[.@i], countitem(.@Items[.@i]); set Zeny, Zeny + .@zeny_tt; - getexp .@exp_tt,0; + //getexp .@exp_tt,0; close; case 2: mes "[Liei]"; @@ -647,7 +512,6 @@ tha_t01,140,78,4 script Guide#reward 831,{ } tha_t02,231,161,5 script Entrance Guide 874,{ - mes "[Burled]"; if (thana_tower == 0) { mes "You are in front of the entrance to the 3rd Floor. Only contracted"; @@ -656,261 +520,377 @@ tha_t02,231,161,5 script Entrance Guide 874,{ mes "speak to the 2nd Floor Guide."; close; } - mes "......"; - mes "........."; - mes "............"; + mes "This is the path to the 3rd floor."; + mes "Only the contracted staff are allowed to enter."; + mes "How can I help you?"; next; - switch (select("Excuse me...:.........")) { + switch(select("Let me go to 3rd floor.:Tower Information.:Start a conversation.")) { case 1: mes "[Burled]"; - mes "Oh..."; - mes "I'm sorry, how"; - mes "can I help you?"; + 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?"; next; - if (thana_tower < 2) { - switch (select("Enter the 3rd Floor:Gate Information")) { - case 1: - 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?"; - next; - if (getareausers("tha_t02",226,156,236,166) < 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 "" +getareausers("tha_t02",226,156,236,166)+ " 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."; - close2; - } - 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 "3rdf_warp#tt::OnEnable"; - end; - case 2: - 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]"; + if (getareausers("tha_t02",226,156,236,166) < 5) { + 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 getareausers("tha_t02",226,156,236,166)+ " 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 "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..."; + if (thana_tower > 3) { + next; + mes "^4d4dffBurled is smiling lightly so that only I notice."; + mes "I nod, then watch him open the gate.^000000"; + } + close2; + donpcevent "3rdf_warp#tt::OnEnable"; + end; + case 2: + 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."; + next; + mes "[Burled]"; + mes "The top is the 12th floor,"; + mes "and the monsters grow more powerful"; + mes "as you ascend the tower."; + mes "The geographical features also change considerably."; + 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; + case 3: + if (thana_tower < 3) { + mes "[Burled]"; + mes "...?"; + mes "Do you have any questions?"; + next; + if(select("About the development.:The relationship of Cool Event Corporation and Rekenber Corporation.:Nope.") == 3) { 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."; + mes "Take care."; close; } - } - switch (select("Enter the 3rd Floor:Gate Information:About Satan Morroc...")) { - case 1: 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?"; + mes "...um, you're quite curious."; + mes "If you want to know more, would you do me a favor?"; + mes "Since you asked for our confidential info..."; next; - if (getareausers("tha_t02",226,156,236,166) < 5) { + if(select("Really? Don't make me afraid of it.:Just tell me about it.:I'll listen about it later.") == 3) { 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 ""+getareausers("tha_t02",226,156,236,166)+" 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."; + mes "As you wish..."; + mes "Take care!"; 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."; + mes "Haha. That's not a big deal."; + mes "We, Cool Event, are the corporation that works in many areas of business."; + mes "From simple events, guides for dungeons, and trading items."; 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 "3rdf_warp#tt::OnEnable"; - end; - case 2: + mes "Though our business started as a small one, we've been getting bigger with assistance from the Rekenber Corporation."; + mes "They suggested to develop this tower together."; + next; 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."; + mes "The Rekenber Corporation is only digging out the remains for studies."; + mes "The rest would be made into sightseeing place, which Cool Event Corporation can manage well."; 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."; + mes "It's the biggest business ever."; + mes "Also quite profitable as tourist attractions."; + mes "But..."; 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..."; + mes "Considerably strong monsters spawn inside the tower."; + mes "The monsters weren't spawned there before."; + mes "The day after that happened..."; 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; - case 3: + mes "...anyway, there were some accidently spawned monsters and some troubles..."; + mes "We and the Rekenber Corporation are in shock."; + mes "We were influenced economically, but the more serious thing is..."; + next; + mes "[Burled]"; + mes "Many staff involved in development are"; + mes "sacrificing themselves by coming to 3rd floor."; + next; + mes "[Burled]"; + mes "While we've pumped our all into the business, that accident happened..."; + mes "We eventually merged with the Rekenber Corporation."; + next; 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?"; + mes "The development is on hold temporarily."; + mes "Recruiting adventurers to defeat monsters..."; + mes "Isn't this funny?"; next; - switch (select("It's important that I know more.:I'm sorry, I didn't know...")) { + mes "[Burled]"; + mes "No matter what happened there, they wouldn't be hurt."; + mes "Even if they don't get at the root of the accident...."; + next; + switch(select("Oh...:What accident are you referring to?")) { 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..."; + mes "Yes, it's not that big of a deal. Haha...."; + mes "If we are working here like this...."; + mes "we would know about the death of animals."; 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."; + mes "Cool Event Corporation is considered the follower..."; + mes "They don't clear up how many people"; + mes "died or any reasons for it."; 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."; + mes "Now you're curious about this case."; + mes "What do they sacrifice for?"; 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?"; + mes "I talked a lot."; + mes "Sorry, I am not supposed to talk about this case like this..."; + mes "I've been quite concerned about it, that's all."; + set thana_tower, 3; close; case 2: - close; + mes "[Burled]"; + mes "If you promise me that"; + mes "you will do me a favor..."; + next; + switch(select("Ok! I will.:No, I won't.")) { + case 1: + callsub L_Request; + next; + mes "["+strcharinfo(0)+"]"; + mes "(What's the accident...?"; + mes "He might let me know later...)"; + close; + case 2: + mes "[Burled]"; + mes "...there is no way..."; + mes "They request you to explore the internal part."; + mes "You're employed for this exploration."; + close; + } } } - case 2: - mes "["+strcharinfo(0)+"]"; - mes "............."; + else if (thana_tower == 3) { + callsub L_Request; + close; + } + else if (thana_tower == 4) { + mes "[Burled]"; + mes "Rekenber Corporation must have another intention,"; + mes "since they don't seem interested in the tower much."; + mes "I want to know their intention."; + next; + mes "[Burled]"; + mes "This tower is sealed and separated from the outside."; + mes "We need to break those seals, explore inside and develop it."; + next; + mes "[Burled]"; + mes "We are developing the 3rd and 4th floors now..."; + mes "There are still seals there."; + mes "You can find out some clues when you search around them."; close; + } + else if ((thana_tower > 4) && (thana_tower < 9)) { + mes "[Burled]"; + mes "The magical key and messages?"; + mes "...we absolutely haven't learned all the tower's secrets..."; + next; + mes "[Burled]"; + mes "Who made the seals?"; + mes "...can you investigate more?"; + mes "There must be definitive evidence..."; + close; + } + else if (thana_tower == 9) { + mes "[Burled]"; + mes "Any new progress?"; + next; + select("I found Varmunt's Journal..."); + mes "- You show him Varmunt's Journal."; + mes "Burled reads it. -"; + next; + mes "[Burled]"; + mes "...I recognize this."; + mes "This is the hologragh of the wise man Varmunt."; + mes "Regenschirm from Rekenber's huge research institute has..."; + next; + mes "[Burled]"; + mes "...isn't this the one they are looking for now?!"; + mes "Isn't their mission to find out Varmunt's research materials...?"; + next; + mes "[Burled]"; + mes "For assisting uncompleted research..."; + mes "Varmunt's research materials are needed..."; + mes "...so their mission isn't just an investigation of the tower."; + next; + mes "[Burled]"; + mes "Something to get as an advantage..."; + mes "Even they don't know where it is..."; + mes "...anyways, this is the one of their main objects."; + next; + mes "[Burled]"; + mes "It's absolutely great. The wise man Varmunt's belongings. How unbelievable!"; + mes "Now, what do we do with this?"; + next; + mes "[Burled]"; + mes "Originally everything we found out in this tower was under control of the Rekenber Corporation."; + mes "This is supposed to theirs, but..."; + next; + mes "[Burled]"; + mes "How would you like to keep this, "+strcharinfo(0)+"?"; + mes "Definitely this should be a secret."; + mes "...um, this is a little revenge for them."; + next; + mes "[Burled]"; + mes "I can guess that there are several secrets in this tower through this note."; + mes "This secret should be disclosed by you, "+strcharinfo(0)+", before Rekenber does."; + next; + mes "[Burled]"; + mes "No matter how much power they obtain... they won't get to know about this tower..."; + mes "Haha..."; + next; + mes "[Burled]"; + mes "...haha..."; + mes "I feel a bit relieved."; + mes "Thanks."; + mes "This isn't much, but here's a return present."; + next; + mes "[Burled]"; + mes "I hope that these will be useful for you, "+strcharinfo(0)+"."; + next; + mes "- Burled gives you the note and an Old Violet Box. -"; + mes " "; + mes "^4d4dffYou acquire one Old Violet Box,"; + mes "as well as a little EXP.^000000"; + set thana_tower, 10; + completequest 7053; + getexp 120000,10000; + getitem 617,1; //Old_Violet_Box + close; + } + else { + mes "[Burled]"; + mes "Are you keeping the secrets well?"; + mes "Is there a Phantom on the top of this tower?"; + if (rand(3) == 1) { + mes "You look tired. This isn't a big deal, but it's for you."; +// UseSkillToPC 28 10 50 70 + percentheal 50,70; + specialeffect2 EF_HEAL; + } + close; + } } + +L_Request: + mes "[Burled]"; + mes "Ah, it's not that difficult."; + mes "After you explore the tower, let me know in detail anything you learn."; + next; + mes "[Burled]"; + mes "...I can't believe the Rekenber Corporation. Many colleagues and friends died for them."; + mes "But the Rekenber Corporation doesn't expose the reason they are dead."; + next; + mes "[Burled]"; + mes "The conditions were bad for us from beginning..."; + mes "All of the developed places except research materials would be turned into tourist attractions..."; + mes "Honestly, all the personnel are from Cool Event Corp."; + next; + mes "[Burled]"; + mes "They know about it as well."; + mes "This business needs much sacrifice as well as personnel who are up for it."; + next; + mes "[Burled]"; + mes "Now I don't feel victimized anymore, but I just want to know what drives these accidents..."; + mes "^4d4dffWhat makes us victimized...?^000000"; + mes "That's what I want to know."; + next; + mes "[Burled]"; + mes "What's this tower?"; + mes "Why did they develop this dangerous place?"; + mes "And for what? Should my colleagues be dead for it?"; + next; + mes "[Burled]"; + mes "I seriously want to know about it."; + mes "Why they must sacrifice themselves..."; + mes "Let me know..."; + next; + mes "He seriously wants to know about it."; + mes "His hands are trembling now..."; + mes "I nodd without answering."; + set thana_tower, 4; + setquest 7048; + return; } tha_t02,227,163,0 script 3rdf_warp#tt 45,1,1,{ end; - OnInit: disablenpc "3rdf_warp#tt"; end; - OnTouch: if (thana_tower == 0) warp "tha_t02",227,158; else warp "tha_t03",219,159; end; - OnEnable: enablenpc "3rdf_warp#tt"; initnpctimer; end; - OnTimer30000: stopnpctimer; disablenpc "3rdf_warp#tt"; end; } -tha_t03,67,70,0 script Machine Device#tt1 111,{ - +tha_t03,67,70,0 script Rune Device#tt1 111,4,4,{ if ((countitem(7421) == 0) && (countitem(7426) == 0)) { mes "^3355FFA mysterious field of"; mes "energy seems to surround"; @@ -918,109 +898,121 @@ tha_t03,67,70,0 script Machine Device#tt1 111,{ mes "its power prevents you from"; mes "approaching the machine.^000000"; next; - switch (select("Smash the Energy Field:Retreat")) { + switch(select("Investigate it.:I don't care about it.")) { case 1: - if (getequipweaponlv(4) == 4){ + mes "["+strcharinfo(0)+"]"; + mes "This seems mysterious..."; + mes "Let me investigate."; + next; + mes "^3355FFAs you follow the magical power, there's something wrapped inside the rune device.^000000"; + next; + if (Class == Job_Taekwon) { + mes "^3355FFYou kick 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; + goto L_Key; + } + else if (getequipweaponlv(4) == 4) { 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; //Key_Red - close; - case 2: - close; - } - 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; //Key_Red - close; - } - case 2: - mes "^3355FFYou decide to leave"; - mes "the machine alone.^000000"; - close; - } + goto L_Key; + } + else { + 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 "^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; case 2: mes "^3355FFYou decide to leave"; mes "the machine alone.^000000"; close; } } - 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"; + mes "You've acquired everything you need from this rune device."; close; -} -tha_t04,195,195,0 script Machine Device#tt2 111,{ +OnTouch: + if ((countitem(7421) == 0) && (countitem(7426) == 0)) + specialeffect EF_LEVEL99_4; + end; +L_Key: + specialeffect EF_BRANDISH2; + mes "After breaking the device, the exterior shatters."; + mes "The energy field begins to disappear,"; + mes "and you see that a red object inside was the origin of the magical power."; + next; + mes "- You acquired the powerful Red Key. -"; + getitem 7421,1; //Key_Red + if (thana_tower != 4) close; + mes "^4d4dffOnce you hold the key, a shocking feeling passes through your head."; + mes "You see an illusion of light...^000000"; + next; + switch(select("Ignore it.:Concentrate on it.")) { + case 1: + mes "^3355FFYou decide to leave"; + mes "the machine alone.^000000"; + close; + case 2: + mes "You focus on the light."; + mes "Some letters begin to appear..."; + next; + mes "^b22222I'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."; + next; + mes "^b22222I can't relax when a, shall"; + mes "I say, particular group covets"; + mes "the charm stones and can easily"; + mes "break the seals. Since they are"; + mes "broken now, are many people hurt?"; + next; + mes "^b22222This tower contains strong"; + mes "magical powers and much evil. It is"; + mes "dangerous by itself, but I sealed it"; + mes "because of one man's strong desires..."; + next; + mes "^b22222I wouldn't recommend to go futher."; + mes "You would need to challenge that poor"; + mes "being, who I've named this tower after."; + mes "His soul still rests here..."; + next; + mes "^b22222Nobody believed me, the crazy scientist."; + mes "Though I wanted to keep this a secret, somebody"; + mes "must get to know about it. That's way I created"; + mes "this rune device, and hid this message."; + next; + mes "^b22222Please show that my experience"; + mes "wasn't just an illusion.^000000"; + next; + mes "That's all."; + mes "The letters fly away in the form of a red key..."; + set thana_tower, 5; + changequest 7048,7049; + specialeffect2 EF_COMBOATTACK1; + close; + } +} + +tha_t04,195,195,0 script Rune Device#tt2 111,3,3,{ if ((countitem(7422) == 0) && (countitem(7427) == 0)) { - mes "^3355FFYou find a number pad"; - mes "underneath the monitor."; + mes "^3355FFYou find a screen"; + mes "with three tiny panels and"; + mes "a numeric keypad underneath."; mes "As you press one of the"; mes "number keys, you hear a"; mes "beep as the screen activates.^000000"; @@ -1030,22 +1022,18 @@ tha_t04,195,195,0 script Machine Device#tt2 111,{ mes "number. Do not use a"; mes "single number more than"; mes "once or use the number 0."; - set @retry,0; next; while (1) { - set @yagu100,rand(1,9); - set @yagu10,rand(1,9); - set @yagu1,rand(1,9); - if (((@yagu100 != @yagu10) && (@yagu100 != @yagu1)) && (@yagu10 != @yagu1)) { + set .@yagu100, rand(1,9); + set .@yagu10, rand(1,9); + set .@yagu1, rand(1,9); + if (((.@yagu100 != .@yagu10) && (.@yagu100 != .@yagu1)) && (.@yagu10 != .@yagu1)) break; - } } while (1) { while (1) { -L_Retry: - next; - input @input; - if (@input < 100 || @input > 999) { + input .@input; + if (.@input < 100 || .@input > 999) { mes "[Screen]"; mes "Number input"; mes "requirement has"; @@ -1054,12 +1042,11 @@ L_Retry: mes "3 digit number."; close; } - set @input100,@input / 100; - set @input10,(@input % 100) / 10; - if (((@input100 > 0) && (@input10 > 0)) && ((@input % 10) > 0)) { - if ((@input100 != @input10) && (@input100 != (@input % 10)) && (@input10 != (@input % 10))) { + set .@input100, .@input / 100; + set .@input10, (.@input % 100) / 10; + if (((.@input100 > 0) && (.@input10 > 0)) && (.@input % 10 > 0)) { + if (((.@input100 != .@input10) && (.@input100 != .@input % 10)) && (.@input10 != .@input % 10)) break; - } mes "[Screen]"; mes "Violation of number"; mes "input parameter. The"; @@ -1069,94 +1056,75 @@ L_Retry: next; } } - set @retry,@retry+1; + set .@retry, .@retry + 1; mes "[Screen]"; mes "You have input..."; - mes "^0000ff"+@input100+"^000000, ^0000ff"+@input10+"^000000, ^0000ff"+(@input % 10)+"^000000"; + mes "^0000ff" + .@input100 + "^000000, ^0000ff" + .@input10 + "^000000, ^0000ff" + (.@input % 10) + "^000000"; mes " "; mes "Calculating Results..."; mes "Please wait a moment..."; next; - set @strike,0; - set @ball,0; - if (@yagu100 == @input100) set @strike,@strike+1; - if (@yagu10 == @input10) set @strike,@strike+1; - if (@yagu1 == (@input % 10)) set @strike,@strike+1; - if ((@yagu100 == @input10) || (@yagu100 == (@input % 10))) set .@ball,.@ball+1; - if ((@yagu10 == @input100) || (@yagu10 == (@input % 10))) set @ball,@ball+1; - if ((@yagu1 == @input100) || (@yagu1 == @input10)) set @ball,@ball+1; - if (@strike == 3) { + set .@strike, 0; + set .@ball, 0; + if (.@yagu100 == .@input100) set .@strike, .@strike + 1; + if (.@yagu10 == .@input10) set .@strike, .@strike + 1; + if (.@yagu1 == .@input % 10) set .@strike, .@strike + 1; + if ((.@yagu100 == .@input10) || (.@yagu100 == .@input % 10)) set .@ball, .@ball + 1; + if ((.@yagu10 == .@input100) || (.@yagu10 == .@input % 10)) set .@ball, .@ball + 1; + if ((.@yagu1 == .@input100) || (.@yagu1 == .@input10)) 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"; + mes "notice, magical power condenses"; + mes "and appears on the screen's"; + mes "surface. An object forms...^000000"; next; - switch (select("Read the Screen's Text:Investigate Monitor Storage:Cancel")) { + mes "^4d4dffThe powerful Yellow Key appears.^000000"; + getitem 7422,1; //Key_Yellow + if (thana_tower != 5) close; + mes "^4d4dffA fierce feeling passes through your head."; + mes "You seen an illusion of light, like when you acquired the first key.^000000"; + next; + switch(select("Ignore it.:Concentrate on it.")) { 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"; + mes "You decide to ignore it."; + close; + case 2: + mes "You focus on the light."; + mes "Some letters begin to appear..."; 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"; + mes "^b22222Have you found the second key?"; + mes "I wish to tell you where the seal is, but I won't unveil it so easily."; + mes "Here's a hint. Go to the eagle on the 5th floor."; 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"; + mes "^b22222The reason I came here is..."; + mes "to find someone."; + mes "We human beings can't understand this..."; next; - mes "^3355FFYou've finished"; - mes "reading the Log Entry.^000000"; + mes "^b22222When I found her in Juperos, I couldn't relax."; + mes "The giant men staying with her in deep side of cave"; + mes "made me rush through my investigation..."; next; - switch (select("Investigate Monitor Storage:Cancel")) { - case 1: - 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_tower == 1) set thana_tower,2; - getitem 7422,1; //Key_Yellow - close; - 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"; - getitem 7422,1; //Key_Yellow - 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"; + mes "^b22222After confirming her existence, I became blindly obsessed with finding traces of her."; + mes "'Her', you ask? She is shaped like a woman..."; + next; + mes "^b22222I followed her traces without knowing that she existed 10 years earlier."; + mes "Then I came upon this place."; + next; + mes "^b22222This tower set up for...^000000"; + next; + mes "It suddenly shakes, then disappears."; + set thana_tower, 6; + changequest 7049,7050; + specialeffect2 EF_COMBOATTACK1; close; } } - if (@retry > 4) { + else { mes "[Screen]"; mes "*Beeeeep*"; mes "Unauthorized"; @@ -1165,1603 +1133,1188 @@ L_Retry: mes "[Screen]"; mes "Correct number"; mes "in correct place"; - mes "in sequence total: ^FF0000"+@strike+"^000000"; + mes "in sequence total: ^FF0000" + .@strike + "^000000"; mes " "; - mes "Correct number total: ^FF0000"+@ball+"^000000"; + mes "Correct number total: ^FF0000" + .@ball + "^000000"; next; - mes "[Screen]"; - mes "Correct number"; - mes "authorization"; - mes "sequence was..."; - mes "^ff0000"+@yagu100+"^000000, ^ff0000"+@yagu10+"^000000, ^ff0000"+@yagu1+"^000000"; - mes "Authorization number"; - mes "will change upon retry."; - close; + if (.@retry > 4) { + mes "[Screen]"; + mes "Correct number"; + mes "authorization"; + mes "sequence was..."; + mes "^ff0000" + .@yagu100 + "^000000, ^ff0000" + .@yagu10 + "^000000, ^ff0000" + .@yagu1 + "^000000"; + mes "Authorization number"; + mes "will change upon retry."; + 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"; - goto L_Retry; } } - mes "^3355FFThis device is currently"; - mes "inactivated and not in"; - mes "operation. However, you"; - mes "may have use for it later...^000000"; + mes "You've acquired everything you need from this rune device."; close; -} -tha_t05,101,37,0 script Machine Device#tt3 111,{ +OnTouch: + if ((countitem(7422) == 0) && (countitem(7427) == 0)) + specialeffect EF_LEVEL99_4; + end; +} +tha_t05,62,179,0 script Brilliant Statue#tt3 111,3,3,{ if ((countitem(7423) == 0) && (countitem(7428) == 0)) { - if (getareausers("tha_t05",98,34,104,40) < 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"; - 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; - } + mes "I can feel some magical power from this beautiful stone statue."; + mes "There's a little crack between the wings."; + next; + mes "Red light is shining on a crack in the left wing, and gold light on a crack in the right one."; + mes "What will you do?"; + next; + if(select("Stick the key into the crack...:Ignore it.") == 2) { + mes "^3355FFYou decide to leave"; + mes "the statue alone.^000000"; close; } - 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"; + if ((countitem(7421) > 0) && (countitem(7422) > 0)) { + mes "["+strcharinfo(0)+"]"; + mes "I'll try the left wing first."; + mes "What key should I put in?"; 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"; + input .@inputstr$; + if ((.@inputstr$ != "Red Key") && (.@inputstr$ != "red key")) { + mes "It doesn't fit into the crack."; + close; + } + mes "The key fits and makes a click."; + mes "You feel the magical power growing stronger..."; 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"; + mes "["+strcharinfo(0)+"]"; + mes "Now the right side..."; 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"; + input .@inputstr$; + if ((.@inputstr$ != "Yellow Key") && (.@inputstr$ != "yellow key")) { + mes "It doesn't fit into the crack."; + close; + } + mes "The key fits and makes a click."; + mes "The beak of the bird suddenly opens, and a strong light comes out."; + mes "There's a key-shaped object inside..."; 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"; + mes "^4d4dffThe powerful Blue Key appears.^000000"; getitem 7423,1; //Key_Blue - close; - case 3: - close; + if (thana_tower != 6) close; + mes "^4d4dffOnce you hold the key, a shocking feeling passes through your head."; + mes "You see an illusion of light...^000000"; + next; + switch(select("Concentrate on it.:Ignore it.")) { + case 1: + mes "This part isn't as clear as before."; + mes "You try to figure out what it's saying..."; + next; + mes "^b22222...this tower was built by a magical tribe, not by human beings."; + mes "This was quite interesting to me..."; + mes "I started to investigate why they built up the tower..."; + next; + mes "^b22222I found out that this tower was a gate for the magic tribe"; + mes "during a millennium war.^000000"; + next; + mes ".........It's not clearly shown......"; + mes "^b22222...Morroc has gone through this gate"; + mes "from the magical world into the Midgard continent after the millennium war terminated..."; + next; + mes "^b22222The question is that when she come up here, the Satan appears at the same time..."; + mes "The truth is..........^000000"; + next; + mes "The illusion shakes, then melts on the surface of the key as light."; + set thana_tower, 7; + changequest 7050,7051; + specialeffect2 EF_COMBOATTACK1; + close; + case 2: + mes "You decide to ignore it."; + close; + } } + mes "You try to fit something in the crack, but to no avail."; + close; } - mes "^3355FFYou find nothing here,"; - mes "aside from the faded"; - mes "patterns that mark the floor.^000000"; + mes "You've acquired everything you need from this statue."; close; -} -tha_t06,43,152,0 script Machine Devicett4 111,{ +OnTouch: + if ((countitem(7423) == 0) && (countitem(7428) == 0)) + specialeffect EF_LEVEL99_4; + end; +} +tha_t06,226,230,0 script Brilliant Statue#tt4 111,3,3,{ if ((countitem(7424) == 0) && (countitem(7429) == 0)) { - 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"; + mes "I can feel some magical power from this brilliant statue."; + mes "This must be one of the seals."; next; - switch (select("Investigate:Cancel")) { - case 1: - if ((countitem(7421) >= 1) || (countitem(7422) >= 1) || (countitem(7423) >= 1)) { - 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"; + mes "You see a floating round object with a hole in it."; + mes "There're red, yellow, and blue light in a row."; + mes "What will you do?"; + next; + if(select("Investigate.:Ignore it.") == 2) { + mes "^3355FFYou don't see the need to"; + mes "investigate if nothing seems"; + mes "peculiar or out of place...^000000"; + close; + } + if ((countitem(7421) > 0) && (countitem(7422) > 0) && (countitem(7423) > 0)) { + mes "When you insert the key into the keyhole of the ornament"; + mes "and match them by corresponding color, the Stone Statue will snap open."; + mes "You can see small wheels are moving inside."; + 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 .@small_1, 0; + set .@small_2, 0; + set .@big_1, 0; + set .@big_2, 0; + set .@big_3, 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; - 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 @small_1,0; - set @small_2,0; - set @big_1,0; - set @big_2,0; - set @big_3,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"; + 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 noises, the"; + mes "wheels may be misaligned."; + mes "You might be able to activate"; + mes "the machine by properly "; + mes "aligning all the wheels.^000000"; + while (1) { next; - mes "^3355FFJudging from the machine's"; - mes "shaking and jittery noises, the"; - mes "wheels may be misaligned."; - mes "You might be able to activate"; - mes "the machine by properly "; - mes "aligning all the wheels.^000000"; - while (1) { - next; - mes "^3355FFWhich wheel would"; - mes "you want to shift?^000000"; - next; - 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")) { + mes "^3355FFWhich wheel do"; + 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: + switch(select("Raise Wheel:Lower Wheel:Press Wheel")) { case 1: - switch (select("Raise Wheel:Lower Wheel:Press Wheel")) { - case 1: - mes "^EE0000*Choom*^000000"; - set @small_1,2; - if ((@small_1 == 2) && (@small_2 == 2) && (@big_1 == 2) && (@big_2 == 2) && (@big_3 == 2)) break; - continue; - case 2: - mes "^00B2EE*Sneeeep*^000000"; - set @small_1,1; - if ((@small_1 == 1) && (@small_2 == 1) && (@big_1 == 1) && (@big_2 == 1) && (@big_3 == 1)) break; - continue; - case 3: - mes "^5C246E*Mrreeem*^000000"; - set @small_1,3; - if ((@small_1 == 3) && (@small_2 == 3) && (@big_1 == 3) && (@big_2 == 3) && (@big_3 == 3)) break; - continue; - } - break; + mes "^EE0000*Choom*^000000"; + set .@small_1, 2; + if ((.@small_1 == 2) && (.@small_2 == 2) && (.@big_1 == 2) && (.@big_2 == 2) && (.@big_3 == 2)) break; + continue; case 2: - switch (select("Raise Wheel:Lower Wheel:Press Wheel")) { - case 1: - mes "^5C246E*Mrreeem*^000000"; - set @small_2,3; - if ((@small_1 == 3) && (@small_2 == 3) && (@big_1 == 3) && (@big_2 == 3) && (@big_3 == 3)) break; - continue; - case 2: - mes "^EE0000*Choom*^000000"; - set @small_2,2; - if ((@small_1 == 2) && (@small_2 == 2) && (@big_1 == 2) && (@big_2 == 2) && (@big_3 == 2)) break; - continue; - case 3: - mes "^00B2EE*Sneeeep*^000000"; - set @small_2,1; - if ((@small_1 == 1) && (@small_2 == 1) && (@big_1 == 1) && (@big_2 == 1) && (@big_3 == 1)) break; - continue; - } - break; + mes "^00B2EE*Sneeeep*^000000"; + set .@small_1, 1; + if ((.@small_1 == 1) && (.@small_2 == 1) && (.@big_1 == 1) && (.@big_2 == 1) && (.@big_3 == 1)) break; + continue; case 3: - switch (select("Raise Wheel:Lower Wheel:Vertically Shift Wheel")) { - case 1: - mes "^00B2EE*Sneeeep*^000000"; - set @big_1,1; - if ((@small_1 == 1) && (@small_2 == 1) && (@big_1 == 1) && (@big_2 == 1) && (@big_3 == 1)) break; - continue; - case 2: - mes "^5C246E*Mrreeem*^000000"; - set @big_1,3; - if ((@small_1 == 3) && (@small_2 == 3) && (@big_1 == 3) && (@big_2 == 3) && (@big_3 == 3)) break; - continue; - case 3: - mes "^EE0000*Choom*^000000"; - set @big_1,2; - if ((@small_1 == 2) && (@small_2 == 2) && (@big_1 == 2) && (@big_2 == 2) && (@big_3 == 2)) break; - continue; - } - break; - case 4: - switch (select("Raise Wheel:Lower Wheel:Vertically Shift Wheel")) { - case 1: - mes "^EE0000*Choom*^000000"; - set @big_2,2; - if ((@small_1 == 2) && (@small_2 == 2) && (@big_1 == 2) && (@big_2 == 2) && (@big_3 == 2)) break; - continue; - case 2: - mes "^5C246E*Mrreeem*^000000"; - set @big_2,3; - if ((@small_1 == 3) && (@small_2 == 3) && (@big_1 == 3) && (@big_2 == 3) && (@big_3 == 3)) break; - continue; - case 3: - mes "^00B2EE*Sneeeep*^000000"; - set @big_2,1; - if ((@small_1 == 1) && (@small_2 == 1) && (@big_1 == 1) && (@big_2 == 1) && (@big_3 == 1)) break; - continue; - } - break; - case 5: - switch (select("Raise Wheel:Lower Wheel:Vertically Shift Wheel")) { - case 1: - mes "^EE0000*Choom*^000000"; - set @big_3,2; - if ((@small_1 == 2) && (@small_2 == 2) && (@big_1 == 2) && (@big_2 == 2) && (@big_3 == 2)) break; - continue; - case 2: - mes "^00B2EE*Sneeeep*^000000"; - set @big_3,1; - if ((@small_1 == 1) && (@small_2 == 1) && (@big_1 == 1) && (@big_2 == 1) && (@big_3 == 1)) break; - continue; - case 3: - mes "^5C246E*Mrreeem*^000000"; - set @big_3,3; - if ((@small_1 == 3) && (@small_2 == 3) && (@big_1 == 3) && (@big_2 == 3) && (@big_3 == 3)) break; - continue; - } - break; - case 6: - mes "---Wheel Position---"; - if (@small_1 == 0) mes "1st Small Wheel: No Change"; - else if (@small_1 == 1) mes "1st Small Wheel: Down"; - else if (@small_1 == 2) mes "1st Small Wheel: Up"; - else mes "1st Small Wheel: Pressed"; - - if (@small_2 == 0) mes "2nd Small Wheel: No Change"; - else if (@small_2 == 1) mes "2nd Small Wheel: Pressed"; - else if (@small_2 == 2) mes "2nd Small Wheel: Down"; - else mes "2nd Small Wheel: Up"; - - if (@big_1 == 0) mes "1st Big Wheel: No Change"; - else if (@big_1 == 1) mes "1st Big Wheel: Up"; - else if (@big_1 == 2) mes "1st Big Wheel: Moved"; - else mes "1st Big Wheel: Down"; - - if (@big_2 == 0) mes "2nd Big Wheel: No Change"; - else if (@big_2 == 1) mes "2nd Big Wheel: Moved"; - else if (@big_2 == 2) mes "2nd Big Wheel: Up"; - else mes "2nd Big Wheel: Down"; - - if (@big_3 == 0) mes "3rd Big Wheel: No Change"; - else if (@big_3 == 1) mes "3rd Big Wheel: Down"; - else if (@big_3 == 2) mes "3rd Big Wheel: Up"; - else mes "3rd Big Wheel: Moved"; - - next; - mes "---Wheel Sound---"; - if (@small_1 == 0) mes "1st Small Wheel: *Br-brak!*"; - else if (@small_1 == 1) mes "1st Small Wheel: *Sneeeep*"; - else if (@small_1 == 2) mes "1st Small Wheel: *Choom*"; - else mes "1st Small Wheel: *Mrreeem*"; - - if (@small_2 == 0) mes "2nd Small Wheel: *Br-brak!*"; - else if (@small_2 == 1) mes "2nd Small Wheel: *Sneeeep*"; - else if (@small_2 == 2) mes "2nd Small Wheel: *Choom*"; - else mes "2nd Small Wheel: *Mrreeem*"; - - if (@big_1 == 0) mes "1st Big Wheel: *Br-brak!*"; - else if (@big_1 == 1) mes "1st Big Wheel: *Sneeeep*"; - else if (@big_1 == 2) mes "1st Big Wheel: *Choom*"; - else mes "1st Big Wheel: *Mrreeem*"; - - if (@big_2 == 0) mes "2nd Big Wheel: *Br-brak!*"; - else if (@big_2 == 1) mes "2nd Big Wheel: *Sneeeep*"; - else if (@big_2 == 2) mes "2nd Big Wheel: *Choom*"; - else mes "2nd Big Wheel: *Mrreeem*"; - - if (@big_3 == 0) mes "3rd Big Wheel: *Br-brak!*"; - else if (@big_3 == 1) mes "3rd Big Wheel: *Sneeeep*"; - else if (@big_3 == 2) mes "3rd Big Wheel: *Choom*"; - else mes "3rd Big Wheel: *Mrreeem*"; - + mes "^5C246E*Mrreeem*^000000"; + set .@small_1, 3; + if ((.@small_1 == 3) && (.@small_2 == 3) && (.@big_1 == 3) && (.@big_2 == 3) && (.@big_3 == 3)) break; continue; - case 7: - set @small_1,0; - set @small_2,0; - set @big_1,0; - set @big_2,0; - set @big_3,0; - close; } break; - } - 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; //Key_Green - close; + switch(select("Raise Wheel:Lower Wheel:Press Wheel")) { + case 1: + mes "^5C246E*Mrreeem*^000000"; + set .@small_2, 3; + if ((.@small_1 == 3) && (.@small_2 == 3) && (.@big_1 == 3) && (.@big_2 == 3) && (.@big_3 == 3)) break; + continue; + case 2: + mes "^EE0000*Choom*^000000"; + set .@small_2, 2; + if ((.@small_1 == 2) && (.@small_2 == 2) && (.@big_1 == 2) && (.@big_2 == 2) && (.@big_3 == 2)) break; + continue; + case 3: + mes "^00B2EE*Sneeeep*^000000"; + set .@small_2, 1; + if ((.@small_1 == 1) && (.@small_2 == 1) && (.@big_1 == 1) && (.@big_2 == 1) && (.@big_3 == 1)) break; + continue; + } + break; case 3: - close; + switch(select("Raise Wheel:Lower Wheel:Vertically Shift Wheel")) { + case 1: + mes "^00B2EE*Sneeeep*^000000"; + set .@big_1, 1; + if ((.@small_1 == 1) && (.@small_2 == 1) && (.@big_1 == 1) && (.@big_2 == 1) && (.@big_3 == 1)) break; + continue; + case 2: + mes "^5C246E*Mrreeem*^000000"; + set .@big_1, 3; + if ((.@small_1 == 3) && (.@small_2 == 3) && (.@big_1 == 3) && (.@big_2 == 3) && (.@big_3 == 3)) break; + continue; + case 3: + mes "^EE0000*Choom*^000000"; + set .@big_1, 2; + if ((.@small_1 == 2) && (.@small_2 == 2) && (.@big_1 == 2) && (.@big_2 == 2) && (.@big_3 == 2)) break; + continue; + } + break; + case 4: + switch(select("Raise Wheel:Lower Wheel:Vertically Shift Wheel")) { + case 1: + mes "^EE0000*Choom*^000000"; + set .@big_2, 2; + if ((.@small_1 == 2) && (.@small_2 == 2) && (.@big_1 == 2) && (.@big_2 == 2) && (.@big_3 == 2)) break; + continue; + case 2: + mes "^5C246E*Mrreeem*^000000"; + set .@big_2, 3; + if ((.@small_1 == 3) && (.@small_2 == 3) && (.@big_1 == 3) && (.@big_2 == 3) && (.@big_3 == 3)) break; + continue; + case 3: + mes "^00B2EE*Sneeeep*^000000"; + set .@big_2, 1; + if ((.@small_1 == 1) && (.@small_2 == 1) && (.@big_1 == 1) && (.@big_2 == 1) && (.@big_3 == 1)) break; + continue; + } + break; + case 5: + switch(select("Raise Wheel:Lower Wheel:Vertically Shift Wheel")) { + case 1: + mes "^EE0000*Choom*^000000"; + set .@big_3, 2; + if ((.@small_1 == 2) && (.@small_2 == 2) && (.@big_1 == 2) && (.@big_2 == 2) && (.@big_3 == 2)) break; + continue; + case 2: + mes "^00B2EE*Sneeeep*^000000"; + set .@big_3, 1; + if ((.@small_1 == 1) && (.@small_2 == 1) && (.@big_1 == 1) && (.@big_2 == 1) && (.@big_3 == 1)) break; + continue; + case 3: + mes "^5C246E*Mrreeem*^000000"; + set .@big_3, 3; + if ((.@small_1 == 3) && (.@small_2 == 3) && (.@big_1 == 3) && (.@big_2 == 3) && (.@big_3 == 3)) break; + continue; + } + break; + case 6: + if (.@small_1 == 0) mes "1st Small Wheel: No Change"; + else if (.@small_1 == 1) mes "1st Small Wheel: Down"; + else if (.@small_1 == 2) mes "1st Small Wheel: Up"; + else mes "1st Small Wheel: Pressed"; + + if (.@small_2 == 0) mes "2nd Small Wheel: No Change"; + else if (.@small_2 == 1) mes "2nd Small Wheel: Pressed"; + else if (.@small_2 == 2) mes "2nd Small Wheel: Down"; + else mes "2nd Small Wheel: Up"; + + if (.@big_1 == 0) mes "1st Big Wheel: No Change"; + else if (.@big_1 == 1) mes "1st Big Wheel: Up"; + else if (.@big_1 == 2) mes "1st Big Wheel: Moved"; + else mes "1st Big Wheel: Down"; + + if (.@big_2 == 0) mes "2nd Big Wheel: No Change"; + else if (.@big_2 == 1) mes "2nd Big Wheel: Moved"; + else if (.@big_2 == 2) mes "2nd Big Wheel: Up"; + else mes "2nd Big Wheel: Down"; + + if (.@big_3 == 0) mes "3rd Big Wheel: No Change"; + else if (.@big_3 == 1) mes "3rd Big Wheel: Down"; + else if (.@big_3 == 2) mes "3rd Big Wheel: Up"; + else mes "3rd Big Wheel: Moved"; + continue; + case 7: + set .@small_1, 0; + set .@small_2, 0; + set .@big_1, 0; + set .@big_2, 0; + set .@big_3, 0; + continue; } - case 3: + break; + } + mes "As you adjust the wheels,"; + mes "they suddenly activate"; + mes "with a firm click."; + next; + mes "A part of the ornament in the stone statue starts to spin,"; + mes "and a shining light beam climbs up the elegant statue."; + mes "A strong cursed power emerges and emits a dazzling green light."; + specialeffect EF_DISPELL; + specialeffect EF_POTION6; + next; + mes "^4d4dffAll of a sudden, the Green Key appears and you can feel great power from it.^000000"; + getitem 7424,1; //Key_Green + if (thana_tower != 7) close; + mes "^4d4dffWhen you pick up the key,"; + mes "your body trembles"; + mes "with an unknown power"; + mes "and you see a hallucination with some text.^000000"; + next; + switch(select("Concentrate on it.:Ignore it.")) { + case 1: + mes "^b22222...You found 4 keys"; + mes "and finally released 4 spells..."; + mes "This tower used to be"; + mes "a gate to summon demons ages ago."; + mes "And the last visitor was"; + mes "the infamous Satan Morroc."; + next; + mes "^b22222As I followed her trail"; + mes "I realized that her spells"; + mes "were scattered around the tower."; + mes "Then, somehow, it vanished into the ground."; + next; + mes "^b22222The great battle and"; + mes "the protracted war..."; + mes "But her purpose was..."; + mes "that... sealing of the gate..."; + mes "so... I tried to seal..."; + mes "but it was incomplete..."; + mes "the guard of the gate was...^000000"; + next; + mes "["+strcharinfo(0)+"]"; + mes "It is hard to read."; + next; + mes "^b22222...So I changed the location"; + mes "of the coupling spot..."; + mes "I mean, push through to the tower"; + mes "to tangle it..."; + mes "Anyway, I wanted to respect"; + mes "her loyalty and block the gate..."; + next; + mes "^b22222If I want to... then I have to"; + mes "release the last spell..."; + mes "He finally came to meet..."; + mes "with his pieces..."; + mes "...and then...^000000"; + next; + mes "The hallucination wobbles"; + mes "and fades into the key."; + set thana_tower, 8; + changequest 7051,7052; + specialeffect2 EF_BEGINSPELL6; + specialeffect2 EF_SPELLBREAKER; + close; + case 2: + mes "It was too intense to see the hallucination, so you gave up reading."; close; } + case 3: + mes "You decide to ignore it."; + close; } - 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; } + mes "You don't have the right key for this keyhole."; + close; } - mes "^3355FFYou found a deactivated"; - mes "mechanical device with an"; - mes "interesting series of wheels.^000000"; + mes "The spell is already released. You've acquired everything you need from this statue."; close; -} -tha_t09,19,158,0 script Machine Device#tt5 111,{ +OnTouch: + if ((countitem(7424) == 0) && (countitem(7429) == 0)) + specialeffect EF_LEVEL99_4; + end; +} +tha_t06,204,181,0 script Splendid Sword#tt5 111,3,3,{ if ((countitem(7425) == 0) && (countitem(7430) == 0)) { - if (((countitem(7421) >= 1) || (countitem(7426) >= 1)) && ((countitem(7422) >= 1) || (countitem(7427) >= 1)) && ((countitem(7423) >= 1) || (countitem(7428) >= 1)) && ((countitem(7424) >= 1) || (countitem(7429) >= 1))) { - 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"; + mes "An old, worn sword hangs above the splendid table."; + mes "It emits a gloomy aura."; + next; + if ((countitem(7421) > 0) && (countitem(7422) > 0) && (countitem(7423) > 0) && (countitem(7424) > 0)) { + mes "As you approach, the keys in your pocket"; + mes "suddenly respond with a mysterious power."; + specialeffect2 EF_ABSORBSPIRITS; 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."; + if(select("Observe it.:Ignore it.") == 2) { + mes "^3355FFYou decide to leave"; + mes "the sword alone.^000000"; + close; + } + mes "While you get closer and closer, the sword shakes with a loud noise."; + mes "Your eyes keep getting drawn to the sword's hilt."; + mes "Then you lose control of your hands, and they stretch forth to grasp the handle..."; next; - input .@inputstr$; - if (.@inputstr$ == "Key" || .@inputstr$ == "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"; + switch(select("Towards the blade of the sword:Towards the hilt of the sword:Towards the table")) { + case 1: + mes "By an unknown calling you decide to grab the blade of the sword."; + mes "Your hands get wounded and begin to bleed."; + specialeffect2 EF_HIT1; + percentheal -20,0; + close; + case 2: + mes "By an unknown calling you decide to grab the hilt of the sword."; + mes "The mysterious power from the keys transfers to the sword, and it falls from the table."; next; - switch (select("Read the Screen's Text:Investigate Monitor Storage:Cancel")) { + mes "At the same time, a little hole appears on the table's surface."; + mes "Now, you hold the sword and..."; + specialeffect EF_EXIT2; + next; + switch(select("Strike the table:Insert the sword into the hole:Bring the sword safely")) { 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"; + mes "You strike the table with the sword."; + mes "Numerous conflicting spells act upon it, and you can tell that you chose incorrectly."; + mes "The sword automatically returns to the table, as it was before."; + specialeffect EF_HIT1; + specialeffect2 EF_HIT1; + percentheal -20,0; 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"; + mes "As you insert the sword, lightning flashes around it and black smoke rises from the hole."; + mes "Slowly the smoke clears, and you see an object with a certain shape..."; + specialeffect EF_CHANGEDARK; + next; + mes "^4d4dff All of a sudden, a Black Key appears from the smoke and you feel a great cursed power from it.^000000"; getitem 7425,1; //Key_Black + if (thana_tower != 8) close; + next; + mes "A drawer had snapped open under the table while you picked up the key and observed it."; + mes "You can see an old notebook inside the drawer."; + next; + mes "The notebook definitely looks like it contains an important message."; + mes "Maybe this notebook is the one that Rekenber wants to find, even with all the sacrifices."; + next; + mes "^4d4dffYou decide to show the notebook and the keys to Burled."; + mes "You received Varmunt's Journal.^000000"; + set thana_tower, 9; + changequest 7052,7053; + getitem 11011,1; //Barmund_Note close; case 3: - mes "^3355FFYou retrieve the Charm"; - mes "Stones and keys that you"; - mes "inserted into the machine.^000000"; + mes "When you lift the sword, you feel a shock from numerous conflicting spells."; + mes "Right... stealing is the worst."; + mes "The sword automatically returns to the table, as it was before."; close; } + case 3: + mes "You stretch your hands to find something under the table, but there is nothing."; + close; } - mes "You attempt to"; - mes .@inputstr$+","; - mes "but nothing happened."; - 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"; + mes "You strongly feel a cursed, sealed power from here,"; + mes "but it is hard to figure out what is causing it."; + mes "You cannot approach it."; close; } - mes "^3355FFYou find a peculiar"; - mes "mechanical device that"; - mes "is not in operation.^000000"; + mes "You have already released a seal using this sword."; + mes "You've acquired everything you need from here."; close; + +OnTouch: + if ((countitem(7425) == 0) && (countitem(7430) == 0)) + specialeffect EF_LEVEL99_4; + end; } -tha_t04,150,44,0 script Seal#tt1 111,{ +tha_t08,1,1,0 script #Charm Stone Admintt01 844,{ + end; +OnInit: +OnEnable: + initnpctimer; + end; +OnTimer1000: + donpcevent "Shining Crystal#tt_r1::OnEnable"; + donpcevent "Shining Crystal#tt_g1::OnEnable"; + donpcevent "Shining Crystal#tt_b1::OnEnable"; + donpcevent "Shining Crystal#tt_y1::OnEnable"; + end; +OnTimer600000: + donpcevent "Shining Crystal#tt_r1::OnDisable"; + donpcevent "Shining Crystal#tt_g1::OnDisable"; + donpcevent "Shining Crystal#tt_b1::OnDisable"; + donpcevent "Shining Crystal#tt_y1::OnDisable"; + donpcevent "Shining Crystal#tt_r2::OnEnable"; + donpcevent "Shining Crystal#tt_g2::OnEnable"; + donpcevent "Shining Crystal#tt_b2::OnEnable"; + donpcevent "Shining Crystal#tt_y2::OnEnable"; + end; +OnTimer1200000: + donpcevent "Shining Crystal#tt_r2::OnDisable"; + donpcevent "Shining Crystal#tt_g2::OnDisable"; + donpcevent "Shining Crystal#tt_b2::OnDisable"; + donpcevent "Shining Crystal#tt_y2::OnDisable"; + donpcevent "Shining Crystal#tt_r3::OnEnable"; + donpcevent "Shining Crystal#tt_g3::OnEnable"; + donpcevent "Shining Crystal#tt_b3::OnEnable"; + donpcevent "Shining Crystal#tt_y3::OnEnable"; + end; +OnTimer1800000: + donpcevent "Shining Crystal#tt_r3::OnDisable"; + donpcevent "Shining Crystal#tt_g3::OnDisable"; + donpcevent "Shining Crystal#tt_b3::OnDisable"; + donpcevent "Shining Crystal#tt_y3::OnDisable"; + donpcevent "Shining Crystal#tt_r4::OnEnable"; + donpcevent "Shining Crystal#tt_g4::OnEnable"; + donpcevent "Shining Crystal#tt_b4::OnEnable"; + donpcevent "Shining Crystal#tt_y4::OnEnable"; + end; +OnTimer2400000: + donpcevent "Shining Crystal#tt_r4::OnDisable"; + donpcevent "Shining Crystal#tt_g4::OnDisable"; + donpcevent "Shining Crystal#tt_b4::OnDisable"; + donpcevent "Shining Crystal#tt_y4::OnDisable"; + donpcevent "#Charm Stone Admintt01::OnEnable"; + end; +} - if (countitem(7423) >= 1) { - 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"; +tha_t08,90,153,0 script Shining Crystal#tt_r1 844,{ + if (countitem(7421) > 0) { + mes "The Crystal ball is emitting mysterious power."; next; - switch (select("Investigate:There's no way I can break this seal!")) { - case 1: - input .@inputstr$; - if (.@inputstr$ == "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; //Key_Blue - getitem 7428,1; //Magic_Gem_Blue - 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; - } + mes "Beside the crystal ball, you find faded patterns marked on the floor."; + mes "Looks like some kind of keyhole that needs to be inserted with something..."; + next; + mes "The red key suddenly responds once you come close to the keyhole."; + mes "You insert the key in the keyhole and it turns out to be a small gem."; + next; + mes "When you touch the gem which is dazzling red..."; + mes "You feel isolated and depressed deep inside your heart..."; + next; + mes "^4d4dffYou have found a Red Charm Stone that is concentrated with cruel fate and a deep darkness.^000000"; + delitem 7421,1; //Key_Red + getitem 7426,1; //Magic_Gem_Red + 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.^000000"; - percentheal -10,0; + mes "The Crystal ball is emitting mysterious power."; + mes "Something is definitely there inside... How do I get it to open?"; close; -} -tha_t05,218,116,0 script Seal#tt2 111,{ +OnInit: +OnDisable: + disablenpc strnpcinfo(0); + end; +OnEnable: + enablenpc strnpcinfo(0); + end; +} +tha_t08,90,62,0 duplicate(Shining Crystal#tt_r1) Shining Crystal#tt_r2 844 +tha_t08,49,59,0 duplicate(Shining Crystal#tt_r1) Shining Crystal#tt_r3 844 +tha_t08,49,144,0 duplicate(Shining Crystal#tt_r1) Shining Crystal#tt_r4 844 - if (countitem(7421) >= 1) { - 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"; +tha_t08,49,153,0 script Shining Crystal#tt_y1 844,{ + if (countitem(7422) > 0) { + mes "The Crystal ball is emitting mysterious power."; next; - switch (select("Investigate:There's no way I can break this seal!")) { - case 1: - input .@inputstr$; - if (.@inputstr$ == "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; //Key_Red - getitem 7426,1; //Magic_Gem_Red - 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; - } + mes "Beside the crystal ball, you find faded patterns marked on the floor."; + mes "Looks like some kind of keyhole that needs to be inserted with something..."; + next; + mes "The yellow key suddenly responds once you come close to the keyhole."; + mes "You insert the key in the keyhole and it turns out to be a small gem."; + next; + mes "When you touch the gem which is dazzling yellow..."; + mes "Your heart begins to throb as though you are suffering from a broken heart."; + next; + mes "^4d4dffYou have found a Yellow Charm Stone that is concentrated with grief and mysterious power.^000000"; + delitem 7422,1; //Key_Yellow + getitem 7427,1; //Magic_Gem_Yellow + 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.^000000"; - percentheal -10,0; + mes "The Crystal ball is emitting mysterious power."; + mes "Something is definitely there inside... How do I get it to open?"; close; -} -tha_t06,226,230,0 script Seal#tt3 111,{ +OnInit: +OnDisable: + disablenpc strnpcinfo(0); + end; +OnEnable: + enablenpc strnpcinfo(0); + end; +} +tha_t08,90,150,0 duplicate(Shining Crystal#tt_y1) Shining Crystal#tt_y2 844 +tha_t08,90,59,0 duplicate(Shining Crystal#tt_y1) Shining Crystal#tt_y3 844 +tha_t08,49,56,0 duplicate(Shining Crystal#tt_y1) Shining Crystal#tt_y4 844 - if (countitem(7425) >= 1) { - 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"; +tha_t08,49,65,0 script Shining Crystal#tt_b1 844,{ + if (countitem(7423) > 0) { + mes "The Crystal ball is emitting mysterious power."; next; - switch (select("Investigate:There's no way I can break this seal!")) { - case 1: - input .@inputstr$; - if (.@inputstr$ == "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; //Key_Black - getitem 7430,1; //Magic_Gem_Black - 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; - } + mes "Beside the crystal ball, you find faded patterns marked on the floor."; + mes "Looks like some kind of keyhole that needs to be inserted with something..."; + next; + mes "The blue key suddenly responds once you come close to the keyhole."; + mes "You insert the key in the keyhole and it turns out to be a small gem."; + next; + mes "When you touch the gem which is dazzling blue...."; + mes "Someone's sobbing comes into your ears as you smell blood on the wind and suddenly you become angry."; + next; + mes "^4d4dffYou have found a Blue Charm Stone that is concentrated with grudge and mysterious power.^000000"; + delitem 7423,1; //Key_Blue + getitem 7428,1; //Magic_Gem_Blue + 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.^000000"; - percentheal -10,0; + mes "The Crystal ball is emitting mysterious power."; + mes "Something is definitely there inside... How do I get it to open?"; close; -} -tha_t07,113,129,0 script Seal#tt4 111,{ +OnInit: +OnDisable: + disablenpc strnpcinfo(0); + end; +OnEnable: + enablenpc strnpcinfo(0); + end; +} +tha_t08,49,150,0 duplicate(Shining Crystal#tt_b1) Shining Crystal#tt_b2 844 +tha_t08,90,147,0 duplicate(Shining Crystal#tt_b1) Shining Crystal#tt_b3 844 +tha_t08,90,56,0 duplicate(Shining Crystal#tt_b1) Shining Crystal#tt_b4 844 - if (countitem(7422) >= 1) { - 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"; +tha_t08,90,65,0 script Shining Crystal#tt_g1 844,{ + if (countitem(7424) > 0) { + mes "The Crystal ball is emitting mysterious power."; next; - switch (select("Investigate:There's no way I can break this seal!")) { - case 1: - input .@inputstr$; - if (.@inputstr$ == "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; //Key_Yellow - getitem 7427,1; //Magic_Gem_Yellow - 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; - } + mes "Beside the crystal ball, you find faded patterns marked on the floor."; + mes "Looks like some kind of keyhole that needs to be inserted with something..."; + next; + mes "The green key suddenly responds once you come close to the keyhole."; + mes "You insert the key in the keyhole and it turns out to be a small gem."; + next; + mes "When you touch the gem which is dazzling green..."; + mes "Your head starts to ache and you feel worried and anxious about something."; + next; + mes "^4d4dffYou have found a Green Charm Stone that is concentrated with deep suffering.^000000"; + delitem 7424,1; //Key_Green + getitem 7429,1; //Magic_Gem_Green + 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.^000000"; - percentheal -10,0; + mes "The Crystal ball is emitting mysterious power."; + mes "Something is definitely there inside... How do I get it to open?"; close; -} -tha_t10,129,159,0 script Seal#tt5 111,{ - - if (countitem(7424) >= 1) { - 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 .@inputstr$; - if (.@inputstr$ == "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; //Key_Green - getitem 7429,1; //Magic_Gem_Green +OnInit: +OnDisable: + disablenpc strnpcinfo(0); + end; +OnEnable: + enablenpc strnpcinfo(0); + end; +} +tha_t08,49,62,0 duplicate(Shining Crystal#tt_g1) Shining Crystal#tt_g2 844 +tha_t08,49,147,0 duplicate(Shining Crystal#tt_g1) Shining Crystal#tt_g3 844 +tha_t08,90,144,0 duplicate(Shining Crystal#tt_g1) Shining Crystal#tt_g4 844 + +tha_t12,161,57,0 script Gold Religious Statue#tt 111,{ + if ($@thana_summon == 0) { + if (countitem(7427) > 0) { + mes "It's a statue giving off a golden light."; + mes "The sword appears to be missing a gem."; + mes "As I draw closer to the statue, the Yellow Charm Stone emits a bright light."; + specialeffect EF_BEGINSPELL5; + specialeffect2 EF_BEGINSPELL5; + next; + if(select("Insert the Yellow Charm Stone.:Run away.") == 2) close; + if ($@thana_summon == 0) { + mes "After inserting the Yellow Charm Stone into the sword, the statue begins to react."; + specialeffect EF_BEGINSPELL5; + delitem 7427,1; //Magic_Gem_Yellow + set $@thana_summon, 1; + donpcevent "#tteffect01::OnEnable"; + mapannounce "tha_t12","The golden magic power has released part of the seal.",bc_map,"0x00ff00"; //FW_NORMAL 12 0 0 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"; + mes "Someone has already inserted a Charm Stone into this statue."; close; } + mes "The statue give off mysterious light."; + mes "Strange power has blocked your access."; + 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.^000000"; - percentheal -10,0; + mes "The statue has such a strong light that I can't see or touch it."; close; } -tha_t12,96,58,0 script Stone Statue#1 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) >= 1) && (countitem(7427) >= 1) && (countitem(7428) >= 1) && (countitem(7429) >= 1) && (countitem(7430) >= 1)) { - 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"; +tha_t12,154,17,0 script Green Wiseman Statue#tt 111,{ + if ($@thana_summon == 1) { + if (countitem(7429) > 0) { + mes "A statue gives off green light."; + mes "The wiseman's wand seems to be missing a gem."; + mes "As I draw closer to the statue, the Green Charm Stone emits a bright light."; + specialeffect EF_BEGINSPELL4; + specialeffect2 EF_BEGINSPELL4; 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; //Magic_Gem_Red - specialeffect EF_BEGINSPELL3; - set $@thana_summon,1; - donpcevent "tt_effect2::OnEnable"; - close; - case 2: - mes "^3355FFYou decided not to"; - mes "insert the Charm Stone,"; - mes "opting to investigate this"; - mes "area a little further.^000000"; + if(select("Insert the Green Charm Stone.:Run away.") == 2) close; + if ($@thana_summon == 1) { + mes "After inserting the Green Charm Stone into the wand, the statue begins to react."; + specialeffect EF_BEGINSPELL4; + delitem 7429,1; //Magic_Gem_Green + set $@thana_summon, 2; + donpcevent "#tteffect02::OnEnable"; + mapannounce "tha_t12","The green magic power has released part of the seal.",bc_map,"0x00ff00"; //FW_NORMAL 12 0 0 close; } - } - else if ((countitem(7426) >= 1) || (countitem(7427) >= 1) || (countitem(7428) >= 1) || (countitem(7429) >= 1) || (countitem(7430) >= 1)) { - mes "^3355FFAs you approach this statue, one^FFFFFF ^3355FF of your Charm Stones begins to"; - mes "glow. However, the statue itself is not responding. You probably"; - mes "need all the Charm Stones in"; - mes "order to fully activate it.^000000"; + mes "Someone has already inserted a Charm Stone into this statue."; close; } + mes "The statue give off mysterious light."; + mes "Strange power has blocked your access."; 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; - } - mes "^3355FFThis status is glowing"; - mes "with a mysterious light."; - mes "Some strange force keeps"; - mes "you from approaching it.^000000"; + mes "The statue has such a strong light that I can't see or touch it."; close; } -tha_t12,104,18,0 script Stone Statue#tt2 111,{ - +tha_t12,103,17,0 script Blue Angel Statue#tt 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) >= 1) { + if (countitem(7428) > 0) { + mes "An angel statue is covered with a blue light."; + mes "A gem seems to be missing from the statue's belt."; + mes "As I draw closer to the statue, the Blue Charm Stone emits a bright light."; + specialeffect EF_BEGINSPELL2; + specialeffect2 EF_BEGINSPELL2; 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; //Magic_Gem_Blue + if(select("Insert the Blue Charm Stone.:Run away.") == 2) close; + if ($@thana_summon == 2) { + mes "After inserting the Blue Charm Stone into the belt, the statue begins to react."; specialeffect EF_BEGINSPELL2; - donpcevent "tt_effect5::OnEnable"; - 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"; + delitem 7428,1; //Magic_Gem_Blue + set $@thana_summon, 3; + donpcevent "#tteffect03::OnEnable"; + mapannounce "tha_t12","The blue magic power has released part of the seal.",bc_map,"0x00ff00"; //FW_NORMAL 12 0 0 close; } + mes "Someone has already inserted a Charm Stone into this statue."; + close; } + mes "The statue give off mysterious light."; + mes "Strange power has blocked you to access."; 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; - } - mes "^3355FFThis status is glowing"; - mes "with a mysterious light."; - mes "Some strange force keeps"; - mes "you from approaching it.^000000"; + mes "The statue has such a strong light that I can't see or touch it."; close; } -tha_t12,128,86,0 script Stone Statue#3 111,{ - +tha_t12,96,57,0 script Bloody Knight Statue#tt 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) >= 1) { - 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"; + if (countitem(7426) > 0) { + mes "A statue is shining like blood."; + mes "A gem seems to be missing from the heart area of its armor."; + mes "As I draw closer to the statue, the Red Charm Stone emits a bright light."; + specialeffect EF_BEGINSPELL3; + specialeffect2 EF_BEGINSPELL3; 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; //Magic_Gem_Black - specialeffect EF_BEGINSPELL7; - donpcevent "tt_effect1::OnEnable"; - 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"; + if(select("Insert the Red Charm Stone.:Run away.") == 2) close; + if ($@thana_summon == 3) { + mes "After inserting the Red Charm Stone into the armor, the statue begins to react."; + specialeffect EF_BEGINSPELL3; + delitem 7426,1; //Magic_Gem_Red + set $@thana_summon, 4; + donpcevent "#tteffect04::OnEnable"; + mapannounce "tha_t12","The red magic power has released part of the seal.",bc_map,"0x00ff00"; //FW_NORMAL 12 0 0 close; } + mes "Someone has already inserted a Charm Stone into this statue."; + close; } + mes "The statue give off mysterious light."; + mes "Strange power has blocked you to access."; 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; - } - mes "^3355FFThis status is glowing"; - mes "with a mysterious light."; - mes "Some strange force keeps"; - mes "you from approaching it.^000000"; + mes "The statue has such a strong light that I can't see or touch it."; close; } -tha_t12,161,58,0 script Stone Statue#tt4 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) >= 1) { - 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; //Magic_Gem_Yellow - specialeffect EF_BEGINSPELL5; - donpcevent "tt_effect3::OnEnable"; - 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; - } - mes "^3355FFThis status is glowing"; - mes "with a mysterious light."; - mes "Some strange force keeps"; - mes "you from approaching it.^000000"; - close; -} - -tha_t12,154,18,0 script Stone Statue#tt5 111,{ - +tha_t12,129,86,0 script Dark Devil Statue#tt 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) >= 1) { - 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"; + if (countitem(7430) > 0) { + mes "A devil statue emits dark light."; + mes "The right eye seems to be missing a gem."; + mes "As I draw closer to the statue, the Black Charm Stone emits a bright light."; + specialeffect EF_BEGINSPELL7; + specialeffect2 EF_BEGINSPELL7; 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 EF_BEGINSPELL4; - 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"; - delitem 7429,1; //Magic_Gem_Green - set $@thana_summon2,0; - set $@thana_summon,5; - donpcevent "tt_effect4::OnEnable"; - hideoffnpc "to_the_boss_room_tt"; - close; - case 2: - mes "^3355FFYou decided not to"; - mes "insert the Charm Stone,"; - mes "opting to investigate this"; - mes "area a little further.^000000"; + if(select("Insert the Black Charm Stone.:Run away.") == 2) close; + if ($@thana_summon == 4) { + mes "After inserting the Red Charm Stone into the eye socket, the statue begins to react."; + specialeffect EF_BEGINSPELL7; + delitem 7430,1; //Magic_Gem_Black + set $@thana_summon, 5; + donpcevent "#gateto_thanatos::OnEnable"; + donpcevent "#tteffect01::OnStop"; + donpcevent "#tteffect02::OnStop"; + donpcevent "#tteffect03::OnStop"; + donpcevent "#tteffect04::OnStop"; + mapannounce "tha_t12","The Black Charm Stone's magic power has released the final seal.",bc_map,"0x00ff00"; //FW_NORMAL 12 0 0 close; } + mes "Someone has already inserted a Charm Stone into this statue."; + close; } + mes "The statue give off mysterious light."; + mes "Strange power has blocked you to access."; 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; - } - mes "^3355FFThis status is glowing"; - mes "with a mysterious light."; - mes "Some strange force keeps"; - mes "you from approaching it.^000000"; + mes "The statue has such a strong light that I can't see or touch it."; close; } -tha_t12,129,56,0 script tt_effect1 139,{ +tha_t12,134,52,0 script #tteffect01 139,{ end; - OnEnable: initnpctimer; end; - +OnStop: + stopnpctimer; + end; OnTimer500: OnTimer1000: OnTimer1500: OnTimer2000: OnTimer2500: - specialeffect EF_BEGINSPELL7; + specialeffect EF_BEGINSPELL5; end; - OnTimer3000: - specialeffect EF_BEGINSPELL7; - stopnpctimer; - if ($@thana_summon != 6) initnpctimer; - end; - -OnDisable: - stopnpctimer; + donpcevent "#tteffect01::OnEnable"; end; } -tha_t12,125,52,0 script tt_effect2 139,{ +tha_t12,132,47,0 script #tteffect02 139,{ end; - OnEnable: initnpctimer; end; - +OnStop: + stopnpctimer; + end; OnTimer500: OnTimer1000: OnTimer1500: OnTimer2000: OnTimer2500: - specialeffect EF_BEGINSPELL3; + specialeffect EF_BEGINSPELL4; end; - OnTimer3000: - specialeffect EF_BEGINSPELL3; - stopnpctimer; - if ($@thana_summon != 6) initnpctimer; - end; - -OnDisable: - stopnpctimer; + donpcevent "#tteffect02::OnEnable"; end; } -tha_t12,134,52,0 script tt_effect3 139,{ +tha_t12,127,47,0 script #tteffect03 139,{ end; OnEnable: initnpctimer; end; - +OnStop: + stopnpctimer; + end; OnTimer500: OnTimer1000: OnTimer1500: OnTimer2000: OnTimer2500: - specialeffect EF_BEGINSPELL5; + specialeffect EF_BEGINSPELL2; end; - OnTimer3000: - specialeffect EF_BEGINSPELL5; - stopnpctimer; - if ($@thana_summon != 6) initnpctimer; - end; - -OnDisable: - stopnpctimer; + donpcevent "#tteffect03::OnEnable"; end; } -tha_t12,132,47,0 script tt_effect4 139,{ +tha_t12,125,52,0 script #tteffect04 139,{ end; - OnEnable: initnpctimer; end; - +OnStop: + stopnpctimer; + end; OnTimer500: OnTimer1000: OnTimer1500: OnTimer2000: OnTimer2500: - specialeffect EF_BEGINSPELL4; + specialeffect EF_BEGINSPELL3; end; - OnTimer3000: - specialeffect EF_BEGINSPELL4; - stopnpctimer; - if ($@thana_summon != 6) initnpctimer; - end; - -OnDisable: - stopnpctimer; + donpcevent "#tteffect04::OnEnable"; end; } -tha_t12,127,47,0 script tt_effect5 139,{ +tha_t12,129,56,0 script #tteffect05 139,{ end; - OnEnable: initnpctimer; end; - +OnStop: + stopnpctimer; + end; OnTimer500: OnTimer1000: OnTimer1500: OnTimer2000: OnTimer2500: - specialeffect EF_BEGINSPELL2; + specialeffect EF_BEGINSPELL7; end; - OnTimer3000: - specialeffect EF_BEGINSPELL2; - stopnpctimer; - if ($@thana_summon != 6) initnpctimer; - end; - -OnDisable: - stopnpctimer; + donpcevent "#tteffect05::OnEnable"; end; } -tha_t12,130,52,0 script to_the_boss_room_tt 45,1,1,{ +tha_t12,130,52,0 script #gateto_thanatos 45,1,1,{ end; - OnInit: - hideonnpc "to_the_boss_room_tt"; + disablenpc "#gateto_thanatos"; end; - -OnTouch: - if ($@thana_summon == 0 || $@thana_summon == 6) { - donpcevent "tt_effect1::OnDisable"; - donpcevent "tt_effect2::OnDisable"; - donpcevent "tt_effect3::OnDisable"; - donpcevent "tt_effect4::OnDisable"; - donpcevent "tt_effect5::OnDisable"; - hideonnpc "to_the_boss_room_tt"; - } - else warp "thana_boss",136,116; +OnEnable: + enablenpc "#gateto_thanatos"; + initnpctimer; end; -} - -thana_boss,217,167,0 script Crest#tt1 111,3,3,{ +OnOn2: + initnpctimer; end; - OnTouch: - if ($@thana_summon2 == 6 || $@thana_summon != 5) { - mes "^3355FFYou cannot approach"; - mes "the crest because it is"; - mes "generating intense heat.^000000"; - close; + set .@touch,1; +OnTimer6000: + set .@boss_tt, $@thana_summon; + if ((.@boss_tt == 0) || (.@boss_tt == 6)) { + disablenpc "#gateto_thanatos"; + stopnpctimer; } - mes "^3355FFThere is a strangely"; - mes "shaped hole in the"; - mes "middle of this purple crest.^000000"; - if (countitem(7437) > 0) { - mes "^3355FFIt seems like a Fragment"; - mes "of Misery would fit perfectly"; - mes "if you placed it inside.^000000"; + else if (.@boss_tt == 5) { + if (.@touch) warp "thana_boss",136,116; + else donpcevent "#gateto_thanatos::OnOn2"; } - next; - input .@inputstr$; - if (countitem(7437) > 0) { - if (.@inputstr$ == "Fragment of Misery") { - mes "^3355FFYou insert the"; - mes "Fragment of Misery"; - mes "into the crest, causing"; - mes "its glow to intensify.^000000"; - delitem 7437,1; //Piece_Of_Memory_Purple - close2; - monster "thana_boss",217,167,"Misery",1711,1,"Crest#tt1::OnMyMobDead"; - hideonnpc "Crest#tt1"; - end; - } - mes "^3355FFThat action had no"; - mes "effect. You'll have to"; - mes "try something else.^000000"; - close; - } - mes "^3355FFThat action had no"; - mes "effect. You'll have to"; - mes "try something else.^000000"; - close2; end; - -OnMyMobDead: - set $@thana_summon2,$@thana_summon2 + 1; +OnTimer1000: +OnTimer5000: + set .@pillar,1; +OnTimer3000: + specialeffect EF_BEGINSPELL7,AREA,"#tteffect05"; + specialeffect EF_BEGINSPELL3,AREA,"#tteffect04"; + specialeffect EF_BEGINSPELL2,AREA,"#tteffect03"; + specialeffect EF_BEGINSPELL4,AREA,"#tteffect02"; + specialeffect EF_BEGINSPELL5,AREA,"#tteffect01"; + if (.@pillar) specialeffect EF_MAPPILLAR2; end; } -thana_boss,202,75,0 script Crest#tt2 111,3,3,{ +thana_boss,217,167,3 script Memory Seal#tt1 1711,3,3,{ end; - -OnTouch: - if (($@thana_summon2 == 6) || ($@thana_summon != 5)) { - 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) > 0) { - mes "^3355FFIt seems like a Fragment"; - mes "of Agony would fit perfectly"; - mes "if you placed it inside.^000000"; - } - next; - input .@inputstr$; - if (countitem(7436) > 0) { - if (.@inputstr$ == "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; //Piece_Of_Memory_Green - close2; - monster "thana_boss",202,75,"Agony",1712,1,"Crest#tt2::OnMyMobDead"; - hideonnpc "Crest#tt2"; - end; - } - mes "^3355FFThat action had no"; - mes "effect. You'll have to"; - mes "try something else.^000000"; - close; - } - mes "^3355FFThat action had no"; - mes "effect. You'll have to"; - mes "try something else.^000000"; - close2; +OnEnable: + hideoffnpc strnpcinfo(0); + set .hide,0; end; - -OnMyMobDead: - set $@thana_summon2,$@thana_summon2 + 1; +OnDisable: + hideonnpc strnpcinfo(0); + set .hide,0; end; -} +OnTouch: + set .@seal, atoi(charat(strnpcinfo(2),2)); + if (.hide & (1<<.@seal)) end; -thana_boss,80,76,0 script Crest#tt3 111,3,3,{ - end; + // .@i: ItemID,MobID,MapX,MapY,EffectNum + // .@j$: FragmentName + switch(.@seal) { + case 1: + setarray .@i[0],7437,1711,217,167,238; + set .@j$,"Misery"; + break; + case 2: + setarray .@i[0],7436,1712,202,75,102; + set .@j$,"Agony"; + break; + case 3: + setarray .@i[0],7438,1709,80,76,101; + set .@j$,"Hatred"; + break; + case 4: + setarray .@i[0],7439,1710,62,171,100; + set .@j$,"Despair"; + break; + } -OnTouch: - if (($@thana_summon2 == 6) || ($@thana_summon != 5)) { + specialeffect EF_GUMGANG; + if ($@thana_summon2 > 3) { 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) > 0) { - mes "^3355FFIt seems like a Fragment"; - mes "of Hatred would fit perfectly"; - mes "if you placed it inside.^000000"; - } + mes "The seal seems to be dormant."; + mes "There is a fragment missing from the crest of the Seal."; + mes "Surely I saw a familiar fragment before..."; next; input .@inputstr$; - if (countitem(7438) > 0) { - if (.@inputstr$ == "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; //Piece_Of_Memory_Blue - close2; - monster "thana_boss",80,76,"Hatred",1709,1,"Crest#tt3::OnMyMobDead"; - hideonnpc "Crest#tt3"; - end; + set .@exact_tt$, "Fragment of "+.@j$; + if (countitem(.@i[0]) > 0 && .@exact_tt$ == .@inputstr$) { + mes "^3355FFYou insert the"; + mes .@exact_tt$; + mes "into the crest, causing"; + mes "its glow to intensify.^000000"; + close2; + hideonnpc strnpcinfo(0); + set .hide, .hide | (1<<.@seal); + delitem .@i[0],1; + specialeffect .@i[4]; + monster "thana_boss",.@i[2],.@i[3],.@j$,.@i[1],1,strnpcinfo(0)+"::OnMyMobDead"; + switch($@thana_summon2) { + case 0: set .@str$,"... who... released... the... Memory... of... "+.@j$+"...?"; break; + case 1: set .@str$,"... why... did you... release... the... Memory... of... "+.@j$+"...?"; break; + case 2: set .@str$,"... ugh... stop it... the Memory of "+.@j$+"..."; break; + default: set .@str$,"... finally... you released the last piece of Memory..."; break; } - mes "^3355FFThat action had no"; - mes "effect. You'll have to"; - mes "try something else.^000000"; - close; + mapannounce "thana_boss",.@str$,bc_map,"0x7b68ee"; //FW_NORMAL 12 0 0 + end; } mes "^3355FFThat action had no"; mes "effect. You'll have to"; mes "try something else.^000000"; - close2; - end; + close; OnMyMobDead: - set $@thana_summon2,$@thana_summon2 + 1; + set $@thana_summon2, $@thana_summon2+1; + if ($@thana_summon2 == 4) + mapwarp "thana_boss","thana_boss",141,228; end; } +thana_boss,202,75,3 duplicate(Memory Seal#tt1) Memory Seal#tt2 1712,3,3 +thana_boss,80,76,7 duplicate(Memory Seal#tt1) Memory Seal#tt3 1709,3,3 +thana_boss,62,171,5 duplicate(Memory Seal#tt1) Memory Seal#tt4 1710,3,3 -thana_boss,62,171,0 script Crest#tt4 111,3,3,{ +thana_boss,141,228,0 script #thanatos_seal 139,3,3,{ end; - -OnTouch: - if (($@thana_summon2 == 6) || ($@thana_summon != 5)) { - 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) > 0) { - mes "^3355FFIt seems like a Fragment"; - mes "of Despair would fit perfectly"; - mes "if you placed it inside.^000000"; - } - next; - input .@inputstr$; - if (countitem(7439) > 0) { - if (.@inputstr$ == "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; //Piece_Of_Memory_Red - close2; - monster "thana_boss",62,171,"Despair",1710,1,"Crest#tt4::OnMyMobDead"; - hideonnpc "Crest#tt4"; - end; - } - mes "^3355FFThat action had no"; - mes "effect. You'll have to"; - mes "try something else.^000000"; - close; - } - mes "^3355FFThat action had no"; - mes "effect. You'll have to"; - mes "try something else.^000000"; - close2; - end; - -OnMyMobDead: - set $@thana_summon2,$@thana_summon2 + 1; +OnEnable: + enablenpc "#thanatos_seal"; end; -} - -thana_boss,141,218,0 script Crest#tt5 111,3,3,{ +OnDisable: + disablenpc "#thanatos_seal"; end; - OnTouch: if ($@thana_summon2 == 4) { - mes "^3355FFAs you approach the"; - mes "crest, it begins shining"; - mes "brighter and brighter until its"; - mes "illumination becomes blinding.^000000"; - close2; - monster "thana_boss",140,217,"Despair",1710,1,"Crest#tt5::OnMyMobDead"; - monster "thana_boss",140,216,"Hatred",1709,1,"Crest#tt5::OnMyMobDead"; - monster "thana_boss",141,217,"Misery",1711,1,"Crest#tt5::OnMyMobDead"; - monster "thana_boss",141,216,"Agony",1712,1,"Crest#tt5::OnMyMobDead"; - hideonnpc "Crest#tt5"; - end; - } - if ($@thana_summon < 5) { - mapwarp "thana_boss","tha_t12",130,47; - end; + initnpctimer; + donpcevent "Memory Seal#tt5::OnEnable"; + disablenpc "#thanatos_seal"; } - mes "^3355FFYou find a strange"; - mes "crest engraved"; - mes "on the floor.^000000"; - next; - input .@inputstr$; - mes "^3355FFNothing happened.^000000"; - close2; end; - -OnMyMobDead: - if (mobcount("thana_boss","Crest#tt5::OnMyMobDead") < 1) { - set $@thana_summon,5; - set $@thana_summon2,6; - donpcevent "boss_summon#tt::OnEnable"; - } +OnTimer1000: + mapannounce "thana_boss","Thanatos : RAWWWWWWWWWWWWWWWWR!",bc_map,"0xff0000"; //FW_NORMAL 12 0 0 end; -} - -thana_boss,5,5,0 script boss_summon#tt 139,{ +OnTimer4000: + mapannounce "thana_boss","Thanatos : ... crashed... broken... spread... and come back as tears...",bc_map,"0xff0000"; //FW_NORMAL 12 0 0 end; - -OnEnable: - monster "thana_boss",136,129,"Thanatos Phantom",1708,1,"boss_summon#tt::OnMyMobDead"; - initnpctimer; +OnTimer7000: + mapannounce "thana_boss","Thanatos : I live again to fulfill my ambition!",bc_map,"0xff0000"; //FW_NORMAL 12 0 0 end; - -OnTimer1000: - mapannounce "thana_boss","Thanatos : RAWWWWWWWWWWWWWWWWR!",bc_map,"0x00CC00"; //FW_NORMAL 12 0 0 - set $@thana_summon,6; +OnTimer10000: + mapannounce "thana_boss","Thanatos : ... gives off a strong bloody scent... soaked in sorrow...",bc_map,"0xff0000"; //FW_NORMAL 12 0 0 end; - -OnTimer3000: - mapannounce "thana_boss","Thanatos : I live again to fulfill my ambition!",bc_map,"0x00CC00"; //FW_NORMAL 12 0 0 +OnTimer13000: + mapannounce "thana_boss","Thanatos : I will remove all people who invade this continent again!",bc_map,"0xff0000"; //FW_NORMAL 12 0 0 end; - -OnTimer30000: - mapannounce "thana_boss","Thanatos : Come, be the first to fall before my might!",bc_map,"0x00CC00"; //FW_NORMAL 12 0 0 +OnTimer16000: + mapannounce "thana_boss","Thanatos : Come, be the first to fall before my might!",bc_map,"0xff0000"; //FW_NORMAL 12 0 0 + donpcevent "Memory Seal#tt5::OnDisable"; + donpcevent "#sommon_thanatos::OnEnable"; + set $@thana_summon2, 5; + stopnpctimer; end; +} -OnTimer900000: - set $@thana_summon,5; - donpcevent "tt_effect1::OnEnable"; - donpcevent "tt_effect2::OnEnable"; - donpcevent "tt_effect3::OnEnable"; - donpcevent "tt_effect4::OnEnable"; - donpcevent "tt_effect5::OnEnable"; - hideoffnpc "to_the_boss_room_tt"; - stopnpctimer; +thana_boss,141,235,3 script Memory Seal#tt5 1708,{ end; +OnInit: + disablenpc "Memory Seal#tt5"; + end; +OnEnable: + enablenpc "Memory Seal#tt5"; + end; +OnDisable: + disablenpc "Memory Seal#tt5"; + specialeffect EF_ICECRASH; + end; +} +thana_boss,141,218,0 script #sommon_thanatos -1,{ +OnEnable: + specialeffect EF_MAPPILLAR2,AREA,"#sommon_thanatos"; + specialeffect EF_SEISMICWEAPON,AREA,"#sommon_thanatos"; + monster "thana_boss",141,218,"Thanatos Phantom",1708,1,"#sommon_thanatos::OnMyMobDead"; + end; OnMyMobDead: - if (mobcount("thana_boss","boss_summon#tt::OnMyMobDead") < 1) { - stopnpctimer; - donpcevent "#timer_t::OnEnable"; + if (mobcount("thana_boss","#sommon_thanatos::OnMyMobDead") < 1) { + mapannounce "thana_boss","RAWWWWWWWWWWR........ This can't be.........................",bc_map,"0xff0000"; //FW_NORMAL 12 0 0 + donpcevent "#cooltime_thana::OnEnable"; + set $@thana_summon, 6; } end; } -thana_boss,3,3,0 script #timer_t 139,{ +thana_boss,1,1,0 script #cooltime_thana 844,{ end; - OnInit: - set $@thana_summon,0; - set $@thana_summon2,0; + set $@thana_summon, 0; + set $@thana_summon2, 0; end; - OnEnable: initnpctimer; end; - -OnTimer1000: - mapannounce "thana_boss","GGGGRRRRRRR!",bc_map,"0xFF0000"; //FW_NORMAL 12 0 0 - set $@thana_summon,6; - end; - -OnTimer2000: - mapannounce "thana_boss","*Rumble Rumble*",bc_map,"0xFF0000"; //FW_NORMAL 12 0 0 +OnStop: + stopnpctimer; end; - OnTimer3000: - mapannounce "thana_boss","*Crik Crik*",bc_map,"0xFF0000"; //FW_NORMAL 12 0 0 + mapannounce "thana_boss","Warning!!",bc_map,"0x00ff00"; //FW_NORMAL 12 0 0 end; - -OnTimer4000: - mapannounce "thana_boss","*Zzzzrt Zzzzrt*",bc_map,"0xFF0000"; //FW_NORMAL 12 0 0 +OnTimer6000: + mapannounce "thana_boss","The seal will re-activate in 30 seconds.",bc_map,"0x00ff00"; //FW_NORMAL 12 0 0 end; - -OnTimer5000: - mapannounce "thana_boss","*Crik Crik*",bc_map,"0xFF0000"; //FW_NORMAL 12 0 0 +OnTimer16000: + mapannounce "thana_boss","20 seconds left...",bc_map,"0x00ff00"; //FW_NORMAL 12 0 0 end; - -OnTimer60000: -OnTimer1000000: -OnTimer2000000: -OnTimer3000000: -OnTimer4000000: -OnTimer5000000: -OnTimer6000000: - mapwarp "thana_boss","tha_t12",130,47; +OnTimer26000: + mapannounce "thana_boss","10 seconds left...",bc_map,"0x00ff00"; //FW_NORMAL 12 0 0 + end; +OnTimer31000: + mapannounce "thana_boss","5 seconds.",bc_map,"0x00ff00"; //FW_NORMAL 12 0 0 + end; +OnTimer32000: + mapannounce "thana_boss","4 seconds.",bc_map,"0x00ff00"; //FW_NORMAL 12 0 0 + end; +OnTimer33000: + mapannounce "thana_boss","3 seconds.",bc_map,"0x00ff00"; //FW_NORMAL 12 0 0 + end; +OnTimer34000: + mapannounce "thana_boss","2 seconds.",bc_map,"0x00ff00"; //FW_NORMAL 12 0 0 + end; +OnTimer35000: + mapannounce "thana_boss","Time's up!",bc_map,"0xff0000"; //FW_NORMAL 12 0 0 + end; +OnTimer36000: +OnTimer37000: + mapwarp "thana_boss","tha_t12",130,52; end; - OnTimer7200000: - set $@thana_summon,0; - hideoffnpc "Crest#tt1"; - hideoffnpc "Crest#tt2"; - hideoffnpc "Crest#tt3"; - hideoffnpc "Crest#tt4"; - hideoffnpc "Crest#tt5"; + set $@thana_summon, 0; + set $@thana_summon2, 0; + donpcevent "Memory Seal#tt1::OnEnable"; + donpcevent "Memory Seal#tt2::OnEnable"; + donpcevent "Memory Seal#tt3::OnEnable"; + donpcevent "Memory Seal#tt4::OnEnable"; + donpcevent "#thanatos_seal::OnEnable"; stopnpctimer; end; } -tha_t06,119,120,0 script to the 7th floor 45,1,1,{ +tha_scene01,30,30,0 warp scene 1,1,tha_scene01,131,220 +tha_t04,81,36,0 warp to 5th Floor 1,1,tha_t05,62,8 +tha_t06,119,120,0 script to 7th Floor 45,1,1,{ end; - OnTouch: - if (eaclass()&(EAJL_2|EAJL_UPPER) || eaclass()&EAJL_THIRD) { - warp "thana_step",69,369; - end; - } - if ((Class == Job_SuperNovice || Class == Job_Taekwon || Class == Job_Star_Gladiator || Class == Job_Soul_Linker || Class == Job_Ninja || Class == Job_Gunslinger) && BaseLevel > 94) { - warp "thana_step",69,369; - end; + if (eaclass()&(EAJL_2|EAJL_UPPER) || eaclass()&EAJL_THIRD || ((Class == Job_SuperNovice || Class == Job_Taekwon || Class == Job_Star_Gladiator || Class == Job_Soul_Linker || Class == Job_Ninja || Class == Job_Gunslinger) && BaseLevel > 94)) { + if (countitem(7425) > 0) { + mes "The shadow of a Black Key is gleaming in the center of the portal."; + mes "To pass this way, looks like I need something."; + next; + mes "The Black Key reacts to the portal and floats in the air."; + next; + mes "The key seems to separate into many particles and suddenly collapses into a ball."; + mes "The barricade is removed through the power from newly formed black magic gem."; + close2; + delitem 7425,1; //Key_Black + getitem 7430,1; //Magic_Gem_Black + warp "thana_step",69,369; + end; + } + mes "The shadow of a Black Key is gleaming in the center of the portal."; + mes "To pass this way, looks like I need something."; + close; } - mes "^3355FFAn overwhelming force"; - mes "acts against you, preventing"; - mes "you from proceeding this way...^000000"; + mes "A mysterious power is blocking my path."; close; -} +}
\ No newline at end of file |