//===== rAthena Script =======================================
//= Hair Dresser
//===== By: ==================================================
//= Muad_Dib, Samuray22, Kisuka
//===== Current Version: =====================================
//= 1.4
//===== Compatible With: =====================================
//= rAthena Project
//===== Description: =========================================
//= [Official 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]
//= 1.4 Added Lighthalzen Hair Dresser. [L0ne_W0lf]
//= 1.5 Moving NPC Hair Dresser to Pre-Renewal [JohnnyPlayy]
//============================================================

// 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;
	}
}


lhz_in02,91,155,5	script	Assistant Beautician#li	862,{
	mes "[Assistant Beautician]";
	mes "Wah?! Sweet Jiminy,";
	mes "you freaked me out!";
	mes "What are you doing?!";
	emotion ET_HUK;
	next;
	mes "[Assistant Beautician]";
	mes "Oh! Um, a customer!";
	mes "H-h-h-h-h-hello! Can";
	mes "I help you with anything?";
	next;
	switch(select("What do you do?:Please change my hairstyle.:Who is Prince Shammi?")) {
	case 1:
		mes "[Assistant Beautician]";
		mes "Oh! Me...? I'm";
		mes "just an assistant";
		mes "beautician, but I'm";
		mes "training hard everyday";
		mes "so that I can become";
		mes "a real professional!";
		next;
		mes "[Assistant Beautician]";
		mes "Yeah, I do all sorts of";
		mes "grunt work for the boss while";
		mes "I'm in training. Sometimes, he";
		mes "makes me work pretty hard.";
		mes "In fact, I better get back to work before he gets angry at me!";
		close;
	case 2:
		if (BaseLevel < 60) {
			mes "[Assistant Beautician]";
			mes "Me...? Oh no,";
			mes "no I can't! I mean,";
			mes "I'd love to but, I'm";
			mes "still in training and";
			mes "I can't take responsibility";
			mes "if I mess up on a little kid!";
			close;
		}
		else if ((Zeny < 250000)) {
			mes "[Assistant Beautician]";
			mes "Well... I'm just an";
			mes "assistant, but I have been";
			mes "studying hairstyling after";
			mes "work. If you want, just bring";
			mes "me 250,000 zeny and I'll try";
			mes "my best to change your hair~";
			next;
			mes "[Assistant Beautician]";
			mes "I'd appreciate it if you'd";
			mes "give me this chance! The";
			mes "boss doesn't think I'm ready";
			mes "for styling real people yet, so";
			mes "I haven't had much practice!";
			next;
			mes "[Assistant Beautician]";
			mes "I just know I could";
			mes "do a good job on your";
			mes "hair! Just... Just please";
			mes "understand if I mess up.";
			mes "It won't be too bad, I promise~";
			close;
		}
		else {
			mes "[Assistant Beautician]";
			mes "You're really going to";
			mes "give me a chance to practice?";
			mes "Oh, I love you so much! Okay,";
			mes "I'll need 250,000 zeny to make";
			mes "up for the material expenses.";
			mes "Is that okay with you?";
			next;
			switch(select("Of course~:On second thought...")) {
			case 1:
				mes "[Assistant Beautician]";
				mes "Great! Now, please";
				mes "choose a hairstyle";
				mes "from ''1'' to ''23.''";
				mes "Um, if you need to";
				mes "cancel, just enter ''0.''";
				next;
				input .@input;
				if (.@input == 0) {
					mes "[Assistant Beautician]";
					mes "Awwww...";
					mes "I guess you don't";
					mes "trust me after all...";
					close;
				}
				else if ((.@input < 1) || (.@input > 23)) {
					mes "[Assistant Beautician]";
					mes "Huh? I thought I asked";
					mes "you to enter a number from";
					mes "''1'' to ''23?'' What did I do";
					mes "wrong this time? Hmmm...";
					close;
				}
				else {
					mes "[Assistant Beautician]";
					mes "So this is the";
					mes "style you want me";
					mes "to try to do for you?";
					if (Sex == SEX_MALE) {
						if (.@input < 10)
							cutin "hair_m_0"+.@input+".BMP",4;
						else
							cutin "hair_m_"+.@input+".BMP",4;
					}
					else {
						if (.@input < 10)
							cutin "hair_f_0"+.@input+".BMP",4;
						else
							cutin "hair_f_"+.@input+".BMP",4;
					}
					next;
					switch(select("Yes, let's try it~:Cancel.")) {
					case 1:
						break;
					case 2:
						mes "[Assistant Beautician]";
						mes "Oooh, there must";
						mes "be some style that";
						mes "you like, right? Hmmm...";
						close3;
					}
				}
				mes "[Assistant Beautician]";
				mes "Great, you finally";
				mes "picked one! What, which";
				mes "one did you pick again?";
				mes "Ah, I found it, I found it!";
				mes "Haha! No problem here!";
				mes "Now it's time to style!";
				next;
				nude;
				mes "[Assistant Beautician]";
				mes "Bwwwwaaaahhhh!";
				next;
				mes "[Assistant Beautician]";
				mes "Yap! Pwwwaaattt!";
				next;
				mes "[Assistant Beautician]";
				mes "Waaaah!";
				mes "Oh crap!";
				mes "Wait, I can...";
				mes "I can fix this!";
				next;
				set .@style_r,rand(1,23);
				set .@color_r,rand(1,8);
				mes "[Assistant Beautician]";
				mes "^333333*Pant Pant Pant*^000000";
				next;
				set Zeny, Zeny-250000;
				setlook VAR_HEAD,.@style_r;
				setlook VAR_HEADPALETTE,.@color_r;
				mes "[Assistant Beautician]";
				mes "Bwahahaha! Success!";
				if (.@input == .@style_r) {
					mes "So... How do you like";
					mes "your new style? I love it!";
				}
				else {
					mes "Wha...? This isn't what";
					mes "you wanted? Uh oh... Um...";
					mes "Well, next time I know I can";
					mes "do a much better job! Right!";
				}
				next;
				mes "[Assistant Beautician]";
				mes "Oh, you're such a";
				mes "sweetheart for helping";
				mes "me! Thank you for using";
				mes "my service and come again~";
				emotion ET_CHUP;
				close3;
			case 2:
				mes "[Assistant Beautician]";
				mes "Huh? Oh no, you're";
				mes "quitting? Well, I guess";
				mes "I couldn't trust me to";
				mes "style my hair either...";
				mes "You're... You're right.";
				close;
			}
		}
	case 3:
		mes "[Assistant Beautician]";
		mes "Prince Shammi?";
		mes "He's only a genius when";
		mes "it comes to hairstyling!";
		mes "I'm just his apprentice, but";
		mes "maybe someday, I can be a";
		mes "force in the fashion world too!";
		close;
	}
}

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