//===== eAthena Script ======================================= 
//= Quest NPCs related to Comodo
//===== By: ================================================== 
//= kobra_k88
//===== Current Version: ===================================== 
//= 1.2
//===== Compatible With: ===================================== 
//= eAthena 7.15 +
//===== Description: ========================================= 
//= 'Cross Hat', 'Bulb Hairband', 'Striped Hairband', 'Blue Hairband' Quests.
//= 'Mine Helmet', 'Parcel Hat', 'Money Loser's Grief',
//= 'Phantom of the Opera Mask', 'Doomed Sword' (parts 1,2,3), Quests.
//===== Additional Comments: ================================= 
//= 1.1 Fixed exploits [Lupus]
//= 1.2 Added more quest from cities/comodo.txt [Evera]
//============================================================ 



//============================================================================================//
// 					Hair Ornament Girl 
//============================================================================================//
// Cross Hat, Bulb Hairband, Striped Hairband, Blue Hairband
//==================================================
comodo.gat,227,158,4	script	Hair Ornament Girl	700,{
	mes "[Hair Ornament Girl]";
	if(sex==1)mes "Oh, hi.  Do you need to buy a present for a friend, your mother, or maybe your girl friend? Then get her a Hair Band! It's the best gift you can get her.";
	if(sex==0)mes "Oh, hi.  Do you need to buy a present for a friend, your mother, or maybe yourself? Then get a Hair Band! It's the best gift you can give, or get.";
	next;
	mes "[Hair Ornament Girl]";
	mes "Just by bringing me a few simple items, I can make you a gorgeous Hair Band!  Here, take a look at these....";
M_Menu:
	next;
	menu "-Cross Hat Hairband",-, "-Bulb Hairband",M_Bulb, "-Striped Hairband",M_Striped, "-Blue Hairband",M_Blue, "-End Conversation",M_End;

		set @BAND$, "Cross Hat Hairband";
		set @ITEMS$, " ^5555FF1 Rosary^000000 and ^5555FF500 Destroyed Armors^000000.";
		if(countitem(2608)>=1 && countitem(7069)>=500) set @GETBAND, 1;
		goto sL_0;

	M_Bulb:
		set @BAND$, "Bulb Hairband";
		set @ITEMS$, "^5555FF1 Slotted Circlet^000000 and ^5555FF20 Glass Beads^000000.";
		if(countitem(2233)>=1 && countitem(746)>=20) set @GETBAND, 2;
		goto sL_0;

	M_Striped:
		set @BAND$, "Striped Hairband";
		set @ITEMS$, "^5555FF1500 Worn-out Prison Uniforms^000000.";
		if(countitem(1099)>=1500) set @GETBAND, 3;
		goto sL_0;

	M_Blue:
		set @BAND$, "Blue Hairband";
		set @ITEMS$, "^5555FF1 Bandana^000000, ^5555FF1 Cobaltblue Dyestuffs^000000, and ^5555FF300 Anolian Skins^000000.";
		if(countitem(2211)>=1 && countitem(978)>=1 && countitem(7003)>=300) set @GETBAND, 4;

		sL_0:
			mes "[Hair Ornament Girl]";
			mes "So you're interested in the "+@BAND$+" huh? Here are the items you'll need for the "+@BAND$+":";
			mes @ITEMS$;
			next;
			if(@GETBAND > 0) goto sL_GetBand;

			mes "[Hair Ornament Girl]";
			mes "Bring me all of these items and I will be able to make you a "+@BAND$+".";
			goto M_Menu;

		sL_GetBand:
			mes "[Hair Ornament Girl]";
			mes "I see that you have enough items for a "+@BAND$+".  Would you like me to make you one?";
			next;
			menu "Yes, I would.",-, "No thank you.",M_End;

				if(@GETBAND == 1) goto ssL_Cross;
				if(@GETBAND == 2) goto ssL_Bulb;
				if(@GETBAND == 3) goto ssL_Striped;
				if(@GETBAND == 4) goto ssL_Blue;

				ssL_Cross:
					if(countitem(2608)<1 || countitem(7069)<500) goto L_Cheater;
					delitem 2608,1;
					delitem 7069,500;
					getitem  5036,1;
					goto ssL_End;
				ssL_Bulb:
					if(countitem(2233)<1 || countitem(746)<20) goto L_Cheater;
					delitem 2233,1;
					delitem 746,20;
					getitem 5034,1;
					goto ssL_End;
				ssL_Striped:
					if(countitem(1099)<1500) goto L_Cheater;
					delitem 1099,1500;
					getitem 5049,1;
					goto ssL_End;
				ssL_Blue:
					if(countitem(2211)<1 || countitem(978)<1 || countitem(7003)<300) goto L_Cheater;
					delitem 2211,1;
					delitem 978,1;
					delitem 7003,300;
					getitem 5052,1;
				ssL_End:
					mes "[Hair Ornament Girl]";
					mes "Here is your "+@BAND$+".  Thank you.";
					set @GETBAND, 0;
					close;
	L_Cheater:
		mes "[Hair Ornament Girl]";
		mes "Ooops... Where are these items?";
		close;

	M_End:
		mes "[Hair Ornament Girl]";
		mes "Hope to see you again soon.";
		close;
}


