//===== eAthena Script ======================================= 
//= 2004 Headgear Quests
//===== By: ================================================== 
//= Dj-Yhn
//===== Current Version: ===================================== 
//= 1.3
//===== Compatible With: ===================================== 
//= eAthena
//===== Description: ========================================= 
//= 2004 New Headgears. Official Quests
//===== Additional Comments: =================================
//= names with asterisk(*) are iRO names...
//= names done: 1,3,6,8,9,12,14,15,16,17
//= needed: 2,4,5,7,10,11,13 (7/17)
//= ==Information For NPC's inside File==
//= 1) Black Cat Ears [NekoNeko*] {Payon}
//=   o payon 115 131
//= 2) Crossed Hair Band, Plaster and Flower Hairpin [Arjen] {Geffen}
//=   o geffen 129 148
//= 3) Hot-blooded-headband [Zhenbolt*] {Yuno}
//=   o yuno 300 188
//= 4) Red Tailed Ribbon [Netpia] {Prontera}
//=   o prontera 165 232
//= 5) Indian Headband [Merunte] {Comodo}
//=   o comodo 237 217
//= 6) Mushroom headband [Ipore*] {Geffen}
//=   o geffen 67 87
//= 7) Ears of angel wing &
//=     Ears of devil wing [Old Blacksmith] {Yuno}
//=   o yuno 241 52
//= 8) Sea Otter Cap [Pretty Lindsay*] {Lutie}
//=   o xmas 183 267
//= 9) Brown Bear Cap [Fuzzy Fuzz*] {Lutie}
//=   o xmas 175 156
//=10) Cap of Concentration [Nan Hyang] {Payon}
//=   o payon_in03 8 193
//=11) Tulip Haipin [Ses] {Geffen}
//=   o geffen 83 189
//=12) Party Hat, Straw Hat, Cowboy Hat, Sombrero
//=	and Fur hat [Headgear Merchant (Mike)*] {Lutie}
//=   o xmas_in 35 30
//=13) Big Golden Bell, Headgear of Queen
//=     and Crown of Mistress [Neris] {Yuno}
//=   o yuno_in03 20 18
//=14) Alarm Mask [Muscle Man*]{Aldebaran}
//=   o alde_alche 88 180
//=15) Drooping Kitty, Smokie Leaf, Lazy Smokie
//= 	and Blue Fish [Traveler*] {Morroc}
//=   o morocc 273 79
//=16) Fox Mask [Nine Tail*] {Payon Dungeon}
//=   o pay_dun03 48 84
//=17) Orc Hero Helm [Orc Warrior*] {Orc Village}
//=   o in_orcs01 31 93 & 162 33
//============================================================
//= 1.01 Fixed items names iRO->kRO, fixed some bugs [Qwadrat]
//=	Fixed possible item exploits, fixed Straw Hat
//= 	Added missing checks [Lupus]
//= 1.1	Fixed a bug in Giant-band-aid that didn't counting rotten bandages
//=	Fixed a bug in Fur Hat that didn't count yarn [Evera]
//= 1.2 Syntax fixes for parenthesis, reformatting [KarLaeda]
//= 1.3 Fixed bad NPC header data to comply with rev. 11603. [L0ne_W0lf]
//============================================================

