summaryrefslogtreecommitdiff
path: root/npc/quests/thana_quest.txt
diff options
context:
space:
mode:
authormasao87 <masao87@54d463be-8e91-2dee-dedb-b68131a5f0ec>2012-03-11 00:54:40 +0000
committermasao87 <masao87@54d463be-8e91-2dee-dedb-b68131a5f0ec>2012-03-11 00:54:40 +0000
commit59857671c4d20ea76d17673fe78d52a14c3f77b2 (patch)
treecde147f34c1555909f3bc9bc42d73b282389f91d /npc/quests/thana_quest.txt
parent2237bc2cd07c99d293409cae4247c48fbadbd97b (diff)
downloadhercules-59857671c4d20ea76d17673fe78d52a14c3f77b2.tar.gz
hercules-59857671c4d20ea76d17673fe78d52a14c3f77b2.tar.bz2
hercules-59857671c4d20ea76d17673fe78d52a14c3f77b2.tar.xz
hercules-59857671c4d20ea76d17673fe78d52a14c3f77b2.zip
- Updated the whole Script to match with official file.
git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@15674 54d463be-8e91-2dee-dedb-b68131a5f0ec
Diffstat (limited to 'npc/quests/thana_quest.txt')
-rw-r--r--npc/quests/thana_quest.txt3791
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