//===================================================================================================//
//						Mari Isac
//===================================================================================================//
// 'Mine Helmet', 'Parcel Hat', 'Money Loser's Grief', 'Phantom of the Opera Mask'
//===============================================================//
comodo.gat,274,137,5	script	Mari Isac	702,{
	mes "[Mari Isac]";
	mes "I travel all over the world and get to hear many interesting stories from the people I meet.";
	mes "Sometimes they even teach me how to make special items";
	next;
	mes "[Mari Isac]";
	mes "Would you be interested in some of the items I've learned to make?";
M_Menu:
	next;
	menu "Tell me about them.",M_0, "Make me one.",M_1;

	M_0:
		menu "-Mine Helmet",-, "-Parcel Hat",sM_Parcel, "-Money Loser's Grief",sM_Money, "-Phantom of the Opera Mask",sM_Phantom;

			mes "[Mari Isac]";
			mes "I learned how to make the Mine Helmet when I traveled to the old coal mines near Geffen.";
			next;
			mes "[Mari Isac]";
			mes "The 2 most important things a miner needs are light, and head protection.";
			mes "A very inventive miner was able to create something that dealt with both issues.";
			next;
			mes "[Mari Isac]";
			mes "He attached a light to his safety helmet and called it a Mine Helmet.";
			mes "This meant that miners no longer had to worry about carrying around lamps and could work more efficiently.";
			next;
			mes "[Mari Isac]";
			mes "Anyways, if you want me to make you a Mine Helmet you'll need to bring me these items:";
			mes "^5555FF1 Safety Helmet^000000,";
			mes "^5555FF1 Candle^000000,";
			mes "^5555FF1 Crystal Mirror^000000,";
			mes "^5555FF25 Steel^000000.";
			next;
			goto M_0;
		sM_Parcel:
			mes "[Mari Isac]";
			mes "I learned how to make the Parcel Hat when I traveled to Alberta.  There they have a unique way of distributing mail and goods.";
			next;
			mes "[Mari Isac]";
			mes "Instead of using a pouch or a sack to carry items for delivery, they use a special kind of hat, called a Parcel Hat.";
			mes "This hat allows the delivery personel to carry numerous items on their heads.  Of course they have to have good balance to use it.";
			next;
			mes "[Mari Isac]";
			mes "Anyways, if you want me to make you a Parcel Hat, you'll need to bring me these items.";
			mes "^5555FF150 Fabric^000000,";
			mes "^5555FF100 Resin^000000,";
			mes "^5555FF1 Cobaltblue Dyestuffs^000000.";
			next;
			goto M_0;
		sM_Money:
			mes "[Mari Isac]";
			mes "I learned how to make the Money Loser's Grief when I traveled to Morroc.";
			next;
			mes "[Mari Isac]";
			mes "A long time ago an honest merchant got into a conflict with a crooked guild.";
			mes "Unlike the dirty guild, the merchant did not scam or cheat people.";
			next;
			mes "[Mari Isac]";
			mes "Because of this they attacked the merchants shop and took all of his goods.";
			next;
			mes "[Mari Isac]";
			mes "The merchant was devastated by the loss of his shop.";
			mes "In his sadness he used the bits and pieces that were left from his shop to create a new item.";
			next;
			mes "[Mari Isac]";
			mes "He created the Money Loser's Grief, a symbol of his great sadness.  When people see it, they can't help but feel sympathetic to the wearer.";
			next;
			mes "[Mari Isac]";
			mes "Many merchants now wear it to help themselves get more business.  Of course it is also a reminder of the honest merchants sad tale.";
			next;
			mes "[Mari Isac]";
			mes "Anyways, if you want me to make you a Money Losers Grief, you'll need to bring me these items.";
			mes "^5555FF1 Circlet with a single slott^000000,";
			mes "^5555FF1 Gold^000000,";
			mes "^5555FF20 Steel^000000,";
			mes "^5555FF80 Feathers^000000,";
			mes "^5555FF800 Sticky Mucus^000000.";
			next;
			goto M_0;
		sM_Phantom:
			mes "[Mari Isac]";
			mes "I learned how to make the Phantom of the Opera Mask when I traveled to Al De Baran.";
			mes "The story behind this item is that of a man's pure love........";
			next;
			mes "[Mari Isac]";
			mes "There once was a man who was in love with a beautiful opera singer.";	
			mes "Unfortunately the man had a terribly disfigured face which forced to him to wear a mask.";
			next;
			mes "[Mari Isac]";
			mes "He was ashamed of his appearance and could never bring himself to face the singer.";
			mes "The man instead, watched her from a far, admiring every nuance of her beauty and grace.";
			next;
			mes "[Mari Isac]";
			mes "He lurked in the bowles of the opera house and from time to time he would sing his sad love song.";
			mes "Many people heard it and believed that there was a phantom haunting the opera house.";
			next;
			mes "[Mari Isac]";
			mes "The singer also heard his song, and through it she was able to feel his pain and his love for her.";
			mes "The two eventually met, and when they did she was able to look past his appereance and accept him for who he was.";
			next;
			mes "[Mari Isac]";
			mes "Too this day, the tale of the masked 'phantom' is still romantacised.";
			next;
			mes "[Mari Isac]";
			mes "Anyways, if you want me to make you a Phantom of the Opera Mask, you'll need to bring me these items.";
			mes "^5555FF1 Opera Masque^000000,";
			mes "^5555FF50 Horrendous Hairs^000000.";
			goto M_0;

	M_1:
		menu "-Mine Helmet",-, "-Parcel Hat",sM_MakePar, "-Money Loser's Grief",sM_MakeMon, "-Phantom of the Opera Mask",sM_MakePhan;

			if(countitem(5009)<1 || countitem(5028)<1 || countitem(747)<1 || countitem(999)<25) goto ssL_NoItems;
			delitem 5009, 1;
			delitem 5028, 1;
			delitem 747, 1;
			delitem 999, 25;
			mes "[Mari Isac]";
			mes "Here you go.  Enjoy your Mine Helmet!";
			getitem 5031,1;
			close;
		sM_MakePar:
			if(countitem(1059)<150 || countitem(907)<100 || countitem(978)<1) goto ssL_NoItems;
			delitem 1059, 150;
			delitem 907, 100;
			delitem 978, 1;
			mes "[Mari Isac]";
			mes "Here you go.  Enjoy your Parcel Hat!";
			getitem 5023,1;
			close;
		sM_MakeMon:
			if(countitem(2233)<1 || countitem(969)<1 || countitem(999)<20 || countitem(949)<80 || countitem(938)<800) goto ssL_NoItems;
			delitem 2233, 1;
			delitem 969, 1;
			delitem 999, 20;
			delitem 949, 80;
			delitem 938, 800;
			mes "[Mari Isac]";
			mes "Here you go.  Enjoy your Money Loser's Grief!";
			getitem 5021,1;
			close;
		sM_MakePhan:
			if(countitem(2281)<1 || countitem(1048)<50) goto ssL_NoItems; 
			delitem 2281,1;
			delitem 1048, 50;
			mes "[Mari Isac]";
			mes "Here you go.  Enjoy your Phantom of the Opera Mask!";
			getitem 5043, 1;
			close;

		ssL_NoItems:
			mes "[Mari Isac]";
			mes "You don't seem to have enough items for me to make that hat.  Please come back when you do.";
			close;
}