//Payon /=Black cat ears=/
payon,115,131,3	script	NekoNeko	725,{
	if (countitem(2213) > 0 && countitem(983) > 0 && countitem(914) > 199 && Zeny > 9999) {
		delitem 2213,1;
		delitem 983,1;
		delitem 914,200;
		set Zeny,Zeny-10000;
		mes "[NekoNeko]";
		mes "Hihi? So you have collected all materials.";
		mes "According to our agreement,";
		mes "I will make it for you~ please";
		mes "wait for a while!";
		next;
		mes "[NekoNeko]";
		mes "Zomulazhumudazowuwudududu";
		mes "DidiSusuohwuzaowududaduda";
		next;
		getitem 5057,1;
		mes "[NekoNeko]";
		mes "Thank youfor using!";
		mes "If you need it again in future,";
		mes "come and fine me anytime!";
		close;
	} else {
		mes "[NekoNeko]";
		mes "How are you? Yes, I know.";
		mes "I know why you're trying to talk to me.";
		mes "That's because the Ears of Black Cat";
		mes "that I am wearing is too cute... right? Hahaha";
		next;
		mes "[NekoNeko]";
		mes "Honestly, I made this hairband";
		mes "with my skill of craftmanship.";
		mes "Therefore, not much people know,";
		mes "about this adorable head gear.";
		mes "Isn't that a pity that I use it myself?";
		next;
		mes "[NekoNeko]";
		mes "So, you better ask me to make that.";
		mes "I will make it";
		mes "with a pay of course.";
		mes "Fill your pockets with coints....";
		mes "That's my thinking, hehehehe";
		next;
		mes "[NekoNeko]";
		mes "^FF0000Kitty Band^000000 x1";
		mes "^FF0000Black Dyestuffs^000000 x1";
		mes "^FF0000Fluff^000000 x200";
		mes "and lastly, it requires at least ^FF000010000zeny^000000!";
		mes "If you want it, gather them and bring it to me~";
		next;
		mes "[NekoNeko]";
		mes "^FF0000Ah! Please keep this in mind.";
		mes "If you slot a card in your equipment,";
		mes "and you want to change it to the item now,";
		mes "you will lose the card and refined level.";
		close;
	}
}
//Geffen /=Crossed Hair Ban, Plaster and Flower Hairpin=/
geffen,129,148,3	script	Arjen	779,{
	mes "[Arjen]";
	mes "Ahhh~So boring~ So very boring~";
	mes "There's noone I need to see, and the weather is so good - ! !";
	mes "It's so boring that I have nothing to do.";
	emotion e_gasp; //not sure if this is ET_SCRATCH
	next;
	mes "[Arjen]";
	mes "Oh yes, hey there, you!!";
	mes "Do you want to have a cute and fine hair clip?";
	mes "For a person as skillful as I am, there's nothing I can't make!! Wa haha!";
	mes "Clap ! It will be ready just like that!";
	emotion e_omg; //ET_SURPRISE?
	next;
	mes "[Arjen]";
	mes "Lucky I am freerightnow. So, just bring me the materials and I will whoosh! make it for you!";
	mes "So, any idea of what accessory you would like to have?";
	emotion e_heh; //ET_SMILE
	next;
	switch(select("^3131FFX Hairpin:Giant Band Aid:Flower Hairpin^000000:End conversation.")) {
	case 1:
		if (countitem(2294) > 0 && countitem(7220) > 399) {
			mes "[Arjen]";
			mes "X Hairpin!";
			mes "That's very good !!";
			next;
			mes "[Arjen]";
			mes "Oh yes!";
			mes "The Stellar.."; //star dust? that's not refinable, now is it? =X
			mes "^CE3100During the production, the refine level will disappear, is that ok with you?^000000";
			next;
			switch(select("It's ok, just make it for me!:I will come next time.")) {
			case 1:
				mes "[Arjen]";
				mes "Oh well- Then,";
				mes "it's time to show my skill after all this time !?";
				next;
				mes "^3131FF - Sha Sha !! - ^000000";
				mes "^3131FF - Cha Sha Haa !! - ^000000";
				next;
				if (countitem(2294) > 0 && countitem(7220) > 399) {
					delitem 2294,1;
					delitem 7220,400;
					getitem 5079,1; //X-Hairping == crossed hair band?
				}
				mes "[Arjen]";
				mes " OK - !!";
				mes "I still have my touch! Wa ha ha!!";
				mes "How about that? Do you like it?";
				next;
				mes "[Arjen]";
				mes "If you have any need, come and find me here anytime!";
				mes "So, good bye. Good Bye!";
				close;
			case 2:
				mes "[Arjen]";
				mes "Fine, fine, come back after you've made up your mind!";
				close;
			}
		} else {
			mes "[Arjen]";
			mes "Right - the ^3131FF X Hairpin!^000000";
			mes "That's simple!";
			next;
			mes "[Arjen]";
			mes "^FF0000Stellar x1^000000";
			mes "^FF0000Ectoplasm x400^000000";
			mes "If you've prepared all of this, I will help to make it for you!";
			close;
		}
	case 2:
		if (countitem(970) > 0 && countitem(930) > 499) {
			mes "[Arjen]";
			mes "Giant Band Aid??..";
			mes "Oh well- Then,";
			mes "it's time to show my skill after all this time !?";
			next;
			mes "^3131FF - Sha Sha !! - ^000000";
			mes "^3131FF - Cha Sha Haa !! - ^000000";
			next;
			if (countitem(970) > 0 && countitem(930) > 499) {
				delitem 970,1;
				delitem 930,500;
				getitem 5063,1; //another one in wich I love gravity for changing names =X
			}
			mes "[Arjen]";
			mes " OK - !!";
			mes "I still have my touch! Wa ha ha!!";
			mes "How about that? Do you like it?";
			next;
			mes "[Arjen]";
			mes "If you have any need, come and find me here anytime!";
			mes "So, good bye. Good Bye!";
			close;
		} else {
			mes "[Arjen]";
			mes "Hoho - ^3131FF Plaster !^000000";
			mes "If anyone asked where this is the Plaster that is used when someone is hurt?";
			mes "Tell them it is the real Plaster for injured people.";
			mes "Hmm, isn't that easy?";
			next;
			mes "[Arjen]";
			mes "^FF0000Alcohol x1^000000";
			mes "^FF0000Rotten Bandage x500^000000";
			mes "If you have prepared all the items, I will help to make it for you now?";
			close;
		}
	case 3:
		if (countitem(2269) > 0 && countitem(999) > 9 && Zeny > 19999) {
			mes "[Arjen]";
			mes "Great !! Flower Hairpin ~";
			mes "it's time to show my skill after all this time !?";
			next;
			mes "^3131FF - Sha Sha !! - ^000000";
			mes "^3131FF - Cha Sha Haa !! - ^000000";
			next;
			if (countitem(2269) > 0 && countitem(999) > 9 && Zeny > 19999) {
				delitem 2269,1;
				delitem 999,10;
				set Zeny,Zeny-20000;
				getitem 5061,1; //finally a non-changed name =X
			}
			mes "[Arjen]";
			mes " OK - !!";
			mes "I still have my touch! Wa ha ha!!";
			mes "How about it? Do you like it? Here is the stem left from the production. Take it as a souvenir. Haha.";
			next;
			mes "[Arjen]";
			mes "If you have any need, come and find me here anytime!";
			mes "So, good bye. Good Bye!";
			close;
		} else {
			mes "[Arjen]";
			mes "Yes - ^3131FF Flower Hairpin !^000000";
			mes "Sometimes, I see some strange girls with bare legs and a flower in their mouths.";
			mes "Looking at them, I get an idea!";
			next;
			mes "[Arjen]";
			mes "That is ^3131FFFlower^000000, ^3131FFFlower^000000 !";
			mes "Wa ha ha, isn't that a perfect match?";
			mes "Some even equip it on the Orc Warrior, you should be proud of it, right?";
			mes "Really ~  ~  ~";
			next;
			mes "[Arjen]";
			mes "But the process takes a little more effort,";
			mes "I need to take some process fee.";
			next;
			mes "[Arjen]";
			mes "You should know that,";
			mes "stabilizing a fragile flower on the head";
			mes "takes a lot of concentration and";
			mes "very high level of skills!";
			next;
			mes "[Arjen]";
			mes "So, please bring,";
			mes "^FF0000Romantic Flower x1^000000";
			mes "^FF0000Steel x10^000000";
			mes "together with ^3131FF 20,000 zeny^000000 !";
			mes "If you have prepared all of these, I will make it for you right away!";
			mes "Do you understand that?";
			close;
		}
	case 4:
		mes "[Arjen]";
		mes "Ha, what? You don't want it?";
		mes "Rumblerumblerumble";
		close;
	}
}
//Yuno /=Headband of power=/ <-- Ok, WTF? Thanks again bitches ;_;
//Yuno /=Hot-blooded headband=/ [5070]
yuno,300,188,5	script	Zhenbolt	753,{
	if(countitem(7216) > 299 && countitem(7097) > 299 && countitem(2211) > 0 && countitem(982) > 0) {
		delitem 7216,300;
		delitem 7097,300;
		delitem 2211,1;
		delitem 982,1;
		mes "[Zhenbolt]";
		mes "Uh oh...Have you collected all the items?";
		mes "Good.";
		mes "According to out agreement,";
		mes "I will create it for you, whole hearedly.";
		next;
		mes "[Zhenbolt]";
		mes "........................";
		next;
		mes "[Zhenbolt]";
		mes "........................";
		next;
		mes "[Zhenbolt]";
		mes "..................-work harder!-";
		next;
		mes "[Zhenbolt]";
		mes "Uh oh... It's finished.";
		mes "If you wear it,";
		mes "you will feel some warmth,";
		mes "in this cold world.";
		mes "A great item has been born in this world.";
		mes "Ladies and gentleman, this is ^FF0000Hot-blooded Headband^000000!!";
		getitem 5070,1;
		next;
		mes "[Zhenbolt]";
		mes "With this, I will be able";
		mes "to get back to the person I miss soon.";
		mes "My name is";
		mes "Zhenbolt";
		mes "Main distributor of hear warming sensation!";
		close;
	} else {
		mes "[Zhenbolt]";
		mes "My name is Zhenbolt,";
		mes "a simple practioner that travels around the world,";
		mes "to spead the warmth of heart around the world.";
		next;
		mes "[Zhenbolt]";
		mes "You won't understand the meaning";
		mes "of a burning spirit and heat of passion through mere explaining.";
		mes "So do you want to accept this?";
		mes "I will create an item";
		mes "that stores my heart for you.";
		next;
		mes "[Zhenbolt]";
		mes "However,";
		mes "I cannot leave this place,";
		mes "because I need to pass the message to others...";
		mes "So,";
		mes "I will have to trouble you";
		mes "to gather the materials.";
		next;
		mes "[Zhenbolt]";
		mes "^FF0000Red Muffler^000000 300 unit";
		mes "^FF0000Burning Heart^000000 300 unit";
		mes "^FF0000Bandana^000000 1unit ^FF0000White Dyestuffs^000000 1 unit...";
		mes "To produce the item,";
		mes "you'll need this materials.";
		mes "Come to find me again after you've collected all the materials required.";
		next;
		mes "[Zhenbolt]";
		mes "^FF0000Besides that,";
		mes "Ah! Please keep this in mind.";
		mes "If you slot a card in your equipment,";
		mes "and you want to change it to the item now,";
		mes "you will lose the card and refined level.";
		close;
	}
}
//Prontera /=Red Tailed Ribbon=/ [5083](Red Ribbon)//
prontera,165,232,3	script	Netpia	744,{
	if(countitem(2244) > 0 && countitem(2209) > 0 && countitem(10007) > 0) {
		delitem 2244,1;
		delitem 2209,1;
		delitem 10007,1;
		mes "[Netpia]";
		mes "Wow... You've brought all of it.";
		mes "You've must have done a lot.";
		mes "I will make the item according to our agreement.";
		mes "Please wait for a while.";
		next;
		mes "[Netpia]";
		mes "...........................";
		next;
		mes "[Netpia]";
		mes "...........................";
		next;
		mes "[Netpia]";
		mes ".....................-Work Hard-";
		next;
		mes "[Netpia]";
		mes "Here it is.";
		mes "It's all yours now.";
		mes "Remember to always wear it.";
		getitem 5083,1;
		next;
		mes "[Netpia]";
		mes "Use this,";
		mes "to pass my intention to him...";
		mes "He left me for a while,";
		mes "with the hope to warm the heart of the world.";
		mes "The one who chases that dream...";
		mes "Where is he now?";
		next;
		mes "[Netpia]";
		mes "When you see the Red Ribbon,";
		mes "will you think of me,";
		mes "and continue to work harder?";
		mes "May you be blessed with luck on your journey.";
		close;
	} else {
		mes "[Netpia]";
		mes "Hello?";
		mes "Do you want to wear a Red Ribbon?";
		mes "It's a really beautiful head accesory.";
		mes "I am not trying to trick you,";
		mes "what do you think?";
		next;
		mes "[Netpia]";
		mes "^FF0000Big Ribbon^000000 x1.";
		mes "^FF0000Ribbon with one slot^000000 x1.";
		mes "^FF0000Silk Ribbon^000000 x1...";
		mes "I'll make it for you,";
		mes "if you bring the above items.";
		next;
		mes "[Netpia]";
		mes "Remember to bring it to me.";
		mes "I'll be more then glad,";
		mes "if you wear the Red Ribbon.";
		mes "Then see you soon.";
		next;
		mes "[Netpia]";
		mes "^FF0000Ah... let me tell you about this,";
		mes "Ah! Please keep this in mind.";
		mes "If you slot a card in you equipment,";
		mes "and you want to change it to the item now,";
		mes "you will lose the card and refined level.";
		close;
	}
}
//Comodo /=Indian Headband=/ [5071]
comodo,237,217,5	script	Merunte	732,{
	if (countitem(5010) > 0 && countitem(5049) > 0 && countitem(7101) > 9 && Zeny > 9999) {
		delitem 5010,1;
		delitem 5049,1;
		delitem 7101,10;
		set Zeny,Zeny-10000;
		mes "[Merunte]";
		mes "Oh oh! You have brought it like you've promised!";
		mes "Then we shall pay our end of our bargain,";
		mes "just like the Indians!";
		next;
		mes "[Merunte]";
		mes "Now let me have";
		mes "the materials that you have brought first.";
		mes "I will use it well to make the headband.";
		getitem 5071,1;
		next;
		mes "[Merunte]";
		mes "Ah Wuwuwuwuwuwuwuwuwuwuwu~";
		close;
	} else {
		mes "[Merunte]";
		mes "Ah Wuwuwuwuwuwuwuwuwuwuwu~";
		mes " ";
		mes "Let the spirit of Indian stay glorious forever!";
		mes "With the honor of Comodo Indian,";
		mes "raise the glory of Indian!";
		next;
		mes "[Merunte]";
		mes "For this reason,";
		mes "do you want to try wearing,";
		mes "an Indian Headband? Bring ^FF0000Indian Fillet^000000 x1";
		mes "^FF0000Striped Hairband^000000 x1";
		mes "^FF0000Peco Peco Feather^000000 x10";
		mes "and together with ^FF000010000zeny^000000!";
		next;
		mes "[Merunte]";
		mes "And Indiantakes a promise,";
		mes "more importantly than his life.";
		mes "As long as you bring it, I will make that for you anytime!";
		mes " ";
		mes "Ah Wuwuwuwuwuwuwuwuwuwuwu~";
		next;
		mes "[Merunte]";
		mes "^FF0000Ah! Please keep this in mind";
		mes "If you slot a card in your equipment,";
		mes "and you want to change it to the item now,";
		mes "you will lose the card and refined level.";
		close;
	}
}
//Geffen /=Mushroom Band=/ [5082]
geffen,67,87,3	script	Ipore	700,{
	if (countitem(921) > 299) {
		delitem 921,300;
		mes "[Ipore]";
		mes "Oh Wow. You really have brought the Mushroom Spore x 300?";
		mes "You much have been tired.";
		mes "Then, I shall use these,";
		mes "to perform a magic show for you!";
		mes "Please wait for a while.";
		next;
		mes "- Sha Ka Sha Ka Sha Ka Sha Ka Sha Ka Sha Ka -";
		mes "- Iporeput all the Mushroom Spores-";
		mes "- onto my head. -";
		next;
		mes "[Ipore]";
		mes "Kineisihayituoohyilaahahsaiyi";
		mes "Chahulisitawutehayisikenbiah";
		mes "BiwuBiwuBiwu....Keahahah!!";
		next;
		mes "[Ipore]";
		mes ".......................";
		mes "Shoosh... Anyway,";
		mes "The spore has grown on your head.";
		mes "It looks odd just like that.";
		mes "Let me help you to make it into a headband.";
		next;
		mes "[Ipore]";
		mes "So...How about that? Feeling any better?";
		mes "Making a headband,";
		mes "using the spore that grows from your head...";
		mes "Isn't that romantic? Hehe.";
		next;
		mes "[Ipore]";
		mes "Anyway, you've done a lot.";
		mes "So, take this headban with you to show off somewhere.";
		mes "If you want to make another one,";
		mes "just come and find me!";
		getitem 5082,1;
		close;
	} else {
		mes "[Ipore]";
		mes "Huhuhu...";
		mes "I fount it at last!";
		mes "I have discovered a magic";
		mes "that will make the spore grows on your head.";
		next;
		mes "[Ipore]";
		mes "Of course, it might be inconvenient,";
		mes "with a headfull of mushroom spore...";
		mes "That's why I pick it up";
		mes "and make it into a hairband for you.";
		next;
		mes "[Ipore]";
		mes "Aiyo! No point listening and do not see it for yourself!";
		mes "Just bring 300 ^FF0000Mushroom Spore^000000,";
		mes "and I will let you experience it!";
		mes "I am confident that if you experience such magic,";
		mes "you're surely be thankful to me, won't you?";
		close;
	}
}
//Yuno /=Ears of Angel's Wing & Ears of Devil's Wing=/ [5074]&[5068]
yuno,241,52,3	script	Old Blacksmith	813,{
	mes "[A seemingly skillful craftman]";
	mes "Uh Oh, since you've come to this place,";
	mes "you must have known how to enjoy the scenary.";
	mes "Since you're a Blacksmith, why not do your forging?";
	mes "What's the point staring at the sky?";
	mes "My name is Habir Moah!";
	mes "A wandering Blacksmith with my hammer as my companion.";
	next;
	if (countitem(2254) && countitem(2286) && Zeny>19999) {
		mes "[Habir Moah]";
		mes "Hmm? You do have really good items, don't you?";
		mes "Hmm... however,";
		mes "do you have the insufficientfeeling?";
		mes "If you are willing, take out your";
		mes "^4d4dffAngel Wing^000000 and ^4d4dffElven Ears^000000";
		mes "to create a unusual item.";
		next;
		mes "[Habir Moah]";
		mes "How about that, do you ever though of that?";
		mes "Don't suspect my capability!";
		mes "As a Blacksmith";
		mes "I am considered as one of the most skillful one, if not the most skillful!";
		mes "Through the skill of blacksmith,";
		mes "an ore will become a great steel, that's the rule.";
		next;
		switch(select("Hmm... I'll think about it.:Can you help me make it?:Can I craft Evil headband...?")) {
		case 1:
			mes "[Habir Moah]";
			mes "Hmm, what a pity!";
			mes "I thought I can show my skill again.";
			mes "Oh well.";
			mes "... ... ...";
			mes "Beautiful sky... So blue.";
			close;
		case 2:
			mes "[Habir Moah]";
			mes "Aha, thank you!";
			mes "Let's see the material first, shall we?";
			mes "Angel Wing and Elven Ears,";
			mes "other miscellaneous stuffs and 20000 zeny.";
			mes "All these items really cost something.";
			mes "I will help you make one fine accesory.";
			next;
			mes "[Habir Moah]";
			mes "Before I produce the item, let me remind you.";
			mes "I don't care about";
			mes "the level of refining for the item.";
			mes "If you have worries,";
			mes "I guess you better tidy up your items.";
			next;
			mes "[Habir Moah]";
			mes "^4d4dffPlease Reserve the items,";
			mes "that is required for making the headgear^000000";
			mes "I do not hope that you will blame me,";
			mes "if I fail to make that item.";
			next;
			switch(select("It's ok, just do it.:Hmm, I need to think about it.")) {
			case 1:
				mes "[Habir Moah]";
				mes "So, let's do it!";
				next;
				misceffect 154; //Success Hammer ;P
				mes "[Habit Moah]";
				mes "With my skills,";
				mes "the great creation of me, Habir Moah,";
				mes "is completed!";
				mes "Here it is,";
				mes "the Angel Wing Ears.";
				if (countitem(2254) && countitem(2286) && Zeny>19999) {
					delitem 2254,1;
					delitem 2286,1;
					set Zeny,Zeny-20000;
					getitem 5074,1;
				}
				next;
				mes "[Habir Moah]";
				mes "From now on,";
				mes "everyone will you.";
				close;
			case 2:
				mes "[Habir Moah]";
				mes "If you're interested in it in future,";
				mes "do come and find me.";
				mes " ";
				mes "Ah, what a soothing breeze.";
				close;
			}
		case 3:
			mes "[Habir Moah]";
			mes "Hoho, of couse I can craft";
			mes "Evil Wing!";
			mes "I'll make it into Devil Wing Ears!";
			next;
			mes "[Habir Moah]";
			mes "Let's see the materials required, shall we?";
			mes "Evil Wing and Elven Ears,";
			mes "in addition to that, 20,000 zeny.";
			mes "All these items really cost something.";
			mes "I will help you make one fine accesory.";
			next;
			mes "[Habir Moah]";
			mes "Before I produce the item, let me remind you.";
			mes "I don't care about";
			mes "the level of refining for the item.";
			mes "If you have worries,";
			mes "I guess you better tidy up your items.";
			next;
			mes "[Habir Moah]";
			mes "^4d4dffPlease reserve the items,";
			mes "this is required for making the headgear.^000000";
			mes "I do not hope that you will blame me,";
			mes "if I fail to make that item.";
			next;
			switch(select("It's ok. Let's do it.:I need to tidy up first.")) {
			case 1:
				if (countitem(2255) && countitem(2286) && Zeny > 19999) {
					mes "[Habir Moah]";
					mes "So, let's do it!";
					next;
					misceffect 154;
					mes "[Habir Moah]";
					mes "With my skills,";
					mes "the great creation of me, Habir Moah,";
					mes "is completed!";
					mes "Here it is,";
					mes "Devil Wing Ears";
					if (countitem(2255) && countitem(2286) && Zeny > 19999) {
						delitem 2255,1;
						delitem 2286,1;
						set Zeny,Zeny-20000;
						getitem 5068,1;
					}
					next;
					mes "[Habir Moah]";
					mes "Fromnow on,";
					mes "everyone will you.";
					close;
				} else {
					mes "[Habir Moah]";
					mes "I'm sorry. If you have not prepared all the materials,";
					mes "I won't do that for you.";
					mes "I'll need Evil Wing, Elven Ears and";
					mes "20000 zeny.";
					mes "Can you please confirm that you have all of those?";
					close;
				}
			case 2:
				mes "[Habir Moah]";
				mes "If you're interested in it in future,";
				mes "do come and find me.";
				mes " ";
				mes "Ah, what a soothing breeze.";
				close;
			}
		}
	} else if (countitem(2255) && countitem(2286) && Zeny>19999) {
		mes "[Habir Moah]";
		mes "Hmm? You do have really good items, don't you?";
		mes "Hmm... however,";
		mes "do you have the insufficientfeeling?";
		mes "If you are willing, take out your";
		mes "^4d4dffEvil Wing^000000 and ^4d4dffElven Ears^000000";
		mes "to create a unusual item.";
		next;
		mes "[Habir Moah]";
		mes "How about that, do you ever though of that?";
		mes "Don't suspect my capability!";
		mes "As a Blacksmith";
		mes "I am considered as one of the most skillful one, if not the most skillful!";
		mes "Through the skill of blacksmith,";
		mes "an ore will become a great steel, that's the rule.";
		next;
		switch(select("Hmm... I'll think about it.:Can you help me make it?:Can I craft Angel Wing...?")) {
		case 1:
			mes "[Habir Moah]";
			mes "Hmm, what a pity!";
			mes "I thought I can show my skill again.";
			mes "Oh well.";
			mes "... ... ...";
			mes "Beautiful sky... So blue.";
			close;
		case 2:
			mes "[Habir Moah]";
			mes "Aha, thank you!";
			mes "Let's see the material first, shall we?";
			mes "Evil Wing and Elven Ear,";
			mes "other miscellaneous stuffs and 20000 zeny.";
			mes "All these items really cost something.";
			mes "I will help you make one fine accesory.";
			next;
			mes "[Habir Moah]";
			mes "Before I produce the item, let me remind you.";
			mes "I don't care about";
			mes "the level of refining for the item.";
			mes "If you have worries,";
			mes "I guess you better tidy up your items.";
			next;
			mes "[Habir Moah]";
			mes "^4d4dffPlease Reserve the items,";
			mes "that is required for making the headgear^000000";
			mes "I do not hope that you will blame me,";
			mes "if I fail to make that item.";
			next;
			switch(select("It's ok, just do it.:Hmm, I need to think about it.")) {
				case 1:
					mes "[Habir Moah]";
					mes "So, let's do it!";
					next;
					misceffect 154; //Success Hammer ;P
					mes "[Habit Moah]";
					mes "With my skills,";
					mes "the great creation of me, Habir Moah,";
					mes "is completed!";
					mes "Here it is,";
					mes "the Angel Wing Ears.";
					if (countitem(2255) && countitem(2286) && Zeny>19999) {
						delitem 2255,1;
						delitem 2286,1;
						set Zeny,Zeny-20000;
						getitem 5068,1;
					}
					next;
					mes "[Habir Moah]";
					mes "From now on,";
					mes "everyone will you.";
					close;
				case 2:
					mes "[Habir Moah]";
					mes "If you're interested in it in future,";
					mes "do come and find me.";
					mes " ";
					mes "Ah, what a soothing breeze.";
					close;
				}
		case 3:
			mes "[Habir Moah]";
			mes "Hoho, of course I can craft";
			mes "Angel Wing!";
			mes "I'll make it into Angel Wing Ears!";
			next;
			mes "[Habir Moah]";
			mes "Let's see the materials required, shall we?";
			mes "Angel Wing and Elven Ears,";
			mes "in addition to that, 20,000 zeny.";
			mes "All these items really cost something.";
			mes "I will help you make one fine accesory.";
			next;
			mes "[Habir Moah]";
			mes "Before I produce the item, let me remind you.";
			mes "I don't care about";
			mes "the level of refining for the item.";
			mes "If you have worries,";
			mes "I guess you better tidy up your items.";
			next;
			mes "[Habir Moah]";
			mes "^4d4dffPlease reserve the items,";
			mes "this is required for making the headgear.^000000";
			mes "I do not hope that you will blame me,";
			mes "if I fail to make that item.";
			next;
			switch(select("It's ok. Let's do it.:I need to tidy up first.")) {
			case 1:
				if (countitem(2254) && countitem(2286) && Zeny > 19999) {
					delitem 2254,1;
					delitem 2286,1;
					set Zeny,Zeny-20000;
					mes "[Habir Moah]";
					mes "So, let's do it!";
					next;
					misceffect 154;
					mes "[Habir Moah]";
					mes "With my skills,";
					mes "the great creation of me, Habir Moah,";
					mes "is completed!";
					mes "Here it is,";
					mes "Angel Wing Ears";
					getitem 5074,1;
					next;
					mes "[Habir Moah]";
					mes "Fromnow on,";
					mes "everyone will you.";
					close;
				} else {
					mes "[Habir Moah]";
					mes "I'm sorry. If you have not prepared all the materials,";
					mes "I won't do that for you.";
					mes "I'll need Angel Wing, Elven Ears and";
					mes "20000 zeny.";
					mes "Can you please confirm that you have all of those?";
					close;
				}
			case 2:
				mes "[Habir Moah]";
				mes "If you're interested in it in future,";
				mes "do come and find me.";
				mes " ";
				mes "Ah, what a soothing breeze.";
				close;
			}
		}
	} else {
		mes "[Habir Moah]";
		mes "I am not sure how I have followed the wind,";
		mes "that leads me to Juno...";
		mes "Altough I don't really feel comfortable on a high place like this, the view here is really breath taking.";
		mes "I never knew the sky could be so beautiful,";
		mes "when I was travelling on the land.";
		next;
		mes "[Habir Moah]";
		mes "Anyway, I am a craftman in nature...";
		mes "I feel uneasy if I do not craft anything.";
		mes "And it's been a while since my last creation.";
		mes "If there're materials,";
		mes "I'll surely create the best creation of my life.";
		mes "Unfortunately, there weren't any. ...Hehe...";
		next;
		mes "[Habir Moah]";
		mes "May I ask, do you have either Angel Wing,";
		mes "Evil Wing or Elven Ear?";
		mes "If you do, can you bring it to me?";
		mes "I will help you to make a beautiful";
		mes "Ears of Angel's Wing and Ears of Devil's Wing.";
		next;
		switch(select("Can you tell me about the details?:I'll consider about it.")) {
		case 1:
			mes "[Habir Moah]";
			mes "Oh yes,";
			mes "I need to tell you the details about the materials.";
			mes "Angel Wing Ears requires ^4d4dffAngel Wings^000000 and";
			mes "^4d4dffElven Ears^000000 and the cost for other materials is";
			mes "approximatedly ^4d4dff20000 zeny^000000";
			next;
			mes "[Habir Moah]";
			mes "Devil Wing Ears requires ^4d4dffEvil Wing^000000 and";
			mes "^4d4dffElven Ears^000000 while the cost for other materials is";
			mes "approximately ^4d4dff20000 zeny";
			next;
			mes "[Habir Moah]";
			mes "Please come to me after you have got all the materials.";
			mes "I will make the joy of Angel and terror of Devil";
			mes "as a present for you.";
			close;
		case 2:
			mes "[Habit Moah]";
			mes "I always look at thge sky at this location...";
			mes "So if you need me, you know where to find me.";
			close;
		}
	}
}
//Lutie /=Sea Otter Cap=/
xmas,183,267,3	script	Pretty Lindsay	793,{
	if (countitem(5033) && countitem(5064)) {
		delitem 5033,1;
		delitem 5064,1;
		mes "[Pretty Lindsay]";
		mes "Wow~ you really have brought all the items here.";
		mes "Hang on for a while~";
		mes "Lindsay will make that for you right now.";
		next;
		mes "[Pretty Lindsay]";
		mes "Just like what my mom taught me,";
		mes "first, place this on the ground...";
		mes "Preparation complete. . . .";
		mes "Haya, yah!";
		next;
		misceffect 261;
		mes "^FF0000Lindsay put the RaccoonHat on the ground,";
		mes "and place the Smokie Leaf on top of it.";
		mes "Then she say something that none could understand its meaning.";
		mes "There's a bright glitter,";
		mes "and the fur of the RaccoonHat slowly turns into blue color.";
		mes "And finally, the shape of Smokie turns into Otter.";
		next;
		mes "[Pretty Lindsay]";
		mes "Pheww! It's done!";
		mes "It's so tiring I am feeling weak right now!";
		mes "Here~ Take it~";
		getitem 5078,1;
		next;
		mes "[Pretty Lindsay]";
		mes "This is.. This is the best creation of Lindsay.";
		mes "Remember to put it on always~";
		mes "Farewell~";
		close;
	} else {
		mes "[Pretty Lindsay]";
		mes "Hi~ Wassup?";
		if (sex) {
			mes "Handsome boy.";
		} else {
			mes "Beautiful?";
		}
		next;
		mes "[Pretty Lindsay]";
		mes "Do you want to get a cute headgear?";
		mes "Pretty Lindsay is going to create";
		mes "a cap that looks like a Sea Otter this time.";
		mes "How about that? It should be cute, ya?";
		emotion e_heh; //ET_SMILE
		next;
		mes "[Pretty Lindsay]";
		mes "Imagina that~ If you get to wear that hat,";
		mes "you will have the feeling,";
		mes "that you're like an Sea Otter.";
		mes "If you can be like an Sea Otter.. Woah!";
		mes "I am getting excited just by imagining it.";
		next;
		mes "[Pretty Lindsay]";
		mes "However, production of ^4D4DFFSea-Otter Hat^000000 requires,";
		mes "^0000FFRaccoonHat^000000 x1 ^0000FFSmokie Leaf^000000 x1";
		mes "So, if you want to get a Sea-Otter Hat, brother,";
		mes "just bring along the materials,";
		mes "and Lindsay will make it for you immediately.";
		next;
		switch(select("I will come again when I have collected them.:Yo..why RaccoonHat?")) {
		case 1:
			mes "[Pretty Lindsay]";
			mes "Hmm~ Come back soon~";
			emotion e_heh; //ET_SMILE
			close;
		case 2:
			mes "[Pretty Lindsay]";
			mes "Ah..why Sea-Otter Hat production";
			mes "requires Smokie Hat?";
			mes "Hmm. .That's because. . . secrets.. .";
			next;
			mes "[Pretty Lindsay]";
			mes "When you place Smokie Leaf with RaccoonHat,";
			mes "and say the spell,";
			mes "according to what my mom had taught, the RaccoonHat will";
			mes "^003063Bang!!^000000 and turn into Sea-Otter Hat.";
			next;
			mes "[Pretty Lindsay]";
			mes "But I don't know why it can be like that.";
			mes "Mom never tell me the reason.";
			next;
			mes "["+strcharinfo(0)+"]";
			mes ". . . . . . . . . . . . . . . . .";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "Ok..Ok, I will come again when I have collected all the items.";
			close;
		}
	}
}
//Lutie /=Brown Bear Cap=/ [5059]
xmas,175,156,3	script	Fuzzy Fuzz	712,{
	if (countitem(5030) && countitem(7213) > 99 && countitem(7217) > 99 && countitem(7161) > 299) {
		delitem 5030,1;
		delitem 7213,100;
		delitem 7217,100;
		delitem 7161,300;
		mes "[Fuzzy Fuzz]";
		mes "Good! You've brought it!";
		mes "The production might take some time.";
		mes "There's a lot of amendment to be done.";
		mes "So, please wait for a while.";
		next;
		mes "[Fuzzy Fuzz]";
		mes ". . . TutaTusa. . .";
		mes "Pluck this off. . . .";
		mes "Wuha!~ Sew it happily..";
		mes "Wait a little longer.";
		next;
		mes "[Fuzzy Fuzz]";
		mes "Didn't they say people who wait will be more lucky?";
		mes "It's almost done. So wait for a little while.";
		mes "Rub your hands if you feel cold.";
		next;
		mes "[Fuzzy Fuzz]";
		mes "It is done!";
		mes "I've made a cap that is suitable for you!";
		mes "I know I made it, but it really looks nice.";
		mes "I used a lot of efforts,";
		mes "so please take good care of it.";
		mes "Here~ Please take it with you~";
		getitem 5059,1;
		close;
	} else {
		mes "[Fuzzy Fuzz]";
		if (sex) {
			mes "Hey you, hold it right there!";
		} else {
			mes "Yoh miss, hold it right there.";
		}
		mes "You who look like a slow and dumb bear,";
		mes "I have a cap that fits you,";
		mes "how about that? do you want it?";
		emotion e_omg; //ET_SURPRISE?
		next;
		mes "[Fuzzy Fuzz]";
		mes "Haha.. Looks like you're not happy";
		mes "because I said you look dumb, right?";
		mes "How sensitive . . .";
		mes "What I mean is, you're honest and easy to be tricked.";
		mes "OkOk.. don't look at me like that.";
		emotion e_sry; //ET_SORRY
		next;
		mes "[Fuzzy Fuzz]";
		mes "I can't make the cap now because I do not have the materials.";
		mes "Can you please.";
		mes "find the materials for me?";
		mes "I will help to make the 'Teddybear Hat' for you.";
		next;
		mes "[Fuzzy Fuzz]";
		mes "Come, let me tell you about the required materials.";
		mes "You won't need very much materials here.";
		mes "^0000FFPanda Hat^000000 x1 ^0000FFNeedle Packet^000000 x100";
		mes "^0000FFSpool^000000 x100 ^0000FFBlack Bear's Skin^000000 x300";
		mes "That's all,";
		mes "isn't that easy to be found?";
		next;
		mes "[Fuzzy Fuzz]";
		mes "I will be waiting for you!";
		emotion e_heh; //ET_SMILE
		close;
	}
}
//payon /=Cap of Concentration=/ [5073]
payon_in03,8,193,4	script	Nan Hyang	75,{
	if (countitem(2285) && countitem(1550)) {
		mes "[Nan Hyang]";
		mes "Sigh, give that to me.";
		mes "Before I start,";
		mes "take note of this,";
		mes "In the process of production ^FF0000'Model Training Hat'^000000,";
		mes "If ^FF0000the 'Book' is slotted with card,";
		mes "or possesses refined level^000000,";
		emotion e_heh; //ET_SMILE
		next;
		mes "[Nan Hyang]";
		mes "^FF0000the effect will dissappear,";
		mes "Of course, the same goes to the 'Apple of Archer' too^000000.";
		mes "So do you want me to make it now?";
		next;
		switch(select("Start making it:Wait, don't.")) {
		case 1:
			mes "[Nan Hyang]";
			mes "Request accepted,";
			mes "I will start it right now.";
			mes "Please have a seat,";
			mes "and wait for me, will you?";
			mes "This is to make sure that you have the correct posture.";
			mes "Don't worry, it's for free.";
			emotion e_ok; //ET_OK
			next;
			mes "[Nan Hyang]";
			mes "Please be patient!";
			next;
			mes ". . . . . . . . . . . . . . . . . .";
			mes " . . . . . . . . . . . . . . . . . ";
			mes ". . . . . . . . . . . . . . . . . .";
			mes " . . . . . . . . . . . . . . . . . ";
			next;
			mes "[Nan Hyang]";
			mes "This is not a hard task,";
			mes "so it's going to be completed right away..";
			mes "Please wear this hat,";
			mes "to keep a correct posture.";
			mes "Thank you!";
			next;
			mes "[Nan Hyang]";
			mes "An apple is placed on the book,";
			mes "keep it balanced and don't let is fall.";
			mes "This is the reason to put on the 'Model Training Hat',";
			mes "to keep the balance in order to keep the correct posture.";
			emotion e_oh; //ET_AHA? =X
			next;
			mes "[Nan Hyang]";
			mes "You might feel unconfortable and pain on your neck at the beginning.";
			mes "But as you use it,";
			mes "you will slowly found your posture going better.";
			if (countitem(2285) && countitem(1550)) {
				delitem 2285,1;
				delitem 1550,1;
				getitem 5073,1;
			}
			next;
			mes "[Nan Hyang]";
			mes "Here it is.";
			mes "Please take it.";
			mes "Ah.. Before I forget,";
			mes "This is the Arrow taken from the Apple of Archer.";
			mes "Please take it.";
			getitem 1750,1;
			next;
			mes "[Nan Hyang]";
			mes "Farewell then.";
			mes "Have a balanced day.";
			close;
		case 2:
			mes "[Nan Hyang]";
			mes "Ah.. isn't this an item that requires a lot of equipments?";
			mes "If you've fully prepared, come and find me.";
			emotion e_hmm; //ET_THINK?
			close;
		}
	} else {
		mes "[Nan Hyang]";
		mes "Good day.";
		mes "This place teaches manners and posture.";
		mes "May I know,";
		mes "how can I help you here?";
		emotion e_omg; //ET_SURPRISE?
		next;
		switch(select("I want to learn too . .:I'm sorry. I think I came to a wrong place.")) {
		case 1:
			mes "[Nan Hyang]";
			mes "Oh, I see.";
			mes "But how do I say this?";
			mes "I'm really sorry,";
			mes "we are not having any intake currently.";
			next;
			mes "[Nan Hyang]";
			mes "And since the president is going outstation,";
			mes "and we're not sure,";
			mes "when he'll return,";
			mes "(Phew..how long are you going to";
			mes "stay in the in. . . .)";
			next;
			mes "[Nan Hyang]";
			mes "Hmm, beofre you take the course of manners,";
			mes "we have to correct";
			mes "your unbalance posture first.";
			mes "This means that,";
			mes "a correct posture is a polite action.";
			mes "That's what I think.";
			next;
			mes "[Nan Hyang]";
			mes "Since it is quite impossible to correct your posture now,";
			mes "I will let you correct it yourself.";
			mes "The method is";
			mes "to create a 'Model Training Hat',";
			mes "for you.";
			next;
			mes "[Nan Hyang]";
			mes "Do you want me to make this for you?";
			mes "If you want it,";
			mes "please take the materials required here.";
			mes "Generally I can give it to you for free.";
			mes "But there's no stock in the storage anymore.";
			emotion e_hmm; //ET_QUESTION?
			next;
			mes "[Nan Hyang]";
			mes "If you bring ^0000FFApple of Archer^000000 x1 and ^0000FFBook^000000 x1,";
			mes "I will produce it,";
			mes "and give the product to you.";
			next;
			mes "[Nan Hyang]";
			mes "After you've get these items,";
			mes "come and find me.";
			mes "Farewell then.";
			close;
		case 2:
			mes "[Nan Hyang]";
			mes "Oh, I see.";
			mes "This place should be kept silent.";
			mes "If you do not have any important matters,";
			mes "can you please go out? Thank you.";
			mes "Good byethen. . .";
			close;
		}
	}
}
//geffen /=Tulip Hairpin=/
geffen,83,189,5	script	Ses	716,{
	mes "[Ses]";
	mes "My name is Ses.";
	mes "Ses like to fold paper.";
	mes "I used a big colorful paper to make a huge boat for mummy yesterday.";
	mes "She thank me and touch my head, hehe.";
	emotion e_heh; //ET_SMILE
	next;
	mes "[Ses]";
	mes "Today, the teacher teaches us the method to make beautiful flower!!!";
	mes "Altough it's a little bit hard~ it's very interesting~";
	mes"The flower is beautiful when you put it on your head. Everyone tell me so, and I'm so happy!";
	emotion e_heh; //ET_THROB?=X
	next;
	if (countitem(2278) && countitem(975)) {
		mes "[Ses]";
		mes "Hehe- Mr. Smile!! Scarlet Dyestuffs!!!";
		mes "WuYeaghhhhh---";
		mes "Come, let me";
		mes "help you make a beautiful flower !!";
		emotion e_swt; //ET_SWEAT
		next;
		mes "[Ses]";
		mes "Let me make it for you, ok? Ok????";
		emotion e_swt;
		next;
		switch(select("Allow you to do so:I reject")) {
		case 1:
			mes "[Ses]";
			mes "Wahahahaha~";
			emotion e_heh;
			next;
			mes "[Ses]";
			mes "Take this Mr Smile,";
			mes "cut here a little, cut there some~~";
			mes "and a little there, and here....";
			mes "yiyik...";
			emotion e_ho; //ET_DELIGHT?
			next;
			mes "[Ses]";
			mes "Ha- !! It's done!!!!";
			if (countitem(2278) && countitem(975)) {
				delitem 2278,1;
				delitem 975,1;
				getitem 5077,1;
			}
			next;
			mes "[Ses]";
			mes "Hehe, it's done,";
			mes "How about it? Cute, isn't it? Right?";
			next;
			mes "[Ses]";
			mes "Am I good?";
			mes "Hehe, I am making one for my bother too.";
			mes "You need one, brother.";
			mes "come and find me again if you want me to make a beautiful flower again.";
			mes "Good bye then~";
			close;
		case 2:
			mes "[Ses]";
			mes "Yiyee~~ I don't need to help you do it again then!!";
			close;
		}
	} else {
		mes "[Ses]";
		mes "Do you want to make on too, big brother?";
		mes "I will teach you... hehehe";
		next;
		mes "[Ses]";
		mes "However, you need to prepare some items,";
		mes "because I don't have anything now.";
		mes "Can you bring it to me, big brother?";
		next;
		switch(select("Sure:No")) {
		case 1:
			mes "[Ses]";
			mes "So please bring,";
			mes "^3131FFMr. Smile x1";
			mes "Scarlet Dyestuffs x1^000000";
			mes "I will make a beautiful red flower for you.";
			next;
			mes "[Ses]";
			mes "I will wait for you here. Remember to come, ok!?";
			close;
		case 2:
			mes "[Ses]";
			mes "Hooyeahyeahyeah~~~~~";
			emotion e_sob;
			close;
		}
	}
}
//Lutie /=Party Hat, Straw Hat, Cowboy Hat, Sombrero and Fur hat=/
xmas_in,35,30,3	script	Headgear Merchant	797,{
	mes "[Mike]";
	mes "I like hats...";
	mes "I like hats more than any other thing in this world!!";
	mes "Even if you compared hats with eating,";
	mes "wearing a new hat is far more important";
	next;
	mes "[Mike]";
	mes "Hat, Cap, Holy Bonnet,";
	mes "Turban, Iron Helm,";
	mes "Hemmed Sallet, Munak Turban...";
	mes "I like them all!!";
	mes "(Wuhoo! Wuhoohoo!!)";
	next;
	mes "[Mike]";
	mes "I have learned the way to modified a hat,";
	mes "and I am researching";
	mes "to design the most fashionable hat.";
	next;
	switch(select("Party Hat:Straw Hat:Cowboy Hat:Sombrero:Fur Hat")) {
	case 1: //Party hat [5060]
		if(countitem(2236) && countitem(7151) > 99 && countitem(7111) > 99) {
			mes "[Mike]";
			mes "Party Hat! It is made according to the Santa's Hat,";
			mes "decorated with some papers.";
			mes "This is the best Party Hat!! Do you want it?";
			mes "(Ohhhh, beautiful! So beautiful!)";
			next;
			mes "[Mike]";
			mes "Wait, before I start the production, let's confirm this.";
			mes "I will use items regarless of whether,";
			mes "it had been refined or slotted with cards.";
			mes "So you better just prepare the items required,";
			mes "and put the others in the storage.";
			next;
			mes "[Mike]";
			mes "You've brought all the materials...";
			mes "Great! The one who wants a Party Hat,";
			mes "do you want me to make it for you right now?";
			next;
			switch(select("No:Yes")) {
			case 1:
				mes "[Mike]";
				mes "Hmm, is that so...";
				mes "Let keep wearing your Santa's Hat then.";
				mes "Hmmmhmmmhmmm....";
				close;
			case 2:
				mes "^3355FFDeteDete ChebenCheben";
				mes "PotterPotter MeganMegan";
				mes "PosongPosong ShahaShaha";
				next;
				if(countitem(2236) && countitem(7151) > 99 && countitem(7111) > 99) {
					delitem 2236,1;
					delitem 7151,100;
					delitem 7111,100;
					getitem 5060,1;
				}
				mes "[Mike]";
				mes "Very Good!";
				mes "Force the birthday fellow to put this on,";
				mes "then you can play tricks on him. That should be fun...";
				mes "Please come again too next time~";
				next;
				mes "[Mike]";
				mes "And, this is what's left after the process.";
				mes "Here, take it!";
				mes "Maybe it might be useful to you... (Hehehehe)";
				getitem 949,10;
				close;
			}
		} else {
			mes "[Mike]";
			mes "Party Hat! It's a necessity,";
			mes "for anyone who throws a birthday party.";
			mes "No matter how serious looking one is,";
			mes "the hat will make him look cute and funny!";
			next;
			mes "[Mike]";
			mes "In my opinion, it is suitable not only for birthday,";
			mes "but as well as entertaining event!";
			mes "This beautiful hat is just suitable for fun.";
			mes "(...How about organizing a party for adventure?!?)";
			next;
			mes "[Mike]";
			mes "Anyway, the material required are";
			mes "^3355FFSanta's Hat^000000 x1";
			mes "^3355FFOil Paper^000000 x100";
			mes "^3355FFSlick Paper^000000 x100";
			next;
			mes "[Mike]";
			mes "These are what I need.";
			mes "So don't forget to collect the material, ok?";
			mes "I will always be around....";
			mes "So come back only after you have collected them!";
			close;
		}
	case 2: //Straw Hat [5062]
		if(countitem(2280) && countitem(7197) > 299 && countitem(7150) > 299) {
			mes "[Mike]";
			mes "Straw Hat! This hat is based on Sahkkat,";
			mes "that is make of bamboo and rattan.";
			mes "Wearing it makes you think that you're going to have a good harvesting year!";
			mes "(Look, power of farmer!!)";
			next;
			mes "[Mike]";
			mes "Wait, before I start the production, let's confirm this.";
			mes "I will use items regardless of whether";
			mes "it had been refined or slotted with cards.";
			mes "So you better just prepare the items required,";
			mes "and put the others in the storage.";
			next;
			mes "[Mike]";
			mes "You've brought all the materials...";
			mes "Great! The one who wants a Straw Hat,";
			mes "do you want me to make it for you right now?";
			next;
			switch(select("No, thanks:Sure")) {
			case 1:
				mes "[Mike]";
				mes "Hmm, is that so...";
				mes "Let keep wearing your Sahkkat then.";
				mes "Hmmmhmmmhmmm....";
				close;
			case 2:
				mes "^3355FFSakaSaka WakaWaka";
				mes "JekaJeka HuyiHuyi";
				mes "PokaPoka TewuTewu^000000";
				next;
				if(countitem(2280) && countitem(7197) > 299 && countitem(7150) > 299) {
					delitem 2280,1;
					delitem 7197,300;
					delitem 7150,300;
					getitem 5062,1;
				}
				mes "[Mike]";
				mes "HmmHmm! It feels that the harvest of this year shall be good!";
				mes "I hope next year will be the same too...";
				mes "Ahahaha, what am I talking about...";
				mes "Please come again if you want more~";
				close;
			}
		} else {
			mes "[Mike]";
			mes "Staw Hat! It gives you energy to work,";
			mes "even under the heat of the sun";
			mes "as well as providing shades that give you a cool feeling.";
			mes "This hat will make you hope for a good harvest this year too!";
			next;
			mes "[Mike]";
			mes "This hat is suitable for the farmers,";
			mes "who want to plant or cultivate their crops.";
			mes "You have the feel of a villager when you wear it!";
			mes "(For your info, I am a city kid!)";
			next;
			mes "[Mike]";
			mes "Anyway, the materials required for production are";
			mes "^3355FFSakkat^000000 x1";
			mes "^3355FFTough Vines^000000 x300";
			mes "^3355FFPiece of Bamboo^000000 x300";
			next;
			mes "[Mike]";
			mes "These are what I need.";
			mes "So don't forget to collect all the material, ok?";
			mes "I will always be around....";
			mes "So come back only after you have collected them!";
			close;
		}
	case 3: //Cowboy Hat [5075]
		if (countitem(2248) && countitem(7030) > 107 && countitem(7194) > 107 && countitem(7120) > 3) {
			mes "[Mike]";
			mes "Cowboy Hat! A hat of western feel,";
			mes "but looks toughet than Western Grace,";
			mes "That is suitable for the western's males!";
			mes "(Qiang... Yeehahaa~...)";
			next;
			mes "[Mike]";
			mes "Wait, before I start the production, let's confirm this.";
			mes "I will use item regardless of wether";
			mes "It had been refined or slotted with cards.";
			mes "So you better just prepare the items required,";
			mes "and put the others in the storage.";
			next;
			mes "[Mike]";
			mes "You've brought all the materials...";
			mes "Great! The one who wants a Cowboy Hat,";
			mes "do you want me to make it for you right now?";
			switch(select("No:Yes")) {
			case 1:
				mes "[Mike]";
				mes "Hmm,is that so...";
				mes "Let keep wearing your typical Western Grace then.";
				mes "Hmmmhmmmhmmm....";
				close;
			case 2:
				mes "^3355FFDudududu bangbangbangbang";
				mes "TadamTadam BiyongBiyong";
				mes "Wuuuuu Ahwuwuwuwuw^000000";
				next;
				if (countitem(2248) && countitem(7030) > 107 && countitem(7194) > 107 && countitem(7120) > 3) {
					delitem 2248,1;
					delitem 7030,108;
					delitem 7194,108;
					delitem 7120,4;
					getitem 5075,1;
				}
				mes "[Mike]";
				mes "HeeeHaH! With that";
				mes "you can tame even the wildest stiallion!";
				mes "Please come again if you need more~";
				close;
			}
		} else {
			mes "[Mike]";
			mes "Cowboy Hat!A hat of western feel,";
			mes "where you seem to found the boiling blood of the cowboys...";
			mes "It's as if you are going to draw something out,";
			mes "and start shooting!";
			next;
			mes "[Mike]";
			mes "The Cowboy Hat with thefeel of opening a barren land...";
			mes "It makes guys look cool!";
			mes "and it makes gals look prettier";
			mes "(Is tought the new concept of beauty...?)";
			next;
			mes "[Mike]";
			mes "Anyway, the materials required for production are";
			mes "^3355FFWestern Grace^000000 x1";
			mes "^3355FFClaw of Desert Wolf^000000 x108";
			mes "^3355FFSoft Blade of Grass^000000 x108";
			mes "^3355FFBurning Horseshoe^000000 x4";
			next;
			mes "[Mike]";
			mes "These are what I need.";
			mes "So don't forget to collect the material, ok?";
			mes "I will always be around....";
			mes "So come back only after you have collected them!";
			close;
		}
	case 4: //Sombrero [5067]
		if (countitem(5062) && countitem(952) > 49 && countitem(1907)) {
			mes "[Mike]";
			mes "SipoleiyeahhhhhhWoohohoh!!";
			mes "Amigo! Adios Amigo!";
			mes "If you like the sun and happy melody,";
			mes "this is the right hat for you!!";
			next;
			mes "[Mike]";
			mes "Wait, before I start the production, let's confirm this.";
			mes "I will use items regardless of wether";
			mes "it had been refined or slotted with cards.";
			mes "So you better just prepare the items required";
			mes "and put the others in the storage";
			next;
			mes "[Mike]";
			mes "You've brought all the materials...";
			mes "Great! The one who wants a Sombrero,";
			mes "so you want me to make if for you right now?";
			switch(select("No:Yes")) {
			case 1:
				mes "[Mike]";
				mes "Hmmm, is that so...";
				mes "Let keep wearing your shady Straw Hat then.";
				mes "Hmmmhmmmhmmm....";
				close;
			case 2:
				mes "^3355FFQingkaQinka KiangggQiangkiang";
				mes "Diringringling kaciangkaciang";
				mes "Adios Mamamiya^000000";
				next;
				if (countitem(5062) && countitem(952) > 49 && countitem(1907)) {
					delitem 5062,1;
					delitem 952,50;
					delitem 1907,1;
					getitem 5067,1;
				}
				mes "[Mike]";
				mes "If you wear this to the desert,";
				mes "you'll be Muka's friend too!! Full with joyous tempo and heat!!";
				mes "Please come again if you want more~";
				close;
			}
		} else {
			mes "[Mike]";
			mes "Yibayiba, andeleh andeleh!!";
			mes "Amigo! Adios, Amigo!";
			mes "Come again, Morocc!";
			mes "Astalacista Baby!";
			next;
			mes "[Mike]";
			mes "For you who like the sun and loud music!!";
			mes "I present you with";
			mes "the tri-level hat, Sombrero!!";
			mes "(From Yggdrasil tree trill here!?)";
			next;
			mes "[Mike]";
			mes "Anyway, the materials required for production are";
			mes "^3355FFStraw Hat^000000 x1,";
			mes "^3355FFCactus Needle^000000 x50,";
			mes "^3355FFGuitar^000000 x1";
			next;
			mes "[Mike]";
			mes "These are what I need";
			mes "So don't forget to collect the material, ok?";
			mes "I will always be around....";
			mes "So come back only after you have collected them!";
			close;
		}
	case 5: //fur hat [5076]
		if (countitem(2226) && countitem(7038) > 499) {
			mes "[Mike]";
			mes "Fur Hat! Yo, Man! Check it out!";
			mes "It's good for keeping warm! But it's fashionable too!";
			mes "Even if you went to places as cold as Lutie,";
			mes "you will be ok with this Beanie!!";
			next;
			mes "[Mike]";
			mes "Wait, before I start the productions, let's confirm this.";
			mes "I will use items regardless of wether";
			mes "it had been refined or slotted with cards.";
			mes "So you better just prepare the items required,";
			mes "and put the others in the storage.";
			next;
			mes "[Mike]";
			mes "You've brought all the materials...";
			mes "Great! The one who wants a Beanie,";
			mes "do you want me to make it for you right now?";
			next;
			switch(select("No:Yes")) {
			case 1:
				mes "[Mike]";
				mes "Hmm, is that so...";
				mes "Let keep wearing your Cap that is produce in bundles then.";
				mes "Hmmmhmmmhmmm....";
				close;
			case 2:
				mes "^3355FFKafokapo Kafokapo";
				mes "poterpote poterpote";
				mes "PosongPosong PosongPosong";
				next;
				if (countitem(2226) && countitem(7038) > 499) {
					delitem 2226,1;
					delitem 7038,500;
					getitem 5076,1;
				}
				mes "[Mike]";
				mes "Complete! The nicely knitted,";
				mes "cute white hat! Yeat! Go Go!";
				mes "Please come again if you need more~";
				close;
			}
		} else {
			mes "[Mike]";
			mes "Beanie! Gimme a chocolate!! Right!";
			mes "No matter who wears it,";
			mes "you will feel the snowy winter!! Event if you are from Morocc,";
			mes "you will look more like a traveller from Lutie if you put that on!";
			next;
			mes "[Mike]";
			mes "There was a rumor";
			mes "people wearing it will pull out his hard and shout Yo without knowing it-";
			mes "I think we better change a topic...";
			mes "(Hot weather, the head can't stand the heat?!?)";
			next;
			mes "[Mike]";
			mes "Anyway, the material required for production are";
			mes "^3355FFCap^000000 x1,";
			mes "^3355FFYarn^000000 x500.";
			next;
			mes "[Mike]";
			mes "These are what I need.";
			mes "So don't forget to collect the material, ok?";
			mes "I will always be around....";
			mes "So come back only after you have collected them!";
			close;
		}
	}
}
//Yuno /=Big Golden Bell, Headgear of Queen and Mistress Crown=/
yuno_in03,20,18,6	script	Neris	726,{
	mes "[Neris]";
	mes "This time,";
	mes "as a gratitude of everyone's support to the Museum,";
	mes "we have prepared a special item,";
	mes "That is ...!";
	next;
	mes "[Neris]";
	mes "If an accessoiries for monsters is reconstructed, it can be equipped by human too!";
	next;
	mes "[Neris]";
	mes "We are in the experimenting stage currently,";
	mes "and there're only 3 type of monster's accesories that can be equipped.";
	mes "Maybe there're more to come in the future.";
	mes "However,";
	mes "we cannot provide these accessories to everyone without limit.";
	mes "We would like to ask for the materials and production fee,";
	mes "before we can provide the accessories to you.";
	next;
	mes "[Neris]";
	mes "Please select an accessoiries that you are curious of, or wich us to produce for you.";
	next;
	switch(select("Decorative Golden Bell:Crown of Ancient Queen:Crown of Mistress")) {
	case 1: //Big golden bell [5091]
		mes "[Neris]";
		mes "The Decorative Golden Bell is";
		mes "the accessory equipped by the monster 'Sohee'.";
		mes "It's very suitable and looks good on female players.";
		mes "Altough it might be a little big, I'm sure you'll like it.";
		next;
		if (countitem(10016) && countitem(714) && countitem(969) > 2 && Zeny > 19999) {
			delitem 10016,1;
			delitem 714,1;
			delitem 969,3;
			set Zeny,Zeny-20000;
			mes "[Neris]";
			mes "So you have brought all the required materials.";
			mes "Please wait for a while.";
			next;
			mes "^3355FF- Dang Dang! Qing Yi Qing Yi! Ding Ding Dang Dang! -^000000";
			getitem 5091,1;
			next;
			mes "[Neris]";
			mes "EEyaah~ The elegant golden bell is complete.";
			mes "Walk around with it.";
			mes "Altough it won't make the ding dong sounds,";
			mes "it sure is beautiful.";
			next;
			mes "[Neris]";
			mes "Don't you feel that you look like a Sohee now?";
			mes "But don't commit suicide like her.";
			mes "If you want to make anymore of it,";
			mes "do come and find me again.";
			mes "Finally, please come to visit the Monster Museum frequently.";
			close;
		} else {
			mes "[Neris]";
			mes "The material required for the production of this item are,";
			mes "^3355FFGolden Bell x1, Emperium x1, Gold x3^000000 and";
			mes "20,000 zeny";
			next;
			mes "[Neris]";
			mes "As long as you are prepared,";
			mes "with the materials and zeny required for the production,";
			mes "I will make it for you anytime.";
			close;
		}
	case 2: //Headgear of Queen [5080] (Crown of ancient queen)
		mes "[Neris]";
		mes "The Crown of Ancient Queen is the equipment of";
		mes "monster 'Isis'.";
		mes "When you wear it,";
		mes "you will feel like a queen.";
		next;
		if (countitem(10006) && countitem(714) && countitem(969)>2 && Zeny>19999) {
			delitem 10006,1;
			delitem 714,1;
			delitem 969,3;
			set Zeny,Zeny-20000;
			mes "[Neris]";
			mes "So you have brought all the required materials.";
			mes "Please wait for a while.";
			next;
			mes "^3355FF- Dang Dang! Qing Yi Qing Yi! Ding Ding Dang Dang! -";
			getitem 5080,1;
			next;
			mes "[Neris]";
			mes "Here it is! The Crown of Ancient Queen!";
			mes "Altough you won't become a real queen after wearing it,";
			mes "you will surely";
			mes "have a different feeling.";
			next;
			mes "[Neris]";
			mes "After you wear this,";
			mes "I think you should really have a good figure,";
			mes "because that will be more meaningful.";
			mes "If you need to make it again,";
			mes "do come find me again.";
			mes "Finally, please come to visit the Monster Museum frequently.";
			close;
		} else {
			mes "[Neris]";
			mes "The materials required for the production are";
			mes "^3355FFQueen's Hair Ornament x1, Emperium x1, Gold x3^000000 and";
			mes "20,000 zeny.";
			next;
			mes "[Neris]";
			mes "As long as you are prepared";
			mes "with the materials and zeny required for the production";
			mes "I will make it for you anytime.";
			close;
		}
	case 3: //crown of mistress [5081]
		mes "[Neris]";
		mes "Crown of Mistress is";
		mes "brought by monster 'Mistress'."; //Maya? riiiight!
		mes "You can feel the precence of Mistress from it.";
		next;
		if (countitem(2249) && countitem(714) && countitem(969)>2 && Zeny>39999) {
			mes "[Neris]";
			mes "So you have brought everything.";
			mes "^FF0000However, during the process of production,";
			mes "no matter how many times";
			mes "the coronet is refined,";
			mes "it does not have effect to the product.";
			next;
			mes "[Neris]";
			mes "^FF0000So,";
			mes "please bring along only the Coronet x 1 that is required for the production.";
			mes "If anything is missing,";
			mes "we will not take responsible of it.^000000";
			mes "So, are you ready?";
			next;
			switch(select("Yes, I am.:Hold on, please")) {
			case 1:
				mes "[Neris]";
				mes "Please wait for a while.";
				next;
				mes "^3355FF- Dang Dang! Qing Yi Qing Yi! Ding Ding Dang Dang! -";
				if (countitem(2249) && countitem(714) && countitem(969)>2 && Zeny>39999) {
					delitem 2249,1;
					delitem 714,1;
					delitem 969,3;
					set Zeny,Zeny-40000;
					getitem 5081,1;
				}
				next;
				mes "[Neris]";
				mes "Woohoo!";
				mes "The beautiful Crown of Mistress is completed.";
				mes "Altough you won't have any servants,";
				mes "after you've worn it,";
				mes "I am sure you're having a different feeling.";
				next;
				mes "[Neris]";
				mes "If you wear this crown,";
				mes "and takea photo with Mistress,";
				mes "it will be very interesting.";
				mes "If you want to make anymore of it,";
				mes "do come find me again.";
				mes "Finally, please come to visit the Monster Museum frequently.";
				close;
			case 2:
				mes "[Neris]";
				mes "Please confirm it first";
				mes "before you come to me~";
				close;
			}
		} else {
			mes "[Neris]";
			mes "The materials required for production are";
			mes "^3355FFCoronet x1, Emperium x1, Gold x3^000000 together with";
			mes "40,000 zeny.";
			next;
			mes "[Neris]";
			mes "As long as you are prepaired";
			mes "with the materials and zeny required for the production,";
			mes "I will make it for you anytime.";
			close;
		}
	}
}
//Aldebaran /=Alarm Mask=/
//Effects: EF_BLASTMINE: 106
//EF_FLASHER:99
alde_alche,88,180,1	script	Muscle Man#Alarm	1193,{
end;
}
alde_alche,88,180,1	script	Muscle Man#Masked Alarm	748,{
	mes "[Muscle Man]";
	mes "Muscle, muscle. I like it. Hehe!!";
	mes "What a beautiful robotic muscle!";
	misceffect 99;
	disablenpc "Muscle Man#Masked Alarm";
	enablenpc "Muscle Man#Alarm";
	enablenpc "#Masked Alarm1";
	enablenpc "#Masked Alarm2";
	enablenpc "#Masked Alarm3";
	enablenpc "#Masked Alarm4";
	donpcevent "#Masked Alarm1::OnBlast";
	donpcevent "#Masked Alarm2::OnBlast";
	donpcevent "#Masked Alarm3::OnBlast";
	donpcevent "#Masked Alarm4::OnBlast";
	next;
	disablenpc "Muscle Man#Alarm";
	enablenpc "Muscle Man#Masked Alarm";
	if (countitem(2288) && countitem(1095) > 2999) {
		switch(select("Give him the item:End")) {
		case 1:
			mes "You found... You found it. You really found it!";
			mes "That's great! That's so great!";
			next;
			mes "[Muscle Man]";
			mes "Yes... From today onwards, the Clock Hand and Mr. Scream are mine! My Precious!";
			next;
			mes "[Muscle Man]";
			mes "And this, this shall be your precious.";
			if (countitem(2288) && countitem(1095) > 2999) {
				delitem 1095,3000;
				delitem 2288,1;
				getitem 5086,1;
			}
			next;
			mes "[Muscle Man]";
			mes "Good... Good bye! If you find more, remember to bring it here!!";
			donpcevent "#Masked Alarm1::OnBlast";
			donpcevent "#Masked Alarm2::OnBlast";
			donpcevent "#Masked Alarm3::OnBlast";
			donpcevent "#Masked Alarm4::OnBlast";
			disablenpc "#Masked Alarm1";
			disablenpc "#Masked Alarm2";
			disablenpc "#Masked Alarm3";
			disablenpc "#Masked Alarm4";
			close;
		case 2:
			mes "[Muscle Man]";
			mes "Hmm? Do you have anything to say to me?";
			mes "I smell something. Isn't that the nice smell of the grease from Mr. Alarm that I sense now?";
			donpcevent "#Masked Alarm1::OnBlast";
			donpcevent "#Masked Alarm2::OnBlast";
			donpcevent "#Masked Alarm3::OnBlast";
			donpcevent "#Masked Alarm4::OnBlast";
			disablenpc "#Masked Alarm1";
			disablenpc "#Masked Alarm2";
			disablenpc "#Masked Alarm3";
			disablenpc "#Masked Alarm4";
			close;
		}
	} else {
		mes "[Muscle Man]";
		mes "This is the item created by 'Loui Meato' that is attached to the arms and legs of Alarm.";
		mes "This is the ancient technique that can be found in the Clock Tower.";
		next;
		mes "[Muscle Man]";
		mes "If there's any skill to shrink this thing, 'Loui Meato' can be used by everyone soon!";
		next;
		mes "[Muscle Man]";
		mes "Although I've lost my arm and legs in an alchemy accident, but if I can make this technique for public, it will benefit a lot of people!";
		next;
		mes "[Muscle Man]";
		mes "Therfore... I want to ask you";
		mes "Do you have the will to help my in this research?";
		next;
		mes "[Muscle Man]";
		mes "The material is not enough. I want the Alarm's ^0000FFClock Hand^000000 and that strange ^0000FFMr. Scream^000000 that is said to look like the mask of Alarm.";
		mes "It will help a lot if you have those things.";
		next;
		mes "[Muscle Man]";
		mes "However, when I saw the Alarm in the Clock Tower, I will be fascinated by the great work on the creature's mechanical parts that is so brilliantly designed and manifactured.";
		mes "I've forgotten everything, including the materials required for the research.";
		next;
		mes "[Muscle Man]";
		mes "I am telling you this, to give you the opportunity to help me.";
		mes "So how about that? Do you wish to help me? The price is the Mask of Alarm that looks really good! It's a very important thing, you know?";
		next;
		donpcevent "#Masked Alarm1::OnBlast";
		donpcevent "#Masked Alarm2::OnBlast";
		donpcevent "#Masked Alarm3::OnBlast";
		donpcevent "#Masked Alarm4::OnBlast";
		disablenpc "#Masked Alarm1";
		disablenpc "#Masked Alarm2";
		disablenpc "#Masked Alarm3";
		disablenpc "#Masked Alarm4";
		switch(select("I will help you:............")) {
		case 1:
		case 2:
			mes "[Muscle Man]";
			mes "Ohohoh! You agree that Mr. Alarm is beautiful too!";
			mes "Good, good!";
			next;
			mes "[Muscle Man]";
			mes "What I want is, ^0000FFClock Hand x3000^000000 and";
			mes "^0000FFMr. Scream x1 ^000000";
			mes "With these items, I will be able to reasearch the fascinating parts of Mr. Alarm.";
			next;
			mes "[Muscle Man]";
			mes "I have said before. If you're able to find these things, I will give you Mr. Alarm's Mask.";
			mes "You will have the chance to wear ^0000FFAlarm's Mask^000000!";
			next;
			mes "[Muscle Man]";
			mes "Go! Go and find them now!";
			mes "Follower of Mr Alarm.";
			mes "The researcher of 'Loui Meato'.";
			mes "He who wants to be Mr. Alarm!";
			close;
		}
	}
