Updated Umbala npcs, quests, and warps.

git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@12403 54d463be-8e91-2dee-dedb-b68131a5f0ec

1 files changed, 1214 insertions, 847 deletions

diff --git a/npc/quests/quests_umbala.txt b/npc/quests/quests_umbala.txt
index 85084f6fc..b1ae1022f 100644
--- a/npc/quests/quests_umbala.txt
+++ b/npc/quests/quests_umbala.txt
@@ -3,10 +3,11 @@
 //===== By: ================================================== 
 //= sabernet09 & eAthena Team
 //===== Current Version: ===================================== 
-//= 2.0
+//= 2.1
 //===== Compatible With: ===================================== 
 //= eAthena 7.15 +
 //===== Description: ========================================= 
+//= [Aegis Conversion]
 //= Umbalian Language Quest, Umbala Skeletal Gate Quest,
 //= Umbala Event, Create Essence/Dismantle Stone
 //	Phase1.Learning the Language
@@ -19,6 +20,9 @@
 //	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.
+//= Umbala Domestic Dispute?
+//= - This quest is only avaliable if you ahve not done language quest.
+//= - Variables in use: um_wind, MISC_QUEST (Bit 32768)
 //===== Additional Comments: ================================= 
 //= fixed by x[tsk], Lupus, PoW
 //= Quest completion is now registered
@@ -30,590 +34,421 @@
 //= 1.9 Added functionality to allow players to dismantle more
 //= than a stone at once, up to 10. [SinSloth]
 //= 2.0 Updated hack check and added a weight check to dismantling. [SinSloth]
+//= 2.1 Rescripted to Aegis 10.3 standards. Added strange quest. [L0ne_W0lf]
 //============================================================ 
 
-
-//========================================================================================================================\\
-//                       Little Quest NPC to enter the dungeon
-//========================================================================================================================\\
-umbala,65,253,4	script	Tree Guardian	752,{ 
-	mes "[Tree Guardian]"; 
-	mes "Stop, stranger, here is the entrance to the ancient tree!"; 
-	next; 
-	mes "[Tree Guardian]"; 
-	mes "I cannot allow you to enter, you look pretty weak!"; 
-	next; 
-L_MENU:
-	menu "Talk about tree",-, "Talk about Umbala",M_TALKUMB, "Enter Dungeon",M_DUN, "Leave",M_Leave; 
-
-	mes "[Tree Guardian]"; 
-	mes "The tree is an ancient relique of our culture!"; 
-	next; 
-	mes "[Tree Guardian]"; 
-	mes "But recently some monsters overwhelmed the tree and are now"; 
-	mes "slowly killing the tree...like a poison...from inside.."; 
-	next; 
-	goto L_MENU;
-M_TALKUMB: 
-	mes "[Tree Guardian]"; 
-	mes "We don't have many visitors in our small town.."; 
-	next; 
-	mes "[Tree Guardian]"; 
-	mes "Most people don't find us or are just afraid of us!"; 
-	next; 
-	mes "[Tree Guardian]"; 
-	mes "And now, we are even more unpopular, because of that damn beast!"; 
-	next; 
-	menu "What beast?",- ,"Leave",M_Leave; 
-
-	mes "[Tree Guardian]"; 
-	mes "The Werewolf of course!!"; 
-	next; 
-	mes "[Tree Guardian]"; 
-	mes "He is sneaking around our town and killing our soldiers at night!"; 
-	next; 
-	mes "[Tree Guardian]"; 
-	mes "Hey...if you could get rid of that beast!"; 
-	next; 
-	mes "[Tree Guardian]"; 
-	mes "I'll let you in!"; 
-	next; 
-	mes "[Tree Guardian]"; 
-	mes "From now on we can live in peace again, thanks to you!"; 
-	next; 
-	mes "[Tree Guardian]"; 
-	mes "You may enter the dungeon now!"; 
-	set umbdun,1;
-	close; 
-M_DUN: 
-	mes "[Tree Guardian]"; 
-	if(umbdun != 1) mes "We do not permit weak people to enter!";
-	if(umbdun != 1) close;
-	mes "Come on in, brave warrior!"; 
-	warp "um_dun01",42,30; 
-M_Leave:  
-	close; 
-}
-
 //==============================================================================
-//Skeletal Gate
+// Umbala Language Quest
 //==============================================================================