//============================================================================//
//			Chief Quest (Doomed Swords Part 1)
//============================================================================//
//=======================================================
comodo.gat,206,310,4	script	Rochito	48,{
	if(dmdswrd_Q == 1) goto L_1;
	if(dmdswrd_Q == 2) goto L_2;
	if(dmdswrd_Q == 3) goto sL_2;
	if(dmdswrd_Q == 4) goto L_3;
	if(dmdswrd_Q == 5 || dmdswrd_Q == 6) goto sL_3;
L_0:
	mes "[Rochito]";
	mes "Meat, meat, meat... I LOVE MEAT!! Eat, eat, eat... ALL I eat is MEAT!! I'm sooo obsessed with meat..... I'm... I.. I... I'm a MEAT MAN!!";
	emotion e_lv;
	next;
	mes "[Rochito]";
	mes "Comodo is meat heaven!! That's why BBQ camping in Comodo is sooooo AWESOME!!!"; 
	next;
	menu "Tell me more about BBQ Camping.",M_0, "End Conversation.",M_End;

	M_0:
		mes "[Rochito]";
		mes "The Komodoru, a native animal of Comodo, is famous because of it's delicious meat.  Every part of the animal is tasty.";
		mes "However the tastiest part of the Komodoru, is the area around the spine.  It's number one!";
		emotion e_no1;
		next;
		mes "[Rochito]";
		mes "Look at all of this meat in front of me! I don't know what to do with all of this meat! What should I do?? Oh no!...";
		emotion e_swt2;
		next;
		mes "[Rochito]";
		mes "Oh, I almost forgot!! You must try this Komodoru spine meat with Comodo's authentic BBQ seasoning.";
		mes "^5555FFKoserahserah^000000 is the name of the seasoning, and you should at least try it once before you leave.";
		next;
		mes "[Rochito]";
		mes "There is a rumor going around this camp ground that Koserahserah is soooo good that it might be addictive.";
		mes "It's possible that it may even cause a slight euphoria in those who try it.";
		next;
		mes "[Rochito]";
		mes "I'm not sure if that's true, but I do not that the seasoning is not allowed to be exported outside of Comodo.";
		mes "Luckily I'm a resident here so I can have as much as I want.";
		next;
		mes "[Rochito]";
		mes "Still, the authorities are worried about how Koserahserah should be regulated.";
		mes "The ^5555FFChief of Comodo^000000 is currently working on a some guidelines for it.";
		if(dmdswrd_Q == 0) set dmdswrd_Q, 1;
		close;
	M_End:
		close;

L_1:
	mes "[Rochito]";
	mes "This Komodoru spine meat is delicious when seasoned with ^5555FFKoserahseah^000000, a local flavoring that is the pride of Comodo!!";
	mes "Would you like to try some?";
	next;
	mes "[Rochito]";
	mes "Oh, are you looking for the ^5555FFChief's^000000 house? Just go west of this camp ground to the village.  You'll find his house there.";
	close;

L_2:
	mes "[Rochito]";
	mes "We have a lot of time left on our vacation and I think we should spend the rest of it here, enjoying the Komodoru meat.";
	next;
	mes "[Rochito]";
	mes "In fact, we should just keep on having BBQ parties!";
	next;
	mes "^5533FF~ gave Rochito the Koserahserah ~^000000";
	next;
	mes "[Rochito]";
	mes "Oh my!! This is the special Comodo seasoning.... Koserahserah!! How did you manage to get this precious delicacy?";
	emotion e_gasp;
	next;
	mes "[Rochito]";
	mes "Oh... I see, I see.  So it was given to you by my long time friend.  Well, thank you so much.... thank you...";
	emotion e_thx;
	next;
	mes "[Rochito]";
	mes "Hey everybody! Tausupa has sent us some Koserahserah seasoning!!";
	next;
	mes "[Emralhandas]";
	mes "Our old friend?";
	next;
	mes "[Rochito]";
	mes "I don't know if we should take such a great gift....";
	next;
	mes "[Rockha]";
	mes ".........................";
 	next;
	mes "[Rochito]";
	mes "We should give him something in return as a thank you.  But what can we give him?...";
	mes "should we give him that wonderful ^5555FFWine^000000 we've been saving? It has a very nice aroma....";
	next;
	mes "[Rochito]";
	mes "May I ask a favor of you? If it is not too much trouble, would you take this to our dear friend.....";
	mes "I would deliver this in person but I'm a little busy with the BBQ and all.....";
	next;
	mes "[Rochito]";
	mes "Please.  We would be very grateful if you could give this to him.";
	next;
	mes "^5555FF~ received 'Mureuchieligu Wine' ~^000000";
	set dmdswrd_Q, 3;
	close;

	sL_2:
		mes "[Rochito]";
		mes "Please do us a favor and deliver the wine to the chief.  We would be very happy if you did.";
		close;

L_3:
	mes "[Rochito]";
	mes "You've returned..... Oh! Thank you for the delivering the wine for us.";
	emotion e_thx;
	set dmdswrd_Q, 5;
	next;

	sL_3:
		mes "[Rochito]";
		mes "We are very proud of our courageous friend.  It is because of him that we can live peacefully and travel safely.";
		next;
		mes "[Rochito]";
		mes "Oh, I just remembered something....";
		mes "We've been talking about Comodo's famous meat all this time, and I didn't even mention Comodo's world famous ^5555FFCheese^000000!";
		next;
		mes "[Rochito]";
		mes "I believe there is a cheese expert named ^5533FFTORUNA^000000 somewhere on this island.";
		mes "If your interested in the cheese you should go ask him about it.";
		if(dmdswrd_Q == 5) set dmdswrd_Q, 6;
		close;

	
}

//=======================================================
comodo.gat,204,310,4	script	Rockha	98,{
	if(dmdswrd_Q == 3) goto L_1;
	if(dmdswrd_Q == 4 || dmdswrd_Q==5) goto L_2;
L_0:
	mes "[Rockha]";
	mes ". . . . . . . . . .";
	mes "My friends and I always wanted to have our BBQ eat out.....";
	mes ". . . . . . . . . .";
	next;
	menu "About the ^3355FFChief^000000.",M_0, "End Conversation.",M_End;

	M_0:
		mes "[Rockha]";
		mes "Yeah... I recently discovered that a friend I thought I lost during the ^FF4444'War with the Witch'^000000, is still alive.";
		mes "Now he's the ^5555FFChief of Comodo^000000....";
		next;
		mes "[Rockha]";
		mes "At the end of the war the witch was defeated and sealed in the ground beneath this village.";
		next;
		mes "[Rockha]";
		mes "It is rumored that the seasonings we get from our local plants somehow receive their unique qualities from the Witch's magical influence.";
		next;
		mes "[Rockha]";
		mes "Although my friend and I now live in different worlds, his new life hasn't changed him.";
		mes "Thankfully we can still be friends after all that's happened.";
		close;

L_1:
	mes "[Rockha]";
	mes "Oh, and by the way.... Could you give him this message as well?";
	mes "Tell him, 'For as long as you have remembered us, we will not forget you.  Friends forever.'.....";
	close;

L_2:
	mes "[Rockha]";
	mes "Ha ha ha..... aaaahhh.... THIS is FRIENDSHIP!!";
	emotion e_heh;
	next;
	mes "[Rockha]";
	mes "Let us take a moment to make a toast to our good friend.  Let us eat and drink until we can eat no more!!";
	next;
	mes "[Rockha]";
	mes "~!!Yippeeeeee!!~!!Wooohooooo!!~";
	close;
	mes "[Rockha]";
	mes "Thank you for your assistance.  You have shown us that you are truly a good person.  We now consider you as a friend.";
	next;
	mes "[Rockha]";
	mes "If you ever need any help, just come and look for me, ^3355FF'Rockha'^000000.  We are forever in your debt.";
	close;
}

