diff options
| -rw-r--r-- | npc/quests/thana_quest.txt | 3791 |
1 files changed, 2150 insertions, 1641 deletions
diff --git a/npc/quests/thana_quest.txt b/npc/quests/thana_quest.txt index ddb2eb30f..35870eb64 100644 --- a/npc/quests/thana_quest.txt +++ b/npc/quests/thana_quest.txt @@ -3,7 +3,7 @@ //===== By: ================================================== //= [Ishizu-chan] //===== Current Version: ===================================== -//= 2.1 +//= 2.2 //===== Compatible With: ===================================== //= Any rAthena Version i guess? //===== Description: ========================================= @@ -23,6 +23,7 @@ //= 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] //============================================================ hu_fild01,140,163,5 script Tower Keeper 852,3,3,{ @@ -33,149 +34,148 @@ hu_fild01,140,163,5 script Tower Keeper 852,3,3,{ 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"; + mes "of you was an ancient ruins"; + mes "that got its name from a word"; + mes "written on a stone plate found"; + mes "inside. Today, this place is"; + mes "a popular tourist attraction."; + next; + mes "[Gatei]"; + mes "This tower grew in popularity"; + mes "for adventurers when the"; + mes "Rekenber Corporation began"; + mes "tower reconstruction efforts."; + mes "The 1st and 2nd floors are now"; + mes "repaired and free of monsters."; + next; + mes "[Gatei]"; + mes "However, reconstruction of"; + mes "the 3rd and higher floors is"; + mes "incomplete. Those levels are"; + mes "still infested with monsters, so we're contracting temp workers"; + mes "to exterminate all of them."; + next; + mes "[Gatei]"; + mes "If you're interested in"; + mes "temporary contract work,"; + mes "or would like to know about"; + mes "this place in detail, please"; + mes "ask one of the guides inside."; + mes "Thank you and enjoy your visit~"; + close; + case 2: + mes "[Gatei]"; + mes "Everyone is welcome to"; + mes "enjoy Thanatos Tower."; + mes "Only the 1st and 2nd floors"; + mes "are open to the public at"; + mes "this time. The entrance fee"; + mes "is 5,000 zeny per person."; + next; + mes "[Gatei]"; + mes "5,000 zeny may seem a little"; + mes "steep for a tourist attraction,"; + mes "but trust me, this tower provides a very unique experience. Also,"; + mes "our loyal customers and contract workers get a special discount~"; + close; + case 3: + mes "[Gatei]"; + mes "Would you like to"; + mes "enter Thanatos Tower?"; + mes "The entry fee is ^FF00005,000 zeny^000000."; + next; + switch (select("Enter:Maybe next time.")) { case 1: - mes "[Gatei]"; - mes "Yes, the tower in front"; - mes "of you was an ancient ruins"; - mes "that got its name from a word"; - mes "written on a stone plate found"; - mes "inside. Today, this place is"; - mes "a popular tourist attraction."; - next; - mes "[Gatei]"; - mes "This tower grew in popularity"; - mes "for adventurers when the"; - mes "Rekenber Corporation began"; - mes "tower reconstruction efforts."; - mes "The 1st and 2nd floors are now"; - mes "repaired and free of monsters."; - next; - mes "[Gatei]"; - mes "However, reconstruction of"; - mes "the 3rd and higher floors is"; - mes "incomplete. Those levels are"; - mes "still infested with monsters, so we're contracting temp workers"; - mes "to exterminate all of them."; - next; - mes "[Gatei]"; - mes "If you're interested in"; - mes "temporary contract work,"; - mes "or would like to know about"; - mes "this place in detail, please"; - mes "ask one of the guides inside."; - mes "Thank you and enjoy your visit~"; - close; - - case 2: - mes "[Gatei]"; - mes "Everyone is welcome to"; - mes "enjoy Thanatos Tower."; - mes "Only the 1st and 2nd floors"; - mes "are open to the public at"; - mes "this time. The entrance fee"; - mes "is 5,000 zeny per person."; - next; - mes "[Gatei]"; - mes "5,000 zeny may seem a little"; - mes "steep for a tourist attraction,"; - mes "but trust me, this tower provides a very unique experience. Also,"; - mes "our loyal customers and contract workers get a special discount~"; - close; - - case 3: - mes "[Gatei]"; - mes "Would you like to"; - mes "enter Thanatos Tower?"; - mes "The entry fee is ^FF00005,000 zeny^000000."; - next; - switch( select( "Enter","Maybe next time." ) ) - { + if (thana_tower > 0) { + mes "[Gatei]"; + mes "Oh, "+strcharinfo(0)+"!"; + mes "Welcome back! Since you've"; + mes "got a temporary Rekenber"; + mes "work contract, your entrance"; + mes "fee is only 3,000 zeny."; + next; + switch (select("Enter:No, thanks.")) { case 1: - if (thana_quest) - { - mes "[Gatei]"; - mes "Oh, "+strcharinfo(0)+"!"; - mes "Welcome back! Since you've"; - mes "got a temporary Rekenber"; - mes "work contract, your entrance"; - mes "fee is only 3,000 zeny."; - next; - switch( select( "Enter","No, thanks." ) ) - { - case 1: - if (Zeny < 3000) - { - mes "[Gatei]"; - mes "Oh, I'm sorry..."; - mes "But you don't seem to"; - mes "have enough zeny. Oh well,"; - mes "just come back again later~"; - close; - } - mes "[Gatei]"; - mes "Thank you, and"; - mes "please keep up the"; - mes "good work. Ah, and don't"; - mes "forget: safety first when"; - mes "you fight those monsters!"; - set Zeny,Zeny - 3000; - close2; - warp "tha_scene01",131,220; - end; - - case 2: - mes "[Gatei]"; - mes "Oh, I'm sorry..."; - mes "But you don't seem to"; - mes "have enough zeny. Oh well,"; - mes "just come back again later~"; - close; - } - } - if (Zeny < 5000) - { + if (Zeny > 2999) { mes "[Gatei]"; - mes "Well..."; - mes "Hm. I'm sorry, but you"; - mes "don't seem to have enough"; - mes "zeny for the entrance fee."; - mes "Please come back later..."; - close; + mes "Thank you, and"; + mes "please keep up the"; + mes "good work. Ah, and don't"; + mes "forget: safety first when"; + mes "you fight those monsters!"; + set Zeny, Zeny - 3000; + close2; + warp "tha_scene01",131,220; + end; } mes "[Gatei]"; - mes "Ah, I've received your"; - mes "entrance fee. Thank you"; - mes "very much. Now, I hope"; - mes "you enjoy your visit"; - mes "to Thanatos Tower~"; - set Zeny,Zeny - 5000; - close2; - warp "tha_scene01",131,220; - end; - + mes "Oh, I'm sorry..."; + mes "But you don't seem to"; + mes "have enough zeny. Oh well,"; + mes "just come back again later~"; + close; case 2: mes "[Gatei]"; - mes "Very well. Please come"; - mes "and visit us again here"; - mes "in Thanatos Tower."; + mes "You must be busy, then."; + mes "Well, not to worry, we'll"; + mes "always be here. Farewell~"; close; + } + } + if (Zeny > 4999) { + mes "[Gatei]"; + mes "Ah, I've received your"; + mes "entrance fee. Thank you"; + mes "very much. Now, I hope"; + mes "you enjoy your visit"; + mes "to Thanatos Tower~"; + set Zeny, Zeny - 5000; + close2; + warp "tha_scene01",131,220; + end; } - - case 4: + mes "[Gatei]"; + mes "Well..."; + mes "Hm. I'm sorry, but you"; + mes "don't seem to have enough"; + mes "zeny for the entrance fee."; + mes "Please come back later..."; + close; + case 2: mes "[Gatei]"; mes "Very well. Please come"; mes "and visit us again here"; mes "in Thanatos Tower."; close; + } + case 4: + mes "[Gatei]"; + mes "Hmm? Very well."; + mes "But if you wish to visit"; + mes "this Thanatos Tower, please"; + mes "do not hesitate to ask me."; + mes "Thank you and have a nice day."; + close; } + +OnTouch: + mes "[Tower Keeper]"; + mes "Excuse me, but you cannot"; + mes "enter. This place is under"; + mes "the Rekenber Corporation's"; + mes "administration, and this area"; + mes "is restricted to all those"; + mes "without authorization."; + close; } tha_t01,149,78,4 script Guide 90,{ - if(!thana_quest) - { + if (thana_tower == 0) { mes "[Ditze]"; mes "Welcome to Thanatos Tower."; mes "The tower's reconstruction is"; @@ -184,114 +184,225 @@ 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,"; + mes "who built it, and its purpose"; + mes "are all mysteries. There are"; + mes "many rumors about it being a"; + mes "Mage lab, a hero's momunent,"; + mes "or a demon fortress..."; + next; + mes "[Ditze]"; + mes "The Rekenber Corporation has"; + mes "been researching the origin of"; + mes "this tower, but has not yet been able to confirm anything. Although"; + mes "we've lost many researchers to the tower monsters, we won't give up!"; + next; + mes "[Ditze]"; + mes "Rekenber is convinced that this"; + mes "tower holds many secrets, and"; + mes "successfully reconstructed the"; + mes "first 2 floors of this tower in"; + mes "the pursuit of this knowledge."; + next; + mes "[Ditze]"; + mes "Currently, we are focused on"; + mes "reconstructing the tower's 3rd"; + mes "and 4th floors. Luckily, many"; + mes "adventurers are exterminating"; + mes "the monsters on those floors, working under temporary contracts."; + next; + mes "[Ditze]"; + mes "At this rate, we expect"; + mes "to complete reconstruction"; + mes "of the 3rd and 4th floors in"; + mes "the near future, bringing us"; + mes "closer to our goal of opening all 12 floors of Thanatos Tower."; + next; + 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.")) { case 1: mes "[Ditze]"; - mes "When this tower was built,"; - mes "who built it, and its purpose"; - mes "are all mysteries. There are"; - mes "many rumors about it being a"; - mes "Mage lab, a hero's monument,"; - mes "or a demon fortress..."; - next; + mes "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 "The Rekenber Corporation has"; - mes "been researching the origin of"; - mes "this tower, but has not yet been able to confirm anything. Although"; - mes "we've lost many researchers to the tower monsters, we won't give up!"; + 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 "Rekenber is convinced that this"; - mes "tower holds many secrets, and"; - mes "successfully reconstructed the"; - mes "first 2 floors of this tower in"; - mes "the pursuit of this knowledge."; + 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 "[Ditze]"; - mes "Currently, we are focused on"; - mes "reconstructing the tower's 3rd"; - mes "and 4th floors. Luckily, many"; - mes "adventurers are exterminating"; - mes "the monsters on those floors, working under temporary contracts."; + mes "^3355FFDitze hands you the"; + mes "Employment Agreement"; + mes "document for you to read.^000000"; next; - mes "[Ditze]"; - mes "At this rate, we expect"; - mes "to complete reconstruction"; - mes "of the 3rd and 4th floors in"; - mes "the near future, bringing us"; - mes "closer to our goal of opening all 12 floors of Thanatos Tower."; + 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; -L_Ask1: - switch( select( "Tower Monsters?","Temp Contract Work?","......" ) ) - { - case 1: - mes "[Ditze]"; - mes "Yes, when we began"; - mes "reconstruction of the"; - mes "Thanatos Tower, these"; - mes "monsters that look like angels"; - mes "just appeared out of nowhere"; - mes "to attack all the workers."; - next; - mes "[Ditze]"; - mes "At first, witnesses thought"; - mes "that these monsters might"; - mes "be, you know, actual angels."; - mes "But if they were, why were they"; - mes "attacking for no reason?"; - next; - mes "[Ditze]"; - mes "Anyway, we asked the Juno "; - mes "Sage Academy to investigate"; - mes "them, and they confirmed that"; - mes "these angelic creatures are true monsters--their resemblance to"; - mes "angels is merely coincidence."; - next; - goto L_Ask1; - - case 2: - break; - - case 3: - mes "[Ditze]"; - mes "To develop the floors above"; - mes "the 2nd floor, we're going to"; - mes "need as many temp contract"; - mes "workers as we can hire. Why"; - mes "don't you consider working"; - mes "for us under a temp contract?"; - close; + 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; } - break; - - case 2: - break; - - case 3: - mes "[Ditze]"; - mes "Well, if you have any"; - mes "questions, feel free to"; - mes "ask me later. My name is"; - mes "Ditze Lappa. Have a good day!"; - close; - } - mes "[Ditze]"; - mes "You may have already heard"; - mes "from the Tower Keeper, but"; - mes "we're contracting adventurers to exterminate the tower monsters"; - mes "in the 3rd and higher levels on"; - mes "a temporary employee basis."; - next; - mes "[Ditze]"; - mes "I'm in charge of hiring"; - mes "temp contract workers, so"; - mes "talk to me if you're interested. Only temp workers are allowed"; - mes "to access the higher levels"; - mes "here in Thanatos Tower."; - next; - switch( select( "Maybe next time","Sure, I'd like to work for you." ) ) - { + } + case 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; + switch (select("Maybe next time:Sure, I'd like to work for you.")) { case 1: mes "[Ditze]"; mes "Well, alright."; @@ -301,7 +412,6 @@ L_Ask1: mes "the tower reconstruction by"; mes "working for Rekenber."; close; - case 2: mes "[Ditze]"; mes "That's great!"; @@ -311,11 +421,7 @@ L_Ask1: mes "see. Your name is..."; mes ""+strcharinfo(0)+", right?"; next; - switch( select( "Yes" ) ) - { - case 1: - break; - } + menu "Yes",-; mes "[Ditze]"; mes "Alright, please read"; mes "this agreement carefully."; @@ -331,7 +437,7 @@ L_Ask1: mes " "; mes "1. This employment agreement"; mes "is effective between Rekenber"; - mes "Corporation (''Employer'') and "+strcharinfo(0)+"(''Employee'')."; + mes "Corporation (''Employer'') and "+strcharinfo(0)+"(''Employee'')."; mes "1-1. This employment agreement"; mes "is classified as a Mercernary"; mes "contract between both parties."; @@ -354,14 +460,14 @@ L_Ask1: mes "extermination proof."; mes "4-1. Possible rewards for"; mes "monster exterminations may"; - mes "include the following."; + mes "include the following. "; mes "................................................."; mes "................................................."; mes "................................................."; mes "................................................."; mes "................................................."; mes "13. This contract's terms are"; - mes "only applicable within Thanatos"; + mes "only applicable witin Thanatos"; mes "Tower."; mes "14. Employees will receive"; mes "a discount on the Entry Fee"; @@ -369,50 +475,56 @@ L_Ask1: mes " "; mes " "; mes " "; - mes "Employer Signature____________"; + mes "Employer Signature_____________"; mes "Employee Signature____________"; next; - switch( select( "Sign","Don't Sign" ) ) - { - case 1: - mes "^3355FFYou sign two copies of the"; - mes "Employment Agreement.^000000"; - next; - mes "[Ditze]"; - mes "Thank you. Now, you are"; - mes "an official employee of the"; - mes "Rekenber Corporation! Well,"; - mes "within the limits of this tower"; - mes "anyway. This contract doesn't"; - mes "apply outside of this place."; - next; - mes "[Ditze]"; - mes "From now on, you can talk"; - mes "to the 2nd Floor Guide to"; - mes "enter the 3rd Floor. If you"; - mes "have any mission reward"; - mes "questions, please ask ^3355FFLiei^000000."; - next; - mes "[Ditze]"; - mes "If you want to check"; - mes "more information about"; - mes "your work, please talk"; - mes "to the 2nd Floor Guide."; - mes "Thank you, and welcome"; - mes "to the Rekenber Corporation~"; - set thana_quest,1; - close; - - case 2: - mes "[Ditze]"; - mes "Oh? Was there an article"; - mes "within the contract that you"; - mes "disagreed with? Hm. Well,"; - mes "that's fine. But if you change"; - mes "your mind, please come back"; - mes "and ask me anytime. Thank you~"; - close; + 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; } + } + case 3: + mes "[Ditze]"; + mes "Well, if you have any"; + mes "questions, feel free to"; + mes "ask me later. My name is"; + mes "Ditze Lappa. Have a good day!"; + close; } } mes "[Ditze]"; @@ -424,10 +536,9 @@ L_Ask1: close; } -tha_t01,140,78,4 script Guide#thana 831,{ +tha_t01,140,78,4 script Guide#reward 831,{ - if(!thana_quest) - { + if (thana_tower == 0) { mes "[Liei]"; mes "Good day, I'm"; mes "Liei Kuniziet of the"; @@ -435,56 +546,254 @@ tha_t01,140,78,4 script Guide#thana 831,{ mes "Reward Department"; mes "here in Thanatos Tower."; next; - switch( select( "Employee's mission reward?","Keep up the good work." ) ) - { - case 1: - mes "[Liei]"; - mes "Currently, Rekenber Corporation"; - mes "is contracting temp employees"; - mes "to develop the higher levels"; - mes "of Thanatos Tower. If you'd"; - mes "like to apply, please ask"; - mes "Ditze right next to me."; - close; - - case 2: - mes "[Liei]"; - mes "Thank you. Ah, and I hope"; - mes "that you enjoy your visit"; - mes "here to Thanatos Tower."; - close; + switch (select("Employee's mission reward?:Keep up the good work.")) { + case 1: + mes "[Liei]"; + mes "Currently, Rekenber Corporation"; + mes "is contracting temp employees"; + mes "to develop the higher levels"; + mes "of Thanatos Tower. If you'd"; + mes "like to apply, please ask"; + mes "Ditze right next to me."; + close; + case 2: + mes "[Liei]"; + mes "Thank you. Ah, and I hope"; + mes "that you enjoy your visit"; + mes "here to Thanatos Tower."; + close; } } mes "[Liei]"; mes "Ah, hello~"; mes "How may I help you?"; next; - switch( select( "Reward","Nothing" ) ) - { + switch (select("Reward:Nothing")) { + case 1: + mes "[Liei]"; + mes "You're "+strcharinfo(0)+", yes?"; + mes "Let me check our temp"; + mes "employee records for--ah."; + mes "Here it is. Alright, so would"; + mes "you please tell me what kind"; + mes "of mission proof you brought?"; + next; + switch (select("Golden Ornament:Red Feather:Blue Feather:Cursed Seal")) { case 1: + if (countitem(7435) > 0) { + mes "[Liei]"; + mes "The reward for each"; + mes "Golden Ornament is..."; + mes " "; + mes "1,000 zeny"; + mes "2,000 EXP"; + next; + set .@zeny_tt,(countitem(7435) * 1000); + set .@exp_tt,(countitem(7435) * 200); + mes "[Liei]"; + mes "If you turn in your "+countitem(7435)+""; + mes "Golden Ornaments, then"; + mes "you will receive a total of..."; + mes " "; + mes ""+.@zeny_tt+" zeny"; + mes ""+.@exp_tt+" EXP"; + next; + mes "[Liei]"; + mes "So would you like to"; + mes "exchange all of your Golden"; + mes "Ornaments for your reward now?"; + next; + switch (select("Yes:No")) { + case 1: + mes "[Liei]"; + mes "Great! Here is your"; + mes ""+.@zeny_tt+" zeny and"; + mes ""+.@exp_tt+" EXP. Thank you,"; + mes "and please keep up"; + mes "the good work~"; + delitem 7435,countitem(7435); //Golden_Bracelet + set Zeny, Zeny + .@zeny_tt; + getexp .@exp_tt,0; + close; + case 2: + mes "[Liei]"; + mes "Sure, no problem."; + mes "Just come back and"; + mes "talk to me whenever"; + mes "you want to receive"; + mes "your reward, alright?"; + close; + } + } mes "[Liei]"; - mes "You're "+strcharinfo(0)+", yes?"; - mes "Let me check our temp"; - mes "employee records for--ah."; - mes "Here it is. Alright, so would"; - mes "you please tell me what kind"; - mes "of mission proof you brought?"; - next; - switch( select( "Golden Ornament","Red Feather","Blue Feather","Cursed Seal" ) ) - { + mes "Oh, I'm sorry, but you"; + mes "don't have any Golden"; + mes "Ornaments. Please check"; + mes "your inventory one more time..."; + close; + case 2: + if (countitem(7440) > 0) { + mes "[Liei]"; + mes "The reward for"; + mes "each Red Feather is..."; + mes " "; + mes "1,000 zeny"; + mes "2,000 EXP"; + next; + set .@zeny_tt,(countitem(7440) * 1000); + set .@exp_tt,(countitem(7440) * 200); + mes "[Liei]"; + mes "If you turn in your"; + mes ""+countitem(7440)+" Red Feathers, then"; + mes "you will receive a total of..."; + mes " "; + mes ""+.@zeny_tt+" zeny"; + mes ""+.@exp_tt+" EXP"; + next; + mes "[Liei]"; + mes "Would you like to exchange"; + mes "all of your Red Feathers"; + mes "for your reward right now?"; + next; + switch (select("Yes:No")) { case 1: - callfunc "Func_Thana",7435; - + mes "[Liei]"; + mes "Great! Here is your"; + mes ""+.@zeny_tt+" zeny and"; + mes ""+.@exp_tt+" EXP. Thank you,"; + mes "and please keep up"; + mes "the good work~"; + delitem 7440,countitem(7440); //Red_Feather + set Zeny, Zeny + .@zeny_tt; + getexp .@exp_tt,0; + close; case 2: - callfunc "Func_Thana",7440; - - case 3: - callfunc "Func_Thana",7441; - - case 4: - callfunc "Func_Thana",7442; + mes "[Liei]"; + mes "Sure, no problem."; + mes "Just come back and"; + mes "talk to me whenever"; + mes "you want to receive"; + mes "your reward, alright?"; + close; + } + } + mes "[Liei]"; + mes "I'm sorry, but you are not"; + mes "carrying any Red Feathers."; + mes "Please check your inventory"; + mes "one more time, and then come"; + mes "to me to redeem your items"; + mes "for a reward later, alright?"; + close; + case 3: + if (countitem(7441) > 0) { + mes "[Liei]"; + mes "The reward for"; + mes "each Blue Feather is..."; + mes " "; + mes "1,000 zeny"; + mes "2,000 EXP"; + next; + set .@zeny_tt,(countitem(7441) * 1000); + set .@exp_tt,(countitem(7441) * 200); + mes "[Liei]"; + mes "If you turn in your"; + mes ""+countitem(7441)+" Blue Feathers, then"; + mes "you will receive a total of..."; + mes " "; + mes ""+.@zeny_tt+" zeny"; + mes ""+.@exp_tt+" EXP"; + next; + mes "[Liei]"; + mes "Would you like to exchange"; + mes "all of your Blue Feathers"; + mes "for your reward right now?"; + next; + switch (select("Yes:No")) { + case 1: + mes "[Liei]"; + mes "Great! Here is your"; + mes ""+.@zeny_tt+" zeny and"; + mes ""+.@exp_tt+" EXP. Thank you,"; + mes "and please keep up"; + mes "the good work~"; + delitem 7441,countitem(7441); //Blue_Feather + set Zeny, Zeny + .@zeny_tt; + getexp .@exp_tt,0; + close; + case 2: + mes "[Liei]"; + mes "Sure, no problem."; + mes "Just come back and"; + mes "talk to me whenever"; + mes "you want to receive"; + mes "your reward, alright?"; + close; + } + } + mes "[Liei]"; + mes "I'm sorry, but you are not"; + mes "carrying any Blue Feathers."; + mes "Please check your inventory"; + mes "one more time, and then come"; + mes "to me to redeem your items"; + mes "for a reward later, alright?"; + close; + case 4: + if (countitem(7442) > 0) { + mes "[Liei]"; + mes "The reward for"; + mes "each Cursed Seal is..."; + mes " "; + mes "1,000 zeny"; + mes "2,000 EXP"; + next; + set .@zeny_tt,(countitem(7442) * 1000); + set .@exp_tt,(countitem(7442) * 200); + mes "[Liei]"; + mes "If you turn in your"; + mes ""+countitem(7442)+" Cursed Seals, then"; + mes "you will receive a total of..."; + mes " "; + mes ""+.@zeny_tt+" zeny"; + mes ""+.@exp_tt+" EXP"; + next; + mes "[Liei]"; + mes "Would you like to exchange"; + mes "all of your Cursed Seals"; + mes "for your reward right now?"; + next; + switch (select("Yes:No")) { + case 1: + mes "[Liei]"; + mes "Great! Here is your"; + mes ""+.@zeny_tt+" zeny and"; + mes ""+.@exp_tt+" EXP. Thank you,"; + mes "and please keep up"; + mes "the good work~"; + delitem 7442,countitem(7442); //Cursed_Seal + set Zeny, Zeny + .@zeny_tt; + getexp .@exp_tt,0; + close; + case 2: + mes "[Liei]"; + mes "Sure, no problem."; + mes "Just come back and"; + mes "talk to me whenever"; + mes "you want to receive"; + mes "your reward, alright?"; + close; + } } - + mes "[Liei]"; + mes "I'm sorry, but you are not"; + mes "carrying any Cursed Seals."; + mes "Please check your inventory"; + mes "one more time, and then come"; + mes "to me to redeem your items"; + mes "for a reward later, alright?"; + close; + } case 2: mes "[Liei]"; mes "Alright, then."; @@ -496,66 +805,10 @@ tha_t01,140,78,4 script Guide#thana 831,{ close; } } - -function script Func_Thana { - - if(!countitem(getarg(0))) - { - mes "[Liei]"; - mes "Oh, I'm sorry, but you"; - mes "don't have any "+ getitemname(getarg(0)) +""; - mes "Please check your inventory one more time..."; - close; - } - mes "[Liei]"; - mes "The reward for each"; - mes ""+ getitemname(getarg(0)) +" is..."; - mes " "; - mes "1,000 zeny"; - mes "2,000 EXP"; - next; - mes "[Liei]"; - mes "If you turn in your "+ countitem(getarg(0)) +""; - mes ""+ getitemname(getarg(0)) +", then"; - mes "you will receive a total of..."; - mes " "; - mes ""+ countitem(getarg(0)) * 1000 +" zeny"; - mes ""+ countitem(getarg(0)) * 2000 +" EXP"; - next; - mes "[Liei]"; - mes "So would you like to"; - mes "exchange all of your "+ getitemname(getarg(0)) +""; - mes "for your reward now?"; - next; - switch( select( "Yes","No" ) ) - { - case 1: - mes "[Liei]"; - mes "Great! Here is your"; - mes ""+ countitem(getarg(0)) * 1000 +" zeny and"; - mes ""+ countitem(getarg(0)) * 2000 +" EXP. Thank you,"; - mes "and please keep up"; - mes "the good work~"; - set Zeny,Zeny + countitem(getarg(0)) * 1000; - getexp countitem(getarg(0))*2000,0; - delitem getarg(0),countitem(getarg(0)); - close; - - case 2: - mes "[Liei]"; - mes "Sure, no problem."; - mes "Just come back and"; - mes "talk to me whenever"; - mes "you want to receive"; - mes "your reward, alright?"; - close; - } -} tha_t02,231,161,5 script Entrance Guide 874,{ - if(!thana_quest) - { + if (thana_tower == 0) { mes "[Burled]"; mes "You are in front of the entrance to the 3rd Floor. Only contracted"; mes "temp employees are authorized"; @@ -563,174 +816,231 @@ tha_t02,231,161,5 script Entrance Guide 874,{ mes "speak to the 2nd Floor Guide."; close; } + mes "[Burled]"; mes "......"; mes "........."; mes "............"; next; - switch( select( "Excuse me...","........." ) ) - { + switch (select("Excuse me...:.........")) { + case 1: + mes "[Burled]"; + mes "Oh..."; + mes "I'm sorry, how"; + mes "can I help you?"; + 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]"; + mes "Because the higher levels are"; + mes "too dangerous, we only open the"; + mes "3rd Floor Gate when 5 or more"; + mes "are gathered here. Therefore,"; + mes "you may need to wait if less"; + mes "than 5 temps have gathered."; + close; + } + } + switch (select("Enter the 3rd Floor:Gate Information:About Satan Morroc...")) { case 1: 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_quest < 2) - { - switch( select( "Enter the 3rd Floor","Gate Information" ) ) - { - case 1: -L_Access3: - mes "[Burled]"; - mes "Oh, alright. Let me"; - mes "check and see if you're"; - mes "on our temp list. Hmmm..."; - mes "Ah, you're "+strcharinfo(0)+", right?"; - set .@thana_level2,getareausers("tha_t02",226,156,236,166); - next; - if(.@thana_level2 < 5) - { - mes "[Burled]"; - mes "First, we need to wait until"; - mes "at least 5 temps are gathered"; - mes "to form a work group. Right"; - mes "now, there are a total of"; - mes ""+ .@thana_level2 +" temp workers waiting to"; - mes "enter the 3rd Floor."; - next; - mes "[Burled]"; - mes "If you can, try to get"; - mes "your friends to help you"; - mes "by coming near me. Please"; - mes "understand that we have this"; - mes "temp worker group requirement"; - mes "for various safety reasons."; - close; - } - mes "[Burled]"; - mes "Great, you're just"; - mes "in time. We just met"; - mes "the minimum 5 temp group"; - mes "requirement, so we'll open"; - mes "the gate to the 3rd Floor soon."; - next; - mes "[Burled]"; - mes "The gate to the 3rd Floor"; - mes "will close shortly, so enter it"; - mes "as soon as you can. We have"; - mes "to close it quickly because we"; - mes "can't have the tower monsters"; - mes "entering the lower floors..."; - close2; - donpcevent "#thana3::OnOpen"; - end; - - case 2: -L_GateInfo: - mes "[Burled]"; - mes "This gate is the only passage"; - mes "that connects to the 3rd Floor."; - mes "After the 4th Floor, passages"; - mes "between floors only travel one"; - mes "way, meaning you can't exit the"; - mes "same way you that you entered."; - next; - mes "[Burled]"; - mes "You see, there's a strange"; - mes "power that affects the 5th"; - mes "Floor, and all floors above,"; - mes "which doesn't allow people to"; - mes "backtrack through the passage in which they entered the floor."; - next; - mes "[Burled]"; - mes "So if you ascend past the"; - mes "4th Floor, please be careful"; - mes "and make sure that you find"; - mes "a way to get back. Also, the"; - mes "monsters grow more powerful"; - mes "as you ascend the tower..."; - next; - mes "[Burled]"; - mes "Because the higher levels are"; - mes "too dangerous, we only open the"; - mes "3rd Floor Gate when 5 or more"; - mes "are gathered here. Therefore,"; - mes "you may need to wait if less"; - mes "than 5 temps have gathered."; - close; - } + 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."; + close; } - switch( select( "Enter the 3rd Floor","Gate Information","About Satan Morroc..." ) ) - { - case 1: - goto L_Access3; - - case 2: - goto L_GateInfo; - - case 3: - mes "[Burled]"; - mes "Satan Morroc...?"; - mes "Ummm... Isn't talking"; - mes "about that a little taboo?"; - mes "I mean, people get angry"; - mes "or scared just hearing"; - mes "that name, you know?"; - next; - switch( select( "It's important that I know more.","I'm sorry, I didn't know..." ) ) - { - case 1: - mes "[Burled]"; - mes "When the Rekenber Corporation"; - mes "started reconstruction of the"; - mes "Thanatos Tower, the Cool Event"; - mes "Corporation was their biggest"; - mes "business partner in the tower"; - mes "reconstruction project."; - next; - mes "[Burled]"; - mes "Yeah, I remember that Cool"; - mes "Event Corp. invested huge"; - mes "amounts of zeny and manpower"; - mes "to rebuild to tower, and expand"; - mes "their business relationship"; - mes "with Rekenber Corporation..."; - next; - mes "[Burled]"; - mes "But then, there was some"; - mes "kind of accident. An explosion"; - mes "happened in the upper floors"; - mes "of Thanatos Tower. Some say"; - mes "it might have been Satan Morroc, but I wouldn't know for sure."; - next; - mes "[Burled]"; - mes "Because of that explosion,"; - mes "Cool Event Corporation withdrew"; - mes "their investment into the tower"; - mes "reconstruction project. They"; - mes "basically abandoned Rekenber Corporation in the tower effort."; - next; - mes "[Burled]"; - mes "But well..."; - mes "Shortly after that happened,"; - mes "Rekenber Corporation took over"; - mes "Cool Event Corporation. I mean,"; - mes "the company retains its name, but it's a Rekenber company now."; - next; - mes "[Burled]"; - mes "I know, I know..."; - mes "It all sounds awfully"; - mes "shady. Please do me a favor"; - mes "and don't tell anyone that"; - mes "I told you this rumor, okay?"; - close; - - case 2: - close; - } + 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]"; + 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 "[Burled]"; + mes "Satan Morroc...?"; + mes "Ummm... Isn't talking"; + mes "about that a little taboo?"; + mes "I mean, people get angry"; + mes "or scared just hearing"; + mes "that name, you know?"; + next; + switch (select("It's important that I know more.:I'm sorry, I didn't know...")) { + case 1: + mes "[Burled]"; + mes "When the Rekenber Corporation"; + mes "started reconstruction of the"; + mes "Thanatos Tower, the Cool Event"; + mes "Corporation was their biggest"; + mes "business partner in the tower"; + mes "reconstruction project."; + next; + mes "[Burled]"; + mes "Yeah, I remember that Cool"; + mes "Event Corp. invested huge"; + mes "amounts of zeny and manpower"; + mes "to rebuild to tower, and expand"; + mes "their business relationship"; + mes "with Rekenber Corporation..."; + next; + mes "[Burled]"; + mes "But then, there was some"; + mes "kind of accident. An explosion"; + mes "happened in the upper floors"; + mes "of Thanatos Tower. Some say"; + mes "it might have been Satan Morroc, but I wouldn't know for sure."; + next; + mes "[Burled]"; + mes "Because of that explosion,"; + mes "Cool Event Corporation withdrew"; + mes "their investment into the tower"; + mes "reconstruction project. They"; + mes "basically abandoned Rekenber Corporation in the tower effort."; + next; + mes "[Burled]"; + mes "But well..."; + mes "Shortly after that happened,"; + mes "Rekenber Corporation took over"; + mes "Cool Event Corporation. I mean,"; + mes "the company retains its name, but it's a Rekenber company now."; + next; + mes "[Burled]"; + mes "I know, I know..."; + mes "It all sounds awfully"; + mes "shady. Please do me a favor"; + mes "and don't tell anyone that"; + mes "I told you this rumor, okay?"; + close; + case 2: + close; } - + } case 2: mes "["+strcharinfo(0)+"]"; mes "............."; @@ -738,68 +1048,52 @@ L_GateInfo: } } -tha_t02,227,163,1 script #thana3 45,1,1,{ +tha_t02,227,163,0 script 3rdf_warp#tt 45,1,1,{ + end; OnInit: - disablenpc "#thana3"; + hideonnpc "3rdf_warp#tt"; end; - + OnTouch: - if(!thana_quest) warp "tha_t02",227,158; - else warp "tha_t03",219,159; + if (thana_tower == 0) { + warp "tha_t02",227,158; + } + else { + warp "tha_t03",219,159; + } end; - -OnOpen: - enablenpc "#thana3"; + +OnEnable: + hideoffnpc "3rdf_warp#tt"; initnpctimer; end; - + OnTimer30000: stopnpctimer; - disablenpc "#thana3"; + hideonnpc "3rdf_warp#tt"; end; } -tha_t03,67,70,0 script Machine Device#thana1 111,{ +tha_t03,67,70,0 script Machine Device#tt1 111,{ - if((countitem(7421)) || (countitem(7426))) - { - mes "^3355FFIt's a peculiar machine"; - mes "that emits a strange buzzing"; - mes "hum. After looking closer,"; - mes "you can faintly perceive an"; - mes "energy barrier surrounding"; - mes "the machine.^000000"; - close; - } - mes "^3355FFA mysterious field of"; - mes "energy seems to surround"; - mes "the mechanical device and"; - mes "its power prevents you from"; - mes "approaching the machine.^000000"; - next; - switch( select( "Smash the Energy Field","Retreat" ) ) - { + if ((countitem(7421) == 0) && (countitem(7426) == 0)) { + mes "^3355FFA mysterious field of"; + mes "energy seems to surround"; + mes "the mechanical device and"; + mes "its power prevents you from"; + mes "approaching the machine.^000000"; + next; + switch (select("Smash the Energy Field:Retreat")) { case 1: - if (getequipweaponlv(4) < 4) - { - mes "^3355FFYou smash the energy"; - mes "field with your weapon"; - mes "using all of your strength,"; - mes "but you weren't able to"; - mes "break down the barrier."; - mes "You probably need a more"; - mes "powerful weapon...^000000"; - close; - } - mes "^3355FFWith your "+getequipname(4)+" in"; - mes "hand, you smash the energy"; - mes "field with all of your strength. After absorbing the impact, the"; - mes "field fizzles out with a soft,"; - mes "gentle ''pzzzzzh'' sound.^000000"; - next; - switch( select( "Investigate Device","Retreat" ) ) - { + 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"; @@ -808,370 +1102,373 @@ tha_t03,67,70,0 script Machine Device#thana1 111,{ mes "and the activation of"; mes "the monitor screen.^000000"; next; - switch( select( "Read the Screen","Ignore the Screen" ) ) - { + 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 "^426F42I've used the Gate Seal"; - mes "technology to seal the gate"; - mes "and the charm stones. Although"; - mes "the seals are in place, I can't"; - mes "stop worrying that they might"; - mes "break in the future.^000000"; - next; - mes "^426F42I can't relax when a, shall"; - mes "I say, particular group covets"; - mes "the charm stones and can easily"; - mes "break the seals. To deter them,"; - mes "I've changed the Gate destination before sealing the Gate.^000000"; - next; - mes "^426F42I didn't check the exact"; - mes "destination coordinates for"; - mes "the Gate after I changed them,"; - mes "but the destination gives me"; - mes "a warm, comforting feeling,"; - mes "so it's definitely not hell.^000000"; - next; - mes "^3355FFYou've read all the"; - mes "text displayed on the"; - mes "screen. Judging from the"; - mes "content, there is probably"; - mes "more text before and after the"; - mes "section shown on the screen.^000000"; - next; - switch( select( "Further Investigate Machine","Finish Investigation" ) ) - { - case 1: - mes "^3355FFYou have found"; - mes "a small key on the"; - mes "corner of the machine."; - mes "Just touching this key"; - mes "gives you a strange feeling.^000000"; - getitem 7421,1; - close; - - case 2: - break; - } - break; - + 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: - mes "^3355FFYou decide to ignore the"; - mes "text displayed on the screen,"; - mes "and immediately discover a"; - mes "small key laid on the corner"; - mes "of the machine. Just touching"; - mes "it gives you a strange feeling.^000000"; - getitem 7421,1; close; + } + 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; } - break; - case 2: mes "^3355FFYou decide to leave"; mes "the machine alone.^000000"; close; + } } - break; - + 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: - break; + mes "^3355FFYou decide to leave"; + mes "the machine alone.^000000"; + close; + } } - mes "^3355FFYou decide to leave"; - mes "the machine alone.^000000"; + mes "^3355FFIt's a peculiar machine"; + mes "that emits a strange buzzing"; + mes "hum. After looking closer,"; + mes "you can faintly perceive an"; + mes "energy barrier surrounding"; + mes "the machine.^000000"; close; } -tha_t04,195,195,0 script Machine Device#thana2 111,{ +tha_t04,195,195,0 script Machine Device#tt2 111,{ - if((countitem(7422)) || (countitem(7427))) - { - mes "^3355FFThis device is currently"; - mes "inactivated and not in"; - mes "operation. However, you"; - mes "may have use for it later...^000000"; - close; - } - mes "^3355FFYou find a number pad"; - mes "underneath the monitor."; - mes "As you press one of the"; - mes "number keys, you hear a"; - mes "beep as the screen activates.^000000"; - next; - mes "[Screen]"; - mes "Please enter a 3 digit"; - mes "number. Do not use a"; - mes "single number more than"; - mes "once or use the number 0."; - next; - if(@thanatry) goto L_Input; -L_Recode: - set @thanacode1,rand(1,9); - set @thanacode2,rand(1,9); - set @thanacode3,rand(1,9); - if((@thanacode1 == @thanacode2) || (@thanacode1 == @thanacode3) || (@thanacode2 == @thanacode3)) goto L_Recode; -L_Input: - input @thanainput; - if((@thanainput < 100) || (@thanainput > 999)) - { - mes "[Screen]"; - mes "Number input"; - mes "requirement has"; - mes "not been fulfilled."; - mes "Please enter a"; - mes "3 digit number."; - close; - } - set @thanainput1,@thanainput / 100; - set @thanainput2,(@thanainput % 100) / 10; - set @thanainput3,@thanainput % 10; - if ((@thanainput1 == 0) || (@thanainput2 == 0) || (@thanainput3 == 0)) - { - mes "[Screen]"; - mes "Violation of number"; - mes "input parameter. The"; - mes "number 0 has been input,"; - mes "or a number has been"; - mes "input more than once."; + if ((countitem(7422) == 0) && (countitem(7427) == 0)) { + mes "^3355FFYou find a number pad"; + mes "underneath the monitor."; + mes "As you press one of the"; + mes "number keys, you hear a"; + mes "beep as the screen activates.^000000"; next; - goto L_Input; - } - mes "[Screen]"; - mes "You have input..."; - mes "^0000ff"+@thanainput1+"^000000, ^0000ff"+@thanainput2+"^000000, ^0000ff"+@thanainput3+"^000000"; - mes " "; - mes "Calculating Results..."; - mes "Please wait a moment..."; - set @thanatry,@thanatry +1; - next; - set @strike,0; - set @ball,0; - if(@thanainput1 == @thanacode1) set @strike,@strike +1; - if(@thanainput2 == @thanacode2) set @strike,@strike +1; - if(@thanainput3 == @thanacode3) set @strike,@strike +1; - if((@thanainput1 == @thanacode2) || (@thanainput1 == @thanacode3)) set @ball,@ball +1; - if((@thanainput2 == @thanacode1) || (@thanainput2 == @thanacode3)) set @ball,@ball +1; - if((@thanainput3 == @thanacode1) || (@thanainput3 == @thanacode2)) set @ball,@ball +1; - if(@strike == 3) - { mes "[Screen]"; - mes "Input number accepted."; - mes "Access authorized."; - set @thanatry,0; - 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 "Please enter a 3 digit"; + mes "number. Do not use a"; + mes "single number more than"; + mes "once or use the number 0."; + set @retry,0; next; - switch( select( "Read the Screen's Text","Investigate Monitor Storage","Cancel" ) ) - { - case 1: - mes "[Log Entry]"; - mes "^426F42That could only mean she"; - mes "came here for Satan Morroc."; - mes "After I investigated the area,"; - mes "I found traces of a battle that"; - mes "involved several human sized creatures and one giant monster.^000000"; - next; - mes "[Log Entry]"; - mes "^426F42I'm guessing that her group"; - mes "actually fought Satan Morroc"; - mes "and managed to wound it"; - mes "severely. It looks like Satan"; - mes "Morroc retreated to the south"; - mes "and her group followed it.^000000"; + while (1) { + 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; - 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"; + input @input; + if (@input < 100 || @input > 999) { + mes "[Screen]"; + mes "Number input"; + mes "requirement has"; + mes "not been fulfilled."; + mes "Please enter a"; + 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))) { + break; + } + mes "[Screen]"; + mes "Violation of number"; + mes "input parameter. The"; + mes "number 0 has been input,"; + mes "or a number has been"; + mes "input more than once."; + next; + } + } + set @retry,@retry+1; + mes "[Screen]"; + mes "You have input..."; + 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) { + mes "[Screen]"; + mes "Input number accepted."; + mes "Access authorized."; next; - mes "^3355FFYou've finished"; - mes "reading the Log Entry.^000000"; + mes "^3355FFAfter the screen displays"; + mes "the access authorization"; + mes "notice, some new text is"; + mes "displayed on the screen,"; + mes "and a storage unit slides"; + mes "open beneath the monitor.^000000"; next; - switch( select( "Investigate Monitor Storage","Cancel" ) ) - { + switch (select("Read the Screen's Text:Investigate Monitor Storage:Cancel")) { + case 1: + mes "[Log Entry]"; + mes "^426F42That could only mean she"; + mes "came here for Satan Morroc."; + mes "After I investigated the area,"; + mes "I found traces of a battle that"; + mes "involved several human sized creatures and one giant monster.^000000"; + next; + mes "[Log Entry]"; + mes "^426F42I'm guessing that her group"; + mes "actually fought Satan Morroc"; + mes "and managed to wound it"; + mes "severely. It looks like Satan"; + mes "Morroc retreated to the south"; + mes "and her group followed it.^000000"; + next; + mes "[Log Entry]"; + mes "^426F42Strangely, I haven't found"; + mes "any traces of her, which is"; + mes "especially suspicious since"; + mes "other evidence in the area has"; + mes "remained for hundreds of years."; + mes "But I can't figure out why...^000000"; + next; + mes "^3355FFYou've finished"; + mes "reading the Log Entry.^000000"; + next; + switch (select("Investigate Monitor Storage:Cancel")) { case 1: - break; - + 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"; + close; } - - case 2: - mes "^3355FFYou find a small, shining"; - mes "key in an empty corner of the"; - mes "Monitor's Storage receptacle."; - mes "Merely holding it makes you"; - mes "feel some strange sensation.^000000"; - if(thana_quest == 1) set thana_quest,2; - getitem 7422,1; - close; - - case 3: - mes "^3355FFAfter a short while,"; - mes "you hear a low pitched"; - mes "beep. The screen's text"; - mes "disappears, and the storage"; - mes "receptable under the monitor"; - mes "slides shut, concealing itself.^000000"; - close; + } + if ((@retry > 0) && (@retry < 5)) { + 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 "[Screen]"; + mes "*Beeeeep*"; + mes "Unauthorized"; + mes "numerical sequence."; + next; + mes "[Screen]"; + mes "Correct number"; + mes "in correct place"; + mes "in sequence total: ^FF0000"+@strike+"^000000"; + mes " "; + mes "Correct number total: ^FF0000"+@ball+"^000000"; + next; + 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"; - next; - if(@thanatry > 4) - { - mes "[Screen]"; - mes "Correct number"; - mes "authorization"; - mes "sequence was..."; - mes "^ff0000"+@thanacode1+"^000000, ^ff0000"+@thanacode2+"^000000, ^ff0000"+@thanacode3+"^000000"; - mes "Authorization number"; - mes "will change upon retry."; - set @thanatry,0; - close; - } - goto L_Input; + mes "^3355FFThis device is currently"; + mes "inactivated and not in"; + mes "operation. However, you"; + mes "may have use for it later...^000000"; + close; } -tha_t05,101,37,0 script Machine Device#thana3 111,{ +tha_t05,101,37,0 script Machine Device#tt3 111,{ - if((countitem(7423)) || (countitem(7428))) - { - mes "^3355FFYou find nothing here,"; - mes "aside from the faded"; - mes "patterns that mark the floor.^000000"; - close; - } - set .@thana_level5,getareausers("tha_t05",98,34,104,40); - if(!.@thana_level5) - { - mes "^3355FFYou are inexplicably drawn"; - mes "to this mechanical device."; - mes "Aside from the green screen"; - mes "in the middle, there are no"; - mes "buttons and switches.^000000"; - if(rand(1,3) == 2) - { - next; - mes "^3355FFYou perceive small text at the"; - mes "bottom of the green screen"; - mes "that reads, ''Operation of this"; - mes "device requires presense of"; - mes "four or more personnel detected"; - mes "by pressure plate system.''^000000"; + 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; + } close; } - close; - } - else if(.@thana_level5 < 4) - { - mes "^3355FFYou are inexplicably drawn"; - mes "to this mechanical device."; - mes "Aside from the green screen"; - mes "in the middle, there are no"; - mes "buttons and switches.^000000"; - next; - mes "^3355FFYou carefully investigate"; - mes "your surroundings and notice"; - mes "a gleaming spot on the ground"; - mes "next to the mechanical device.^000000"; - close; - } - else - { mes "^3355FFAs you approach the device, the"; mes "floor around it begins to glow."; mes "Text appears on the device's"; mes "screen, and a storage receptacle beneath the monitor slides open.^000000"; next; - switch( select( "Read the Screen's Text","Investigate Monitor Storage","Cancel" ) ) - { - case 1: - mes "[Log Entry]"; - mes "^426F42After the whole ordeal,"; - mes "I decided to leave. But"; - mes "before I could do that,"; - mes "I had to seal the Gate"; - mes "that led to that place.^000000"; - next; - mes "[Log Entry]"; - mes "^426F42If someone were to find"; - mes "this tower and use the Gate"; - mes "for evil ends, the world will be plagued with an era of chaos."; - mes "Of course, they'd stop me if they knew I was sealing the Gate...^000000"; - next; - mes "[Log Entry]"; - mes "^426F42It took me a very long time,"; - mes "but I managed to secretly"; - mes "seal the Gate. But before"; - mes "I began sealing the Gate,"; - mes "I decided to examine it"; - mes "further, just in case.^000000"; - next; - mes "[Log Entry]"; - mes "^426F42In my studies of the Gate,"; - mes "I discovered that it derives"; - mes "its power from the Charm"; - mes "Stones. So to prevent anyone"; - mes "from misusing its power, I've separately sealed the stones...^000000"; - next; - mes "^3355FFYou've finished"; - mes "reading the text"; - mes "that was displayed"; - mes "on the screen.^000000"; - close; - - case 2: - mes "^3355FFYou've found a small"; - mes "shining key inside the"; - mes "storage receptacle located"; - mes "underneath the monitor.^000000"; - getitem 7423,1; - close; - - case 3: - close; + switch (select("Read the Screen's Text:Investigate Monitor Storage:Cancel")) { + case 1: + mes "[Log Entry]"; + mes "^426F42After the whole ordeal,"; + mes "I decided to leave. But"; + mes "before I could do that,"; + mes "I had to seal the Gate"; + mes "that led to that place.^000000"; + next; + mes "[Log Entry]"; + mes "^426F42If someone were to find"; + mes "this tower and use the Gate"; + mes "for evil ends, the world will be plagued with an era of chaos."; + mes "Of course, they'd stop me if they knew I was sealing the Gate...^000000"; + next; + mes "[Log Entry]"; + mes "^426F42It took me a very long time,"; + mes "but I managed to secretly"; + mes "seal the Gate. But before"; + mes "I began sealing the Gate,"; + mes "I decided to examine it"; + mes "further, just in case.^000000"; + next; + mes "[Log Entry]"; + mes "^426F42In my studies of the Gate,"; + mes "I discovered that it derives"; + mes "its power from the Charm"; + mes "Stones. So to prevent anyone"; + mes "from misusing its power, I've separately sealed the stones...^000000"; + next; + mes "^3355FFYou've finished"; + mes "reading the text"; + mes "that was displayed"; + mes "on the screen.^000000"; + close; + case 2: + mes "^3355FFYou've found a small"; + mes "shining key inside the"; + mes "storage receptacle located"; + mes "underneath the monitor.^000000"; + getitem 7423,1; //Key_Blue + close; + case 3: + close; } } + mes "^3355FFYou find nothing here,"; + mes "aside from the faded"; + mes "patterns that mark the floor.^000000"; + close; } -tha_t06,43,152,0 script Machine Device#thana4 111,{ +tha_t06,43,152,0 script Machine Devicett4 111,{ - if((countitem(7424)) || (countitem(7429))) - { - mes "^3355FFYou found a deactivated"; - mes "mechanical device with an"; - mes "interesting series of wheels.^000000"; - close; - } - mes "^3355FFYou find a mechanical"; - mes "device that has many"; - mes "wheels. A black screen"; - mes "is mounted on the side"; - mes "of the machine.^000000"; - next; - switch( select( "Investigate","Cancel" ) ) - { + 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"; + next; + switch (select("Investigate:Cancel")) { case 1: - if((countitem(7421)) || (countitem(7422)) || (countitem(7423))) - { + 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"; @@ -1179,303 +1476,417 @@ tha_t06,43,152,0 script Machine Device#thana4 111,{ mes "noises. After a while, they"; mes "stop and become silent.^000000"; next; - switch( select( "Investigate the Machine Chasis","Investigate the Wheels","Cancel" ) ) - { - case 1: - mes "^3355FFThe key in your inventory"; - mes "does not seem to be affecting"; - mes "the machine's chasis. The"; - mes "screen mounted on the side"; - mes "is still blank and deactivated.^000000"; - close; - - case 2: - set @thana_small1,0; - set @thana_small2,0; - set @thana_big1,0; - set @thana_big2,0; - set @thana_big3,0; - mes "^3355FFYou touch the wheels and"; - mes "find that they are actually"; - mes "moving very slowly. You note"; - mes "that there are 2 small wheels"; - mes "and 3 larger wheels, totaling"; - mes "5 wheels on this machine.^000000"; - next; - mes "^3355FFThe big wheels are moving"; - mes "vertically, up and down, as"; - mes "they press against the smaller"; - mes "wheels to make them rotate.^000000"; - next; - mes "^3355FFJudging from the machine's"; - mes "shaking and jittery 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"; -L_Wheels: + 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"; + 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"; - 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" ) ) - { + 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")) { + case 1: + switch (select("Raise Wheel:Lower Wheel:Press Wheel")) { case 1: - set @wheelresult,callfunc("Thana_Wheels","Press Wheel",@thana_small1,2,1,3); - if(@wheelresult == 1) break; - goto L_Wheels; - + 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; + } case 2: - set @wheelresult,callfunc("Thana_Wheels","Press Wheel",@thana_small2,3,2,1); - if(@wheelresult == 1) break; - goto L_Wheels; - + 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; + } case 3: - set @wheelresult,callfunc("Thana_Wheels","Vertically Shift Wheel",@thana_big1,1,3,2); - if(@wheelresult == 1) break; - goto L_Wheels; - - case 4: - set @wheelresult,callfunc("Thana_Wheels","Vertically Shift Wheel",@thana_big2,2,3,1); - if(@wheelresult == 1) break; - goto L_Wheels; - - case 5: - set @wheelresult,callfunc("Thana_Wheels","Vertically Shift Wheel",@thana_big3,2,1,3); - if(@wheelresult == 1) break; - goto L_Wheels; - - case 6: - if(@thana_small1 == 0) mes "1st Small Wheel: No Change"; - else if(@thana_small1 == 1) mes "1st Small Wheel: Down"; - else if(@thana_small1 == 2) mes "1st Small Wheel: Up"; - else if(@thana_small1 == 3) mes "1st Small Wheel: Pressed"; - if(@thana_small2 == 0) mes "2nd Small Wheel: No Change"; - else if(@thana_small2 == 1) mes "2nd Small Wheel: Pressed"; - else if(@thana_small2 == 2) mes "2nd Small Wheel: Down"; - else if(@thana_small2 == 3) mes "2nd Small Wheel: Up"; - if(@thana_big1 == 0) mes "1st Big Wheel: No Change"; - else if(@thana_big1 == 1) mes "1st Big Wheel: Up"; - else if(@thana_big1 == 2) mes "1st Big Wheel: Moved"; - else if(@thana_big1 == 3) mes "1st Big Wheel: Down"; - if(@thana_big2 == 0) mes "2nd Big Wheel: No Change"; - else if(@thana_big2 == 1) mes "2nd Big Wheel: Moved"; - else if(@thana_big2 == 2) mes "2nd Big Wheel: Up"; - else if(@thana_big2 == 3) mes "2nd Big Wheel: Down"; - if(@thana_big3 == 0) mes "3rd Big Wheel: No Change"; - else if(@thana_big3 == 1) mes "3rd Big Wheel: Down"; - else if(@thana_big3 == 2) mes "3rd Big Wheel: Up"; - else if(@thana_big3 == 3) mes "3rd Big Wheel: Moved"; - goto L_Wheels; - - case 7: - set @thana_small1,0; - set @thana_small2,0; - set @thana_big1,0; - set @thana_big2,0; - set @thana_big3,0; - goto L_Wheels; - } - next; - mes "^3355FFAs you adjust the wheels,"; - mes "they suddenly immobilize with"; - mes "a firm click. Then, the device's screen activates and displays"; - mes "some text while a storage"; - mes "compartment underneath"; - mes "the monitor slides open.^000000"; - next; - switch( select( "Read the Screen's Text","Investigate Monitor Storage","Cancel" ) ) - { + 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; + } + } + 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; + } + 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; + } + 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; + } + } + 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; + } + 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; + } + 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; + } + } + case 4: + switch (select("Raise Wheel:Lower Wheel:Vertically Shift Wheel")) { 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; - + 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; + } case 2: - mes "^3355FFInside the monitor"; - mes "storage compartment,"; - mes "you find a small, shining"; - mes "key that you decide to take.^000000"; - getitem 7424,1; - close; - + 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; + } case 3: - break; + 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; + } + } + 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; + } + 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; + } + 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; + } + } + 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*"; + } + 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; case 3: - break; + close; + } + case 3: + close; } } - else - { - mes "^3355FFThis mechanical device is"; - mes "activated, as evidenced by"; - mes "its gleaming, moving wheels.^000000"; - 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; + } } - -} - -function script Thana_Wheels { - - switch( select( "Raise Wheel","Lower Wheel",getarg(0) ) ) - { - case 1: - set getarg(1),getarg(2); - if((@thana_small1 == getarg(2)) && (@thana_small2 == getarg(2)) && (@thana_big1 == getarg(2)) && (@thana_big2 == getarg(2)) && (@thana_big3 == getarg(2))) return 1; - return 0; - - case 2: - set getarg(1),getarg(3); - if((@thana_small1 == getarg(3)) && (@thana_small2 == getarg(3)) && (@thana_big1 == getarg(3)) && (@thana_big2 == getarg(3)) && (@thana_big3 == getarg(3))) return 1; - return 0; - - case 3: - set getarg(1),getarg(4); - if((@thana_small1 == getarg(4)) && (@thana_small2 == getarg(4)) && (@thana_big1 == getarg(4)) && (@thana_big2 == getarg(4)) && (@thana_big3 == getarg(4))) return 1; - return 0; - } + mes "^3355FFYou found a deactivated"; + mes "mechanical device with an"; + mes "interesting series of wheels.^000000"; + close; } -tha_t09,19,158,0 script Machine Device 111,{ +tha_t09,19,158,0 script Machine Device#tt5 111,{ - if((countitem(7425)) || (countitem(7430))) - { - mes "^3355FFYou find a peculiar"; - mes "mechanical device that"; - mes "is not in operation.^000000"; - close; - } - mes "^3355FFYou find a machine that"; - mes "emits a soft light and weak"; - mes "hum. There is a monitor, with"; - mes "several different colored"; - mes "keyholes beneath it, in"; - mes "front of the machine.^000000"; - if(!((countitem(7421)) || (countitem(7426))) && ((countitem(7422)) || (countitem(7427))) && ((countitem(7423)) || (countitem(7428))) && ((countitem(7424)) || (countitem(7429)))) close; - next; - mes "^3355FFYou also notice that there"; - mes "are several slots that seem"; - mes "to be the perfect size for"; - mes "your keys and Charm Stones."; - next; - input @input$; - if (@input$ == "Key" || @input$ == "Charmstone" || @input$ == "Charm stone" || @input$ == "Charm Stone") - { - mes "^3355FFYou insert the keys into the"; - mes "keyholes, matching them by"; - mes "corresponding color, and place"; - mes "the Charm Stones in the machine slots. The stones begin to glow,"; - mes "text appears on the screen, and the monitor's storage slides open.^000000"; - next; - switch( select( "Read the Screen's Text","Investigate Monitor Storage","Cancel" ) ) - { - case 1: - mes "[Log Entry]"; - mes "^426F42As I followed her trail to"; - mes "the north, I passed many"; - mes "deserted places. Finally,"; - mes "I dropped by a small village"; - mes "where I learned about a tower"; - mes "that refuses entry to humans.^000000"; - next; - mes "[Log Entry]"; - mes "^426F42I instantly realized that she"; - mes "must have gone to the tower."; - mes "I headed over there and when"; - mes "I arrived, I was shocked: it was grotesque and didn't resemble"; - mes "a human building at all.^000000"; - next; - mes "^426F42I was also amazed--"; - mes "advanced technology was"; - mes "probably necessary to build the tower's intricate structures."; - mes "I then learned an interesting fact while searching the tower...^000000"; + 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"; + next; + mes "^3355FFYou also notice that there"; + mes "are several slots that seem"; + mes "to be the perfect size for"; + mes "your keys and Charm Stones."; + next; + input .@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"; next; - mes "^3355FFYou've finished"; - mes "reading the text"; - mes "that was displayed"; - mes "on the screen.^000000"; - close; - - case 2: - mes "^3355FFYou search the storage"; - mes "compartment beneath the"; - mes "screen and find a strange"; - mes "key. As soon as you take it,"; - mes "the machine's activity halts."; - mes "You then retrieve the Charm"; - mes "Stones and your other keys.^000000"; - getitem 7425,1; - close; - - case 3: - mes "^3355FFYou retrieve the Charm"; - mes "Stones and keys that you"; - mes "inserted into the machine.^000000"; - close; + switch (select("Read the Screen's Text:Investigate Monitor Storage:Cancel")) { + case 1: + mes "[Log Entry]"; + mes "^426F42As I followed her trail to"; + mes "the north, I passed many"; + mes "deserted places. Finally,"; + mes "I dropped by a small village"; + mes "where I learned about a tower"; + mes "that refuses entry to humans.^000000"; + next; + mes "[Log Entry]"; + mes "^426F42I instantly realized that she"; + mes "must have gone to the tower."; + mes "I headed over there and when"; + mes "I arrived, I was shocked: it was grotesque and didn't resemble"; + mes "a human building at all.^000000"; + next; + mes "^426F42I was also amazed--"; + mes "advanced technology was"; + mes "probably necessary to build the tower's intricate structures."; + mes "I then learned an interesting fact while searching the tower...^000000"; + next; + mes "^3355FFYou've finished"; + mes "reading the text"; + mes "that was displayed"; + mes "on the screen.^000000"; + close; + case 2: + mes "^3355FFYou search the storage"; + mes "compartment beneath the"; + mes "screen and find a strange"; + mes "key. As soon as you take it,"; + mes "the machine's activity halts."; + mes "You then retrieve the Charm"; + mes "Stones and your other keys.^000000"; + getitem 7425,1; //Key_Black + close; + case 3: + mes "^3355FFYou retrieve the Charm"; + mes "Stones and keys that you"; + mes "inserted into the machine.^000000"; + close; + } + } + mes "You attempt to"; + mes ""+.@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"; + close; } - mes "You attempt to"; - mes ""+@input$+","; - mes "but nothing happened."; + mes "^3355FFYou find a peculiar"; + mes "mechanical device that"; + mes "is not in operation.^000000"; close; } -tha_t04,150,44,0 script Seal#thana1 111,{ +tha_t04,150,44,0 script Seal#tt1 111,{ - if(!countitem(7423)) - { + 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.^000000"; - percentheal -10,0; - close; - } - mes "^3355FFThis area is protected by"; - mes "some mysterious power."; - mes "You try to touch the seal,"; - mes "but then it buzzes loudly"; - mes "and pushes your hand away."; - mes "with a burst of blue light.^000000"; - next; - switch( select( "Investigate","There's no way I can break this seal!" ) ) - { + mes "and pushes your hand away."; + mes "with a burst of blue light.^000000"; + next; + switch (select("Investigate:There's no way I can break this seal!")) { case 1: - input @input$; - if (@input$ == "Blue Key") - { + input .@inputstr$; + if (.@inputstr$ == "Blue Key") { mes "^3355FFYou gently hold the blue"; mes "key and bring it towards"; mes "the seal. Strangely, your"; @@ -1506,8 +1917,8 @@ tha_t04,150,44,0 script Seal#thana1 111,{ mes "your mind as quickly as"; mes "they appeared. What could"; mes "have happened in the past?^000000"; - delitem 7423,1; - getitem 7428,1; + delitem 7423,1; //Key_Blue + getitem 7428,1; //Magic_Gem_Blue close; } mes "^3355FFYou'll need to try"; @@ -1516,41 +1927,37 @@ tha_t04,150,44,0 script Seal#thana1 111,{ 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 "^3355FFThis area is protected by"; + mes "some mysterious power."; + mes "You try to touch the seal,"; + mes "but then it buzzes loudly"; + mes "and pushes your hand away.^000000"; + percentheal -10,0; + close; } -tha_t05,218,116,0 script Seal#thana2 111,{ +tha_t05,218,116,0 script Seal#tt2 111,{ - if(!countitem(7421)) - { + 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.^000000"; - percentheal -10,0; - close; - } - mes "^3355FFThis area is protected by"; - mes "some mysterious power."; - mes "You try to touch the seal,"; - mes "but then it buzzes loudly"; - mes "and pushes your hand away."; - mes "with a burst of red light.^000000"; - next; - switch( select( "Investigate","There's no way I can break this seal!" ) ) - { + mes "and pushes your hand away."; + mes "with a burst of red light.^000000"; + next; + switch (select("Investigate:There's no way I can break this seal!")) { case 1: - input @input$; - if (@input$ == "Red Key") - { + input .@inputstr$; + if (.@inputstr$ == "Red Key") { mes "^3355FFYou gently hold the red"; mes "key and bring it towards"; mes "the seal. Strangely, your"; @@ -1581,8 +1988,8 @@ tha_t05,218,116,0 script Seal#thana2 111,{ mes "your mind as quickly as"; mes "they appeared. What could"; mes "have happened in the past?^000000"; - delitem 7421,1; - getitem 7426,1; + delitem 7421,1; //Key_Red + getitem 7426,1; //Magic_Gem_Red close; } mes "^3355FFYou'll need to try"; @@ -1591,41 +1998,37 @@ tha_t05,218,116,0 script Seal#thana2 111,{ 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 "^3355FFThis area is protected by"; + mes "some mysterious power."; + mes "You try to touch the seal,"; + mes "but then it buzzes loudly"; + mes "and pushes your hand away.^000000"; + percentheal -10,0; + close; } -tha_t06,226,230,0 script Seal#thana3 111,{ +tha_t06,226,230,0 script Seal#tt3 111,{ - if(!countitem(7425)) - { + 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.^000000"; - percentheal -10,0; - close; - } - mes "^3355FFThis area is protected by"; - mes "some mysterious power."; - mes "You try to touch the seal,"; - mes "but then it buzzes loudly"; - mes "and pushes your hand away."; - mes "with a burst of black light.^000000"; - next; - switch( select( "Investigate","There's no way I can break this seal!" ) ) - { + mes "and pushes your hand away"; + mes "with a burst of black light.^000000"; + next; + switch (select("Investigate:There's no way I can break this seal!")) { case 1: - input @input$; - if (@input$ == "Black Key") - { + input .@inputstr$; + if (.@inputstr$ == "Black Key") { mes "^3355FFYou gently hold the black"; mes "key and bring it towards"; mes "the seal. Strangely, your"; @@ -1657,8 +2060,8 @@ tha_t06,226,230,0 script Seal#thana3 111,{ mes "your mind as quickly as"; mes "they appeared. What could"; mes "have happened in the past?^000000"; - delitem 7425,1; - getitem 7430,1; + delitem 7425,1; //Key_Black + getitem 7430,1; //Magic_Gem_Black close; } mes "^3355FFYou'll need to try"; @@ -1667,41 +2070,37 @@ tha_t06,226,230,0 script Seal#thana3 111,{ 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 "^3355FFThis area is protected by"; + mes "some mysterious power."; + mes "You try to touch the seal,"; + mes "but then it buzzes loudly"; + mes "and pushes your hand away.^000000"; + percentheal -10,0; + close; } -tha_t07,113,129,0 script Seal#thana4 111,{ +tha_t07,113,129,0 script Seal#tt4 111,{ - if(!countitem(7422)) - { + 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.^000000"; - percentheal -10,0; - close; - } - mes "^3355FFThis area is protected by"; - mes "some mysterious power."; - mes "You try to touch the seal,"; - mes "but then it buzzes loudly"; - mes "and pushes your hand away."; - mes "with a burst of yellow light.^000000"; - next; - switch( select( "Investigate","There's no way I can break this seal!" ) ) - { + mes "and pushes your hand away"; + mes "with a burst of yellow light.^000000"; + next; + switch (select("Investigate:There's no way I can break this seal!")) { case 1: - input @input$; - if (@input$ == "Yellow Key") - { + input .@inputstr$; + if (.@inputstr$ == "Yellow Key") { mes "^3355FFYou gently hold the yellow"; mes "key and bring it towards"; mes "the seal. Strangely, your"; @@ -1740,8 +2139,8 @@ tha_t07,113,129,0 script Seal#thana4 111,{ mes "your mind as quickly as"; mes "they appeared. What could"; mes "have happened in the past?^000000"; - delitem 7422,1; - getitem 7427,1; + delitem 7422,1; //Key_Yellow + getitem 7427,1; //Magic_Gem_Yellow close; } mes "^3355FFYou'll need to try"; @@ -1750,41 +2149,37 @@ tha_t07,113,129,0 script Seal#thana4 111,{ 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 "^3355FFThis area is protected by"; + mes "some mysterious power."; + mes "You try to touch the seal,"; + mes "but then it buzzes loudly"; + mes "and pushes your hand away.^000000"; + percentheal -10,0; + close; } -tha_t10,129,159,0 script Seal 111,{ +tha_t10,129,159,0 script Seal#tt5 111,{ - if(!countitem(7424)) - { + 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.^000000"; - percentheal -10,0; - close; - } - mes "^3355FFThis area is protected by"; - mes "some mysterious power."; - mes "You try to touch the seal,"; - mes "but then it buzzes loudly"; - mes "and pushes your hand away."; - mes "with a burst of green light.^000000"; - next; - switch( select( "Investigate","There's no way I can break this seal!" ) ) - { + mes "and pushes your hand away"; + mes "with a burst of green light.^000000"; + next; + switch (select("Investigate:There's no way I can break this seal!")) { case 1: - input @input$; - if (@input$ == "Green Key") - { + input .@inputstr$; + if (.@inputstr$ == "Green Key") { mes "^3355FFYou gently hold the green"; mes "key and bring it towards"; mes "the seal. Strangely, your"; @@ -1821,8 +2216,8 @@ tha_t10,129,159,0 script Seal 111,{ mes "your mind as quickly as"; mes "they appeared. What could"; mes "have happened in the past?^000000"; - delitem 7424,1; - getitem 7429,1; + delitem 7424,1; //Key_Green + getitem 7429,1; //Magic_Gem_Green close; } mes "^3355FFYou'll need to try"; @@ -1831,92 +2226,86 @@ tha_t10,129,159,0 script Seal 111,{ 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 "^3355FFThis area is protected by"; + mes "some mysterious power."; + mes "You try to touch the seal,"; + mes "but then it buzzes loudly"; + mes "and pushes your hand away.^000000"; + percentheal -10,0; + close; } -tha_t12,96,58,0 script Stone Statue#thana1 111,{ +tha_t12,96,58,0 script Stone Statue#1 111,{ - if(!$@thana_summon) - { + if (!$@thana_summon) { mes "^3355FFYou've found a "; mes "stone statue with"; mes "a conspicuous hole"; mes "in the chest area.^000000"; - if((countitem(7426)) && (countitem(7427)) && (countitem(7428)) && (countitem(7429)) && (countitem(7430))) - { + 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"; next; - switch( select( "Insert Charm Stone into Statue","Cancel" ) ) - { - case 1: - mes "^3355FFOnce you insert the"; - mes "Red Charm Stone, the"; - mes "statue glows even brighter"; - mes "with a mysterious light.^000000"; - delitem 7426,1; - specialeffect EF_BEGINSPELL3; - enablenpc "tteffect2"; - donpcevent "tteffect2::OnGlow"; - set $@thana_summon,1; - close; - - case 2: - mes "^3355FFYou decided not to"; - mes "insert the Charm Stone,"; - mes "opting to investigate this"; - mes "area a little further.^000000"; - close; + 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"; + close; } } - else if((countitem(7426)) || (countitem(7427)) || (countitem(7428)) || (countitem(7429)) || (countitem(7430))) - { - next; - mes "^3355FFAs you approach this statue, one of your Charm Stones begins to"; + 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"; close; } - else close; + close; } - else if($@thana_summon == 6) - { + else if ($@thana_summon == 6) { mes "^3355FFThe statue is emanating an"; mes "intense light, making it so hot"; mes "that you cannot approach it.^000000"; close; } - else - { - mes "^3355FFThis statue is glowing"; - mes "with a mysterious light."; - mes "Some strange force keeps"; - mes "you from approaching it.^000000"; - close; - } + mes "^3355FFThis status is glowing"; + mes "with a mysterious light."; + mes "Some strange force keeps"; + mes "you from approaching it.^000000"; + close; } -tha_t12,104,18,0 script Stone Statue#thana2 111,{ +tha_t12,104,18,0 script Stone Statue#tt2 111,{ - if($@thana_summon == 2) - { + 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)) - { + if (countitem(7428) >= 1) { next; mes "^3355FFAs you approach the statue,"; mes "your Blue Charm Stone begins"; @@ -1924,114 +2313,96 @@ tha_t12,104,18,0 script Stone Statue#thana2 111,{ mes "light, and the statue responds"; mes "by shimmering with a red glow.^000000"; next; - switch( select( "Insert Charm Stone into Statue","Cancel" ) ) - { - case 1: - mes "^3355FFOnce you insert the"; - mes "Blue Charm Stone, the"; - mes "statue glows even brighter"; - mes "with a mysterious light.^000000"; - delitem 7428,1; - specialeffect EF_BEGINSPELL3; - enablenpc "tteffect5"; - donpcevent "tteffect5::OnGlow"; - set $@thana_summon,3; - close; - - case 2: - mes "^3355FFYou decided not to"; - mes "insert the Charm Stone,"; - mes "opting to investigate this"; - mes "area a little further.^000000"; - close; + 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 + 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"; + close; } } close; } - else if($@thana_summon == 6) - { + else if ($@thana_summon == 6) { mes "^3355FFThe statue is emanating an"; mes "intense light, making it so hot"; mes "that you cannot approach it.^000000"; close; } - else - { - mes "^3355FFThis statue is glowing"; - mes "with a mysterious light."; - mes "Some strange force keeps"; - mes "you from approaching it.^000000"; - close; - } + mes "^3355FFThis status is glowing"; + mes "with a mysterious light."; + mes "Some strange force keeps"; + mes "you from approaching it.^000000"; + close; } -tha_t12,128,86,0 script Stone Statue#thana3 111,{ +tha_t12,128,86,0 script Stone Statue#3 111,{ - if($@thana_summon == 3) - { + 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)) - { + 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"; next; - switch( select( "Insert Charm Stone into Statue","Cancel" ) ) - { - case 1: - mes "^3355FFOnce you insert the"; - mes "Black Charm Stone, the"; - mes "statue glows even brighter"; - mes "with a mysterious light.^000000"; - delitem 7430,1; - specialeffect EF_BEGINSPELL7; - enablenpc "tteffect1"; - donpcevent "tteffect1::OnGlow"; - set $@thana_summon,4; - close; - - case 2: - mes "^3355FFYou decided not to"; - mes "insert the Charm Stone,"; - mes "opting to investigate this"; - mes "area a little further.^000000"; - close; + 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"; + close; } } close; } - else if($@thana_summon == 6) - { + else if ($@thana_summon == 6) { mes "^3355FFThe statue is emanating an"; mes "intense light, making it so hot"; mes "that you cannot approach it.^000000"; close; } - else - { - mes "^3355FFThis statue is glowing"; - mes "with a mysterious light."; - mes "Some strange force keeps"; - mes "you from approaching it.^000000"; - close; - } + mes "^3355FFThis status is glowing"; + mes "with a mysterious light."; + mes "Some strange force keeps"; + mes "you from approaching it.^000000"; + close; } -tha_t12,161,58,0 script Stone Statue#thana4 111,{ +tha_t12,161,58,0 script Stone Statue#tt4 111,{ - if($@thana_summon == 1) - { + 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)) - { + if (countitem(7427) >= 1) { next; mes "^3355FFAs you approach the statue,"; mes "your Yellow Charm Stone"; @@ -2039,57 +2410,48 @@ tha_t12,161,58,0 script Stone Statue#thana4 111,{ mes "light, and the statue emits"; mes "a glimmering red glow.^000000"; next; - switch( select( "Insert Charm Stone into Statue","Cancel" ) ) - { - case 1: - mes "^3355FFOnce you insert the"; - mes "Yellow Charm Stone, the"; - mes "statue glows even brighter"; - mes "with a mysterious light.^000000"; - delitem 7427,1; - specialeffect EF_BEGINSPELL5; - enablenpc "tteffect3"; - donpcevent "tteffect3::OnGlow"; - set $@thana_summon,2; - close; - - case 2: - mes "^3355FFYou decided not to"; - mes "insert the Charm Stone,"; - mes "opting to investigate this"; - mes "area a little further.^000000"; - close; + 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) - { + else if ($@thana_summon == 6) { mes "^3355FFThe statue is emanating an"; mes "intense light, making it so hot"; mes "that you cannot approach it.^000000"; close; } - else - { - mes "^3355FFThis statue is glowing"; - mes "with a mysterious light."; - mes "Some strange force keeps"; - mes "you from approaching it.^000000"; - close; - } + 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#thana5 111,{ +tha_t12,154,18,0 script Stone Statue#tt5 111,{ - if($@thana_summon == 4) - { + 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)) - { + if (countitem(7429) >= 1) { next; mes "^3355FFAs you approach the statue,"; mes "your Green Charm Stone begins"; @@ -2097,232 +2459,289 @@ tha_t12,154,18,0 script Stone Statue#thana5 111,{ mes "and the statue starts to shine"; mes "with a bright red glow.^000000"; next; - switch( select( "Insert Charm Stone into Statue","Cancel" ) ) - { - case 1: - mes "^3355FFOnce you insert the"; - mes "Green Charm Stone, the"; - mes "statue glows even brighter"; - mes "with a mysterious light.^000000"; - specialeffect EF_BEGINSPELL4; - enablenpc "tteffect4"; - donpcevent "tteffect4::OnGlow"; - delitem 7429,1; - next; - mes "^3355FFThe crest on the ground"; - mes "surrounded by the five"; - mes "glowing statues has now"; - mes "activated, and is emitting"; - mes "a fearsome, powerful energy.^000000"; - set $@thana_summon,5; - set $@thana_summon2,0; - enablenpc "WarpThana"; - close; - - case 2: - mes "^3355FFYou decided not to"; - mes "insert the Charm Stone,"; - mes "opting to investigate this"; - mes "area a little further.^000000"; - close; + 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"; + close; } } close; } - else if($@thana_summon == 6) - { + else if ($@thana_summon == 6) { mes "^3355FFThe statue is emanating an"; mes "intense light, making it so hot"; mes "that you cannot approach it.^000000"; close; } - else - { - mes "^3355FFThis statue is glowing"; - mes "with a mysterious light."; - mes "Some strange force keeps"; - mes "you from approaching it.^000000"; - close; - } + mes "^3355FFThis status is glowing"; + mes "with a mysterious light."; + mes "Some strange force keeps"; + mes "you from approaching it.^000000"; + close; } -tha_t12,129,56,0 script tteffect1 139,{ - -OnInit: - disablenpc "tteffect1"; +tha_t12,129,56,0 script tt_effect1 139,{ end; - -OnGlow: + +OnEnable: initnpctimer; end; - + OnTimer500: + specialeffect EF_BEGINSPELL7; + end; + OnTimer1000: + specialeffect EF_BEGINSPELL7; + end; + OnTimer1500: + specialeffect EF_BEGINSPELL7; + end; + OnTimer2000: + specialeffect EF_BEGINSPELL7; + end; + OnTimer2500: specialeffect EF_BEGINSPELL7; end; - + OnTimer3000: specialeffect EF_BEGINSPELL7; - stopnpctimer; - if($@thana_summon == 6) end; - initnpctimer; + if ($@thana_summon == 6) { + stopnpctimer; + } + else { + stopnpctimer; + initnpctimer; + } end; -OnStop: +OnDisable: stopnpctimer; end; } -tha_t12,125,52,0 script tteffect2 139,{ - -OnInit: - disablenpc "tteffect2"; +tha_t12,125,52,0 script tt_effect2 139,{ end; - -OnGlow: + +OnEnable: initnpctimer; end; - + OnTimer500: + specialeffect EF_BEGINSPELL3; + end; + OnTimer1000: + specialeffect EF_BEGINSPELL3; + end; + OnTimer1500: + specialeffect EF_BEGINSPELL3; + end; + OnTimer2000: + specialeffect EF_BEGINSPELL3; + end; + OnTimer2500: specialeffect EF_BEGINSPELL3; end; - + OnTimer3000: specialeffect EF_BEGINSPELL3; - stopnpctimer; - if($@thana_summon == 6) end; - initnpctimer; + if ($@thana_summon == 6) { + stopnpctimer; + } + else { + stopnpctimer; + initnpctimer; + } end; -OnStop: +OnDisable: stopnpctimer; end; } -tha_t12,134,52,0 script tteffect3 139,{ - -OnInit: - disablenpc "tteffect3"; +tha_t12,134,52,0 script tt_effect3 139,{ end; - -OnGlow: +OnEnable: initnpctimer; end; - + OnTimer500: + specialeffect EF_BEGINSPELL5; + end; + OnTimer1000: + specialeffect EF_BEGINSPELL5; + end; + OnTimer1500: + specialeffect EF_BEGINSPELL5; + end; + OnTimer2000: + specialeffect EF_BEGINSPELL5; + end; + OnTimer2500: specialeffect EF_BEGINSPELL5; end; - + OnTimer3000: specialeffect EF_BEGINSPELL5; - stopnpctimer; - if($@thana_summon == 6) end; - initnpctimer; + if ($@thana_summon == 6) { + stopnpctimer; + } + else { + stopnpctimer; + initnpctimer; + } end; - -OnStop: + +OnDisable: stopnpctimer; end; } -tha_t12,132,47,0 script tteffect4 139,{ - -OnInit: - disablenpc "tteffect4"; +tha_t12,132,47,0 script tt_effect4 139,{ end; - -OnGlow: + +OnEnable: initnpctimer; end; - + OnTimer500: + specialeffect EF_BEGINSPELL4; + end; + OnTimer1000: + specialeffect EF_BEGINSPELL4; + end; + OnTimer1500: + specialeffect EF_BEGINSPELL4; + end; + OnTimer2000: + specialeffect EF_BEGINSPELL4; + end; + OnTimer2500: specialeffect EF_BEGINSPELL4; end; - + OnTimer3000: specialeffect EF_BEGINSPELL4; - stopnpctimer; - if($@thana_summon == 6) end; - initnpctimer; + if ($@thana_summon == 6) { + stopnpctimer; + } + else { + stopnpctimer; + initnpctimer; + } end; - -OnStop: + +OnDisable: stopnpctimer; end; } -tha_t12,127,47,0 script tteffect5 139,{ - -OnInit: - disablenpc "tteffect5"; +tha_t12,127,47,0 script tt_effect5 139,{ end; -OnGlow: +OnEnable: initnpctimer; end; - + OnTimer500: + specialeffect EF_BEGINSPELL2; + end; + OnTimer1000: + specialeffect EF_BEGINSPELL2; + end; + OnTimer1500: + specialeffect EF_BEGINSPELL2; + end; + OnTimer2000: + specialeffect EF_BEGINSPELL2; + end; + OnTimer2500: specialeffect EF_BEGINSPELL2; end; - + OnTimer3000: specialeffect EF_BEGINSPELL2; - stopnpctimer; - if($@thana_summon == 6) end; - initnpctimer; + if ($@thana_summon == 6) { + stopnpctimer; + } + else { + stopnpctimer; + initnpctimer; + } end; - -OnStop: + +OnDisable: stopnpctimer; end; } -tha_t12,130,52,0 script WarpThana 45,1,1,{ +tha_t12,130,52,0 script to_the_boss_room_tt 45,1,1,{ + end; OnInit: - disablenpc "WarpThana"; + hideonnpc "to_the_boss_room_tt"; end; - + OnTouch: - if($@thana_summon == 5) warp "thana_boss",136,116; - else - { - donpcevent "tteffect1::OnStop"; - donpcevent "tteffect2::OnStop"; - donpcevent "tteffect3::OnStop"; - donpcevent "tteffect4::OnStop"; - donpcevent "tteffect5::OnStop"; - disablenpc "WarpThana"; - end; + 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; } + end; } -thana_boss,217,167,0 script Crest#1 111,3,3,{ - +thana_boss,217,167,0 script Crest#tt1 111,3,3,{ end; - + OnTouch: - if($@thana_summon == 6) - { + if ($@thana_summon2 == 6 || $@thana_summon != 5) { mes "^3355FFYou cannot approach"; mes "the crest because it is"; mes "generating intense heat.^000000"; @@ -2331,41 +2750,46 @@ OnTouch: mes "^3355FFThere is a strangely"; mes "shaped hole in the"; mes "middle of this purple crest.^000000"; - if (countitem(7437)) - { + if (countitem(7437) > 0) { mes "^3355FFIt seems like a Fragment"; - mes "of Sorrow would fit perfectly"; + mes "of Misery would fit perfectly"; mes "if you placed it inside.^000000"; } next; - input @input$; - if(countitem(7437)) - { - if(@input$ == "Fragment of Sorrow") - { + input .@inputstr$; + if (countitem(7437) > 0) { + if (@inputstr$ == "Fragment of Misery") { mes "^3355FFYou insert the"; - mes "Fragment of Sorrow"; + mes "Fragment of Misery"; mes "into the crest, causing"; mes "its glow to intensify.^000000"; - delitem 7437,1; - monster "thana_boss",217,167,"Sorrow",1711,1,"#Death::OnDead"; - disablenpc "Crest#1"; - close; + 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"; - close; -} + close2; + end; -thana_boss,202,75,0 script Crest#2 111,3,3,{ +OnMyMobDead: + set $@thana_summon2,$@thana_summon2 + 1; + end; +} +thana_boss,202,75,0 script Crest#tt2 111,3,3,{ end; - + OnTouch: - if($@thana_summon == 6) - { + if (($@thana_summon2 == 6) || ($@thana_summon != 5)) { mes "^3355FFYou cannot approach"; mes "the crest because it is"; mes "generating intense heat.^000000"; @@ -2374,41 +2798,46 @@ OnTouch: mes "^3355FFThere is a strangely"; mes "shaped hole in the"; mes "middle of this green crest.^000000"; - if (countitem(7436)) - { + 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 @input$; - if(countitem(7436)) - { - if(@input$ == "Fragment of Agony") - { + 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; - monster "thana_boss",202,75,"Agony",1712,1,"#Death::OnDead"; - disablenpc "Crest#2"; - close; + 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"; - close; -} + close2; + end; -thana_boss,80,76,0 script Crest#3 111,3,3,{ +OnMyMobDead: + set $@thana_summon2,$@thana_summon2 + 1; + end; +} +thana_boss,80,76,0 script Crest#tt3 111,3,3,{ end; - + OnTouch: - if($@thana_summon == 6) - { + if (($@thana_summon2 == 6) || ($@thana_summon != 5)) { mes "^3355FFYou cannot approach"; mes "the crest because it is"; mes "generating intense heat.^000000"; @@ -2417,41 +2846,46 @@ OnTouch: mes "^3355FFThere is a strangely"; mes "shaped hole in the"; mes "middle of this blue crest.^000000"; - if (countitem(7438)) - { + if (countitem(7438) > 0) { mes "^3355FFIt seems like a Fragment"; mes "of Hatred would fit perfectly"; mes "if you placed it inside.^000000"; } next; - input @input$; - if(countitem(7438)) - { - if(@input$ == "Fragment of Hatred") - { + 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; - monster "thana_boss",80,76,"Hatred",1709,1,"#Death::OnDead"; - disablenpc "Crest#3"; - close; + delitem 7438,1; //Piece_Of_Memory_Blue + close2; + monster "thana_boss",80,76,"Hatred",1709,1,"Crest#tt3::OnMyMobDead"; + hideonnpc "Crest#tt3"; + 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"; - close; -} + close2; + end; -thana_boss,62,171,0 script Crest#4 111,3,3,{ +OnMyMobDead: + set $@thana_summon2,$@thana_summon2 + 1; + end; +} +thana_boss,62,171,0 script Crest#tt4 111,3,3,{ end; - + OnTouch: - if($@thana_summon == 6) - { + if (($@thana_summon2 == 6) || ($@thana_summon != 5)) { mes "^3355FFYou cannot approach"; mes "the crest because it is"; mes "generating intense heat.^000000"; @@ -2460,145 +2894,220 @@ OnTouch: mes "^3355FFThere is a strangely"; mes "shaped hole in the"; mes "middle of this red crest.^000000"; - if (countitem(7439)) - { + 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 @input$; - if(countitem(7439)) - { - if(@input$ == "Fragment of Despair") - { + 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; - monster "thana_boss",62,171,"Despair",1710,1,"#Death::OnDead"; - disablenpc "Crest#4"; - close; + 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"; - close; -} + close2; + end; -thana_boss,141,218,0 script Crest#5 111,3,3,{ +OnMyMobDead: + set $@thana_summon2,$@thana_summon2 + 1; + end; +} +thana_boss,141,218,0 script Crest#tt5 111,3,3,{ end; - + OnTouch: - if($@thana_summon2 > 3) - { + 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"; - set $@thana_wave,4; - monster "thana_boss",140,217,"Despair",1710,1,"#Death::OnWave"; - monster "thana_boss",140,216,"Hatred",1709,1,"#Death::OnWave"; - monster "thana_boss",141,217,"Sorrow",1711,1,"#Death::OnWave"; - monster "thana_boss",141,216,"Agony",1712,1,"#Death::OnWave"; - disablenpc "Crest#5"; - close; + 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; } - input @input$; + if ($@thana_summon < 5) { + mapwarp "thana_boss","tha_t12",130,47; + end; + } + mes "^3355FFYou find a strange"; + mes "crest engraved"; + mes "on the floor.^000000"; + next; + input .@inputstr$; mes "^3355FFNothing happened.^000000"; - close; + close2; + end; + +OnMyMobDead: + if (mobcount("thana_boss","Crest#tt5::OnMyMobDead") < 1) { + set $@thana_summon,5; + set $@thana_summon2,6; + donpcevent "boss_summon#tt::OnEnable"; + } + end; } -thana_boss,5,5,0 script #thanasummon -1,{ +thana_boss,5,5,0 script boss_summon#tt 139,{ + end; + +OnEnable: + monster "thana_boss",136,129,"Thanatos Phantom",1708,1,"boss_summon#tt::OnMyMobDead"; + initnpctimer; + end; + +OnTimer1000: + mapannounce "thana_boss","Thanatos : RAWWWWWWWWWWWWWWWWR!",bc_map,"0x00CC00"; //FW_NORMAL 12 0 0 + set $@thana_summon,6; + end; +OnTimer3000: + mapannounce "thana_boss","Thanatos : I live again to fulfill my ambition!",bc_map,"0x00CC00"; //FW_NORMAL 12 0 0 end; -OnSummon: - monster "thana_boss",139,129,"Thanatos Phantom",1708,1,"#Death::OnThanaDead"; +OnTimer30000: + mapannounce "thana_boss","Thanatos : Come, be the first to fall before my might!",bc_map,"0x00CC00"; //FW_NORMAL 12 0 0 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; + end; + +OnMyMobDead: + if (mobcount("thana_boss","boss_summon#tt::OnMyMobDead") < 1) { + stopnpctimer; + donpcevent "#timer_t::OnEnable"; + } + end; } -thana_boss,3,3,0 script #thanatimer -1,{ +thana_boss,3,3,0 script #timer_t 139,{ + end; OnInit: set $@thana_summon,0; set $@thana_summon2,0; end; -OnActive: +OnEnable: initnpctimer; end; - + OnTimer1000: - mapannounce "thana_boss","GGGGRRRRRRR!",1; + mapannounce "thana_boss","GGGGRRRRRRR!",bc_map,"0xFF0000"; //FW_NORMAL 12 0 0 + set $@thana_summon,6; end; OnTimer2000: - mapannounce "thana_boss","*Rumble Rumble*",1; + mapannounce "thana_boss","*Rumble Rumble*",bc_map,"0xFF0000"; //FW_NORMAL 12 0 0 end; OnTimer3000: - mapannounce "thana_boss","*Crik Crik*",1; + mapannounce "thana_boss","*Crik Crik*",bc_map,"0xFF0000"; //FW_NORMAL 12 0 0 end; OnTimer4000: - mapannounce "thana_boss","*Zzzzrt Zzzzrt*",1; + mapannounce "thana_boss","*Zzzzrt Zzzzrt*",bc_map,"0xFF0000"; //FW_NORMAL 12 0 0 end; OnTimer5000: - mapannounce "thana_boss","*Crik Crik*",1; + mapannounce "thana_boss","*Crik Crik*",bc_map,"0xFF0000"; //FW_NORMAL 12 0 0 end; OnTimer60000: mapwarp "thana_boss","tha_t12",130,47; - set $@thana_summon2,0; - enablenpc "Crest#1"; - enablenpc "Crest#2"; - enablenpc "Crest#3"; - enablenpc "Crest#4"; - enablenpc "Crest#5"; end; - -OnTimer7200000: - killmonsterall "thana_boss"; - set $@thana_summon,0; - stopnpctimer; + +OnTimer1000000: + mapwarp "thana_boss","tha_t12",130,47; end; -} -thana_boss,1,1,0 script #Death -1,{ +OnTimer2000000: + mapwarp "thana_boss","tha_t12",130,47; + end; -OnDead: - set $@thana_summon2,$@thana_summon2 +1; +OnTimer3000000: + mapwarp "thana_boss","tha_t12",130,47; end; -OnWave: - set $@thana_wave,$@thana_wave -1; - if($@thana_wave < 1) - { - donpcevent "#thanasummon::OnSummon"; - } +OnTimer4000000: + mapwarp "thana_boss","tha_t12",130,47; end; - -OnThanaDead: - donpcevent "#thanatimer::OnActive"; - set $@thana_summon,6; + +OnTimer5000000: + mapwarp "thana_boss","tha_t12",130,47; + end; + +OnTimer6000000: + mapwarp "thana_boss","tha_t12",130,47; + end; + +OnTimer7200000: + set $@thana_summon,0; + hideoffnpc "Crest#tt1"; + hideoffnpc "Crest#tt2"; + hideoffnpc "Crest#tt3"; + hideoffnpc "Crest#tt4"; + hideoffnpc "Crest#tt5"; + stopnpctimer; end; } -tha_t06,119,120,0 script thana6-7 45,1,1,{ - if (((Upper == 1) && ((Class > Job_Thief_High) && (Class < Job_Baby))) || (((Class == Job_Gunslinger) || (Class == Job_Ninja) || (BaseClass == Job_Taekwon)) && (BaseLevel >= 95))) { +tha_t06,119,120,0 script to the 7th floor 45,1,1,{ + end; + +OnTouch: + if ((Class == Job_Lord_Knight) || (Class == Job_High_Priest) || (Class == Job_High_Wizard) || (Class == Job_Whitesmith) || (Class == Job_Sniper) || (Class == Job_Assassin_Cross) || (Class == Job_Paladin) || (Class == Job_Champion) || (Class == Job_Professor) || (Class == Job_Stalker) || (Class == Job_Creator) || (Class == Job_Clown) || (Class == Job_Gypsy)) { warp "thana_step",69,369; end; } - else { + else if ((Class == Job_Rune_Knight) || (Class == Job_Archbishop) || (Class == Job_Warlock) || (Class == Job_Mechanic) || (Class == Job_Ranger) || (Class == Job_Guillotine_Cross) || (Class == Job_Royal_Guard) || (Class == Job_Sura) || (Class == Job_Sorcerer) || (Class == Job_Shadow_Chaser) || (Class == Job_Genetic) || (Class == Job_Wanderer) || (Class == Job_Minstrel)) { + warp "thana_step",69,369; + end; + } + else if ((Class == Job_Rune_Knight_T) || (Class == Job_Archbishop_T) || (Class == Job_Warlock_T) || (Class == Job_Mechanic_T) || (Class == Job_Ranger_T) || (Class == Job_Guillotine_Cross_T) || (Class == Job_Royal_Guard_T) || (Class == Job_Sura_T) || (Class == Job_Sorcerer_T) || (Class == Job_Shadow_Chaser_T) || (Class == Job_Genetic_T) || (Class == Job_Wanderer_T) || (Class == Job_Minstrel_T)) { + warp "thana_step",69,369; + end; + } + else if ((Class == Job_SuperNovice) || (Class == Job_Taekwon) || (Class == Job_Star_Gladiator) || (Class == Job_Soul_Linker) || (Class == Job_Ninja) || (Class == Job_Gunslinger)) { + if (BaseLevel > 94) { + warp "thana_step",69,369; + end; + } mes "^3355FFAn overwhelming force"; mes "acts against you, preventing"; mes "you from proceeding this way...^000000"; close; } -} + mes "^3355FFAn overwhelming force"; + mes "acts against you, preventing"; + mes "you from proceeding this way...^000000"; + close; +}
\ No newline at end of file |