-umbala,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";
+um_in,39,122,5	script	Utan Chief	784,{
+	if (event_umbala == 0) {
+		mes "[Karkatan]";
+		mes "Huh huh, a Rune-Midgardian.";
+		mes "I guess this is your first";
+		mes "visit to my village, isn't it?";
+		next;
+		mes "[Karkatan]";
+		mes "Everyone from Rune-Midgard";
+		mes "that I've met had the same";
+		mes "same expression on their";
+		mes "face as you do right now";
+		mes "when they first came here.";
+		next;
+		mes "[Karkatan]";
+		mes "Maybe it's because they cannot";
+		mes "communicate with us due to";
+		mes "the language barrier, so";
+		mes "they have no idea what's going";
+		mes "on. Yeah, I understand...";
+		mes "Anyway, welcome to my village.";
+		next;
+		mes "[Karkatan]";
+		mes "My name is Karkatan, and I";
+		mes "am the chief of the Utan tribe.";
+		mes "You must be wondering how";
+		mes "I can speak your language.";
+		next;
+		mes "[Karkatan]";
+		mes "It was taught to me long ago";
+		mes "by an adventurer from your";
+		mes "land. It's been a long time,";
+		mes "and I do not know what has";
+		mes "become of him...";
+		next;
+		mes "[Karkatan]";
+		mes "Anyhow, I learned many things";
+		mes "about Rune-Midgardian culture";
+		mes "and language.";
+		next;
+		mes "[Karkatan]";
+		mes "Sometimes, I teach the Utan";
+		mes "langauge, but I do not give";
+		mes "everyone that privilege.";
+		mes "If unscrupulous outsiders";
+		mes "learn the Utan language, they";
+		mes "may bring harm to my tribe.";
+		next;
+		mes "[Karkatan]";
+		mes "Before you can learn the Utan";
+		mes "language, first try to learn";
+		mes "Utan culture by exploring our";
+		mes "village.";
+		next;
+		mes "[Karkatan]";
+		mes "Although you are not able to";
+		mes "communicate with my people";
+		mes "right now, try to understand";
+		mes "our way of life through your";
+		mes "observations.";
+		next;
+		mes "[Karkatan]";
+		mes "Pay attention to the dress,";
+		mes "appearance and life style of the";
+		mes "local people. When you think";
+		mes "you understand enough about Utan";
+		mes "culture, come back to me and show me what you have learned.";
+		set event_umbala,1;
+		close;
+	}
+	else if (event_umbala == 1) {
+		mes "[Karkatan]";
+		mes "Oh, it's you again. So...";
+		mes "Have you learned about Utan";
+		mes "culture? I want to hear your";
+		mes "opinion, as well as your impression.";
+		next;
+		mes "[Karkatan]";
+		mes "There are still some villagers";
+		mes "who are very naive about Rune-Midgardians.";
+		mes "Usually, they fear encounters";
+		mes "with your people and will";
+		mes "hide themselves.";
+		next;
+		mes "[Karkatan]";
+		mes "So...";
+		mes "May I help you with anything?";
+		mes "I assume you did not have much of";
+		mes "a problem looking around the";
+		mes "village, but it seems you have something to ask of me.";
+		next;
+		switch(select("I want to learn Utan language.:Umbabah Umbabah?:Nothing.")) {
+		case 1:
+			if (isequipped(2278) || isequipped(2297) || isequipped(2288) || isequipped(2292) || isequipped(5005) || isequipped(2281) || isequipped(5043)) {
+				mes "[Karkatan]";
+				mes "Hmmm...That's an awesome mask";
+				mes "you're wearing. We Utans like";
+				mes "wearing masks to keep from";
+				mes "showing our facial expressions.";
 				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";
+				mes "[Karkatan]";
+				mes "That's why we wear masks all the";
+				mes "time. We believe that interaction";
+				mes "and treatment of other people";
+				mes "should not depend on how we look.";
 				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";
+				mes "[Karkatan]";
+				mes "Alright. I am sure you are";
+				mes "qualified to learn the Utan";
+				mes "language. I will teach you how";
+				mes "speak and to read in Utan from";
+				mes "now on.";
 				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";
+				mes "[Karkatan]";
+				mes "However, I need you to get some";
+				mes "items ready so that we may proceed";
+				mes "with the lessons. First, we need";
+				mes "two different kinds of paper.";
+				mes "^3377FF10 Oil Paper^000000 and ";
+				mes "^3377FF5 Slick Paper^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";
+				mes "[Karkatan]";
+				mes "We'll also need something to";
+				mes "write with. Let's use";
+				mes "^3377FF1 Squid Ink^000000 and";
+				mes "^3377FF1 Feather of Birds^000000.";
+				mes "Please bring me those, and I will";
+				mes "teach you when you're ready.";
+				set event_umbala,2;
+				close;
+			}
+			else {
+				mes "[Karkatan]";
+				mes "You don't seem to understand";
+				mes "our culture yet. You cannot";
+				mes "learn another language if you";
+				mes "do not understand the culture.";
 				next;
-			Lfin:
-				mes "^3355FF..........^000000";
+				mes "[Karkatan]";
+				mes "When you have that expression on";
+				mes "your face, Utans will be";
+				mes "intimidated... Since we do";
+				mes "not show our faces to others,";
+				mes "we are actually very";
+				mes "vulnerable to facial expression.";
 				next;
-				mes "^3355FF...................";
-				mes ".....................^000000";
+				mes "[Karkatan]";
+				mes "Go explore the village a little";
+				mes "longer. You can come back";
+				mes "anytime when you think you're ready.";
 				next;
-				mes "^3355FF.......................";
-				mes ".........................";
-				mes ".........................^000000";
+				mes "[Karkatan]";
+				mes "In any case, what do you think";
+				mes "about my mask? It's the current";
+				mes "trend among us Utans...don't you";
+				mes "think it's awesome?";
+				close;
+			}
+		case 2:
+			mes "[Karkatan]";
+			mes "Haha~ When you're just imitating";
+			mes "the sound, you won't make any";
+			mes "sense. Language is a mutual system";
+			mes "for the communication of thoughts and feelings.";
+			next;
+			mes "[Karkatan]";
+			mes "I regret to say that it seems that";
+			mes "nowadays, all peoples are no";
+			mes "longer sensitive to other cultures";
+			mes "in that respect.";
+			next;
+			mes "[Karkatan]";
+			mes "I see people that despise or";
+			mes "ridicule others that do not";
+			mes "understand them. It's really";
+			mes "sad that such bigotry still exists...";
+			next;
+			mes "[Karkatan]";
+			mes "If you are interested in Utan";
+			mes "language, try to understand our";
+			mes "culture better and come back";
+			mes "when you're ready. I will";
+			mes "teach you the meanings of those sounds you are using.";
+			close;
+		case 3:
+			mes "[Karkatan]";
+			mes "Sometimes it's good to wander";
+			mes "without purpose. But it's";
+			mes "better to set a goal for";
+			mes "a journey if you want to";
+			mes "learn something out of";
+			mes "the experience.";
+			close;
+		}
+	}
+	else if (event_umbala == 2) {
+		if ((countitem(7151) > 9) && (countitem(7111) > 4) && (countitem(1024) > 0) && (countitem(916) > 0)) {
+			mes "[Karkatan]";
+			mes "Okay, I guess we're good to go.";
+			mes "Let's get the lesson started.";
+			mes "I hope you will communicate better";
+			mes "with Utans when we are done.";
+			next;
+			mes "[Karkatan]";
+			mes "..............";
+			next;
+			mes "[Karkatan]";
+			mes "..............";
+			mes ".....................";
+			next;
+			mes "[Karkatan]";
+			mes "..............";
+			mes ".....................";
+			mes "............................";
+			next;
+			mes "[Karkatan]";
+			mes "Alright, that's all. Just forget";
+			mes "about how you've felt about Utans";
+			mes "before you learned the language.";
+			mes "Now go try to talk to Utans.";
+			mes "Conversation is a very important method in understanding others.";
+			delitem 7151,10; //Oil_Paper
+			delitem 7111,5; //Smooth_Paper
+			delitem 1024,1; //Chinese_Ink
+			delitem 916,1; //Feather_Of_Birds
+			set event_umbala,3;
+			next;
+			mes "[Karkatan]";
+			mes "Okay, if you have any business";
+			mes "in our village later, feel free";
+			mes "to talk to me. I will try to help";
+			mes "you as much as I can.";
+			close;
+		}
+		else {
+			mes "[Karkatan]";
+			mes "I guess you are not ready yet...";
+			mes "Did you forget what items you";
+			mes "need? I will let you know";
+			mes "again, so please bring them";
+			mes "so that we can start the lesson.";
+			next;
+			mes "[Karkatan]";
+			mes "^3377FF10 Oil Paper^000000,";
+			mes "^3377FF5 Slick Paper^000000,";
+			mes "^3377FF1 Squid Ink^000000,";
+			mes "^3377FF1 Feather of Birds^000000.";
+			mes "When you bring all of these,";
+			mes "I will teach you our language.";
+			close;
+		}
+	}
+	else if (event_umbala >= 3) {
+		if (event_umbala == 4) {
+			mes "[Karkatan]";
+			mes "Puchuchartan must have sent you to";
+			mes "me. I need to check whether or not";
+			mes "you are qualified to request";
+			mes "her help...We Utans do not want";
+			mes "to help evil people.";
+			next;
+			mes "[Karkatan]";
+			mes "Hmmmm....";
+			mes "It would be good to have a mask";
+			mes "that was made in Rune-Midgard...";
+			next;
+			mes "[Karkatan]";
+			mes "I wish to have ^3377FF1 Mr. Smile^000000.";
+			mes "To Utans, receiving a mask as a";
+			mes "present is considered an";
+			mes "honor. Maybe Puchuchartan";
+			mes "wants you to show us your respect by doing so.";
+			set event_umbala,5;
+			close;
+		}
+		else if (event_umbala == 5) {
+			if (countitem(2278) > 0) {
+				mes "[Karkatan]";
+				mes "Oh, you brought it! Yes, I've";
+				mes "always wished that I could have";
+				mes "this mask! This is truly an";
+				mes "honor! Thank you, adventurer";
+				mes "from Rune-Midgard.";
 				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",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,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.";
-		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;
+				mes "[Karkatan]";
+				mes "I will tell Puchuchartan that I";
+				mes "confirmed your qualification.";
+				mes "Go and speak to her. Though I";
+				mes "am not sure what help she can give";
+				mes "you, I hope we will be able to return this favor.";
+				delitem 2278,1; //Mr_Smile
+				set event_umbala,6;
+				close;
+			}
+			else {
+				mes "[Karkatan]";
+				mes "Did I tell you that you need";
+				mes "^3377FF1 Mr. Smile^000000?";
+				mes "Please bring that as proof";
+				mes "of your goodwill, as well";
+				mes "as your sense of honor.";
+				close;
+			}
+		}
+		else {
+			mes "[Karkatan]";
+			mes "How's it going?";
+			mes "I wish I could guide you around";
+			mes "the village, but I cannot neglect";
+			mes "my duty as tribal chief.";
+			next;
+			mes "[Karkatan]";
+			mes "Leading a tribe is not as easy";
+			mes "as it looks. You would understand";
+			mes "if you were in the same position";
+			mes "as me. Anyway, I hope you will enjoy your time in our village.";
+			close;
+		}
+	}
 }
 
 //=====================================================================
 //                    Create Essence/Dismantle Stone
 //=====================================================================