//=======================================================
comodo.gat,209,314,4	script	Rotute	82,{
	if(dmdswrd_Q==2 || dmdswrd_Q==3) goto L_1;
	if(dmdswrd_Q == 4 || dmdswrd_Q==5) goto L_2;

L_0:
	mes "[Rotute]";
	mes "The quest for the ^5555FFSwords of Power^000000 has not yet been completed!";
	next;
	mes "[Rotute]";
	mes "Although four of the swords have been recovered by our team, there are rumors of a more powerful sword near ^5555FFGlastheim^000000.";
	mes "This has brought us yet another challenge.....";
	next;
	mes "[Rotute]";
	mes "We must find this new sword!! A new expedition has been planned to find this sword but I feel very anxious.";
	mes "If we succeed this will affect the whole world!! For my deceased father.....";
	next;
	mes "[Rotute]";
	mes "...... We MUST SUCCEED!!!!";
	emotion e_go;
	close;

L_1:
	mes "[Rotute]";
	mes "Wow!! This is Comodo's famous seasoning!! The Captain's friend is truly a good person.  To be this generous is unbelievable!";
	emotion e_gasp;
	next;
	mes "[Rotute]";
	mes "I can only hope that I find a friend that is as loyal as he on this quest.....";
	close;

L_2:
	mes "[Rotute]";
	mes "It's strange.... this is only my first visit to Comodo and yet.... for some reason, it seems so familiar... like it's my home town.";
	next;
	mes "[Rotute]";
	mes "When this journey is over, I hope to visit this wonderful place again..... It feels like something is waiting for me here.";
	next;
	mes "[Rotute]";
	mes "Oh, and thanks so much for helping our captain.";
	emotion e_thx;
	close;
}

//=======================================================
comodo.gat,209,305,4	script	Emralhandas	70,{
	mes "[Emralhandas]";
	mes "Rockha, empty your glass so I can pour you a drink.";
	next;
	mes "[Emralhandas]";
	mes "Many years ago, during the War with the Witch, we dreamed of the day when we could live in peace.";
	mes "Today that dream has come true and it's all because of you my friends!!";
	emotion e_no1;
	next;
	menu "Ask about her friends....",M_0, "End Conversation",M_End;

	M_0:
		mes "[Emralhandas]";
		mes "Many years ago, heroes from every region of Rune Midgard were selected to embark upon a very unique and important quest.";
		next;
		mes "[Emralhandas]";
		mes "The goal was to find the ^5555FF4 rare 'Swords of Power'^000000!";
		mes "These 4 swords were said to be the most powerful weapons to have ever been made.";
		next;
		mes "[Emralhandas]";
		mes "After 10 hard years of searching, all 4 swords were found and brought together.";
		mes "Out of all of those who searched the swords, the four bravest were chosen to protect them.";
		next;
		mes "[Emralhandas]";
		mes "I, Emralhandas, was one of the four that were chosen.";
		next;
		mes "[Emralhandas]";
		mes "Of course there were many hardships that we had to endure before, and even after these swords were found........";
		next;
		mes "[Emralhandas]";
		mes "Our team of adventures consisted of myself, our ship's captain 'Rockha', our comrade 'Rochito', and the Chief of this town, 'Tausupa'.";
		next;
		mes "[Emralhandas]";
		mes "We had found the last sword and headed back to the island.  Up to this point we had not even thought about the weapon's owner.";
		mes "As we left we began to have a bad feeling about what was going to happen next.";
		next;
		mes "[Emralhandas]";
		mes "When we returned to the island, we were confronted by ^790079'Mariposum'^000000, a powerful Witch who practiced the dark art of EVIL magic!!";
		next;
		mes "[Emralhandas]";
		mes "Her goal was to take over the world and plunge into a dark chaos!! We had to defend not only ourselves, but the future of humanity!!";
		mes "So it was here that me made our stand against this terrible evil!";
		emotion e_gasp;
		next;
		mes "[Emralhandas]";
		mes "A tremendous battle took place and many of our comrades fell that day... but their efforts were not in vain.";
		next;
		mes "[Emralhandas]";
		mes "With bloodshed and fierce determination we were able to defeat the witch and imprison her beneath the earth.";
		next;
		mes "[Emralhandas]";
		mes "Of all of those who risked their lives that day, one stood out amongst the rest and became the deciding factor in the witch's defeat.....";
		next;
		mes "[Emralhandas]";
		mes "It was ^5555FFTausupa^000000.";
		next;
		mes "[Emralhandas]";
		mes "Of course we are great full to all the brave warriors who fought and lost their lives that day.";
		mes "Especially to 'Rotute's' father who cannot be with us today, may he rest in peace.";
		next;
		mes "[Emralhandas]";
		mes "Rotute does not know about this yet, but hopefully he will find out about his father's heroism before this quest is complete......";
		close;
	M_End:
		mes "[Emralhandas]";
		mes "Our quest has not yet been completed.  Rockha, we must eat all of the meat in Rune Midgard until there is none left!!";
		mes "We must eat and eat, for the pride of our Meat Club!!! (~hiccup~)";
		close;
}


