//===== eAthena Script =======================================
//= Hair Dresser
//===== By: ==================================================
//= Muad_Dib, Samuray22, Kisuka
//===== Current Version: =====================================
//= 1.3
//===== Compatible With: =====================================
//= eAthena SVN
//===== Description: =========================================
//= [Aegis Conversion]
//= Allows you to change your hairstyle.
//===== Additional Comments: =================================
//= 1.2 Rescripted to the Aegis 10.3 Standards. [Samuray22]
//= 1.3 Updated to match AEGIS script. [Kisuka]
//============================================================

// Hair Dresser Veronica
// ============================================================
alberta_in,55,142,7	script	Hair Dresser	91,{
	mes "[Veronica]";
	mes "Welcome to Veronica's hair salon.";
	mes "How can I help you?";
	next;
	switch(select("See available hair styles.:Change hair style.:End conversation.")) {
	case 1:
		mes "[Veronica]";
		mes "We have a total of 19 styles, available from no.1 to no.19.";
		mes "Which one do you want to see?";
		mes "If you wish to cancel,";
		mes "please enter 0.";
		next;
		input .@style;
		if(.@style > 19) {
			mes "[Veronica]";
			mes "Oops, I'm sorry, but that";
			mes "style is not available.";
			mes "Remember to enter a number";
			mes "from 1 to 19.";
			next;
		} else if(.@style == 0) {
			mes "[Veronica]";
			mes "So, how do you like the style?";
			mes "Feel free to ask me about any";
			mes "available hairstyle. It will";
			mes "be my pleasure to style your";
			mes "hair.";
			close;
		}
		else {
			callsub L_cutin,.@style;
			mes "[Veronica]";
			switch(.@style) {
			case 1:
				if(Sex == 1) {
					mes "Oh, that's 'Play Dead' style!";
					mes "It's a nice, basic haircut.";
					mes "I notice that usually the";
					mes "cute, conversative types seem";
					mes "to prefer this style.";
					close2; cutin "",255; end;
				}
					mes "Oh, that's 'First Aid' style!";
					mes "The shoulder length tresses";
					mes "are straightened for those";
					mes "no nonsense adventurers. It";
					mes "seems to be the style of";
					mes "choice for Novices.";
					close2; cutin "",255; end;
			case 2:
				if(Sex == 1) {
					mes "Oh, that's the 'Two Handed Sword";
					mes "Mastery' style! It's perfect for";
					mes "for Swordmen who might muss their";
					mes "hair while swinging their swords";
					mes "all day long.";
					close2; cutin "",255; end;
				}
					mes "Oh, that's 'Bash' style!";
					mes "For the powerful woman that's";
					mes "not afraid to get a little";
					mes "blood on her hands, but knows";
					mes "how great her hair will look";
					mes "while wildly flailing a sword.";
					close2; cutin "",255; end;
			case 3:
				if(Sex == 1) {
					mes "Oh, that's 'Napalm Beat' style!";
					mes "It's a unique look with a hint";
					mes "of eccentricity that's offset";
					mes "with a helping of elegance.";
					close2; cutin "",255; end;
				}
					mes "Oh, that's 'Frost Diver' style!";
					mes "The pigtails lend an innocent,";
					mes "demure look for those Mages";
					mes "and Wizards that usually scare";
					mes "off the boys with their spells.";
					close2; cutin "",255; end;
			case 4:
				if(Sex == 1) {
					mes "Oh, that's the 'Double Strafe'";
					mes "style! The arrangement of the";
					mes "hair conducts ambient static";
					mes "electricity, naturally clearing";
					mes "the mind. At least, that's what";
					mes "I was taught in fashion school.";
					close2; cutin "",255; end;
				}
					mes "Oh, that's 'Arrow Shower' style!";
					mes "For the Bowswoman who doesn't";
					mes "want fashion to interfere with";
					mes "her depth perception. Much more";
					mes "attractive than those horrid";
					mes "granny-style hairbuns.";
					close2; cutin "",255; end;
			case 5:
				if(Sex == 1) {
					mes "Oh, that's 'Angelus' style!";
					mes "It's for calm and devout people,";
					mes "as well as those bashful,";
					mes "mild-mannered types.";
					close2; cutin "",255; end;
				}
					mes "Oh, that's 'Heal' style!";
					mes "This is in trend among";
					mes "Priests and Acolytes since";
					mes "this style is appropriate";
					mes "for formal situations, but";
					mes "is also practical in battle.";
					close2; cutin "",255; end;
			case 6:
				if(Sex == 1) {
					mes "Oh, that's 'Push Cart' style!";
					mes "It was based on the design of a";
					mes "cart...at least, that's what";
					mes "I learned in beautician school.";
					close2; cutin "",255; end;
				}
					mes "Ooh, that's 'Vending' style!";
					mes "It's the hairdo of money";
					mes "makers...and if I may say so,";
					mes "it's also economical.";
					close2; cutin "",255; end;
			case 7:
				if(Sex == 1) {
					mes "Ooh, that's 'Envenom' style!";
					mes "It looks great on Thieves and";
					mes "and Assassins when they're";
					mes "out poisoning people and animals.";
					mes "It's fashion for the aggressive";
					mes "and eclectic~!";
					close2; cutin "",255; end;
				}
					mes "Oh, that's 'Double Attack' style!";
					mes "The adorable pigtail, paired with";
					mes "those provacative bangs are sure";
					mes "to help you steal the heart of";
					mes "some cute guy.";
					close2; cutin "",255; end;
			case 8:
				if(Sex == 1) {
					mes "Oh, that's 'Bowling Bash' style!";
					mes "A popular style for Knights, its";
					mes "manly, rugged look tends to";
					mes "attract all of the ladies,";
					mes "and looks great on men with";
					mes "strong chins.";
					close2; cutin "",255; end;
				}
					mes "Oh, that's 'Gloria' style!";
					mes "It's very elegant and looks";
					mes "great on holy Priests. This";
					mes "style is most attractive to";
					mes "ladies who aren't that used";
					mes "to fighting with their hands.";
					close2; cutin "",255; end;
			case 9:
				if(Sex == 1) {
					mes "Oh, that's 'Venom Dust' style!";
					mes "Definitely a look for rebels,";
					mes "the sweeping, yet decidedly";
					mes "luxorious locks seems to enchant";
					mes "girls with a fatal attraction.";
					close2; cutin "",255; end;
				}
					mes "Oh, that's 'SP Recovery' style!";
					mes "To add more body to the special";
					mes "style of these bangs, I use a";
					mes "special conditioner that makes";
					mes "you feel like you're regaining SP";
					mes "...Although, it acutally doesn't.";
					close2; cutin "",255; end;
			case 10:
				if(Sex == 1) {
					mes "Oh, that's 'Turn Undead' style!";
					mes "This is popular among Priests";
					mes "that want a serious, yet a bit";
					mes "of a wild, agressive look.";
					mes "Definitely more attractive";
					mes "than the 'Holy Light' mullet.";
					close2; cutin "",255; end;
				}
					mes "Oh, that's 'Prepare Potion' style!";
					mes "The flared out tresses are chosen";
					mes "by beginning Alchemists, since";
					mes "early, explosive experiments would";
					mes "make their hair to stick out anyway.";
					close2; cutin "",255; end;
			case 11:
				if(Sex == 1) {
					mes "Oh, that's 'Dragonology' style!";
					mes "It's neat and clean cut, perfect";
					mes "for studious people and looks";
					mes "great with eyeglasses. This";
					mes "is a fashion well suited to";
					mes "intellectual types.";
					close2; cutin "",255; end;
				}
					mes "Oh, that's 'Grand Cross' style!";
					mes "It's in style among those pious";
					mes "Crusaders that need hair that";
					mes "won't muss during fighting, yet";
					mes "is respectable enough to attend";
					mes "religious services.";
					close2; cutin "",255; end;
			case 12:
				if(Sex == 1) {
					mes "Oh, that's 'Mace Mastery' style!";
					mes "A lot of care goes into making";
					mes "that tussled hair say, 'I don't";
					mes "care how I look at all.'";
					close2; cutin "",255; end;
				}
					mes "Oh, that's 'Intimidate' style!";
					mes "The Rogue women seem to like";
					mes "this style...although I imagine";
					mes "that more of them would prefer";
					mes "something wilder to match those";
					mes "stockings...";
					close2; cutin "",255; end;
			case 13:
				if(Sex == 1) {
					mes "Oh, that's 'Thunder Storm' style!";
					mes "This hot, flamboyant hairstyle";
					mes "flares out wildly like thunder.";
					mes "...And you will too with this new look.";
					close2; cutin "",255; end;
				}
					mes "Oh, that's 'Spiritual Sphere";
					mes "Absorption' style! There's a";
					mes "charismatic quality to this";
					mes "fashion: it's tough, slightly";
					mes "tomboyish, but not so much";
					mes "that it can't be cute.";
					close2; cutin "",255; end;
			case 14:
				if(Sex == 1) {
					mes "Oh, that's 'Encore' style!";
					mes "The elegant, flowing locks";
					mes "fit well with Bards, or men who";
					mes "appreciate the value of male";
					mes "beauty.";
					close2; cutin "",255; end;
				}
					mes "Oh, that's 'Gypsy's Kiss' style!";
					mes "Dancers seem to like this style,";
					mes "although personally, I think";
					mes "this fashion fits very well";
					mes "with glasses.";
					close2; cutin "",255; end;
			case 15:
				if(Sex == 1) {
					mes "Oh, that's 'Grimtooth' style!";
					mes "Spiky and unkempt, this style";
					mes "is a popular counterculture";
					mes "street fashion. You might";
					mes "not want to wear your hair";
					mes "this way at a wedding, though.";
					close2; cutin "",255; end;
				}
					mes "Oh, that's 'Counter Attack' style!";
					mes "This is an intimidating look for";
					mes "girls that want to say 'You hit";
					mes "me, I'll hit you back!' It really";
					mes "emphasizes strong looking";
					mes "foreheads and cheekbones.";
					close2; cutin "",255; end;
			case 16:
				if(Sex == 1) {
					mes "Oh, that's 'Blitz Beat' style!";
					mes "A funky and lively fashion,";
					mes "this style was developed for a";
					mes "Hunter who liked really long";
					mes "bangs and wanted to see";
					mes "through them at the same time.";
					close2; cutin "",255; end;
				}
					mes "Oh, that's 'Anke Snare' style!";
					mes "The style style is specially";
					mes "made for Hunters that don't like";
					mes "to get their hair tangled...";
					mes "After all, what kind of Hunter";
					mes "lets their hair get trapped?";
					close2; cutin "",255; end;
			case 17:
				if(Sex == 1) {
					mes "Oh, that's 'Find Ore' style!";
					mes "It's a practical, economical look";
					mes "that is popular among Blacksmiths.";
					mes "Some swear that this fashion helps";
					mes "them in finding ores, but where's";
					mes "the science in that??";
					close2; cutin "",255; end;
				}
					mes "Oh, that's 'Hammer Fall' style!";
					mes "For the woman that doesn't want";
					mes "her hair to get in the way when";
					mes "she's savagely swinging heavy";
					mes "objects. Of course, this is a";
					mes "Blacksmith favorite.";
					close2; cutin "",255; end;
			case 18:
				if(Sex == 1) {
					mes "Oh, that's 'Fire Pillar' style!";
					mes "It's a trendy look, in which";
					mes "you cover one eye for that";
					mes "intrigue effect. The element";
					mes "of mystery is always in";
					mes "fashion, don't you think?";
					close2; cutin "",255; end;
				}
					mes "Oh, that's 'Jupitel Thunder'";
					mes "style! A look that strikes";
					mes "like lightening, without";
					mes "any of that annoying static";
					mes "cling or muss. This fashion";
					mes "looks great with Mage Hats.";
					close2; cutin "",255; end;
			case 19:
				if(Sex == 1) {
					mes "Oh, that's 'Guillotine Fist'";
					mes "style! The smooth, slicked back";
					mes "pompadour shows that you're";
					mes "serious about your passion";
					mes "for brawling... or just your passion.";
					close2; cutin "",255; end;
				}
					mes "Oh, that's 'Whirlwind' style!";
					mes "A favorite among the studious";
					mes "Sages, the hair is tied back";
					mes "in a stylish braid so that";
					mes "it doesn't fly around after";
					mes "casting those windy spells.";
					close2; cutin "",255; end;
			}
		}
	case 2:
		if(BaseLevel < 60) {
			mes "[Veronica]";
			mes "Oh, dear, you're looking fabulous with";
			mes "your current hairstyle. Why don't you";
			mes "try a new hair accessory rather than changing your look?";
			close;
		} else if((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) || (Zeny < 99800)) {
			mes "[Veronica]";
			mes "If you wish to change your";
			mes "hairstyle, you should meet some";
			mes "requirements. I suggest that you";
			mes "write down all the items that";
			mes "you will need.";
			next;
			mes "[Veronica]";
			mes "3 Counteragent,";
			mes "3 Mixture,";
			mes "100 Danggie,";
			mes "100 Short Danggie,";
			mes "100 Black Hair,";
			mes "100 Golden Hair,";
			mes "100 Glossy Hair, and lastly...";
			next;
			mes "[Veronica]";
			mes "You will need 99,800 zeny.";
			mes "Please come back when you're";
			mes "ready. I will make you look";
			mes "fabulous. Hohohohoho~";
			close;
		}
		mes "[Veronica]";
		mes "Okay now, please choose the style";
		mes "you desire from styles no.1 to";
		mes "no.19.  I will do my best to";
		mes "make you look your very best.";
		next;
		input .@style;
		if(.@style > 19) {
			mes "[Veronica]";
			mes "I am sorry, you chose an unavailable style.";
			mes "Make sure you enter the correct number.";
			close;
		} else if(.@style == 0) {
			mes "[Veronica]";
			mes "You have canceled your request.";
			close;
		} else if(getlook(1) == .@style) {
			mes "[Veronica]";
			mes "I am sorry, but you are already";
			mes "wearing the style you have";
			mes "requested. Would you please";
			mes "choose a different style?";
			close;
		}
			callsub L_cutin,.@style;
			mes "[Veronica]";
			mes "You have chosen style no. (" + .@style + ").";
			mes "I shall proceed with your request.";
			mes "Would you mind?";
			next;
			if(select("No, I don't mind.:Yes, let me choose another one.") == 1) {
				if(getlook(6) == 0) {
					mes "[Veronica]";
					mes "Oh, my, you haven't dyed your hair";
					mes "at all. You would look even more";
					mes "fabulous if you dyed your hair...";
					mes "Oh well, I will do it for free.";
					mes "So what kind of color would you like?";
					next;
					switch(select("Red.:Yellow.:Purple.:Orange.:Green.:Blue.:White.:Dark Brown.:Cancel.")) {
					case 1:
						set .@pallete,8;
						break;
					case 2:
						set .@pallete,1;
						break;
					case 3:
						set .@pallete,2;
						break;
					case 4:
						set .@pallete,3;
						break;
					case 5:
						set .@pallete,4;
						break;
					case 6:
						set .@pallete,5;
						break;
					case 7:
						set .@pallete,6;
						break;
					case 8:
						set .@pallete,7;
						break;
					case 9:
						mes "[Veronica]";
						mes "Oh, I was gonna do it for free.";
						mes "Well, if you change your mind, please come again.";
						mes "The color of your hair enhances your look.";
						close;
					}
				}
				nude;
				mes "[Veronica]";
				mes "Now, let's get started. Try to";
				mes "stay still, dear. If you move,";
				mes "it might ruin the perfect look";
				mes "I intend to give you. Trust me,";
				mes "I will make you look fabulous~";
				next;
				mes "[Veronica]";
				mes "- *snip snip snip snip* -";
				mes "- *bzzzzzzz bzzzzzzz bzzzzzzz bzzzzzzz* -";
				mes "- *snip snip snip snip* -";
				mes "- *bzzzzzzz bzzzzzzz bzzzzzzz bzzzzzzz* -";
				next;
				set Zeny,Zeny-99800;
				delitem 973,3;	// Counteragent
				delitem 974,3;	// Mixture
				delitem 901,100;	// Danggie
				delitem 1094,100;	// Short_Daenggie
				delitem 1020,100;	// Long_Hair
				delitem 1060,100;	// Golden_Hair
				delitem 7152,100;	// Glossy_Hair
				setlook 1,.@style;
				setlook 6,.@pallete;
				cutin "",255;
				mes "[Veronica]";
				mes "Alright, it's done~";
				mes "I hope you like";
				mes "this style no.(" + .@style + ").";
				mes "Feel free to come back anytime";
				mes "when you want a new hairstyle. Hohohohohoho~";
				setlook 1,.@style;
				setlook 6,.@pallete;
				close;
			}
			mes "[Veronica]";
			mes "Okay then, please choose one";
			mes "a hairstyle again. I believe";
			mes "you will find the look that's best for you.";
			close;
	case 3:
		mes "[Veronica]";
		mes "Everybody deserves the right to";
		mes "pursue beauty. I hope that you";
		mes "will find the right hairstyle";
		mes "one of these days.";
		close;
	}

L_cutin:
	if(Sex == 1) {
		if(getarg(0) < 10)
			cutin "hair_m_0"+getarg(0),4;
		else
			cutin "hair_m_"+getarg(0),4;
	} else {
		if(getarg(0) < 10)
			cutin "hair_f_0"+getarg(0),4;
		else
			cutin "hair_f_"+getarg(0),4;
	}
	return;
}