OnInit:
	disablenpc "#Masked Alarm1";
	disablenpc "#Masked Alarm2";
	disablenpc "#Masked Alarm3";
	disablenpc "#Masked Alarm4";
	disablenpc "Muscle Man#Alarm";
	end;
}
alde_alche,86,184,3	script	#Masked Alarm1	1193,{
end;
OnBlast:
misceffect 106;
end; }
alde_alche,89,184,3	script	#Masked Alarm2	1193,{
end;
OnBlast:
misceffect 106;
end; }
alde_alche,92,184,3	script	#Masked Alarm3	1193,{
end;
OnBlast:
misceffect 106;
end; }
alde_alche,95,184,3	script	#Masked Alarm4	1193,{
end;
OnBlast:
misceffect 106;
end; }
//Morocc /= Drooping Kitty, Huge Leaf, Lazy Smokie and Blue Fish =/
morocc,273,79,4	script	Traveler	99,{
	function creation_lines {
	 	mes "[Human]";
		mes "Ah....So do you have all of it?";
		mes "Haha";
		mes "What an opportunity for me to show my skill.";
		mes "Please wait for a moment.";
		mes "....";
		next;
		next;
		mes "SiwuSiwu...";
		next;
		mes "SiwuSiwu...";
		mes "DudaTeda...";
		next;
		mes "SiwuSiwu...";
		mes "DudaTeda...";
		mes "ChepoChepo....";
		next;
		mes "SiwuSiwu...";
		mes "DudaTeda...";
		mes "ChepoChepo....";
		mes "HuizheHuizhe.....";
		mes "I think I heard some strange noises.";
		next;
		mes "[Human]";
		mes "Uhoh, can you wait for a while?";
		mes "It's almost done.";
		mes "............";
		next;
		mes "HeniHeniHeni...";
		mes "............";
		next;
		mes "HeniHeniHeni...";
		mes "KodeKode...";
		mes "............";
		next;
		mes "[Human]";
		mes "Ah, finally it is done.";
		mes "I have not done this too long.";
		mes "So it takes a little longer then I expect.";
		mes "Haha";
		next;
		mes "[Human]";
		mes "Now, here it is.";
		mes "I rarely feel this happy.";
		mes "Ah, I will take the claw too.";
		mes "Just think of it as ... some process fee.";
		mes "Haha....";
		return;
	}

	if(countitem(7030)) {
		mes "[Human]";
		mes "Ah....";
		mes "Claw of the Desert Wolf...";
		mes "You have this...";
		mes "This is the true symbol of Desert.";
		mes "Haha...";
		mes "It's been a while since I saw this last time.";
		mes "It really makes me feel reenergized!";
		next;
		mes "[Human]";
		mes "Haha... You have let me see a great thing.";
		mes "And I am going to pay you back!";
		mes "I have traveled to a lot of places,";
		mes "and learn to create a lot of things.";
		mes "May I know what do you want?";
		next;
		mes "[Human]";
		mes "Oh yes..."; //here we go again =3
		mes "If your equipment has been refined";
		mes "or slotted with cards,";
		mes "^FF0000the level of refines and cards will dissapear too.^000000";
		mes "So please confirm the item you require.";
		next;
		switch(select("Drooping Cat:Smokie Leaf:Lazy Smokie:Blue Fish:There's nothing that I like.")) {
		case 1:
			if (countitem(2233) && countitem(983) && countitem(7206) > 299 && countitem(7030)) {
				delitem 2233,1;
				delitem 983,1;
				delitem 7206,300;
				delitem 7030,1;
				creation_lines;
				getitem 5058,1;
				close;
			} else {
				mes "[Human]";
				mes "Ah, you want the Drooping Cat.";
				mes "Well,";
				mes "I can make that for you,";
				mes "but you will have to gather the required materials by yourself.";
				mes "I heard that it is not easy to find the materials.";
				next;
				mes "[Human]";
				mes "They are..";
				mes "^FF0000One slot circlet^000000 and";
				mes "^FF0000Black Dyestuff x1^000000";
				mes "plus ^FF0000Black Cat Doll x 300^000000.";
				mes "This is all you need.";
				mes "If you bring them to me, I will make the Cat for you.";
				close;
			}
		case 2: //Smokie Leaf [5064]
			if (countitem(945) > 599 && countitem(7030)) {
				delitem 945,600;
				delitem 7030,1;
				creation_lines;
				getitem 5064,1;
				close;
			} else {
				mes "[Human]";
				mes "Ah, so you want the Smokie Leaf.";
				mes "Well,";
				mes "I can make that for you,";
				mes "but you will have to";
				mes "gather the required materials by yourself.";
				mes "I heard that it is not easy to find the materials.";
				next;
				mes "[Human]";
				mes "This item ..";
				mes "requires ^FF0000Raccoon Leaf x600^000000 ";
				mes "It might be a lot, but I'm sure you can get it, can't you?";
				mes "If you bring it to me, I will make the headgear for you.";
				close;
			}
		case 3: //Lazy Smokie [5084]
			if (countitem(1026)>999 && countitem(7065)>99 && countitem(945)>9 && countitem(7030)) {
				delitem 1026,1000;
				delitem 7065,100;
				delitem 945,10;
				delitem 7030,1;
				creation_lines;
				getitem 5084,1;
				close;
			} else {
				mes "[Human]";
				mes "Ah, so you want the Lazy Smokie.";
				mes "Well,";
				mes "I can make that for you,";
				mes "but you will have to";
				mes "gather the required materials by yourself.";
				mes "I heard that it is not easy to find the materials.";
				next;
				mes "[Human]";
				mes "The materials are..";
				mes "^FF0000Acorn x1000^000000 and";
				mes "^FF0000Sea-Otter Fur x100^000000, as well as ^FF0000Raccoon Leaf x10^000000";
				mes "That's all you need.";
				mes "If you bring it to me, I will make the headgear for you.";
				close;
			}
		case 4: //Blue Fish [5065]
			if (countitem(624) && countitem(959)>299 && countitem(544)>49 && countitem(1023) && countitem(938)>99 && countitem(7030)) {
				delitem 624,1;
				delitem 959,300;
				delitem 544,50;
				delitem 1023,1;
				delitem 938,100;
				delitem 7030,1;
				creation_lines;
				getitem 5065,1;
			} else {
				mes "[Human]";
				mes "Ah, so you want the Fish.";
				mes "Well,";
				mes "I can make that for you,";
				mes "but you will have to gather the required materials by yourself.";
				mes "I heard that it is not easy to find the materials.";
				next;
				mes "[Human]";
				mes "The materials are..";
				mes "^FF0000Rotten Fish x1";
				mes "Stinky Scale x300, Raw Fish x50,";
				mes "Fish Tail x1^000000 and lastly, it requires at least ^FF0000Sticky Mucus x100^000000";
				mes "That's all you need.";
				mes "If you bring it to me, I will make the headgear for you.";
				close;
			}
		case 5: //cancel
			mes "[Human]";
			mes "Oh.. is that so?";
			mes "Haha...";
			mes "I thought I have the chance to do it again.";
			mes "Oh well,";
			mes "enjoy your journey then.";
			close;
		}
	} else {
		mes "[Human]";
		mes "Hello there.";
		mes "a good day isn't it?";
		mes "Hmm... If you don't mind,";
		mes "can I tell you a little about myself?";
		mes "I know you're kind of unwilling to do so,";
		mes "but please, do listen for a while, will you?";
		next;
		mes "[Human]";
		mes "Hmm...";
		mes "The city of desert, Morocc";
		mes "has this special attraction.";
		mes "The wind of flame blows during the heat of the day,";
		mes "but the sunsets dye the hills of sand into a violet screne.";
		mes "Besides that, the freezing chill of night never stops until morning.";
		next;
		mes "[Human]";
		mes "All these are the pride of Morocc.";
		mes "However,";
		mes "These are not enough to feed the greed of human.";
		mes "Thay want to take everything";
		mes "except the desert";
		mes "as their belongings.";
		next;
		mes "[Human]";
		mes "So, I started to travel,";
		mes "going around this world to experience the adventure.";
		mes "Some view that can only be found in certain places,";
		mes "at their origin habitat.";
		next;
		mes "[Human]";
		mes "Therefore,";
		mes "I have decided to create items,";
		mes "that possesses the special characteristecs of the places.";
		mes "I have gained a few successes,";
		mes "but the materials required are too hard to be found.";
		mes "Therefore, I can't produce too many items.";
		next;
		mes "[Human]";
		mes "Oh! Uh Oh...";
		mes "I have spoken too much.";
		mes "Sorry for taking your time.";
		mes "There's nothing to do recently...";
		mes "I just hope to see";
		mes "some item that is related to the desert....";
		next;
		mes "[Human]";
		mes "Hmmph...Anyway,";
		mes "thank you for listening to me.";
		mes "Enjoy your journey...";
		mes "Think of the desert, you think of wolves... hahaha.";
		close;
	}
}
//Payon /=Fox Mask=/ //==Lets hope this works as it's supposed==//
pay_dun03,48,84,4	script	Nine Tail#1	1180,1,1,{
	mes "[Nine Tail]";
	mes "Kee! KeeKee!";
	mes "KeeKeeKee! KeeKee! KeeKee!";
	next;
	switch(select("Shaking your head:Nodding")) {
	case 1:
		mes "[Nine Tail]";
		mes "KeeKee! Ke! Kee!";
		close2;
		donpcevent "Nine Tail#1::OnReset";
		end;
	case 2:
		emotion e_hmm;
		close2;
		disablenpc "Nine Tail#1";
		enablenpc "Nine Tail#2";
		end;
	}