// Chief's House =========================================================//
cmd_in02.gat,32,140,4	script	Chief Tausupa	49,{
	if(dmdswrd_Q == 1) goto L_1;
	if(dmdswrd_Q == 2) goto sL_1;
	if(dmdswrd_Q == 3) goto L_2;
	if(dmdswrd_Q == 4) goto sL_2;

L_0:
	mes "[Chief Tausupa]";
	mes "Hello, I am the Chief of Comodo.  You may call me Tausupa.  Comodo is a place of pleasure, enjoyment, love, and beauty.";
	mes "Welcome, and have a pleasant and relaxing stay here.";
	next;
	menu "Ask about the ^5555FFCasino^000000.",M_0, "Ask about the ^790079Evil Witch^000000.",M_1, "End Conversation.",M_End;

	M_0:
		mes "[Chief Tausupa]";
		mes "The Casino is one of the many notable sites in Comodo.  It would seem that you have some interest in it.";
		mes "The Casino uses it's own currency, a coin called the ^5555FF'Eulwo'^000000.";
		next;
		mes "[Chief Tausupa]";
		mes "There are a variety of games for you to enjoy there.";
		mes "The earnings you win can be used to purchase different items available only in the Casino.";
		next;
		mes "[Chief Tausupa]";
		mes "These earnings, which are in the form of Eulwo, cannot be exchanged for Zeny though.";
		close;
	M_1:
		mes "[Chief Tausupa]";
		mes ". . . . . . . . . .";
		mes "You must be from out of town.  I'm not sure where you heard about it, but that story is old and most people have forgotten about it.";
		mes "It's really not worth mentioning. . . . .  . . . . . . .";
		close;
	M_End:
		mes "[Chief Tausupa]";
		mes "If you haven't noticed, Comodo is located inside of a huge, natural, cave.  No matter what time of day it is, you'll never see the sunlight.";
		next;
		mes "[Chief Tausupa]";
		mes "It is this unique 24 hour nightlife that attracts so many tourist to our town.  Anyways, please enjoy your stay here.";
		close;

L_1:
	mes "[Tausupa]";
	mes "..... Is that so? My long time friends have come back to Comodo and are at the Camp Grounds enjoying the BBQ huh?.......";
	next;
	mes "[Tausupa]";
	mes "It would seem that they are planning another expedition........";
	next;
	mes "[Tausupa]";
	mes "I have not seen my friends in a long time and the sound of going on another adventure with them is very exciting.... however......";
	next;
	mes "[Tausupa]";
	mes "~sigh~ Unfortunately I will not be able to go with them.  I fear that if I leave, the evil witch will revive and wreak havoc on this world once again.";
	next;
	mes "[Tausupa]";
	mes "..... I have a favor I must ask of you.......";
	next;
	mes "[Tausupa]";
	mes "Can you take this special seasoning to my friends?";
	next;
	mes "^5555FF~ recieved Koserahserah ~^000000";
	set dmdswrd_Q, 2;
	next;

	sL_1:
		mes "[Chief Tausupa]";
		mes "Please take this seasoning to my friends at the BBQ camp grounds and give it to ^5555FFRochito^000000.  Thank you.";
		close;

L_2:
	mes "[Chief Tausupa]";
	mes "Were my friends happy? After you left, I had some time to think..... I should have delivered the seasoning personally......";
	mes "I should have gone to see them......";
	next;
	mes "[Chief Tausupa]";
	mes "But I am much too busy as the Chief of Comodo........ Maybe I should quit...........";
	mes "I really want to go on another quest with my good friends.... How did I end up like this?";
	next;
	mes "^5555FF~ you give him Mureuchieligu Wine and convey the message ~^000000";
	next;
	mes "[Chief Tausupa]";
	mes "..................";
	next;
	mes "[Chief Tausupa]";
	mes "That was a message from my friends? I think I understand now.... My friends are TRUE friends.  They have been thinking of me all this time........";
	next;
	mes "[Chief Tausupa]";
	mes "I have made up my mind!";
	emotion e_ic;
	next;
	mes "[Chief Tausupa]";
	mes "Mureuchieligu Wine is made as soon as the grapes are picked.  It is then bottled in the very same place and is left there to age.";
	mes "The wine spends the rest of its days aging in the same spot.";
	next;
	mes "[Chief Tausupa]";
	mes "Much like the wine, I have been aging away in the same place here in Comodo, and I must continue to stay here for it is my duty.";
	next;
	mes "[Chief Tausupa]";
	mes "I am thankful for my friends' advice.  The gift they gave me had a great deal of meaning.";
	mes "Please tell my friends this, 'I will not avoid my destiny.  On the contrary, I will fulfill it to the best of my ability'.";
	set dmdswrd_Q, 4;
	next;

	sL_2:
		mes "[Chief Tausupa]";
		mes "I would like to thank you for helping my friends and I.  I am truly great full.";
		close;
}



//============================================================================//
//			Cheese Quest (Doomed Swords Part 2)
//============================================================================//

//=======================================================
comodo.gat,88,97,4	script	Cheese Expert TORUNA	109,{
	if(dmdswrd_Q == 7) goto sL_2;
	mes "[TORUNA]";
	mes "I hear that the cheese here is delicious.  Every time I come here to visit, I ask for some of that popular cheese.";
	mes "But they always seem to be out!  If I could just get a taste of that cheese...........";
M_Menu:
	next;
	menu "Ask about the cave.",M_0, "Comodo is a town inside a cave?",M_1, "End Conversation.",M_End;

	M_0:
		mes "[TORUNA]";
		mes "It is a natural formation of limestone which was shaped by the erosive powers of fresh water with sea water.";
		next;
		mes "[TORUNA]";
		mes "The air and topsoil in the cave are rich in carbon-dioxide gas.";
		mes "This was caused by C02 gas leaking into the cave through cracks in the limestone over a period of many years.";
		next;
		mes "[TORUNA]";
		mes "Water from rainfall and ocean currents slowly eroded the limestone to carve out the cave.";
		next;
		mes "[TORUNA]";
		mes "Essentially a cave is formed when water finds cracks in some type of rock formation and erodes the rock to a point where a cave is formed.";
		mes "Of course this takes hundreds of years and a lot of water.";
		goto M_Menu;
	M_1:
		mes "[TORUNA]";
		mes "Yep.  What you see here is really the inside of a gigantic cave.";
		mes "Most people don't realize this at first, and that's thanks to all of the towns people's hard work and dedication.";
		next;
		mes "[TORUNA]";
		mes "The people who settled here were very industrious and worked diligently to turn this cave into a place that they could call home.";
		next;
		mes "[TORUNA]";
		mes "They slowly chipped away at the limestone surfaces, to shape the interior of the cave into something much more eye pleasing.";
		mes "It was from these humble beginnings that the Comodo you see today, was founded.";
		next;
		if(dmdswrd_Q == 6) goto sL_1;

		mes "[TORUNA]";
		mes "Unfortunately that is only half the story.";
		next;
		mes "[TORUNA]";
		mes "The early settlers faced an even greater challenge when the ^790079Evil Witch, Meropusum^000000, arrived.";
		mes "She was determined to rule the world, and used the newly founded town of Comodo as her staging ground.";
		next;
		mes "[TORUNA]";
		mes "Led by a group of strong heroes, the town fought back against the witch and sealed her away.  Many lives were lost in this war however.";
		next;
		mes "[TORUNA]";
		mes "The strongest of the heroes was chosen as the town's new leader, and under his leadership the town prospered.";
		next;
		mes "[TORUNA]";
		mes "Be aware though, that Meropusom is still alive.  Although she has been sealed away, her evil powers can still be felt.";
		mes "Her minions still lurks in the shadows awaiting their master's return.";
		next;
		mes "[TORUNA]";
		mes "So be cautious when venturing into the unknown parts of Comodo.  Anyway, so long and take care.";
		goto M_Menu;

		sL_1:
			mes "[TORUNA]";
			mes "Not only has this cave become a home for the people of Comodo, but it's unique environment has also helped in creating....";
			next;
			mes "[TORUNA]";
			mes "The world famous..... Comodo ^5533FFCheese^000000!!!";
			emotion e_ic;
			next;
			mes "[TORUNA]";
			mes "This special Cheese is simply DELICIOUS! You will understand how good the Cheese is once you try it.";
			emotion e_lv2;
			set dmdswrd_Q, 7;
			next;
		sL_2:
			mes "[TORUNA]";
			mes "You should go speak with the people at the ^009500Outdoor Bar^000000 near the camp grounds.";
			mes "I heard them talking about the ^5533FFCheese^000000, it is so popular.";
			close;
	M_End:
		mes "[TORUNA]";
		mes "The taste of Comodo Cheese is simply out of this world!!  Just one taste and I guarantee that you won't be able to stop!";
		mes "It's so good you may even go GRAZY without it!";
		emotion e_lv;
		next;
		mes "[TORUNA]";
		mes "Oh if I could just have one piece.... I'd be so happy I'd dance all night on that ^5555FFHula Dancing Stage^000000!!";
		close;
}