// Roving Hair Dresser
// ============================================================
alberta,33,141,7	script	Roving Hair Dresser	87,{
	mes "[Rui Vishop]";
	mes "That Veronica...";
	mes "Hah! Best hair dresser my ass.";
	mes "She's not the best hair dresser...";
	mes "...";
	mes "I am!";
	next;
	mes "[Rui Vishop]";
	mes "I, Rui Vishop, the man to whom";
	mes "all scalps are canvases";
	mes "waiting to be transformed into";
	mes "works of magnificent art~!";
	next;
	switch(select("What are you?:Do my hair, please!:.....")) {
	case 1:
		mes "[Rui Vishop]";
		mes "Do you not know that I, Rui";
		mes "Vishop, maestro of the shears";
		mes "and sculptor of hair, am an";
		mes "artist far ahead of his time?!";
		mes "Well, I suppose an adventurer";
		mes "like yourself wouldn't know...";
		next;
		mes "[Rui Vishop]";
		mes "As a hair sculptor, I find joy";
		mes "in bestowing upon others the";
		mes "supreme favour of doing their";
		mes "hairstyle at a reasonable price.";
		next;
		mes "[Rui Vishop]";
		mes "Recently, however, I happened to";
		mes "overhear that some tyro has had";
		mes "the audacity to call herself a";
		mes "hair dresser.";
		next;
		mes "[Rui Vishop]";
		mes "So one day I went there,";
		mes "pretending to be a customer.";
		mes "I was apalled to see the boring,";
		mes "lifeless hairstyles that she was";
		mes "giving all of her clients...";
		next;
		mes "[Rui Vishop]";
		mes "It wasn't hard to notice that her";
		mes "skills, or lack thereof, are a";
		mes "joke. She brings shame to the";
		mes "great and honorable";
		mes "profession of hair dressing.";
		mes "A complete and utter disgrace!";
		next;
		mes "[Rui Vishop]";
		mes "But the worst part was...";
		mes "she forced her customers to";
		mes "choose a hairstyle before she";
		mes "styled their hair!";
		next;
		mes "[Rui Vishop]";
		mes "That's not how talented hair";
		mes "dressers do their job! She";
		mes "should know what hair style will";
		mes "fit a customer without ever";
		mes "asking them!";
		next;
		mes "[Rui Vishop]";
		mes "If by any chance you decide to";
		mes "do your hair, don't even think";
		mes "about giving her patronage.";
		mes "Instead, you may ask for my";
		mes "services. I assure you, I am";
		mes "faaaar better than her.";
		next;
		mes "[Rui Vishop]";
		mes "Do you understand? I mean, don't";
		mes "let her ruin your hair needlessly!";
		mes "You could get a Swordman to hack";
		mes "away at your hair if you want a";
		mes "hairstyle that horrible~!";
		close;
	case 2:
		if(BaseLevel < 60) {
			mes "[Rui Vishop]";
			mes "Hmm, I must say, your current";
			mes "style fits you best. Trust me, I know what I am saying.";
			close;
		} else if(Zeny < 199800) {
			mes "[Rui Vishop]";
			mes "Ah, I see that that you can";
			mes "recognize genius when it is";
			mes "right before you. In light";
			mes "of your good taste, I will";
			mes "only require money for my";
			mes "services.";
			next;
			mes "[Rui Vishop]";
			mes "Simply pay me the small";
			mes "fee of 199,800 zeny. You must";
			mes "know that I am doing you a";
			mes "huge favor by charging you";
			mes "such a small amount. My";
			mes "art is priceless, after all.";
			close;
		}
		mes "[Rui Vishop]";
		mes "Alright, I will be taking my";
		mes "199,800 zeny service charge now.";
		next;
		mes "[Rui Vishop]";
		mes "If you don't wish to do";
		mes "this right now, though I can't";
		mes "imagine why, you may ask that";
		mes "stupid hair dresser to";
		mes "do her clumsy work on you...";
		next;
		if(select("No, please do my hair.:Umm, I changed my mind.") ==1 ) {
			mes "[Rui Vishop]";
			mes "O~k~a~y!";
			mes "Now, let us begin~!";
			next;
			mes "[Rui Vishop]";
			mes "Wooooo~oooohhhh!! Toohhhhh~oooohhhh!!";
			next;
			mes "[Rui Vishop]";
			mes "Woooooo~aaaaaaahhhhh!!";
			next;
			mes "[Rui Vishop]";
			mes "Voila!";
			next;
			mes "[Rui Vishop]";
			mes "Oh, great~ it's awesome!";
			mes "Another Vishop masterpiece~";
			mes "Once more I've outdone myself.";
			mes "It's such a unique and talented";
			mes "style! Yes, I am the best! Wooohahahahahaha!";
			set Zeny,Zeny-199800;
			setlook 1,rand(1,19);
			setlook 6,rand(1,8);
			close;
		}
		mes "[Rui Vishop]";
		mes "Bah! Alright! It's your decision.";
		mes "But don't blame me later!";
		mes "One day you'll wake up, realize";
		mes "you're ugly and regret not";
		mes "having my genius shape every lock";
		mes "of hair on your head.";
		close;
	case 3:
		mes "[Rui Vishop]";
		mes "What? What a shame!";
		mes "Will you let that...that";
		mes "charlatan of a hair dresser ruin";
		mes "your hairstyle!? I'm sure the";
		mes "heavens are crying tears of";
		mes "pity at mankind's ignorance...";
		close;
	}
}

//===== Old Changelog: =================================
//= 07/06/05 : Added 1st Version. [Muad_Dib]
//= Converted to eAthena format by Dr.Evil Fixed typos [Nexon]
//= 1.1 Removed Duplicates [Silent]
//============================================================