-um_in,44,71,2	script	Utan Tribe Shaman	782,{
-
+um_in,44,71,2	script	Utan Shaman	782,{
 	switch(event_umbala) {
 	default:	
-		mes "[?????]";
-		mes "Umbaumbaumbaba Utan Umbaba";
-		mes "Umbaumbaumbafumbabauma...";
-		mes "Umbabaumbaumbabaumbabaumba";
-		mes "Umbabaumbabaumbaumbabaumba";
-		mes "Fumbaumba.";
-		next;
+		mes "[??????????]";
+		mes "Umbah umbah umbabah Utan umbah";
+		mes "Umbah mookala umbabah..";
+		mes "Umbabahumbah umbabah";
+		mes "Umbabah umbaba umbaumbah umbah";
+		mes "Hum umbah umbah.";
+		close2;
 		warp "umbala",217,186;
-		close;
+		end;
 	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.";
+		mes "[Puchuchartan]";
+		mes "I did not expect that even";
+		mes "more of you Rune-Midgardians";
+		mes "would find my village. I am";
+		mes "afraid that Mother Earth may";
+		mes "be caused suffering because";
+		mes "of this...";
 		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.";
+		mes "[Puchuchartan]";
+		mes "You Rune-Midgardians are a very";
+		mes "evil tribe...always accomplishing";
+		mes "your goals whether the means are";
+		mes "foul or fair, never hesitating to";
+		mes "ruin the property of others to get";
+		mes "what you want.";
 		next;
-		mes "[Putsuchiritan]";
-		mes "What's worse, I don't think that";
-		mes "outsiders understand our desire";
-		mes "to preserve our tribal culture.";
+		mes "[Puchuchartan]";
+		mes "I am worried how continuing";
+		mes "contact with the outside world";
+		mes "will affect our future...";
 		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.";
+		mes "[Puchuchartan]";
+		mes "No one from Rune-Midgard has ";
+		mes "visited me without some purpose";
+		mes "and I do not think that you";
+		mes "are an exception.";
+		next;
+		mes "[Puchuchartan]";
+		mes "I only use my power for the";
+		mes "service of my tribe, and do not";
+		mes "give my aid to strangers. If you";
+		mes "really need my help, go ask for";
+		mes "the chief's permission.";
+		next;
+		mes "[Puchuchartan]";
+		mes "Also, I do not approve of";
+		mes "outsiders talking to the tribe";
+		mes "more than they have to...";
+		mes "We want to live a peaceful life, so do not disturb us.";
 		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.";
+		mes "[Puchuchartan]";
+		mes "I already told you to get the";
+		mes "chief's approval. There is also";
+		mes "the matter of my own business to take care of.";
+		next;
+		mes "[Puchuchartan]";
+		mes "I know that you have gone through";
+		mes "many difficulties to come here,";
+		mes "but you have to leave now.";
 		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.";
+		mes "[Puchuchartan]";
+		mes "I've heard from the chief that he";
+		mes "has given you his approval...";
+		mes "Although I do not like this, I";
+		mes "will keep my promise. But it's";
+		mes "your call if you really need my help or not.";
 		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.";
+		mes "[Puchuchartan]";
+		mes "My power allows me to create rough";
+		mes "enchanted stones and to divide a";
+		mes "pure enchanted stone into rough";
+		mes "ones. So I may be able to help";
+		mes "you in this way.";
 		next;
-		mes "[Putsuchiritan]";
-		mes "I need to prepare my rituals.";
-		mes "When you're ready to proceed, please";
-		mes "talk to me again.";
+		mes "[Puchuchartan]";
+		mes "So come and speak to me when";
+		mes "you think my power may be";
+		mes "of service to you.";
 		set event_umbala,7;
 		close;
 	case 7:
@@ -627,355 +462,887 @@ um_in,44,71,2	script	Utan Tribe Shaman	782,{
 		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")) {
+	mes "[Puchuchartan]";
+	mes "Rune-Midgardian who has asked for";
+	mes "my help...Although I am not sure";
+	mes "if you really need my power, I";
+	mes "will try to provide my assistance.";
+	next;
+	if (checkweight(1101,10) == 0) {
+		mes "[Puchuchartan]";
+		mes "Wait--!";
+		mes "something in your possession";
+		mes "is disturbing my peace of";
+		mes "mind. This will not do...";
+		next;
+		mes "[Puchuchartan]";
+		mes "Go leave your belongings";
+		mes "elsewhere, and only bring the";
+		mes "items that you need right now.";
+		next;
+		mes "[Puchuchartan]";
+		mes "If you refuse to do so,";
+		mes "I cannot do anything for you.";
+		mes "Get yourself ready and then";
+		mes "come back.";
+		close;
+	}
+	mes "[Puchuchartan]";
+	mes "Now, what do you wish to do?";
+	mes "My power allows me to create rough";
+	mes "enchanted stones and to divide a";
+	mes "pure enchanted stone into rough ones.";
+	next;
+	switch (select("Create rough enchanted stones:Divide a pure enchanted stone:Quit.")) {
 	case 1:
-		mes "[Putsuchiritan]";
-		mes "Which elemental essence would you";
-		mes "like to create?  I can create earth, water,";
-		mes "fire, and wind essence.";
+		mes "[Puchuchartan]";
+		mes "Do you wish to create rough";
+		mes "enchanted stones? Which";
+		mes "property do you wish to create?";
+		mes "Earth, Water, Fire, Wind...";
+		mes "...choose one.";
 		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.";
+		switch (select("Earth:Water:Fire:Wind")) {
+		case 1:
+			set .@consume,947; //Horn
+			set .@amount,15; 
+			set .@success,993; //Yellow_Live
+			break;
+		case 2:
+			set .@consume,946; //Snail's_Shell
+			set .@amount,20; 
+			set .@success,991; //Crystal_Blue
+			break;
+		case 3:
+			set .@consume,904; //Scorpion's_Tail
+			set .@amount,20; 
+			set .@success,990; //Boody_Red
+			break;
+		case 4:
+			set .@consume,1013; //Colorful_Shell
+			set .@amount,25; 
+			set .@success,992; //Wind_Of_Verdure
+			break;
+		}
+		if (countitem(.@consume) >= .@amount) {
+			mes "[Puchuchartan]";
+			mes "I will try to amplify the hidden";
+			mes "power of natural objects in";
+			mes "order to create rough enchanted";
+			mes "stones. Choose one number from";
+			mes "'1' to '9.' If you wish to cancel";
+			mes "this request, enter '0.'";
+			next;
+			while(1) {
+				input .@input,0,10;
+				if (.@input == 0) {
+					mes "[Puchuchartan]";
+					mes "I see. It's your call.";
+					mes "Come back when you need me.";
+					close;
+				}
+				else if (.@input > 9) {
+					mes "[Puchuchartan]";
+					mes "Remember to choose a number";
+					mes "from 1 to 9.";
+					next;
 				}
 				else {
-					set .@need,947;
-					set .@amount,15;
-					set .@gain,993;
+					break;
 				}
+			}
+			mes "[Puchuchartan]";
+			switch(.@success) {
+			case 990:
+				mes "I am putting these tails into a"; break;
+			case 991:
+				mes "I am putting these shells into a"; break;
+			case 992:
+				mes "I am putting these shells into a"; break;
+			case 993:
+				mes "I am putting these horns into a"; break;
+			}
+			mes "boiling pot, and casting a";
+			mes "sacred incantation. Remember";
+			mes "the number you entered.";
+			next;
+			mes "[Puchuchartan]";
+			mes "Amba Omba Zatumba! Umba! Ti!";
+			mes "Umputaun Eulukaba! Umba! Ha!";
+			mes "Julu Humba Rulala! Umba! La!";
+			mes "Datuha Ombabalaka! Umba! Si!";
+			mes "Sunutaba Abulumba! Umba! Si!";
+			next;
+			if (rand(1,10) == 1) {
+				mes "[Puchuchartan]";
+				mes "I guess my power was not enough.";
+				mes "The natural power I gathered with";
+				mes "my spell lost focus and was scattered...";
+				delitem .@consume,.@amount;
+				getitem 910,1; //Garlet
+				next;
+				mes "[Puchuchartan]";
+				mes "It seems the spirits of nature";
+				mes "were not in harmony at the moment.";
+				mes "However, if you come back later,";
+				mes "I will try to help you. Of course,";
+				mes "there will still be the same possibility that I may fail.";
+				close;
+			}
+			else {
+				mes "[Puchuchartan]";
+				mes "Here's the enchanted stone you";
+				mes "wished to have. I created this";
+				mes "with a lot of effort, so make";
+				mes "good use of it.";
+				delitem .@consume,.@amount;
+				getitem .@success,1;
+				close;
+			}
+		}
+		else {
+			mes "[Puchuchartan]";
+			switch (.@success) {
+			case 990:
+				mes "Fire property...";
+				mes "I will need natural";
+					mes "objects that are filled with";
+				mes "the spirit of fire.";
+				next;
+				mes "[Puchuchartan]";
+				mes "Scorpion which endures the";
+				mes "blazing heat of the desert";
+				mes "is brimming with fire energy.";
+				mes "I need ^3377FF20 Scorpion Tails^000000.";
 				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.";
+			case 991:
+				mes "Water property...";
+				mes "I will need natural";
+				mes "objects that are filled with";
+				mes "the spirit of water.";
+				next;
+				mes "[Puchuchartan]";
+				mes "Ambernite...the spirit of";
+				mes "water is contained within its";
+				mes "protective shell...";
+				mes "I will need ^3377FF20 Snail's Shell.^000000";
+				break;
+			case 992:
+				mes "Wind property...";
+				mes "I will need natural";
+				mes "objects that are filled with";
+				mes "the spirit of wind.";
+				next;
+				mes "[Puchuchartan]";
+				mes "Stainer...the beetle";
+				mes "that flies through the sky";
+				mes "has the wind's spirit.";
+				mes "I need ^3377FF25 Rainbow Shells^000000.";
+				break;
+			case 993:
+				mes "Earth property...I need natural";
+				mes "objects that are filled with";
+				mes "the spirit of the Earth.";
+				next;
+				mes "[Puchuchartan]";
+				mes "Horn...that dwells in the forest";
+				mes "is filled with the spirits of";
+				mes "earth and wood...Horn...";
+				mes "I need ^3377FF15 Horn^000000 from Horns.";
+				break;
+			}
+			mes "[Puchuchartan]";
+			mes "That's all I need...";
+			mes "Come back when";
+			mes "you're ready.";
+			mes "I will be here.";
+			close;
+		}
+	case 2:
+		mes "[Puchuchartan]";
+		mes "Do you wish to divide a pure";
+		mes "enchanted stone into rough ones?";
+		mes "Which property do you want to";
+		mes "divide? Earth, Water, Fire, Wind... ";
+		mes "Choose one.";
+		next;
+		switch(select("Earth:Water:Fire:Wind")) {
+		case 1:
+			set .@divide,997; //Great_Nature
+			break;
+		case 2:
+			set .@divide,995; //Mistic_Frozen
+			break;
+		case 3:
+			set .@divide,994; //Flame_Heart
+			break;
+		case 4:
+			set .@divide,996; //Rough_Wind
+			break;
+		}
+		if (countitem(.@divide) > 0) {
+			mes "[Puchuchartan]";
+			mes "Let me try to return the enchanted";
+			mes "stone to its rough form...";
+			mes "Choose a number from 1 to 9.";
+			mes "If you wish to cancel this";
+			mes "request, enter 0.";
+			next;
+			while(1) {
+				input .@input,0,10;
+				if (.@input == 0) {
+					mes "[Puchuchartan]";
+					mes "I see. It's your call.";
+					mes "Come back when you need me.";
+					close;
+				}
+				else if (.@input > 9) {
+					mes "[Puchuchartan]";
+					mes "Remember to choose a number";
+					mes "from 1 to 9.";
+					next;
 				}
 				else {
-					set .@need,946;
-					set .@amount,20;
-					set .@gain,991;
+					break;
 				}
-				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.";
+			}
+			mes "[Puchuchartan]";
+			mes "I will now cast a sacred";
+			mes "incantation. Remember the number you entered.";
+			next;
+			mes "[Puchuchartan]";
+			mes "Umba Umba Kalapum! Umba! Ta!";
+			mes "Lukura Ukulele Um! Umba! Ka!";
+			mes "Abulaka Tabulakan! Umba! La!";
+			mes "Ombaludu Zan Kunu! Umba! Ku!";
+			mes "Kum Tum Lakulakun! Umba! Ha!";
+			next;
+			mes "[Puchuchartan]";
+			mes "Here's the rough enchanted stones";
+			mes "you wished to have. I created this";
+			mes "with a lot of effort, so make good";
+			mes "use of them.";
+			delitem .@divide,1;
+			switch(.@divide) {
+			case 994:
+				set .@shaman_p,rand(1,10);
+				if (.@shaman_p == 1) {
+					getitem 990,10; //Boody_Red
+				}
+				else if (.@shaman_p == 2 || .@shaman_p == 3) {
+					getitem 990,8; //Boody_Red
+				}
+				else if (.@shaman_p >= 4 && .@shaman_p == 6) {
+					getitem 990,7; //Boody_Red
 				}
 				else {
-					set .@need,904;
-					set .@amount,20;
-					set .@gain,990;
+					getitem 990,6; //Boody_Red
 				}
-				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.";
+				close;
+			case 995:
+				set .@shaman_p,rand(1,10);
+				if (.@shaman_p == 1) {
+					getitem 991,10; //Crystal_Blue
+				}
+				else if (.@shaman_p == 2 || .@shaman_p == 3) {
+					getitem 991,8; //Crystal_Blue
+				}
+				else if (.@shaman_p >= 4 && .@shaman_p <= 6) {
+					getitem 991,7; //Crystal_Blue
 				}
 				else {
-					set .@need,1013;
-					set .@amount,25;
-					set .@gain,992;
+					getitem 991,6; //Crystal_Blue
+				}
+				close;
+			case 996:
+				set .@shaman_p,rand(1,10);
+				if (.@shaman_p == 1) {
+					if (rand(1,2) == 1) {
+						getitem 992,10; //Wind_Of_Verdure
+					}
+					else {
+						getitem 992,6; //Wind_Of_Verdure
+					}
+				}
+				else if (.@shaman_p == 2 || .@shaman_p == 3) {
+					getitem 992,8; //Wind_Of_Verdure
+				}
+				else if (.@shaman_p >= 4 && .@shaman_p == 6) {
+					getitem 992,7; //Wind_Of_Verdure
+				}
+				else {
+					getitem 992,6; //Wind_Of_Verdure
+				}
+				close;
+			case 997: 
+				set .@shaman_p,rand(1,5);
+				if (.@shaman_p == 1) {
+					getitem 993,10; //Yellow_Live
+				}
+				else if (.@shaman_p == 2) {
+					getitem 993,8; //Yellow_Live
+				}
+				else if (.@shaman_p >= 3 || .@shaman_p <= 4) {
+					getitem 993,7; //Yellow_Live
+				}
+				else {
+					if (rand(1,2) == 1) {
+						getitem 993,6; //Yellow_Live
+					}
+					else {
+						getitem 993,7; //Yellow_Live
+					}
 				}
-				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;
-		mes "[Putsuchiritan]";
-		if(countitem(.@need)<.@amount){
-			mes "You're An Amba HacK0R!";
-			mes "I'm clearing your mind!";
-			//we reset the whole quest for the hacker			
-			set event_umbala,0;
-			emotion e_swt,1;
+		else {
+			mes "[Puchuchartan]";
+			mes "So, you wish to have rough";
+			switch(.@divide) {
+			case 994:
+				mes "fire stones? Then I will need";
+				mes "you to bring a pure fire stone.";
+				break;
+			case 995:
+				mes "water stones? Then I'll need";
+				mes "you to bring a pure water stone.";
+				break;
+			case 996:
+				mes "wind stones? Then I will need";
+				mes "you to bring a pure wind stone.";
+				break;
+			case 997: 
+				mes "earth stones? Then I'll need";
+				mes "you to bring a pure earth stone.";
+				break;
+			}
+			mes "^3377FF1 "+getitemname(.@divide)+"^000000.";
+			next;
+			mes "[Puchuchartan]";
+			mes "That's all I need...";
+			mes "Come back when";
+			mes "you're ready.";
+			mes "I will be here.";
 			close;
 		}
-		delitem .@need,.@amount;
-		if(!rand(10)){
-			getitem 910,1; //if failed get Garlet
-			mes "Your inner power has failed";
-			mes "to convert these objects";
-			mes "from nature into elemental essence...";
-			next;
-			mes "[Putsuchiritan]";
-			mes "Purify your mind and try again.";
-        		close;
-		}
-		getitem .@gain,1;
-		mes "There.  Your inner power has converted";
-		mes "these objects from nature into";
-		mes "elemental essence.  Put";
-		mes "it to good use.";
+	case 3:
+		mes "[Puchuchartan]";
+		mes "I see. It's your call.";
+		mes "Come back when you need me.";
 		close;
-	case 2:
-		mes "[Putsuchiritan]";
-		mes "What type of stone would you like to";
-		mes "dismantle?  Please choose earth, water,";
-		mes "fire, or wind.";
+	}
+}
+
+umbala,221,193,1	script	#Skulldoor	111,{
+	if (event_umbala >= 7) {
+		warp "um_in",32,71;
+		end;
+	}
+	else {
+		mes "^3355FFA human skull disturbingly";
+		mes "hangs beside the door. The door is";
+		mes "locked tight, so you can't get in.";
+		mes "As you peer through the keyhole,";
+		mes "you can see somebody moving inside the room.^000000";
 		next;
-		switch (select("Earth","Water","Fire","Wind")) {
+		if (select("Examine the skull.:Quit.") == 1) {
+			mes "^3355FFYou see that the eye sockets";
+			mes "of the skull are empty.";
+			mes "How peculiar...";
+			mes "It seems that Gemstones";
+			mes "would fit perfectly inside of";
+			mes "them.^000000";
+			next;
+			mes "^3355FFYou see the left eye socket of the";
+			mes "skull. What do you want to do?^000000";
+			next;
+			switch(select("Leave it as it is.:Insert a Blue Gemstone.:Insert a Yellow Gemstone.:Insert a Red Gemstone.")) {
 			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;
-				}
+				mes "^3355FFYou left the eye socket as it was.^000000";
+				next;
 				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.";
+				set .@insert,717;
+				break;
+			case 3:
+				set .@insert,715;
+				break;
+			case 4:
+				set .@insert,716;
+				break;
+			}
+			if (.@insert) {
+				if (countitem(.@insert) > 0) {
+					mes "^3355FFYou inserted a "+getitemname(.@insert)+"";
+					mes "into the eye socket.^000000";
+					next;
+					mes "^3355FFThe gemstone rolled back out of";
+					mes "the mouth of the skull.^000000";
+					set .@skulldoor,.@skulldoor+1;
+					switch (.@insert) {
+					case 715: set .@skull,2; break;
+					case 716: set .@skull,3; break;
+					case 717: set .@skull,1; break;
+					}
+					delitem .@insert,1;
+					getitem .@insert,1;
+					next;
 				}
 				else {
-					set .@need,995;
-					set .@gain,991;
+					mes "^3355FFYou forgot to carry "+getitemname(.@insert)+"";
+					mes "with you. So you couldn't do what you";
+					mes "had intended.^000000";
+					next;
 				}
+			}
+			mes "^3355FFYou see the right eye socket of";
+			mes "the skull. What do you want to do?^000000";
+			next;
+			switch(select("Leave it as it is.:Insert a Blue Gemstone.:Insert a Yellow Gemstone.:Insert a Red Gemstone.")) {
+			case 1:
+				mes "^3355FFYou left the eye socket as it was.^000000";
+				next;
+				break;
+			case 2:
+				set .@insert2,717;
 				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.";
+				set .@insert2,715;
+				break;
+			case 4:
+				set .@insert2,716;
+				break;
+			}
+			if (.@insert2) {
+				if (countitem(.@insert2) > 0) {
+					mes "^3355FFYou inserted a "+getitemname(.@insert2)+"";
+					mes "into the eye socket.^000000";
+					next;
+					mes "^3355FFThe gemstone rolled back out of";
+					mes "the mouth of the skull.^000000";
+					if (.@insert2 == .@insert) {
+						set .@skulldoor,.@skulldoor+1;
+					}
+					else {
+						set .@skulldoor,.@skulldoor+2;
+					}
+					delitem .@insert2,1;
+					getitem .@insert2,1;
+					next;
 				}
 				else {
-					set .@need,994;
-					set .@gain,990;
+					mes "^3355FFYou forgot to carry "+getitemname(.@insert2)+"";
+					mes "with you. So you couldn't do what you";
+					mes "had intended.^000000";
+					next;
+				}
+			}
+			mes "^3355FF..............................^000000";
+			next;
+			mes "^3355FF..............................";
+			mes "..............................^000000";
+			next;
+			mes "^3355FF..............................";
+			mes "..............................";
+			mes "..............................^000000";
+			next;
+			switch(.@skulldoor) {
+			case 3:
+				if (rand(1,4) != 1) {
+					set .@skullopen,1;
 				}
 				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.";
+			case 2:
+				if (rand(1,2) == 2) {
+					set .@skullopen,1;
 				}
-				else {
-					set .@need,996;
-					set .@gain,992;
+				break;
+			case 1:
+				if (rand(1,4) == 1) {
+					set .@skullopen,1;
 				}
 				break;
+			default:
+				break;
+			}
+			if (.@skullopen == 0) {
+				mes "^3355FFNothing happened.";
+				mes "You have the feeling that the";
+				mes "skull is grinning at you. But...";
+				mes "It's probably just a trick of the light.^000000";
+				close;
+			}
+			else {
+				mes "^3355FFSuddenly, a clicking sound comes";
+				mes "from the skull's eye sockets and";
+				mes "the door opens. Before you know";
+				mes "it, you walk inside as if guided";
+				mes "by an unseen force...^000000";
+				close2;
+				warp "um_in",32,71;
+				end;
+			}
 		}
+		mes "^3355FFYou decided to pass by the door.";
+		mes "It looks like it might be too hard to open.^000000";
+		close;
+	}
+}
+
+
+//============================================================ 
+// Umbala Domestic Dispute
+//============================================================ 
+um_in,139,48,5	script	Phrenetan	783,{
+	if (event_umbala >= 3) {
+		mes "[Phrenetan]";
+		mes "I am so sick and tired of";
+		mes "my husband!! It's like he";
+		mes "flirts with every girl";
+		mes "in the village!";
+		next;
+		mes "[Phrenetan]";
+		mes "If I see him flirting with";
+		mes "women again...I swear...";
+		mes "I will show him hell!!";
+		close;
+	}
+	if (BaseJob == Job_Novice && Upper != 2) {
+		mes "[Phrenetan]";
+		mes "Umba~ umbaumbah!";
+		mes "Umbah woomumum!";
+		mes "Umbah woomum umbabah!";
+		close;
+	}
+	if (um_wind <= 3 && (MISC_QUEST & 32768) == 0) {
+		if (um_wind) set um_wind,1;
+		emotion e_an;
+		mes "[Phrenetan]";
+		mes "Umbaumbah wooga wooga";
+		mes "Umbaumbabah babababah!";
+		mes "Umbaum!";
+		next;
+		emotion e_oh;
+		mes "[Phrenetan]";
+		mes "Umbah umbaumba umbah";
+		mes "Umbabababah wooga woo!";
+		mes "Wooga wooga umbabah umbaum!";
+		next;
+		emotion e_go;
+		close;
+	}
+	else if (um_wind == 6 || MISC_QUEST & 32768) {
+		emotion e_an;
+		mes "[Phrenetan]";
+		mes "Umbabah! Umbaumbah.....";
+		mes "Umbaum Umbaum Wooga wooga!";
+		mes "Wooga umumum woombababap!!!!!";
 		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.";
+		emotion e_swt;
+		close;
+	}
+	end;
+
+OnEmoteOmg:
+	emotion e_omg;
+	end;
+
+OnEmoteRock:
+	emotion e_rock;
+	end;
+}
+
+um_in,144,45,5	script	Umpokoriohtan	789,{
+	if (event_umbala >= 3) {
+		if(rand(1,3) == 2) {
+			mes "[Umpokoriohtan]";
+			mes "Hey there, cool cat.";
+			mes "Don't mind the wife...";
+			mes "Much as I love her,";
+			mes "I know my obligations, ya dig?";
+			next;
+			mes "[Umpokoriohtan]";
+			mes "If a man's got plenty, he's";
+			mes "got to share it with those";
+			mes "that got nothing to give.";
+			next;
+			mes "[Umpokoriohtan]";
+			mes "If a man's hands are good";
+			mes "at healin', he's got to use";
+			mes "those hands to help folks live.";
+			next;
+			mes "[Umpokoriohtan]";
+			mes "If a man's lips be good at";
+			mes "singin', he's got to croon the";
+			mes "songs we like to hear so much.";
+			next;
+			mes "[Umpokoriohtan]";
+			mes "But if sweet lovin' is golden,";
+			mes "then baby...I got the Midas touch.";
+			next;
+			mes "[Umpokoriohtan]";
+			mes "Ooh...!";
+			mes "...........";
+			mes "My back--!";
+			mes "Simmer down, baby, your turn is comin' in a minute~";
+			donpcevent "Phrenetan::OnEmoteRock";
+			emotion e_swt;
 			close;
 		}
-		mes "[Putsuchiritan]";
-		mes "Also, my power is strong";
-		mes "enough to break more than";
-		mes "stone at once. How many of";
-		mes "them would you like me to";
-		mes "work on? Yet, I don't intend";
-		mes "to work on more than 10.";
-		next;
-		input .@want;
-		if(.@want <= 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.";
+		else {
+			mes "[Umpokoriohtan]";
+			mes "Man...sometimes my wife can";
+			mes "be a lil' too rough, maybe";
+			mes "even hurtful. But that's cool...";
+			mes "it just means she's got fire.";
+			next;
+			mes "[Umpokoriohtan]";
+			mes "But someday, she'll have to";
+			mes "learn that I gots to share";
+			mes "this heart of mine with the ladies";
+			mes "who really need a dose of vitamin";
+			mes "lovin', ya dig? It's my obligation.";
+			next;
+			mes "[Umpokoriohtan]";
+			mes "Wainatan, Bertztan, Chabimatan...";
+			mes "Those pretty girls been waitin'";
+			mes "toooooo long. Don't worry,";
+			mes "big daddy's comin' soon.";
+			next;
+			mes "[Umpokoriohtan]";
+			mes "OOOH~! Phrenetan!";
+			mes "Baby, why you gotta be rough?";
+			mes "Hit me gently, ya dig??";
+			mes "I don't mean to hurt you~";
+			donpcevent "Phrenetan::OnEmoteOmg";
+			emotion e_wah;
 			close;
 		}
-		if(.@want > 10)
-		{
-			mes "[Putsuchiritan]";
-			mes "I'm not responsible of what";
-			mes "can happen if I work on";
-			mes "more than 10 stones at once.";
-			mes "I don't even want to try.";
+	}
+	emotion e_heh;
+	mes "[Umpokoriohtan]";
+	mes "Umbaumbah...........";
+	mes "Umbahwooga woogawoo!";
+	mes "Umbah umumbabah umbawoo gaga.";
+	next;
+	emotion e_an;
+	close;
+
+OnInit:
+	disablenpc "Umpokoriohtan";
+	end;
+}
+
+um_in,101,73,3	script	Wainatan	783,{
+	if (event_umbala >= 3) {
+		mes "[Wainatan]";
+		mes "I am sick and tired of this guy";
+		mes "who always appears at night and bugs the hell out of me...";
+		next;
+		mes "[Wainatan]";
+		mes "'Smooth operator that gets the";
+		mes "job done?' Oh my god...!";
+		mes "I hate him with a passion!";
+		mes "I wish Umpokoriohtan would";
+		mes "just drop dead.";
+		close;
+	}
+	if (um_wind == 1) {
+		if (gettime(3) > 18) {
+			set um_wind,2;
+			emotion e_an;
+			mes "[Wainatan]";
+			mes "Umbaumbah umgagaga.";
+			mes "Umbaumbawoogawoo gababah.";
+			mes "Umbahumbabah gawoo.";
+			next;
+			emotion e_oh;
+			mes "[Wainatan]";
+			mes "Wooga wooga woogagagah";
+			mes "Wogagagah woogagagah";
+			mes "Gawoo gawoo gah.";
 			close;
 		}
-		if(countitem(.@need) < .@want)
-		{
-			mes "[Putsuchiritan]";
-			mes "I can't dismantle something";
-			mes "that doesn't even exist. Please";
-			mes "come back when you'll have the";
-			mes "number of stones you want me to";
-			mes "break.";
+		else {
+			mes "[Wainatan]";
+			mes "Umbabah! Umbaumbah wooga";
+			mes "Woogawooga umbawooga umum.";
+			mes "Umbabababababababababah.";
 			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.";
-		if(.@want > 1)
-		{
-			next;
-			mes "[Putsuchiritan]";
-			mes "Choose well your number.";
-			mes "It will affect my potential";
-			mes "and your spirit for all the";
-			mes "stones at once.";
+	}
+	else {
+		mes "[Wainatan]";
+		mes "Umbaumbah umbaumbah umbah";
+		mes "Wooga wooga woogawooga wooga";
+		mes "Umumumum umumumum umum.";
+		close;
+	}
+}
+
+um_in,94,123,5	script	Bertztan	783,{
+	if (event_umbala >= 3) {
+		mes "[Bertztan]";
+		mes "...*Sigh* That sicko";
+		mes "Umpo-whatever! I told him";
+		mes "I don't like him, but he";
+		mes "just doesn't listen!";
+		mes "I wish...I wish he would";
+		mes "just disappear!";
+		close;
+	}
+	if (um_wind == 2) {
+		if (gettime(3) > 18) {
+			set um_wind,3;
+			emotion e_an;
+			mes "[Bertztan]";
+			mes "Umbaumbah umgagaga.";
+			mes "Umbaumbawoogawoo gababah.";
+			mes "Umbahumbabah gawoo.";
+			next;
+			emotion e_oh;
+			mes "[Bertztan]";
+			mes "Wooga umbar umbar umbah!";
+			mes "Umbar woogagaga woo! Woo! Woo!";
+			mes "Wooga~ wooga~ Woo woo woo umbar.";
+			close;
 		}
-		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;
+		else {
+			mes "[Bertztan]";
+			mes "Umbar woogaumbarumbah um!";
+			mes "Um~ wooga wooga umbarum.";
+			mes "Umbah...wooum.";
+			close;
 		}
-L_Dismantle:
-		set .@num,rand(1,10);	//official amount chance
-		if(.@num == 1)
-			set .@num,10;
-		else if(.@num == 2 || .@num == 3)
-			set .@num,8;
-		else if(.@num < 7)
-			set .@num,7;
-		else
-			set .@num,6;
-		set .@want,.@want -1;
-		set .@result,.@result + .@num;
-		set .@delete,.@delete +1;
-		if(.@want) goto L_Dismantle;
-		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!";
+	}
+	else {
+		mes "[Bertztan]";
+		mes "Umbar wooga umbar umbah um!";
+		mes "Um~ woogawooga umbar um.";
+		mes "Umbah...wooum.";
+		close;
+	}
+}
+
+umbala,145,217,3	script	Chabimatan	783,{
+	if (event_umbala >= 3) {
+		mes "[Chabimatan]";
+		mes "...*Sigh* Umpokoriohtan seems";
+		mes "to be married. I have no";
+		mes "idea why he still flirts";
+		mes "with other women. Maybe he's";
+		mes "not very mature, or he's";
+		mes "irresponsible...";
 		next;
-		mes "[Putsuchiritan]";
-		if(countitem(.@need)<.@delete){
-			mes "You're An Amba HacK0R!";
-			mes "I'm clearing your mind!";
-			//we reset the whole quest for the hacker			
-			set event_umbala,0;
-			emotion e_swt,1;
+		mes "[Chabimatan]";
+		mes "Well, whatever he is,";
+		mes "he's certainly not";
+		mes "romantic. Those pick-up";
+		mes "lines of his could";
+		mes "some work, maybe";
+		mes "even some clean up.";
+		close;
+	}
+	if (um_wind == 3) {
+		if (gettime(3) > 18) {
+			set um_wind,4;
+			emotion e_an;
+			mes "[Chabimatan]";
+			mes "Umbabah umbarbar woogawooga um";
+			mes "Umbabah umbarbar woogawooga umbah";
+			mes "Umumum! Wooga!";
+			next;
+			emotion e_oh;
+			mes "[Chabimatan]";
+			mes "Umbabah~~~~~~~";
+			mes "Woogawooga umbar umbar woo!";
+			mes "Wooga umbar woogawoogagah.";
+			enablenpc "Umpokoriohtan";
+			enablenpc "#!@#$%";
 			close;
 		}
-		if(checkweight(.@gain,.@result) != 1)
-		{
-			mes "You are overweight.";
-			mes "Please clear your inventory";
-			mes "or make some empty slots.";
+		else {
+			mes "[Chabimatan]";
+			mes "Umbabah~~~~~~~";
+			mes "Woogawooga umbar umbar woo";
+			mes "woo woo! Nook nook~";
+			mes "Wooga umbar wooga umbar";
+			mes "wooga woogagah.";
 			close;
 		}
-		delitem .@need,.@delete;
-		getitem .@gain,.@result;
-		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.";
+	}
+	else {
+		mes "[Chabimatan]";
+		mes "Umbabah~~~~~~~";
+		mes "Woogawooga umbar umbar";
+		mes "woo woo woo nook nook.";
+		mes "Wooga umbar wooga umbar";
+		mes "wooga woogagah.";
 		close;
 	}
 }
+
+um_in,141,46,0	script	#!@#$%	-1,8,8,{
+OnInit:
+	disablenpc "#!@#$%";
+	end;
+
+OnTouch:
+	if (um_wind == 4) {
+		set um_wind,5;
+		mes "^3355FFAs you enter the house";
+		mes "you happen to witness";
+		mes "Phrenetan beating a guy";
+		mes "mercilessly.^000000";
+		next;
+		emotion e_an;
+		mes "[Phrenetan]";
+		mes "Umbaumbaumbaumbah!";
+		mes "Umbaumbahumbah!!";
+		mes "Umbaumbahumbah!!!!!!";
+		next;
+		mes "^3355FFYou were kicked out of the house";
+		mes "by Phrenetan.^000000";
+		next;
+		enablenpc "#unpc";
+		disablenpc "#!@#$%";
+		warp "umbala",94,181;
+	}
+	end;
+}
+
+umbala,94,181,0	script	#unpc	-1,1,1,{
+OnInit:
+	disablenpc "#unpc";
+	end;
+
+OnTouch:
+	if (um_wind == 5) {
+		mes "^3355FFAs you realized what happened";
+		mes "after being kicked out of the";
+		mes "house, you see a leaf on the";
+		mes "ground near where you're standing.^000000";
+		next;
+		if (select("Take it.:Leave it.") == 1) {
+			close2;
+			set um_wind,0;
+			set MISC_QUEST,MISC_QUEST | 32768;
+			getitem 610,1; //Leaf_Of_Yggdrasil
+			disablenpc "#unpc";
+			end;
+		}
+		set um_wind,0;
+		set MISC_QUEST,MISC_QUEST | 32768;
+		mes "[" + strcharinfo(0) + "]";
+		mes "I am not supposed to take";
+		mes "what may belong to other people.";
+		next;
+		mes "[" + strcharinfo(0) + "]";
+		mes "Yeah, I'm a such good person.";
+		close2;
+		disablenpc "#unpc";
+	}
+	end;
+}