//=======================================================
comodo.gat,164,291,2	script	Rakusa	73,{
	if(dmdswrd_Q == 7) goto L_1;
	if(dmdswrd_Q == 8) goto L_2;

	mes "[Rakusa]";
	mes "Comodo is often referred to as the town of 'recreation and relaxation'.......";
	next;
	mes "[Rakusa]";
	mes "This can be misleading however, for Comodo is not only the home of fun tourist attractions, but two very ^FF4444dangerous dungeons^000000 as well.";
	next;
	mes "[Rakusa]";
	mes "This area has unusually strong monsters.  If you plan on entering the dungeons, be very well prepared and expect trouble.";
	mes "These dungeons are definitely not for the faint of heart!";
	close;
L_1:
	mes "[Rakusa]";
	mes "That man sitting over there simply won't stop talking about that Comodo ^3355FF'Cheese'^000000.........";
	next;
	mes "[Rakusa]";
	mes "I just can't stop wondering about what kind of Cheese it is.  I sure hope I will have the opportunity to try it someday.";
	set dmdswrd_Q, 8;
	next;
L_2:
	mes "[Rakusa]";
	mes "It looks like ^5533FFKichiri^000000 isn't as interested in the Cheese as that other man is though...... actually he looks rather annoyed.........";
	next;
	mes "[Rakusa]";
	mes "Someone should check on Kichiri and make sure everything is all right......";
	close;
}

//=======================================================
comodo.gat,169,284,4	script	Kichiri	99,{
	mes "[Kichiri]";
	if(dmdswrd_Q == 8) goto L_1;
	if(dmdswrd_Q == 9) goto L_2;

	mes "In the heart of Comodo lies a performance stage.  It's where a number of crazed residents put on shows for the tourists that come to visit.";
	mes "The shows are so popular that some tourist even come back to Comodo to see them again.";
	next;
	mes "[Kichiri]";
	mes "Many of the residents just dance and dance without much skill.";
	mes "But for the few who show some talent, there is the possibility of being recruited by the local ^5555FFDancers Guild^000000.";
	close;
L_1:
	mes "The guy sitting near me just won't stop talking about Comodo ^5533FFCheese^000000...... It's going to drive me insane!";
	emotion e_pif;
	next;
	mes "[Kichiri]";
	mes "Yeah, right over there, the guy named ^3355FFMagatu^000000.  Can you do something about it?";
	set dmdswrd_Q, 9;
	close;
L_2:
	mes "I just want to have a quit time and have a few drinks, is this too much to ask for?";
	mes "Stupid drunk ^3355FF' Magatu '^000000..... always talking about ^5533FFCheese^000000......";
	emotion e_ag;
	close;
}

//=======================================================
comodo.gat,163,280,4	script	Magatu	55,{
	mes "[Magatu]";
	if(dmdswrd_Q == 9) goto L_1;
	if(dmdswrd_Q == 10) goto L_2;

	mes "Yes! That's it!! The irresistible smell of that amazing ^5533FFCheese^000000!! It's so delicious!.... Oh, I can't wait any longer......";
	emotion e_lv;
	next;
	mes "[Magatu]";
	mes "No matter what anyone else says..... Comodo Cheese is truly the BEST!!! Kekekeke!!";
	emotion e_no1;
	next;
	mes "[Magatu]";
	mes "Cheese! CHEESE!! WONDERFULL Comodo CHEESE!!!.... so.... tas... ty.... (~drooools~)";
	emotion e_lv;
	close;
L_1:
	mes "What? You want to know some information regarding Comodo's special ^5533FFCheese^000000?";
	mes "I guess I could give you some inside information............";
	emotion e_what;
	next;
	mes "[Magatu]";
	mes "Okay, go to the ^009500Casino^000000 and look for a guy named ^5533FFManzi^000000.  He should be somewhere on the first floor.";
	mes "He's got a huge scar on his face so he should be easy to spot.";
	next;
	mes "[Magatu]";
	mes "When you see him give him this Bottle Cap.  Don't do anything else, just give him the bottle cap and he will give you some info on the Cheese....";
	next;
	mes "^3355FF- Received a Bottle Cap -^000000";
	set dmdswrd_Q, 10;
	close;
L_2:
	mes "Oh yeah, I got to tell you my friend's name.....";
	next;
	mes "[Magatu]";
	mes "O? I already told you? Bah, I am so drunk....... ^5533FFManzi^000000... He’s in the ^009500Casino^000000, got it?";
	emotion e_hmm;
	close;
}

//======================================================
cmd_in02.gat,189,99,4	script	Manzi	85,{
	if(dmdswrd_Q == 10) goto L_1;
	if(dmdswrd_Q == 11) goto L_2;
	if(BaseJob == Job_Novice) goto L_Nov;

	mes "[Manzi]";
	mes "There have been some people who've bet too much and have lost their pecopeco and many other precious items.";
	mes "So be careful when you make your bets..... you might just loose the shirt off your back.......";
	close;

	L_Nov:
		mes "[Manzi]";
		mes "Stop bothering me you little kid.  This place is for adults only, get out of here.";
		close;
L_1:
	mes "[Manzi]";
	mes "Yes?..........";
	next;
	mes "^3355FF- You give him the Bottle Cap-^000000";
	next;
	mes "[Manzi]";
	mes "..........................";
	next;
	mes "[Mazi]";
	mes "Whoa! This is from my friend Magatu, you must be someone of great importance to him.";
	mes "Otherwise, he wouldn't have given you the Bottle Cap.";
	emotion e_ic;
	next;
	mes "[Manzi]";
	mes "I made a promise to Magatu that I'd help anybody who had one of his bottle caps find out more about the ^5533FFCheese^000000.........";
	next;
	mes "[Manzi]";
	mes "Only a selected few get the rare opportunity to taste the legendary Comodo Cheese you know.";
	next;
	mes "[Manzi]";
	mes "Well, I guess you could find out more about Comodo Cheese from a lady near the ^3355FF 'Hulla Stage' ^000000 located near the center of town.";
	next;
	mes "^3355FF- Received Shiny Coin -^000000";
	next;
	mes "[Manzi]";
	mes "Just tell her that Manzi from the casino sent you and show her that coin.  She'll tell you all you need to know about the Cheese.";
	next;
	mes "[Manzi]";
	mes "By the way......... no else is listening this right?....... *whispers: that lady is actually in charge of the Comodo Cheese distribution*...........";
	set dmdswrd_Q, 11;
	close;
L_2:
	mes "[Manzi]";
	mes "The cheese lady should be near the ^5533FFHulla Stage^000000.  Just remember to show her the coin when you ask her about the cheese.";
	close;
}