OnInit:
	disablenpc "Nine Tail#1";
	disablenpc "Nine Tail#2";
	monster "pay_dun03",48,84,"Nine Tail",1180,1,"NT::OnMobDead";
	end;

OnReset:
	killmonster "pay_dun03","NT::OnMobDead";
	disablenpc "Nine Tail#1";
	disablenpc "Nine Tail#2";
	initnpctimer;
	end;

OnTimer300000:
OnSpawn:
	stopnpctimer;
	killmonster "pay_dun03","Nine Tail#1::OnMobDead";
	monster "pay_dun03",48,84,"Nine Tail",1180,1,"NT::OnMobDead";
	end;
}
pay_dun03,48,84,1	script	NT	-1,{
OnMobDead:
	enablenpc "Nine Tail#1";
	end;
}
pay_dun03,48,84,4	script	Nine Tail#2	1180,{
	if(countitem(1022)>998) {
		mes "[Nine Tail]";
		mes "Uh Oh!! You've brought it, human.";
		mes "Good...I think you can save yourself with these.";
		next;
		switch(select("Give it to him:Do not give it to him")) {
		case 1:
			mes "[Nine Tail]";
			mes "Go now. You have got what you wanted, human. Now leave!";
			if(countitem(1022)>998) {
				delitem 1022,999;
				getitem 5069,1;
			}
			close2;
			disablenpc "Nine Tail#2";
			donpcevent "Nine Tail#1::OnReset";
			end;		
		case 2:
			close2;
			disablenpc "Nine Tail#2";
			donpcevent "Nine Tail#1::OnReset";
			end;
		}
	}
	else {
		mes "[Nine Tail]";
		mes "......Aiyo? Isn't this the appearance of a human boy?";
		mes "Has my transfiguration skill gone wrong again... oh... oh well.";
		next;
		mes "[Nine Tail]";
		mes "Do you know how it feels to be chased everyday? How tough that is? Huh?";
		mes "I just want to live a quiet life with my husband!";
		next;
		mes "[Nine Tail]";
		mes "But one day, someone intruded into our habitat and tried to catch us.";
		next;
		mes "[Nine Tail]";
		mes "Do you know how much that Sohee that lives besides me likes to complain to me everyday? Someone will pull a disgusting face and say 'Haha, Miss Sohee~' and they will chase to rip off her clothes. They are making her crazy!";
		next;
		mes "[Nine Tail]";
		mes "It is just a flawless body as fine as pine, and as beautiful as the flower. Why can't anyone understand that?";
		next;
		mes "[Nine Tail]";
		mes "Hmmm...let me calm down first.";
		mes "I just want to save my husband and bring him back.";
		mes "I hope you can help me.";
		next;
		mes "[Nine Tail]";
		mes "To save my husband,";
		mes "please bring along ^FF0000999 ^0000FFNine Tails^000000!";
		mes "What? You said that's too much?";
		next;
		mes "[Nine Tail]";
		mes "Hmmph, it really makes me angry to think of what you've done to us...";
		mes "I understand. You human won't do anything without a reward...";
		next;
		mes "[Nine Tail]";
		mes "Hmm, ok. What do you think of the mask I'm wearing? The ^0000FFKitsune Mask^000000. Gather the item I want, and I will give you this.";
		mes "You must gather ^FF0000999 ^0000FFNine Tails^000000!";
		close2;
		disablenpc "Nine Tail#2";
		donpcevent "Nine Tail#1::OnReset";
		end;
	}
}
//Orc Village /=Orc Hero Helm=/
in_orcs01,31,93,1	script	Orc Warrior#1	1023,2,2,{
	if (orcs_hero_hat == 1) {
		if (countitem(909)>999) {
			delitem 909,1000;
			mes "[Orc Warrior]";
			mes "Good, you have collected it all, haven't you?";
			mes "So you really want to have a talk, hahahahaha!!";
			mes "Ok, I will talk to you then";
			next;
			mes "[Orc Warrior]";
			mes "I don't like humans.";
			mes "All of the Orcish Tribe dislike humans.";
			mes "Do you know that?";
			mes "I really hate it when you come to find us.";
			set orcs_hero_hat,2;
			next;
			mes "[Orc Warrior]";
			mes "So if you want to hear more. Prepare another ^FF0000Jellopy x1000^000000";
			mes "This means, get out of my sight...!";
			mes "Humans...";
			close;
		}
	} else if (orcs_hero_hat == 2) {
		if (countitem(909) > 999) {
			delitem 909,1000;
			mes "[Orc Warrior]";
			mes "Good, you have collected it all, haven't you?";
			mes "So you really want to have a talk, hahahahahaha!!";
			mes "Ok, I will talk to you then";
			next;
			mes "[Orc Warrior]";
			mes "Do you want to know why we hate humans?";
			mes "That's because,";
			mes "out village is living a quiet life,";
			mes "before the rude intrusion of you human.";
			next;
			mes "[Orc Warrior]";
			mes "Can you just build your city";
			mes "and live there quietly?";
			mes "Why do you create chaos everywhere...";
			mes "I can't understand";
			set orcs_hero_hat,3;
			next;
			mes "[Orc Warrior]";
			mes "Go, if you want another conversation, prepare ^FF0000Jellopy x1000^000000 again,";
			mes "If you're statisfied with such kind of converstaion.";
			mes "Hahahahaha";
			close;
		} else {
			mes "[Orc Warrior]";
			mes "Haven't I mentioned? Find ^FF0000Jellopy x1000^000000...";
			mes "If you want to talk to me,";
			mes "show your will, humans.";
			mes "I don't care, just brought 1000 Jellopy.";
			close;
		}
	} else if (orcs_hero_hat == 3) {
		if (countitem(909)>999) {
			delitem 909,1000;
			mes "[Orc Warrior]";
			mes "Good, you have collect it all, haven't you? ";
			mes "So you really want to have a talk, hahahahaha!!";
			mes "Ok, I will talk to you until you're fed up then.";
			next;
			mes "[Orc Warrior]";
			mes "If you compare the achievement, ";
			mes "we won't lose to you humans.";
			mes "The same goes to the Goblin in the jungle,";
			mes "and the Kobold, who are the master of the grassland...";
			next;
			mes "[Orc Warrior]";
			mes "Before you human build cities, ";
			mes "we orc warriors has developed sophisticated tunnel in caves,";
			mes "as well as water way.";
			mes "We use the things we found in the wild,";
			mes "to create the things we wanted.";
			next;
			mes "[Orc Warrior]";
			mes "Then we build high tower.";
			mes "However, the evil forces ";
			mes "have made the master of the tower betray our tribe...";
			mes " And those who fail to escape there,";
			mes "they're still suffering,";
			mes "at that place.";
			next;
			mes "[Orc Warrior]";
			mes "...Hmm, this,";
			mes "Why do I tell this to you humans?";
			mes "The conversation ends here today.";
			set orcs_hero_hat,4;
			next;
			mes "[Orc Warrior]";
			mes "So, if you want to hear more,";
			mes "prepare ^FF0000Jellopy x 1000 again^000000";
			close;
		} else {
			mes "[Orc Warrior]";
			mes "Haven't I mentioned? Find ^FF0000Jellopy x1000^000000...";
			mes "If you want to talk to me";
			mes "Show your will, human.";
			mes "I don't care, just brought 2000 Jellopy.";
			close;
		}
	} else if (orcs_hero_hat == 4) {
		if (countitem(909)>999) {
			delitem 909,1000;
			mes "[Orc Warrior]";
			mes "Good, you have collect it all, haven't you? ";
			mes "So you really want to have a talk, hahahahaha!!";
			mes "Ok, I will talk to you until you're fed up then.";
			next;
			mes "[Orc Warrior]";
			mes "Yes, until that time,";
			mes "human and the orc warriors";
			mes "do lead a peaceful life.";
			mes "But as time goes by, the misunderstanding,";
			mes "has accumulated and cannot be broken.";
			next;
			mes "[Orc Warrior]";
			mes "The powerless human only wants fame and wealth.";
			mes "A true warrior,";
			mes "will only emphasize on glory and honor...";
			mes "Those who do not care what method they use to achieve their goal,";
			mes "will be lead to the path of perdition easily.";
			next;
			mes "[Orc Warrior]";
			mes "They only care about their safety,";
			mes "and ignore about others.";
			mes "They will not let anthing that";
			mes "pose a threat to them to live... ";
			mes "No matter it's other tribe,";
			mes "or unknown creature, they will kill";
			mes "even their closest companion if they had to.";
			next;
			mes "[Orc Warrior]";
			mes "...I have talked too much, and there's nothing more to talk about.";
			mes "The conversation ends here.";
			set orcs_hero_hat,5;
			next;
			mes "[Orc Warrior]";
			mes "So, if you want to hear more,";
			mes "prepare ^FF0000Jellopy x 1000 again^000000";
			close;
		} else {
			mes "[Orc Warrior]";
			mes "Haven't I mentioned? Find ^FF0000Jellopy x1000^000000... ";
			mes "If you want to talk to me,";
			mes "show you will, humans.";
			mes "I don't care, just brought 3000 Jellopy.";
			close;
		}
	} else if (orcs_hero_hat == 5) {
		if (countitem(909)>999) {
			delitem 909,1000;
			mes "[Orc Warrior]";
			mes "You reall have the patience to collect these things.";
			mes "You really want to talk to me, don't you?... ";
			mes "If that's so, I will talk about other things.";
			next;
			mes "[Orc Warrior]";
			mes "The Orc Warriors think that the best things are";
			mes "battle and victory.";
			mes "It is the greatest honor,";
			mes "to fight and beat the enemies face to face.";
			next;
			mes "[Orc Warrior]";
			mes "The spirit to win will not stop even for death.";
			mes "However, some tribesmate that die of trickery,";
			mes "will get up from the grave,";
			mes "wandering to look for a target to fight.";
			next;
			mes "[Orc Warrior]";
			mes "During the battle,";
			mes "we are different from you.";
			mes "We don't use tricks, and we don't run away!";
			mes "We will fight till then end, till we are out of energy.";
			mes "Even when we're lost in the end, we will still make our last attempt to counter.";
			next;
			mes "[Orc Warrior]";
			mes "Besides that, we don't rely of potions.";
			mes "You human are too weak.";
			mes "That's why you use potions and herbs.";
			mes "Without potion, you will quit immediately, don't you?";
			mes "Hmm, I'm not sure whether you are like that too.";
			set orcs_hero_hat,6;
			next;
			mes "[Orc Warrior]";
			mes "So, if you want to hear more,";
			mes "prepare ^FF0000Jellopy x 1000 again^000000";
			close;
		} else {
			mes "[Orc Warrior]";
			mes "Haven't I mentioned? Find ^FF0000Jellopy x1000^000000... ";
			mes "If you want to talk to me,";
			mes "show you will, humans.";
			mes "I don't care, just brought 4000 Jellopy.";
			close;
		}
	} else if (orcs_hero_hat == 6) {
		if (countitem(909)>999) {
			delitem 909,1000;
			mes "[Orc Warrior]";
			mes "You reall have the patience to collect these things.";
			mes "You really want to talk to me, don't you?... ";
			mes "If that's so, I will talk about other things.";
			next;
			mes "[Orc Warrior]";
			mes "The warriors of the tribe,";
			mes "are selected among the strongest.";
			mes "When they grow up, we'll send them into the jungle,";
			mes "to test their qualification to be a real warrior.";
			next;
			mes "[Orc Warrior]";
			mes "We will recognize";
			mes "the tribesman who come back alive as a warrior.";
			mes "These strong warriors are known as Orc Warriors.";
			mes "For the females that has fighting ability,";
			mes "they are known as Orc Lady.";
			next;
			mes "[Orc Warrior]";
			mes "And for those with a dexterous hand and";
			mes "possess good eyesight,";
			mes "we'll give them bow and arrow,";
			mes "and called them Orc Archer.";
			mes "They will learn and grow in the countless battles.";
			next;
			mes "[Orc Warrior]";
			mes "And there is another trial of fire.";
			mes "Those who pass the trial,";
			mes "will be protected by fire";
			mes "and gain greater ability and endurance.";
			mes "We called this warriors as High Orc.";
			next;
			mes "[Orc Warrior]";
			mes "Hmm, when human looks at us,";
			mes "you'll think that we look alike... ";
			mes "But for use Orc, we can distinguish it easily.";
			mes "So, when you look at me, ";
			mes "you will feel that I look like";
			mes "no different that the orc warrior outside, isn't it?";
			set orcs_hero_hat,7;
			next;
			mes "[Orc Warrior]";
			mes "So, if you want to hear more,";
			mes "prepare ^FF0000Jellopy x 1000 again^000000";
			close;
		} else {
			mes "[Orc Warrior]";
			mes "Haven't I mentioned? Find ^FF0000Jellopy x1000^000000... ";
			mes "If you want to talk to me,";
			mes "show you will, humans.";
			mes "I don't care, just brought 5000 Jellopy.";
			close;
		}
	} else if (orcs_hero_hat == 7) {
		if (countitem(909)>999) {
			delitem 909,1000;
			mes "[Orc Warrior]";
			mes "I can feel you are getting tired and want to quit now.";
			mes "But you have keep the promise this time.";
			mes "So a promise is a promise, I shall continue to talk to you.";
			next;
			mes "[Orc Warrior]";
			mes "We are talking about the Orc Warrior last time...";
			mes "Yes, in the orcish fighters,";
			mes "there are dexterous one with abilities,";
			mes "that has not pass the trial of fire.";
			mes "They are the warriors that can take care of";
			mes "other orc warriors....";
			next;
			mes "[Orc Warrior]";
			mes "Such kind of warriors are the true hero.";
			mes "We call them Orc Heroes.";
			mes "They had strength and stamin greater than other orcs.";
			mes "They possess ability to lead too.";
			mes "This is the true hero of Orc Warriors.";
			next;
			mes "[Orc Warrior]";
			mes "They get the Voucher of Orcish Hero,";
			mes "and is able to wield the sword only a hero can use.";
			mes "When the Orc Hero wields the sword,";
			mes "the earth shakes...";
			next;
			mes "[Orc Warrior]";
			mes "Orc Hero has his own special headgear too.";
			mes "It is a symbol of";
			mes "the fame and strength of an Orc Hero... Just like you humans.";
			mes "If you want to see it,  you can only feel its power in the battle.";
			set orcs_hero_hat,8;
			next;
			mes "[Orc Warrior]";
			mes "So, if you want to hear more,";
			mes "prepare ^FF0000Jellopy x 1000 again^000000";
			close;
		} else {
			mes "[Orc Warrior]";
			mes "Haven't I mentioned? Find ^FF0000Jellopy x1000^000000... ";
			mes "If you want to talk to me,";
			mes "show you will, humans.";
			mes "I don't care, just brought 6000 Jellopy.";
			close;
		}
	} else if (orcs_hero_hat == 8) {
		if (countitem(909)>999) {
			delitem 909,1000;
			mes "[Orc Warrior]";
			mes "I can feel you are getting tired and want to quit now.";
			mes "But you have keep the promise this time.";
			mes "So a promise is a promise, I shall continue to talk to you.";
			next;
			mes "[Orc Warrior]";
			mes "We talk about the Orc Hero just now.";
			mes "Some orc does not born with an ability,";
			mes "like the Orc Heroes do.";
			mes "It took them a long time to go through numerous battle to be a warrior.";
			next;
			mes "[Orc Warrior]";
			mes "To a Orc Warrior,";
			mes "age does not means coward.";
			mes "In fact is represents experience and skills,";
			mes "that makes him more valiant.";
			next;
			mes "[Orc Warrior]";
			mes "They can perform great battle skill,";
			mes "even without weapons.";
			mes "They can fight for days even without their axe.";
			mes "If they reach that state,";
			mes "weapon are just useless burdens...";
			next;
			mes "[Orc Warrior]";
			mes "Among such experience elders,";
			mes "we called the most experienced one as ";
			mes "Orc Lord. And we honor them,";
			mes "They wear a 3 horn iron helm";
			mes "that represents the leadership of Orcish tribe.";
			set orcs_hero_hat,9;
			next;
			mes "[Orc Warrior]";
			mes "So, if you want to hear more,";
			mes "prepare ^FF0000Jellopy x 1000 again^000000";
			close;
		} else {
			mes "[Orc Warrior]";
			mes "Haven't I mentioned? Find ^FF0000Jellopy x1000^000000... ";
			mes "If you want to talk to me,";
			mes "show you will, humans.";
			mes "I don't care, just brought 7000 Jellopy.";
			close;
	  }
	} else if (orcs_hero_hat == 9) {
		if (countitem(909)>999) {
			delitem 909,1000;
			mes "[Orc Warrior]";
			mes "I've never seen,";
			mes "a human that won't quit like you... So I'll keep my promise";
			mes "to tell you about our tribe today.";
			next;
			mes "[Orc Warrior]";
			mes "Sometimes, there will be those treacherous ones";
			mes "who run away from the battle.";
			mes "We have such kind in out tribe too.";
			mes "Although it is a disgrace, they are Orcs too.";
			mes "They only differ in their level of existance.";
			next;
			mes "[Orc Warrior]";
			mes "Such kind will be cursed.";
			mes "Their body shrinks and the teeth grows.";
			mes "And finally, they lose the heart to fight.";
			mes "Since they don't want to be found by others, ";
			mes "they hide themselves.";
			next;
			mes "[Orc Warrior]";
			mes "They are originally us.";
			mes "But their alteration rise suspicions.";
			mes "Such kind with greed,";
			mes "and hatred to us are called...";
			mes "Zenorc.";
			next;
			mes "[Orc Warrior]";
			mes "Unlike us,";
			mes "human do not change even their hearts have changed.";
			mes "Therefore, we need to be more careful.";
			mes "Because we can tell from the appearances,";
			mes "how treacherous humans are....";
			set orcs_hero_hat,10;
			next;
			mes "[Orc Warrior]";
			mes "So, if you want to hear more,";
			mes "prepare ^FF0000Jellopy x 1000 again^000000";
			close;
		} else {
			mes "[Orc Warrior]";
			mes "Haven't I mentioned? Find ^FF0000Jellopy x1000^000000... ";
			mes "If you want to talk to me,";
			mes "show you will, humans.";
			mes "I don't care, just brought 8000 Jellopy.";
			close;
	  }
	} else if (orcs_hero_hat == 10) {
		if (countitem(909)>999) {
			delitem 909,1000;
			mes "[Orc Warrior]";
			mes "Really? Have you really gathered 10,000 Jellopy?";
			mes "Good, that's enough now.";
			mes "You've shown your sincerity.";
			mes "I will treat you honestly.";
			next;
			mes "[Orc Warrior]";
			mes "It is enough for";
			mes "the stories about our tribe.";
			mes "However, there are difference,";
			mes "from what you've heard and what you'll experience.";
			next;
			mes "[Orc Warrior]";
			mes "I advise that you gather more experience";
			mes "through the battle with us to understand our tribe.";
			mes "The most direct way,";
			mes "is through combat.";
			set orcs_hero_hat,11;
			next;
			mes "[Orc Warrior]";
			mes "I shall stop here.";
			mes "As the token of appreciation to your sincerity,";
			mes "this is the axe that has accompanied me in my pass battles.";
			mes "Take good care of it, thank you.";
			getitem 1304,1;
			next;
			mes "[Orc Warrior]";
			mes "It must be hard for you after all these time.";
			mes "If you want to understand more about Orcs,";
			mes "come and find me again.";
			close;
		} else {
			mes "[Orc Warrior]";
			mes "Haven't I mentioned? Find ^FF0000Jellopy x1000^000000... ";
			mes "If you want to talk to me,";
			mes "show you will, humans.";
			mes "I don't care, just brought 9000 Jellopy.";
			close;
	  }
	} else if (orcs_hero_hat == 11 || orcs_hero_hat == 12) {
		if (countitem(1304)) {
			mes "[Orc Warrior]";
			mes "If must be hard for you after all these time.";
			mes "If you want to understand more about Orcs,";
			mes "come and find me again.";
			close;
		} else {
			set orc_hero_quest,rand(1,10);
			if (orc_hero_quest > 9) {
				if (orcs_hero_hat == 12 && countitem(931)>99) {
					mes "[Orc Warrior]";
					mes "Uhoh, that is really great.";
					mes "After all these battles, I am not sure how much you understand.";
					mes "However, the voucher of Orc warrior";
					mes "is given to a true Orc Warrior.";
					next;
					mes "[Orc Warrior]";
					mes "We use 1000 thousand victories";
					mes "as a qualification to recognize one asa true Orc Warrior.";
					mes "However, you are a human...";
					mes "It is hard to cross the line between two different kinds.";
					next;
					mes "[Orc Warrior]";
					mes "Ok, come again after you've won 10 thousand victories.";
					mes "By that time, we will recognized you as the true warrior.";
					mes "However,";
					mes "you will have to walk a lonely path for such fame.";
					mes "The choise is up to you...";
					next;
					mes "[Orc Warrior]";
					mes "All you get is just fame...";
					mes "But for a human,";
					mes "you get a chance to proof and test your capability...";
					mes "So what do you want to choose?";
					next;
					switch(select("I think I don't need it.:I want to take the 10,000 challenge.")) {
					case 1:
						mes "[Orc Warrior]";
						mes "Alright, I won't force you to choose.";
						mes "Now, please return";
						mes "to your human city slowly.";
						mes "Your friends are waiting for you.";
						close;
					case 2:
						mes "[Orc Warrior]";
						mes "You have chosen a hard path";
						mes "A path of eternal battles is waiting ahead of you.";
						mes "You will have to face";
						mes "thousands,if not ten thousands of warriors.";
						next;
						mes "[Orc Warrior]";
						mes "Then, before you reach your 10,000th victories,";
						mes "Bring me the voucher of orc warrior.";
						mes "Once, ten times, or even hundreds";
						mes "please leave your record of victories.";
						if (countitem(931)>99) {
							delitem 931,100;
							set orcs_hero_hat,13;
							set orcs_hero_hat2,100;
						}
						next;
						mes "[Orc Warrior]";
						mes "If I take the voucher of Orc Warrior,";
						mes "I will record it a 100 victories.";
						mes "Please make sure you defeat 10,000 orc warrior...";
						mes "Please continue your battle, don't stop.";
						close;
					}
				}
				mes "[Orc Warrior]";
				mes "The best way to understand Orcs,";
				mes "is through battle.";
				mes "Thrugh collisions of strength and skills,";
				mes "improve your understanding between each other.";
				next;
				mes "[Orc Warrior]";
				mes "So, go out there and fight.";
				mes "conversation with my is just an acceptance of concepts.";
				mes "One day,";
				mes "You shall be recognized as a true warrior.";
				set orcs_hero_hat,12;
				close;
			} else {
				mes "[Orc Warrior]";
				mes "I feel that you are not statisfied?";
				mes "Do you have any doubts about us?";
				mes "You are a human.";
				mes "Your concern to other tribers,";
				mes "will not benefit you.";
				close;
			}
		}
	} else if (orcs_hero_hat == 13) {
		if (countitem(931)) {
			mes "[Orc Warrior]";
			mes "Stay alive before you grab the victory...";
			mes "Rest here for a while before you leave.";
			mes "Until now, you have achieved "+orcs_hero_hat2+" times of victories.";
			next;
			mes "[Orc Warrior]";
			mes "Do you want to add the record of your current victory";
			mes "into this record? You have won "+countitem(931)+" times this time.";
			next;
			switch(select("Add the record:Add it later")) {
			case 1:
				set orcs_hero_hat2,orcs_hero_hat2+countitem(931);
				delitem 931,countitem(931);
				if (orcs_hero_hat2>9999) {
					mes "[Orc Warrior]";
					mes "And this, achieving more than 10,000 victories";
					mes "is an extraordinary achievement to human...";
					mes "You have completed an unusual task.";
					mes "Through the current battle,";
					mes "You must have learned a lot about the Orcish Tribe.";
					next;
					mes "[Orc Warrior]";
					mes "Although you're a human, you have walked the path of a true warrior....";
					mes "We have recognized you.";
					mes "You are a true warrior!!";
					mes "You are... Orc Lady!!";
					getitem 2299,1;
					set orcs_hero_hat,14;
					next;
					mes "[Orc Warrior]";
					mes "This is your present.";
					mes "I wonder if it fits your head.";
					mes "Wear it well.";
					mes "If you do not want to wear it, take it along with you.";
					getitem 931,1;
					next;
					mes "[Orc Warrior]";
					mes "And, you have been recognized as a warrior...";
					mes "This voucher is for you.";
					mes "Although it has no difference compared to others,";
					mes "keep it well.";
					mes "You will only be recognized as a Orc Warrior,";
					mes "with this voucher.";
					next;
					mes "[Orc Warrior]";
					mes "So, you may go back now...";
					mes "If you ever think of us,";
					mes "come and look for us.";
					mes "A true self of a person can only be shown through endless battles.";
					mes "Return to the land now.";
					close;
				}
				mes "[Orc Warrior]";
				mes "You have worked hard.";
				mes "I hope your futue better will shine with the light of victories.";
				mes "If you ever lost,";
				mes "I hope to see you stand up again.";
				next;
				mes "[Orc Warrior]";
				mes "There are "+(10000-orcs_hero_hat2)+" of battles left.";
				mes "Although it is a though road ahead,";
				mes "I hope that you will pull yourself together and achieve the final victory.";
				close;
			case 2:
				mes "[Orc Warrior]";
				mes "Hmm, as you like it.";
				mes "I will be dissapointed again,";
				mes "If you give up in the middle.";
				close;
			}
		} else {
			mes "[Orc Warrior]";
			mes "Rest here for a while before you leave.";
			mes "Until now, you have achieved "+orcs_hero_hat2+" times of victories.";
			close;
		}
	} else if(orcs_hero_hat == 14) {
		if (countitem(1304)) {
			mes "[Orc Warrior]";
			mes "Hmm? Don't tell me that you assume that";
			mes "you won't be able to get back to the human villages";
			mes "if you are recognized as a Orc Warrior. Hahahaha!";
			mes "You better leave then.";
			close;
		} else {
			set @orc_hero_quest,rand(1,10);
			if (@orc_hero_quest > 9) {
				mes "[Orc Warrior]";
				mes "That? Is that thirst...?";
				mes "Although you're recognized as a warrior,";
				mes "that eyes of yours show you seek more powerful enemies...";
				mes "Maybe you are not statisfied with the current situation.";
				next;
				mes "[Orc Warrior]";
				mes "Alright, do you want to take another trial?";
				mes "Maybe all you accumulated belongings";
				mes "shall become but a dream...";
				mes "This path,";
				mes "is a process feared,";
				mes "by even the most skullful warrior.";
				next;
				mes "[Orc Warrior]";
				mes "a recognized Orc Warrior, maybe you can defeat them...";
				mes "What is your choise?";
				next;
				switch(select("I am statisfied with the current condition:...I will challenge the trial")){
				case 1:
					mes "[Orc Warrior]";
					mes "Yes, it is useful";
					mes "if you are statisfied with yourself sometimes.";
					mes "It takes greater courage,";
					mes "to admit that you can't overcome a greater obstacle.";
					close;
				case 2:
					mes "[Orc Warrior]";
					mes "Good, I praise your honorable spirit.";
					mes "This is an opportunity";
					mes "for a warrior who've won 10,000 victories.";
					mes "You will face";
					mes "the greatest warrior of the Orcish tribe...!";
					next;
					mes "[Orc Warrior]";
					mes "Fight the best warrior of the Orc Warrior.";
					mes "Obtain 100 victories from the Orc Heroes,";
					mes "and bring me the voucher.";
					mes "Although you're a great warrior, this is a ardous task";
					mes "espectially when you have to face it alone....!";
					next;
					mes "[Orc Warrior]";
					mes "Come, go now! Since you can beat 10,000 Orc warrior,";
					mes "there's some possibilities that";
					mes "you can take down 100 Orc Heroes!";
					mes "If that's so, we will recognize you as";
					mes "the Orc Hero...!";
					set orcs_hero_hat,15;
					close;
				}
			} else {
				mes "[Orc Warrior]";
				mes "Oh warrior, continue to shine in the victories of your battles.";
				mes "Stand up again even if you've lost.";
				mes "Show your unshaken spirit.";
				mes "You are the human that is reconized as an Orc Warrior!";
				close;
			}
		}
	} else if(orcs_hero_hat == 15) {
		if (countitem(968)>99) {
			mes "[Orc Warrior]";
			mes "Finally... You have achive the goal.";
			mes "Those who've lost to you have admitted that";
			mes "you have shown yourself as a Hero";
			mes "by crossing the barrier of kinds as a human...";
			mes "I, on behalf of our tribe,";
			mes "pay our greatest respect to you.";
			next;
			mes "[Orc Warrior]";
			mes "Now I ask you to make you final selection,";
			mes "what will you do with the vouchers you've taken?";
			mes "It means nothing to humands,";
			mes "but to the orcs,";
			mes "Heroic Emblem is a belonging";
			mes "of a true hero.";
			next;
			mes "[Orc Warrior]";
			mes "You've obtained this through you hardship.";
			mes "You can take it with you,";
			mes "or give them back to the Orc Heroes.";
			mes "The meaning of giving them back the voucher,";
			mes "is to battle them again...";
			next;
			mes "[Orc Warrion]";
			mes "So, heroic emblem,";
			mes "what will you do with it?";
			next;
			switch(select("I will take it back as token of victories:I'll give them back to Orc Heroes")) {
			case 1:
				mes "[Ork Warrior]";
				mes "Well, that is a good choise.";
				mes "Nobody can change your right to make that decision.";
				mes "Please take good care of";
				mes "these tokens of victory.";
				close;
			case 2:
				mes "[Orc Warrior]";
				mes "This is the true spirit of a warrior...!";
				mes "Respecting your oppenent even after you've won,";
				mes "such deeds";
				mes "should be learned by we Orcs...!";
				if (countitem(968)<100) close;
				delitem 968,100;
				set orcs_hero_hat,16;
				next;
				mes "[Orc Warrior]";
				mes "The one who have defeated 100 Orc Hero...";
				mes "Altough you're a human";
				mes "we know you as the best warrior of the Orcs.";
				mes "You are now... Orc hero!";
				getitem 1124,1;
				next;
				mes "[Orc Warrior]";
				mes "This is the sword given only to the Heroes.";
				mes "Iam not sure wether you can use it.";
				mes "But as a Orc Hero,";
				mes "you should have it.";
				getitem 968,1;
				next;
				mes "[Orc Warrior]";
				mes "And since you're a Orc Hero now...";
				mes "This is the Heroic Emblem for you.";
				mes "Although it has no difference compared to others,";
				mes "keep it well.";
				mes "You will only be recognized as a Orc Hero,";
				mes "with this voucher.";
				next;
				mes "[Orc Warrior]";
				mes "So, you can leave now...";
				mes "A person from human tribe that can understand us,";
				mes "is the one who crosses the boundaries of tribe.";
				mes "Show the tough spirit of you,";
				mes "and set for you new destiny....";
				close;
			}
		} else {
			mes "[Orc Warrior]";
			mes "Tired...? Orc Hero is";
			mes "the best warrior among our warriors.";
			mes "They are known for their capability.";
			mes "It might be to hard for";
			mes "a human to pick on them.";
			next;
			mes "[Orc Warrior]";
			mes "However, this trial is the patch you've chosen.";
			mes "Maybe you want to know you true limit,";
			mes "so you keep your promise to walk this path...!";
			mes "Don't rush for the answer,";
			mes "it might lies beneath the records of your countless battles.";
			close;
		}
	} else if (orcs_hero_hat > 15) {
		if (countitem(968)) {
			mes "[Orc Warrior]";
			mes "Warrior of the Orc Warrior, the greatest Hero";
			mes "You are... Orc Hero!!";
			mes "May the valiant warrior be blessed with light!!";
			close;
		} else {
			mes "[Orc Warrior]";
			mes "Oh Hero, where have you put your voucher...?";
			mes "Without the Heroic Emblem,";
			mes "you shall not be knows as a Orc Hero.";
			mes "Please retrieve it and keep it with you.";
			close;
		}
	} else if (orcs_hero_hat == 0 || orcs_hero_hat ==1) {
		mes "[Orc Warrior]";
		if (sex == 1) {
			mes "What does the son of a human have to do here?";
		} else {
			mes "What does the daughter of a human have to do here?";
		}
		mes "Shouldn't you have nothing to do with us, the Orc Warriors?";
		mes "Or are you tired of the endless war";
		mes "and hope for a truce? That should be good!";
		next;
		mes "[Orc Warrior]";
		mes "We, the Orc Warriors don't simple speak to men.";
		mes "I praise your courage";
		mes "to dare to come and try to talk to me.";
		mes "But we have no intention of hearing what you want to say.";
		next;
		mes "[Orc Warrior]";
		mes "Sit there quietly and leave without making any noises.";
		mes "If you want to rest before you depart,";
		mes "watch your manners, at least to the host, me.";
		if (rand(1,10)>9) {
			next;
			switch(select(".....","I want a conversation with you.")) {
			case 1:
				close;
			case 2:
				mes "[Orc Warrior]";
				mes "Converstation...? Conversation you say?Hahahaha!! ";
				mes "You are really an interesting human.";
				mes "Talk to a Orc Warrior? ";
				mes "This is the first time I see human talk without sword and shield...!";
				next;
				mes "[Orc Warrior]";
				mes "However, I won't be kind to anyone.";
				mes "If you want to talk to me,";
				mes "you'll need to show some respect! Do you understand that?";
				mes "Ok... this is my little suggestion.";
				next;
				mes "[Orc Warrior]";
				mes "Show me the will of a human,";
				mes "who wants to talk to me.";
				mes "To talk to me, gather^FF0000Jellopy x 1000 ^000000 ";
				mes "Bring it to me when you come to talk next time";
				next;
				mes "[Orc Warrior]";
				mes "And, don't question me.";
				mes "I won't give you the rights to question my opinion.";
				mes "And don't you dream that,";
				mes "I will give you anything.";
				mes "Do you still want to talk under these circumstances?";
				mes "Decendent of human?";
				next;
				switch(select("Let's battle, Orc Warrior!!:I will show you my faith")) {
				case 1:
					mes "[Orc Warrior]";
					mes "Yeahyeahyee, what a noisy fella!!";
					mes "If you like to fight, go outside!";
					mes "I really hate to see humans!!";
					close;
				case 2:
					mes "[Orc Warrior]";
					mes "Ok, keep your promise!";
					mes "I want to see how you keep that.";
					mes "You will quit eventually.";
					mes "Hahahahaha!!";
					set orcs_hero_hat,1;
					close;
				}
			}
		} else {
			close;
		}
	}
}
in_orcs01,162,33,1	script	Hero of Orc#1	1087,2,2,{
	if (orcs_hero_hat < 16) {
		mes "[Orc Hero]";
		mes ".....Go away, don't interrupt me!";
		mes "If you want to fight me,";
		mes "wait for me at the west forest.";
		mes "I am not in the mood to fight human now.";
		close;
	} else if (orcs_hero_hat == 17) {
		mes "[Orc Hero]";
		mes "Hahaha, interesting, really interesting.";
		mes "You are the most interesting human";
		mes "that I have seen...";
		mes "I like it, interesting...";
		close;
	} else if (orcs_hero_hat == 16) {
		if (countitem(968) && countitem(2299) && countitem(1124) && countitem(931)) {
			if(rand(1,20)>19) {
				mes "[Orc Hero]";
				mes "Hmm, a human that is knows as Hero?";
				mes "DO you know the meaning of returning a Heroic Emblem?...";
				mes "When I am free later,";
				mes "I'll fight with you.";
				next;
				mes "[Orc Hero]";
				mes ".....HmmHmmm...? This iron helm...?";
				mes "It belongs to Orc Warrior...?";
				next;
				mes "[Orc Hero]";
				mes "Wait... You're still using this?";
				mes "Uhoh....";
				mes "Such an interesting human! Hahaha";
				mes "Good, really good...";
				next;
				mes "[Orc Hero]";
				mes "You seem not to be aware of the story behind this viking helm.";
				mes "In the battle between Orc Lord and the humands,";
				mes "he lost it in his defeat...";
				mes "The horn in the center was broken";
				mes "and this helm is created...!";
				next;
				mes "[Orc Hero]";
				mes "Rumors said that if it is given to a human,";
				mes "the human will be recognized as a Hero...";
				mes "Hahaha, interesting.";
				mes "And there're still people who";
				mes "continue to use it...!!";
				next;
				mes "[Orc Hero]";
				mes "So that's the belonging of the Orc Lord!";
				mes "And you are not qualified to have it.";
				mes "So if you don't mind,";
				mes "can you return it to its origional owner?";
				mes "Oh 'Human' Orc Warrior?";
				next;
				switch(select("I refuse to do so:I agree")) {
				case 1:
					mes "[Orc Hero]";
					mes "Hmm, how stubborn.";
					mes "If you think it's important, wear it well.";
					mes "The history of the battle is still kept";
					mes "on this headgear of a warrior.";
					close;
				case 2:
					mes "[Orc Hero]";
					mes "Good, that's more like it.";
					mes "This Viking Helm,";
					mes "I'll give it to him, hahahaha...";
					mes "I never imagined to see this thing here.";
					next;
					mes "[Orc Hero]";
					mes "I'll give you a useful item though!";
					mes "Although you're human,";
					mes "you're recognizedas a Orc Hero before.";
					mes "You should at least have a suitable headgear...";
					next;
					mes "[Orc Hero]";
					mes "Here you can have this.";
					mes "I have nade a special sign on it...";
					mes "So continue to use this in the future,";
					mes "understand? 'Human' Orc Warrior?";
					if (countitem(2299)) {
						delitem 2299,1;
						getitem 5094,1;
						set orcs_hero_hat,17;
					}
					close;
				}
			} else {
				mes "[Orc Hero]";
				mes "Hmm, a human that is recognized a warrior?";
				mes "Do you know the meaning of returning a Heroic Emblem?...";
				mes "When I am free later,";
				mes "I'll fight with you.";
				close;
			}
		} else {
			mes "[Orc Hero]";
			mes "Hmm, a human that is recognized a warrior?";
			mes "You don't look like one though.";
			mes "Is he really going to return the Heroic Emblem?";
			mes "I can't believe it.";
			next;
			mes "[Orc Hero]";
			mes "I won't recognize you as a Hero.";
			mes "He forgets even the most basic things.";
			mes "How can he be called warrior... Humans!!";
			mes "Go to the west forest now.";
			mes "I want you to pass the trial again...!";
			close;
		}
	}
}
