summaryrefslogtreecommitdiff
path: root/npc/quests
diff options
context:
space:
mode:
authorevera <evera@54d463be-8e91-2dee-dedb-b68131a5f0ec>2006-06-26 02:54:21 +0000
committerevera <evera@54d463be-8e91-2dee-dedb-b68131a5f0ec>2006-06-26 02:54:21 +0000
commita0176808ddefe57b5df537115738787821bc2df3 (patch)
treec70b0768e9cc4a6d7c5960a86ee5ecb69472b1e2 /npc/quests
parente53a47349010e946582521b8e8bf8f0123b06ddb (diff)
downloadhercules-a0176808ddefe57b5df537115738787821bc2df3.tar.gz
hercules-a0176808ddefe57b5df537115738787821bc2df3.tar.bz2
hercules-a0176808ddefe57b5df537115738787821bc2df3.tar.xz
hercules-a0176808ddefe57b5df537115738787821bc2df3.zip
split some quests from cities/umbala.txt to quests/quests_umbala.txt
git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@7335 54d463be-8e91-2dee-dedb-b68131a5f0ec
Diffstat (limited to 'npc/quests')
-rw-r--r--npc/quests/quests_umbala.txt817
1 files changed, 815 insertions, 2 deletions
diff --git a/npc/quests/quests_umbala.txt b/npc/quests/quests_umbala.txt
index c2ebc83e6..0d3ff3fda 100644
--- a/npc/quests/quests_umbala.txt
+++ b/npc/quests/quests_umbala.txt
@@ -3,11 +3,23 @@
//===== By: ==================================================
//= sabernet09 & eAthena Team
//===== Current Version: =====================================
-//= 1.6
+//= 1.7
//===== Compatible With: =====================================
//= eAthena 7.15 +
//===== Description: =========================================
-//= Umbalian Language Quest, +
+//= Umbalian Language Quest, Umbala Skeletal Gate Quest, Umbala Event,
+//= Create Essence/Dismantle Stone
+//
+//Phase1.Learning the Language
+//1 (Elder)First discussion
+//2 (Elder)Asking about learning the language
+//3 (Elder)Final step (understanding NPC speech)
+//------------------------------------------
+//Phase2.Create Essence/Dismantle Stone
+//4 (Shaman)Get permission to speak with her from the chief
+//5 (Elder)Ask about conditions needed to be fulfilled to get permission
+//6 (Elder)Get permission
+//7 (Shaman)Use the shaman to create essences and dismantle elemental stones.
//===== Additional Comments: =================================
//= fixed by x[tsk], Lupus, PoW
//= Quest completion is now registered
@@ -18,6 +30,7 @@
//= - with Wise Man Fabius you can learn Umbalian Language
//= in alternative way.
//= 1.6 Fixed bugs [Lupus]
+//= 1.7 Moved Umbala Event, Create Essence/Dismantle Stone, and Skeletal Gate from npc/cities/umbala.txt [Evera]
//= TODO: should I add a jRO Werewolf Quest? 8)
//============================================================
@@ -352,3 +365,803 @@ M_DUN:
M_Leave:
close;
}
+
+//==============================================================================
+//Skeletal Gate
+//==============================================================================
+umbala.gat,221,193,1 script #Skeletal Gate 111,{
+ if(event_umbala==7) goto LwarpNoText;
+ set @ryumon,0;
+ mes "^3355FFThe gate is shaped like a skeleton";
+ mes "You cannot pass this point as the gate is";
+ mes "locked. You hear sounds coming from the";
+ mes "inside.^000000";
+ next;
+ menu "Examine the skeleton",-,"Nothing",Lend;
+ mes "^3355FFWhen you examine the gate";
+ mes "carefully, you notice that there";
+ mes "is a hole about the size of a gemstone";
+ mes "on the left side of the gate about where";
+ mes "the skeleton's left eye should be. There is";
+ mes "a matching hole on the other side.^000000";
+ next;
+ mes "^3355FFWhat you would like to";
+ mes "to do with the left socket?^000000";
+ next;
+ menu "Nothing",-,"Insert a Blue Gemstone",L1_2,"Insert a Yellow Gemstone",L1_3,"Insert a Red Gemstone",L1_4;
+ mes "^3355FFNothing was inserted into the left socket.^000000";
+ next;
+ goto LRight;
+ L1_2:
+ //Blue
+ if(countitem(717) < 1) goto L1_2_e;//Items: Blue Gemstone,
+ mes "^3355FFYou inserted a Blue Gemstone into the";
+ mes "left socket.^000000";
+ next;
+ delitem 717,1;//Items: Blue Gemstone,
+ getitem 717,1;//Items: Blue Gemstone,
+ set @ryumon,1;
+ mes "^3355FFA rolling sound can be heard, and";
+ mes "the gemstone comes out of the skeleton's mouth.^000000";
+ next;
+ goto LRight;
+ L1_3:
+ //Yellow
+ if(countitem(715) < 1) goto L1_3_e;//Items: Yellow Gemstone,
+ mes "^3355FFYou inserted a Yellow Gemstone into the";
+ mes "left socket.^000000";
+ next;
+ delitem 715,1;//Items: Yellow Gemstone,
+ getitem 715,1;//Items: Yellow Gemstone,
+ set @ryumon,2;
+ mes "^3355FFA rolling sound can be heard, and";
+ mes "the gemstone comes out of the skeleton's mouth.^000000";
+ next;
+ goto LRight;
+ L1_4:
+ //Red
+ if(countitem(716) < 1) goto L1_4_e;//Items: Red Gemstone,
+ mes "^3355FFYou inserted a Red Gemstone into the";
+ mes "left socket.^000000";
+ next;
+ delitem 716,1;//Items: Red Gemstone,
+ getitem 716,1;//Items: Red Gemstone,
+ set @ryumon,3;
+ mes "^3355FFA rolling sound can be heard, and";
+ mes "the gemstone comes out of the skeleton's mouth.^000000";
+ next;
+ goto LRight;
+ L1_2_e:
+ mes "^3355FFYou don't have a Blue Gemstone.";
+ goto L1_e;
+ L1_3_e:
+ mes "^3355FFYou don't have a Yellow Gemstone.";
+ goto L1_e;
+ L1_4_e:
+ mes "^3355FFYou don't have a Red Gemstone.";
+ L1_e:
+ mes "Therefore, nothing was inserted into";
+ mes "the left socket.^000000";
+ next;
+ LRight:
+ mes "^3355FFWhat about the right";
+ mes "socket?^000000";
+ next;
+ menu "Nothing",-,"Insert a Blue Gemstone",L2_2,"Insert a Yellow Gemstone",L2_3,"Insert a Red Gemstone",L2_4;
+ mes "^3355FFNothing was inserted into the right socket.^000000";
+ next;
+ goto Lfin;
+ L2_2:
+ //Blue
+ if(countitem(717) < 1) goto L2_2_e;//Items: Blue Gemstone,
+ mes "^3355FFYou inserted a Blue Gemstone into the";
+ mes "right socket.^000000";
+ next;
+ delitem 717,1;//Items: Blue Gemstone,
+ getitem 717,1;//Items: Blue Gemstone,
+ set @ryumon,@ryumon+10;
+ mes "^3355FFA rolling sound can be heard, and";
+ mes "the gemstone comes out of the skeleton's mouth.^000000";
+ next;
+ goto Lfin;
+ L2_3:
+ //Yellow
+ if(countitem(715) < 1) goto L2_3_e;//Items: Yellow Gemstone,
+ mes "^3355FFYou inserted a Yellow Gemstone into the";
+ mes "right socket.^000000";
+ next;
+ delitem 715,1;//Items: Yellow Gemstone,
+ getitem 715,1;//Items: Yellow Gemstone,
+ set @ryumon,@ryumon+20;
+ mes "^3355FFA rolling sound can be heard, and";
+ mes "the gemstone comes out of the skeleton's mouth.^000000";
+ next;
+ goto Lfin;
+ L2_4:
+ //Red
+ if(countitem(716) < 1) goto L2_4_e;//Items: Red Gemstone,
+ mes "^3355FFYou inserted a Red Gemstone into the";
+ mes "right socket.^000000";
+ next;
+ delitem 716,1;//Items: Red Gemstone,
+ getitem 716,1;//Items: Red Gemstone,
+ set @ryumon,@ryumon+30;
+ mes "^3355FFA rolling sound can be heard, and";
+ mes "the gemstone comes out of the skeleton's mouth.^000000";
+ next;
+ goto Lfin;
+ L2_2_e:
+ mes "^3355FFYou don't have a Blue Gemstone.";
+ goto L2_e;
+ L2_3_e:
+ mes "^3355FFYou don't have a Yellow Gemstone.";
+ goto L2_e;
+ L2_4_e:
+ mes "^3355FFYou don't have a Red Gemstone.";
+ L2_e:
+ mes "Therefore, nothing was inserted into";
+ mes "the right socket.^000000";
+ next;
+ Lfin:
+ mes "^3355FF..........^000000";
+ next;
+ mes "^3355FF...................";
+ mes ".....................^000000";
+ next;
+ mes "^3355FF.......................";
+ mes ".........................";
+ mes ".........................^000000";
+ next;
+ if(event_umbala < 6) goto LSecondCheck;
+ if(@ryumon == 33) goto Lwarp;
+ LSecondCheck:
+ if(event_umbala >= 6) goto LNewEnd;
+ if(@ryumon == 13) goto Lwarp;
+ LNewEnd:
+ mes "^3355FFNothing happened.";
+ mes "You hear a faint laugh, but";
+ mes "decide that it's all in";
+ mes "your head.^000000";
+ close;
+ Lwarp:
+ mes "^3355FFA rumbling sound can be";
+ mes "heard as the gate opens.";
+ mes "As you step across the threshold.";
+ mes "you feel as if you're walking in";
+ mes "into the arms of death itself.^000000";
+ next;
+ LwarpNoText:
+ warp "um_in.gat",32,71;
+ close;
+Lend:
+ mes "^3355FFAfter hitting the gate a few";
+ mes "times with no result, you decide to give";
+ mes "up.^000000";
+ close;
+}
+
+//==============================================================================
+//Umbala Event
+//==============================================================================
+um_in.gat,39,122,5 script Utan Tribal Elder 784,{
+ if(event_umbala == 1) goto LStart2;
+ if(event_umbala == 2) goto LStart3;
+ if(event_umbala == 3) goto LStart4;
+ if(event_umbala == 4) goto LStart5;
+ if(event_umbala == 5) goto LStart6;
+ if(event_umbala == 6) goto LStart4;
+ if(event_umbala == 7) goto LStart4;
+ mes "[Karukatan]";
+ mes "Aha, You're new to the Utan";
+ mes "family's little village, aren't";
+ mes "you? I would remember such a face";
+ mes "had I met you before.";
+ next;
+ mes "[Karukatan]";
+ mes "We know there is a wide world around";
+ mes "us, but the there is something to";
+ mes "be appreciated in the simple life";
+ mes "we lead here.";
+ next;
+ mes "[Karukatan]";
+ mes "All decisions in the village are made";
+ mes "by me or with my input";
+ next;
+ mes "[Karukatan]";
+ mes "You want to know how I speak your";
+ mes "language when it seems no one else in";
+ mes "the village does? A fair question.";
+ mes "I picked up your tongue from the";
+ mes "adventurers who sometimes pass";
+ mes "through this village.";
+ next;
+ mes "[Karukatan]";
+ mes "Some outsiders have also settled near here";
+ mes "over time. In exchange for information";
+ mes "about their customs and culture, I";
+ mes "teach them the language and customs";
+ mes "of the Utan tribe.";
+ next;
+ mes "[Karukatan]";
+ mes "If you want to learn our language,";
+ mes "you must immerse yourselves in";
+ mes "our customs and cultural traditions.";
+ mes "You should even try and look as much";
+ mes "like us as you can.";
+ next;
+ mes "[Karukatan]";
+ mes "I hope you're worthy of my confidence.";
+ mes "Some members of the tribe have expressed";
+ mes "the sentiment that welcoming outsiders";
+ mes "is dangerous to the village.";
+ next;
+ mes "[Karukatan]";
+ mes "When you want to begin learning the";
+ mes "language, come and visit me. Don't";
+ mes "forget to make yourself appear as";
+ mes "much like us as you can.";
+ set event_umbala,1;
+ close;
+LStart2:
+ mes "[Karukatan]";
+ mes "Ahh, have you looked around the";
+ mes "village a bit? Did other people";
+ mes "from the tribe hide from you when";
+ mes "they saw you? Don't worry. They";
+ mes "were just surprised to see a new face.";
+ next;
+ mes "[Karukatan]";
+ mes "Hmm? You need something from me?";
+ mes "How can I make your stay in the village";
+ mes "more pleasant?";
+ next;
+ menu "I want to learn the tribal language",-,"Umbaumbaba?",L2,"Forget it",L3;
+ if ((getequipisequiped(9)>0) && (getequipisequiped(10)>0)) goto L1_mask;
+ mes "[Karukatan]";
+ mes "Well, in order to understand our";
+ mes "language, you need to assimilate";
+ mes "our cultural values, too. Trying to";
+ mes "understand a language in the context of an";
+ mes "alien culture is foolish, right?";
+ next;
+ mes "[Karukatan]";
+ mes "Besides, if the tribesmen in the";
+ mes "village fear you, how will you";
+ mes "ever get them to speak with you?";
+ mes "You should try making yourself";
+ mes "look like us in order to be more";
+ mes "accepted.";
+ close;
+ L1_mask:
+ mes "[Karukatan]";
+ mes "What a cute mask. The Utan tribe";
+ mes "appreciates its traditional masks";
+ mes "because sometimes by hiding your";
+ mes "face, you can express more genuine";
+ mes "feelings.";
+ //Activate Sphinx Mask Quest (optional)
+ set mask_q,1;
+ next;
+ mes "[Karukatan]";
+ mes "Over time, the mask itself";
+ mes "has come to symbolize trust among";
+ mes "the members of the Utan tribe.";
+ next;
+ mes "[Karukatan]";
+ mes "Now that you're prepared, I will";
+ mes "begin teaching you the Utan";
+ mes "language as promised. First,";
+ mes "you need to make some preparations,";
+ mes "however...";
+ next;
+ mes "[Karukatan]";
+ mes "First, I need some paper. With";
+ mes "paper, I can write down the words";
+ mes "I intend to teach.";
+ next;
+ mes "[Karukatan]";
+ mes "I need ^3377FF10x Oil Paper^000000, and ^3377FF5x Slick Paper^000000.";
+ mes "I also need something to write with.";
+ mes "of course.";
+ mes "For that, ^3377FF1x Squid Ink^000000 and ^3377FF1x Feather of Birds^000000";
+ mes "will do nicely.";
+ next;
+ mes "[Karukatan]";
+ mes "Once you get these, I can start";
+ mes "teaching you the language.";
+ set event_umbala,2;
+ close;
+ L2:
+ mes "[Karukatan]";
+ mes "Haha. Only imitating the sound";
+ mes "of the words is useless. Even";
+ mes "though it sounds random, there is";
+ mes "a specific way of combining the";
+ mes "words.";
+ next;
+ mes "[Karukatan]";
+ mes "Also, our language has depends a";
+ mes "a lot on emotion to convey its";
+ mes "meaning. Outsiders can't pick up";
+ mes "the subtlety right away, even though";
+ mes "we're the same race, ";
+ next;
+ mes "[Karukatan]";
+ mes "It seems you have an interest";
+ mes "in learning the language of the";
+ mes "Utan tribe. If that's the case,";
+ mes "come visit me and I'll teach you.";
+ next;
+ mes "[Karukatan]";
+ mes "Then, you won't sound so silly.";
+ close;
+ L3:
+ mes "[Karukatan]";
+ mes "Ah. If you want to continue your";
+ mes "trip, please keep this village in";
+ mes "your memories.";
+ close;
+LStart3:
+ if ((countitem(7151)>=10) && (countitem(7111)>=5) && (countitem(1024)>=1) && (countitem(916)>=1)) goto Lchkok;//Items: Oiled Paper, String Paper, Squid Ink, Feather of Birds,
+ mes "[Karukatan]";
+ mes "It seems you've not yet prepared the";
+ mes "proper items. Did you forget what";
+ mes "you need to gather before I can";
+ mes "teach you the language? You need to gather";
+ next;
+ mes "[Karukatan]";
+ mes "^3377FF10x Oil Paper^000000,";
+ mes "^3377FF5x Slick Paper^000000,";
+ mes "^3377FF1x Squid Ink^000000, and";
+ mes "^3377FF1x Feather of Bird^000000.";
+ mes "Once you have gathered those, I can teach";
+ mes "you Utan tribal language.";
+ close;
+Lchkok:
+ delitem 7151,10;//Items: Oiled Paper,
+ delitem 7111,5;//Items: String Paper,
+ delitem 1024,1;//Items: Squid Ink,
+ delitem 916,1;//Items: Feather of Birds,
+ mes "[Karukatan]";
+ mes "Good. You've prepared all the";
+ mes "necessary materials. Now, I can";
+ mes "begin to teach you the Utan tribal";
+ mes "language.";
+ next;
+ mes "[Karukatan]";
+ mes "............";
+ next;
+ mes "[Karukatan]";
+ mes "............";
+ mes "............";
+ next;
+ mes "[Karukatan]";
+ mes "............";
+ mes "............";
+ mes "............";
+ next;
+ mes "[Karukatan]";
+ mes "Do you feel more enlightened now?";
+ mes "Try talking to others in the Utan";
+ mes "tribe. They'll warm up to your quickly";
+ mes "now that you speak the language.";
+ set event_umbala,3;
+ next;
+ mes "[Karukatan]";
+ mes "If you need something while you're";
+ mes "here, don't hesitate to visit me.";
+ close;
+LStart4:
+//fin
+ mes "[Karukatan]";
+ mes "Do you need something?";
+ mes "If you need someone to guide you around";
+ mes "the village, you should ask someone else.";
+ mes "I can't leave here right now.";
+ next;
+ mes "[Karukatan]";
+ mes "The best way to get a feel for";
+ mes "the village is to just walk";
+ mes "around and see the sights. By doing";
+ mes "that, you can form a personal";
+ mes "bond with the village.";
+ close;
+LStart5:
+ mes "[Karukatan]";
+ mes "Oh, it seems you're enjoying yourself here.";
+ mes "You need something else?";
+ next;
+ mes "[Karukatan]";
+ mes "It seems you want to ask the";
+ mes "shaman Putsuchiratan something";
+ mes "and you're seeking my permission";
+ mes "to do so.";
+ next;
+ mes "[Karukatan]";
+ mes "Well...There's a mask from";
+ mes "abroad that Putsuchiratan and I";
+ mes "have both always desired. Putsuchiratan";
+ mes "heard about it some time ago.";
+ next;
+ mes "[Karukatan]";
+ mes "If I could have the ^3377FFSmile Mask^000000,";
+ mes "it would be a great honour, but";
+ mes "I promised I would give it to";
+ mes "to Putsuchiratan as a gift if I ever";
+ mes "came across one. If you can find a Smile Mask for me,";
+ mes "I'll give you permission to speak with her.";
+ set event_umbala,5;
+ close;
+LStart6:
+ if(countitem(2278) > 0) goto Lsmileok;//Items: Mr. Smile,
+ mes "[Karukatan]";
+ mes "Did you find the ^3377FFSmile Mask^000000 yet?";
+ mes "In order to let you see the shaman,";
+ mes "you need to collect one.";
+ mes "A gift will put Putsuchiritan in";
+ mes "a good mood, also.";
+ close;
+Lsmileok:
+ delitem 2278,1;//Items: Mr. Smile,
+ mes "[Karukatan]";
+ mes "Ahh! It's a Smile Mask!";
+ mes "I would really like to put this";
+ mes "on just once, but I promised to";
+ mes "give this to Putsuchiritan as";
+ mes "a gift.";
+ set event_umbala,6;
+ next;
+ mes "[Karukatan]";
+ mes "I'll tell Putsuchiritan to allow you";
+ mes "to meet with her. I'm certain that you";
+ mes "will find her talents to be a tremendous";
+ mes "help on your journey.";
+ close;
+}
+
+//=====================================================================
+// Create Essence/Dismantle Stone
+//=====================================================================
+um_in.gat,44,71,2 script Utan Tribe Shaman 782,{
+
+ switch(event_umbala) {
+ default:
+ mes "[?????]";
+ mes "Umbaumbaumbaba Utan Umbaba";
+ mes "Umbaumbaumbafumbabauma...";
+ mes "Umbabaumbaumbabaumbabaumba";
+ mes "Umbabaumbabaumbaumbabaumba";
+ mes "Fumbaumba.";
+ next;
+ warp "umbala.gat",217,186;
+ close;
+ case 3:
+ mes "[Putsuchiritan]";
+ mes "I will not see outsiders that are";
+ mes "not from the Utan tribe.";
+ mes "...There are many things about the";
+ mes "nature of our society that you do";
+ mes "not yet understand.";
+ next;
+ mes "[Putsuchiritan]";
+ mes "Others of your type will do anything";
+ mes "to set foot on land which is sacred";
+ mes "to the Utan tribe. We fear that";
+ mes "revealing our secrets will expose";
+ mes "use to danger.";
+ next;
+ mes "[Putsuchiritan]";
+ mes "What's worse, I don't think that";
+ mes "outsiders understand our desire";
+ mes "to preserve our tribal culture.";
+ next;
+ mes "[Putsuchiritan]";
+ mes "As my talents are foremost for";
+ mes "the use of the Utan tribe, you";
+ mes "must get permission from the elder";
+ mes "if you want my assistance.";
+ mes "Also, don't be stirring up trouble";
+ mes "among the tribesmen.";
+ set event_umbala,4;
+ close;
+ case 4:
+ case 5:
+ mes "[Putsuchiritan]";
+ mes "Didn't you hear me? You need";
+ mes "to get the elder's permission before";
+ mes "I can help you.";
+ close;
+ case 6:
+ mes "[Putsuchiritan]";
+ mes "You seem to have gotten permission from";
+ mes "the elder. Fine, I'll help you, though";
+ mes "I don't really want to.";
+ next;
+ mes "[Putsuchiritan]";
+ mes "I can call forth hidden talents";
+ mes "buried deep within your psyche";
+ mes "and tap the power hidden in";
+ mes "elemental stones.";
+ next;
+ mes "[Putsuchiritan]";
+ mes "I need to prepare my rituals.";
+ mes "When you're ready to proceed, please";
+ mes "talk to me again.";
+ set event_umbala,7;
+ close;
+ case 7:
+ mes "[Putsuchiritan]";
+ mes "I don't know whether my talents";
+ mes "will be useful to you, but I'll";
+ mes "help you anyway.";
+ next;
+ mes "[Putsuchiritan]";
+ mes "I can create elemental essence from natural objects,";
+ mes "or, dismantle elemental stones into their component essences.";
+ mes "Which would you like to do?";
+ }
+
+ next;
+
+ set .@need,0;
+
+ switch (select("Create Essence","Dismantle Elemental Stone","Nothing")) {
+ case 1:
+ mes "[Putsuchiritan]";
+ mes "Which elemental essence would you";
+ mes "like to create? I can create earth, water,";
+ mes "fire, and wind essence.";
+ next;
+ switch (select("Earth","Water","Fire","Wind")) {
+ case 1:
+ if(countitem(947)<15) {
+ mes "[Putsuchiritan]";
+ mes "Earth...You need that which is";
+ mes "a friend of the earth. Explore";
+ mes "the verdant forest and find";
+ mes "^3377FF15x Horn^000000 for the ritual.";
+ }
+ else {
+ set .@need,947;
+ set .@amount,15;
+ set .@gain,993;
+ }
+ break;
+ case 2:
+ if(countitem(946)<20) {
+ mes "[Putsuchiritan]";
+ mes "Water...You need that which is";
+ mes "saturated with water. Explore";
+ mes "the area around here and find";
+ mes "^3377FF20x Snails Shell^000000 for the ritual.";
+ }
+ else {
+ set .@need,946;
+ set .@amount,20;
+ set .@gain,991;
+ }
+ break;
+ case 3:
+ if(countitem(904)<20) {
+ mes "[Putsuchiritan]";
+ mes "Fire...You need that which";
+ mes "can withstand the roiling heat";
+ mes "of perpetual flame. Explore the";
+ mes "desert and find ^3377FF20x Scorpion Tail^000000";
+ mes "for the ritual.";
+ }
+ else {
+ set .@need,904;
+ set .@amount,20;
+ set .@gain,990;
+ }
+ break;
+ case 4:
+ if(countitem(1013)<25) {
+ mes "[Putsuchiritan]";
+ mes "Wind...You need that which";
+ mes "has an easy camaraderie with";
+ mes "the sky itself.";
+ mes "You need ^3377FF25x Rainbow Shell^000000";
+ mes "to complete the ritual.";
+ }
+ else {
+ set .@need,1013;
+ set .@amount,25;
+ set .@gain,992;
+ }
+ break;
+ }
+ if(.@need == 0) {
+ next;
+ mes "[Putsuchiritan]";
+ mes "Once you've prepared these";
+ mes "objects from nature, please return here";
+ mes "so we can complete the ritual.";
+ close;
+ }
+ mes "[Putsuchiritan]";
+ mes "Now, I will try to tap the";
+ mes "source of power hidden deep within";
+ mes "you. Choose a number between 1 and 9.";
+ mes "If you don't want to create essence";
+ mes "after all, choose 0.";
+ while(1) {
+ next;
+ input .@num;
+ if(.@num<=0) {
+ mes "[Putsuchiritan]";
+ mes "If you don't wish my help at the moment,";
+ mes "that's fine. When you do, please come";
+ mes "by again.";
+ close;
+ }
+ if(.@num>9) {
+ mes "[Putsuchiritan]";
+ mes "You must choose a number between";
+ mes "1 and 9. It is very important that";
+ mes "you choose the number most dear to";
+ mes "your heart.";
+ continue;
+ }
+ break;
+ }
+ mes "[Putsuchiritan]";
+ switch(.@need) {
+ case 947: mes "The horn begins to vibrate."; break;
+ case 904: mes "The tail begins to vibrate."; break;
+ default: mes "The shell begins to vibrate."; break;
+ }
+ mes "I will now chant a holy mantra.";
+ mes "Imagine the number in your mind";
+ mes "and imagine power radiating forth from";
+ mes "your body.";
+ next;
+ mes "[Putsuchiritan]";
+ mes "Amba Omba Sanba! Unba Chi!";
+ mes "Wanbatauma Eurukaba! Unba! Ba!";
+ mes "Jyur! Fumuba Rurara! Wamba! Ra!";
+ mes "Damtsuha Ombabaraka! Unba! Shi!";
+ mes "Sukatamba Aburumba! Umba! Shi!";
+ next;
+ delitem .@need,.@amount;
+ getitem .@gain,1;
+ mes "[Putsuchiritan]";
+ mes "There. Your inner power has converted";
+ mes "these objects from nature into";
+ mes "elemental essence. Put";
+ mes "it to good use.";
+ close;
+ case 2:
+ mes "[Putsuchiritan]";
+ mes "What type of stone would you like to";
+ mes "dismantle? Please choose earth, water,";
+ mes "fire, or wind.";
+ next;
+ switch (select("Earth","Water","Fire","Wind")) {
+ case 1:
+ if(countitem(997)==0) {
+ mes "[Putsuchiritan]";
+ mes "You need to have";
+ mes "^3377FF1x Great Nature^000000";
+ mes "to disassemble into its";
+ mes "component essence.";
+ }
+ else {
+ set .@need,997;
+ set .@gain,993;
+ }
+ break;
+ case 2:
+ if(countitem(995)==0) {
+ mes "[Putsuchiritan]";
+ mes "You need to have";
+ mes "^3377FF1x Mystic Frozen^000000";
+ mes "to disassemble into its";
+ mes "component essence.";
+ }
+ else {
+ set .@need,995;
+ set .@gain,991;
+ }
+ break;
+ case 3:
+ if(countitem(994)==0) {
+ mes "[Putsuchiritan]";
+ mes "You need to have";
+ mes "^3377FF1x Flaming Heart^000000";
+ mes "to disassemble into its";
+ mes "component essence.";
+ }
+ else {
+ set .@need,994;
+ set .@gain,990;
+ }
+ break;
+ case 4:
+ if(countitem(996)==0) {
+ mes "[Putsuchiritan]";
+ mes "You need to have";
+ mes "^3377FF1x Rough Wind^000000";
+ mes "to disassemble into its";
+ mes "component essence.";
+ }
+ else {
+ set .@need,996;
+ set .@gain,992;
+ }
+ break;
+ }
+ next;
+ if(.@need == 0) {
+ mes "[Putsuchiritan]";
+ mes "Once you have the necessary stone,";
+ mes "please come back and visit me";
+ mes "so that the ritual can be completed.";
+ close;
+ }
+ mes "[Putsuchiritan]";
+ switch(.@need) {
+ case 997: mes "I will dismantle your earth crystal"; break;
+ case 995: mes "I will dismantle your frozen crystal"; break;
+ case 994: mes "I will dismantle your heart of flame"; break;
+ case 996: mes "I will dismantle your rough wind stone"; break;
+ }
+ mes "into its component essence.";
+ mes "Choose a number between 1 and 9.";
+ mes "If you don't want me to dismantle the";
+ mes "stone, choose 0.";
+ while(1) {
+ next;
+ input .@num;
+ if(.@num<=0) {
+ mes "[Putsuchiritan]";
+ mes "If you don't wish my help at the moment,";
+ mes "that's fine. When you do, please come";
+ mes "by again.";
+ close;
+ }
+ if(.@num>9) {
+ mes "[Putsuchiritan]";
+ mes "You must choose a number between";
+ mes "1 and 9. It is very important that";
+ mes "you choose the number most dear to";
+ mes "your heart.";
+ continue;
+ }
+ break;
+ }
+ set .@num,.@num+rand(5);
+ if(.@num>10)
+ set .@num,.@num-10;
+ if(.@num<5)
+ set .@num,.@num+5;
+ mes "[Putsuchiritan]";
+ mes "Please place the elemental stone";
+ mes "inside this holy circle. I will chant a";
+ mes "a mantra. I don't know if I can";
+ mes "completely dismantle the stone,";
+ mes "but here goes...";
+ next;
+ mes "[Putsuchiritan]";
+ mes "Unba Unba Karama! Unba! Ta!";
+ mes "Rukara! Ukarere! Un! Unba! Ka!";
+ mes "Anburaka Taburaka Taburakan! Unba Ra!";
+ mes "Onbaruzu Zan Kata! Unba Ka!";
+ next;
+ delitem .@need,1;
+ getitem .@gain,.@num;
+ mes "[Putsuchiritan]";
+ mes "The elemental stone has been";
+ mes "dismantled into its natural";
+ mes "essence. Please put it to";
+ mes "good use.";
+ close;
+ case 3:
+ mes "[Putsuchiritan]";
+ mes "If you don't wish my help at the moment,";
+ mes "that's fine. When you do, please come";
+ mes "by again.";
+ close;
+ }
+} \ No newline at end of file