//=======================================================
comodo.gat,187,153,4	script	Hullaris	701,{
	mes "[Hullaris]";
	if(dmdswrd_Q == 11) goto L_1;
	if(dmdswrd_Q == 12) goto L_2;
	if(dmdswrd_Q == 13) goto L_3;
	if(dmdswrd_Q == 14) goto L_4;

	mes "Hula Dance? Who says it's merely a hula dance?? It is much more than just some dance.";
	mes "To refer to Comodo's unique form of dancing as simply a hula dance, is just insulting!";
	emotion e_an;
	next;
	mes "[Hullaris]";
	mes "The Comodo Hula Dance was developed long ago.  Legend has it that the dance was used to control the minds and bodies of others!";
	mes "Hula 'dance'?.... More like Hula 'communication'......";
	next;
	mes "[Hullaris]";
	mes "This form of 'communication' was capable of not only changing a persons mood, but of controlling a persons mind as well!";
	next;
	mes "[Hullaris]";
	mes "Hehehehehe...... If anyone can dance better than me.... LET EM COME OUT!! It is more than just dancing..........";
	mes "It is a form of 'COMMUNICATION'!!!";
	emotion e_gg;
	close;

L_1:
	mes "Ah, such a great day...........";
	next;
	menu "Show her the Shiny Coin",-,"Don't show her the coin, but continue talking",M_End;

		mes "^3355FF- Shows lady the Shiny Coin -^000000";
		next;
		mes "[Hullaris]";
		mes "Hmm, that coin.... How did you know to come and look for me? Ah, I got it.  Manzi must have told you about me.";
		emotion e_hmm;
		next;
		mes "[Hullaris]";
		mes "I presume you are also interested in the famous Comodo ^5533FFCheese^000000.";
		mes "Well you've come to the right place because you're talking to a real expert.";
		next;
		mes "[Hullaris]";
		mes "And let me tell you something about how rare Comodo Cheese is.......";
		mes "Some people will NEVER get to taste it in their entire lifetime.....";
		next;
		mes "[Hullaris]";
		mes "Before I go any further, I will need to clear up some of the misconceptions you may have about Comodo Cheese.";
		next;
		mes "[Hullaris]";
		mes "In reality, Comodo Cheese is NOT actually a cheese.  It is actually a very powerful enchanted magical stone, know as.........";
		mes "The ^3355FFStone of Awakening^000000.";
		next;
		mes "[Hullaris]";
		mes "Because of the similarities in shape, form, and color, between the two, people have mistaken the stone to be cheese.";
		next;
		mes "[Hullaris]";
		mes "Legend has it that the user of the Stone of Awakening, could gain great knowledge and power much faster than normal people.";
		next;
		mes "[Hullaris]";
		mes "Many Wizards and Mages in the past have grown very powerful in very short time after consuming the Stone of Awakening.";
		next;
		mes "[Hullaris]";
		mes "Therefore, even though my close friend told you to come to me, I cannot just give you this rare item.";
		next;
		mes "[Hullaris]";
		mes "I am very sorry about this, but you will need to prove to me somehow that you are worthy of this stone.";
		next;
		mes "[Hullaris]";
		goto L_2;

	M_End:
		mes "[Hullaris]";
		mes "Hey! Don't look at me like that, get out of here!";
		emotion e_gasp;
		close;

L_2:
	mes "Some sort of ^5533FFProof of Worthiness^000000 could be obtained through the wizard ^5533FF'Nigirboran'^000000.";
	mes "He is usually inside of the ^009500East Comodo Dungeon^000000.";
	next;
	mes "[Hullaris]";
	mes "Just tell Nigirboran everything I have told you and he will judge whether or not you are worthy of the Stone of Awakening.";
	mes "Best of luck to you.";
	set dmdswrd_Q, 12;
	close;
L_3:
	mes "Your back........ do you have the ^5533FFProof of Worthiness^000000?";
	mes "I cannot give you the Stone of Awakening if you have not passed the test.";
	close;
L_4:
	mes "How did the test go?";
	next;
	mes "^3355FF~ Shows Hullaris ~^000000";
	mes "^3355FF~ Proof of Worthiness ~^000000";
	next;
	mes "[Hullaris]";
	mes "Ah, you did it! I knew you would pass the test.  No I mean it.";
	mes "There was something about you that gave me confidence in your abilities.";
	next;
	mes "[Hullaris]";
	mes "Anyway, here is the Stone of Awakening as promised.........";
	next;
	mes "^3355FF~ you received the Stone of Awakening ~^000000";
	mes "^3355FF~ you quickly eat it. . . . . ~^000000";
	next;
	mes "^3355FF~ Munch . .Munch . . ~^000000";
	next;
	mes "^3355FF~ Tastes like some sort of mushroom... ~^000000";
	mes "^3355FF~ it is somewhat sour... ~^000000";
	next;
	mes "^3355FF~ somehow you feel more confident... ~^000000";
	mes "^3355FF~ and more courageous now! ~^000000";
	next;
	mes "[Hullaris]";
	mes "What do you think? The taste and smell are indescribable huh? From the way you look I can tell that it was worth the effort to find.";
	next;
	mes "[Hullaris]";
	mes "You are now one of the few who have been privileged enough to taste Comodo's special 'Cheese', heh heh heh.....";
	mes "Well have fun here in Comodo.";
	set dmdswrd_Q,15;
	close;
}

//=========================================================
beach_dun3.gat,30,220,4	script	Wizard Nigirboran	704,{
	mes "[Nigirboran]";
	if(dmdswrd_Q == 12) goto L_1;
	if(dmdswrd_Q == 13) goto L_2;
	if(dmdswrd_Q == 14) goto L_3;
	if(dmdswrd_Q == 15) goto L_4;

	mes ". . . . . . . . . . . . . . .";
	next;
	mes "[Nigirboran]";
	mes "I am Nigirboran, a Wizard in training...";
	next;
	mes "[Nigirboran]";
	mes "If you don't have anything to say, please do not bother me, I am very busy.";
	close;

L_1:
	mes ". . . . .  Hmm. . . . . .";
	next;
	mes "[Nigirboran]";
	mes "Hullaris told you to come didn't she? Let me introduce myself.  I am Nigirboran, a Wizard in training.";
	next;
	mes "[Nigirboran]";
	mes "It is true that Comodo ^5533FFCheese^000000 is actually the ^5533FF'Stone of Awakening' or the 'Stone of Wisdom'^000000.";
	mes "It's unfortunate that so many people think of this great stone as nothing more than a tasty snack.";
	next;
	mes "[Nigirboran]";
	mes "A long time ago, real Comodo cheese was actually made from Payon's poisonous mushrooms, Aldebaran's singing plants, and Morroc's cactus juice.";
	next;
	mes "[Nigirboran]";
	mes "The cheese was aged for a minimum of 3 years before it could be eaten.  If anyone ate the cheese before it had a chance to properly age....";
	next;
	mes "[Nigirboran]";
	mes "The posion and magic from the cheese would melt their insides instantly............";
	next;
	mes "[Nigirboran]";
	mes "That's why Hullaris sent you here.  She wants to see if you can withstand those strong poisons.";
	next;
	mes "[Nigirboran]";
	mes "Are you willing to risk your life just to prove yourself to Hullaris?";
	next;
	menu "Sure, why not.",-, "...... Uh... no....",M_End;

		set dmdswrd_Q, 13;
		mes "[Nigirboran]";
		goto L_2;
		
	M_End:
		mes "[Nigirboran]";
		mes "Very well then.";
		close;
L_2:
	mes "Very good, then let us begin the test.";
	percentheal 100, 100;
	next;
	mes "[Nigirboran]";
	mes "You will be given some real Comodo cheese to eat.  If you are strong enough you will have no problems with the cheese.";
	next;
	mes "[Nigirboran]";
	mes "If you start to feel noxious and start having hallucinations, that means you have succumb to the poison and are not worthy of the Stone of Awakening.";
	next;
	mes "[Nigirboran]";
	mes "Ready?";
	next;
	mes "^3355FF~ you are given a piece of funky cheese ~";
	mes ". . . . . . . . . . . . .^000000";
	next;
	mes "^3355FF~ you are given a piece of funky cheese ~";
	mes ". . . . . . . . . . . . .";
	mes "~ you swallow it ~";
	mes ". . . . . . . . . . . . .^000000";
	next;
	mes "^3355FF~ you are given a piece of funky cheese ~";
	mes ". . . . . . . . . . . . .";
	mes "~ you swallow it ~";
	mes ". . . . . . . . . . . . .";
	mes "~ it tastes nasty!!! ~^000000";
	next;
	mes "^3355FF~ your body is overcome with a wave of heat ~";
	mes "~ you feel the poison racing through your body ~^000000";
	sc_start SC_Poison,900000,1;
	next;
	mes "^5533FF. . . . . . . . . . . . . . .^000000"; 
	next;
	sc_end SC_Poison;
	if(BaseLevel < 25) goto L_LowLvl;
	set @TEMP, rand(3);
	if(@TEMP == 2) goto R_2;
	if(@TEMP == 1) goto R_1;

	R_0:
		mes "^3355FF~ your body seems fine but.....but...but.... ~^000000";
		next;
		mes "^3355FF~ your body seems fine but.....but...but.... ~";
		mes "~ You see pink elephants everywhere!! ~^000000";
		next;
		mes "[Nigirboran]";
		mes "Tsk tsk.  Although your body didn't seem to have any ill effects from the poison.... your mind was not as fortunate.";
		next;
		mes "[Nigirboran]";
		mes "Hahaha... pink elephants.... reminds me of a bad acid trip I once had... er..... forget what I just said.";
		emotion e_heh;
		next;
		mes "[Nigirboran]";
		mes "If you cannot handle a little piece of cheese, there is absolutely no way you will be able to handle the Stone of Awakening.";
		next;
		mes "[Nigirboran]";
		mes "If you feel up to it, you may try again later.  The fact that you're still alive is a good sign.";
		close;
	R_1:
		mes "^3355FF~ now you feel extremely cold and dizzy.... ~";
		mes "~ your body feels weak and you are getting drowsy.... ~^000000";
		sc_start SC_Sleep,900000,1;
		next;
		mes "[Nigirboran]";
		mes "Hmm.... well the good news is you didn't have any hallucinations.  Your body however, reacted poorly and you fell asleep.";
		sc_end SC_Sleep;
		next;
		mes "[Nigirboran]";
		mes "If you cannot handle a little piece of cheese, there is absolutely no way you will be able to handle the Stone of Awakening.";
		next;
		mes "[Nigirboran]";
		mes "If you feel up to it, you may try again later.  The fact that you're still alive is a good sign.";
		close;
	R_2:
		mes "^3355FF~ you now feel a very strange, soothing sensation........  ~";
		mes "~ your body feels at ease and your mind is clear... ~^000000";
		next;
		mes "[Nigirboran]";
		mes "Hmm?.... Wow! Now that's rare!! You don't seem to have any ill effects from the posion.";
		mes "You must be in top shape both mentally and physically.";
		emotion e_ic;
		next;
		mes "[Nigirboran]";
		mes "You have proved that you are worthy of the ^5533FFStone of Awakening^000000.  Take this.......";
		next;
		mes "~ received ^5533FF'Proof of Worthiness'^000000 ~";
		next;
		mes "[Nigirboran]";
		mes "Just show this to Hullaris and she will give you the Stone of Awakening.";
		set dmdswrd_Q, 14;
		next;
		mes "[Nigirboran]";
		mes "Oh, by the way, why did you choose to look for the Stone in the first place?";
		next;
		mes "[Nigirboran]";
		mes "I surely hope its not because of the temptations of the three Doomed Swords...";
		mes "....Huh? You don't know what the three Doomed Swords are?";
		next;
		mes "[Nigirboran]";
		mes "Legend has it that the one who wields the three Doomed Swords";
		mes "^3355FF- Executioner -^000000";
		mes "^3355FF- Mysteltain-^000000";
		mes "^3355FF- Grimtooth -^000000";
		mes "could conquer the whole world with ease.";
		next;
		mes "[Nigirboran]";
		mes "To summon these three Doomed Swords, the user is also required to possess";
		mes "both the ^3355FF` Tablet of Power '^000000 and";
		mes "^3355FF` Book of the Tiresome Sheep'^000000.";
		close;

	L_LowLvl:
		mes "^3355FF~ it is unbearable and causes you to faint ~^000000";
		next;
		warp "beach_dun3.gat",32,214;
		doevent "Wizard Nigirboran::OnFainted";
		end;

		OnFainted:
			mes "[Nigirboran]";
			mes "~ Sigh ~ You are simply not strong enough to withstand the poison.";
			mes "Maybe if you had a ^5533FFBase level of at least 25^000000, you could withstand the poison....";
			close;
L_3:
	mes "Go see Hullaris for the Stone of Awakening.  Good luck to you.";
	close;
L_4:
	mes "Look for ^3355FFMoet Leng Good^000000 somewhere";
	mes "inside ^3355FFAldebaran^000000";
	mes "regarding information about the 'Tablet of Power'";
	close;
}