//===== Athena Script ========================================
//= Hair Dresser
//===== By: ==================================================
//= [Muad_Dib] 1.0 (The Prometheus Project)
//===== Current Version: =====================================
//= 1.1
//===== Compatible With: =====================================
//= Any Athena Version; RO Episode 6+
//===== Description: =========================================
//= Allows you to change your hairstyle.
//===== Additional Comments: =================================
//= 07/06/05 : Added 1st Version. [Muad_Dib]
//= Converted to eAthena format by Dr.Evil
//= Change NPC coords according to 
//= http://www.nattsumi.com/roquest/miscellaneousquest.html
//= Fixed typos [Nexon]
//= TODO: Fix exploits V_V [Lupus]
//= 1.1 Removed Duplicates [Silent]
//============================================================

alberta,137,37,6	script	Stylist#01	91,{
	mes "[Veronica]";
	mes "Welcome~~Welcome~~";
	mes "Welcome to the one of the best Hair shop, Veronicas Beauty Saloon!!";
	mes "HoHoHo";
	mes "Come here for new hair, right?";
	mes "How may I help you?";
	next;
	menu "Look through the Hair Styles.",Look,"Change Hair Style",Change,"Stop talking.",Cancel;
Look:
	set @hair,0;
	mes "[Veronica]";
	mes "There are 19 Hair Styles, 1~19!!!";
	mes "Which number do you want to look at first?";
	mes "If you want to stop looking, please choose 0.";
	next;
		if(sex==0) goto LookF;
		input @hair_in;
		if (@hair_in > 19) goto hairtohigh;
		set @hair,@hair_in;
	goto ShowPicM;
	close;
LookF:
	set @hairf,0; 
	input @hairf_in;
	if (@hairf_in > 19) goto hairtohigh;
	set @hairf,@hairf_in;
	goto ShowPicF;
	close;
ShowPicM:
		if (@hair == 0) goto hairnothing;
		if (@hair == 1) goto mhair1show;
		if (@hair == 2) goto mhair2show;
		if (@hair == 3) goto mhair3show;
		if (@hair == 4) goto mhair4show;
		if (@hair == 5) goto mhair5show;
		if (@hair == 6) goto mhair6show;
		if (@hair == 7) goto mhair7show;
		if (@hair == 8) goto mhair8show;
		if (@hair == 9) goto mhair9show;
		if (@hair == 10) goto mhair10show;
		if (@hair == 11) goto mhair11show;
		if (@hair == 12) goto mhair12show;
		if (@hair == 13) goto mhair13show;
		if (@hair == 14) goto mhair14show;
		if (@hair == 15) goto mhair15show;
		if (@hair == 16) goto mhair16show;
		if (@hair == 17) goto mhair17show;
		if (@hair == 18) goto mhair18show;
		if (@hair == 19) goto mhair19show;

mhair1show:
		cutin "hair_m_01",4;
	mes "[Veronica]";
	mes "Oh~ 'Trickdead' style!";
	mes "It is very neat feature and comfortable.";
	mes "How do you think? Do you like it?";
	close;
mhair2show:
		cutin "hair_m_02",4;
	mes "[Veronica]";
	mes "Oh~'Two-Handed Sword Mastery' style!";
	mes "It's style is very similar to one of the famous Swordsman.";
	mes "How do you think? Do you like it?";
	close;
mhair3show:
		cutin "hair_m_03",4;
	mes "[Veronica]";
	mes "Oh~'Napalm Beat' style!";
	mes "It makes feeling there is unknown power...";
	mes "How do you think? Do you like it?";
	close;
mhair4show:
		cutin "hair_m_04",4;
	mes "[Veronica]";
	mes "Oh~'Double Strafe' style!";
	mes "It will make your mind is very clear.";
	mes "How do you think? Do you like it?";
	close;
mhair5show:
		cutin "hair_m_05",4;
	mes "[Veronica]";
	mes "Oh~'Angelus' style!";
	mes "It feels calm your reference.";
	mes "How do you think? Do you like it?";
	close;
mhair6show:
		cutin "hair_m_06",4;
	mes "[Veronica]";
	mes "Oh~'Pushcart' style!";
	mes "This is the style based on motive of string cart..";
	mes "How do you think? Do you like it?";
	close;
mhair7show:
		cutin "hair_m_07",4;
	mes "[Veronica]";
	mes "Oh~'Envenom' style!";
	mes "It makes feel addicting into something..";
	mes "How do you think? Do you like it?";
	close;
mhair8show:
		cutin "hair_m_08",4;
	mes "[Veronica]";
	mes "Oh~'Bowling Bash' style!";
	mes "Once people sees it, they will fall for it.";
	mes "How do you think? Do you like it?";
	close;
mhair9show:
		cutin "hair_m_09",4;
	mes "[Veronica]";
	mes "Oh~'Venom Dust' style!";
	mes "It is the style gives feeling deadly charm.";
	mes "How do you think? Do you like it?";
	close;
mhair10show:
		cutin "hair_m_10",4;
	mes "[Veronica]";
	mes "Oh~'Turn Undead' style!";
	mes "It gives feeling one attack can make Devils disappear!";
	mes "How do you think? Do you like it?";
	close;
mhair11show:
		cutin "hair_m_11",4;
	mes "[Veronica]";
	mes "Oh~'Dragnology' style!";
	mes "This is the style bases on motive of mysterious Dragon...";
	mes "How do you think? Do you like it?";
	close;
mhair12show:
		cutin "hair_m_12",4;
	mes "[Veronica]";
	mes "Oh~'Mace Mastery' style!";
	mes "It looks very hard and attractive.";
	mes "How do you think? Do you like it?";
	close;
mhair13show:
		cutin "hair_m_13",4;
	mes "[Veronica]";
	mes "Oh~'Thunderstorm' style!";
	mes "It feels hit by Thunderstorm!!";
	mes "How do you think? Do you like it?";
	close;
mhair14show:
		cutin "hair_m_14",4;
	mes "[Veronica]";
	mes "Oh~'Encore' style!";
	mes "It is the style make people feels like asking you to sing~";
	mes "How do you think? Do you like it?";
	close;
mhair15show:
		cutin "hair_m_15",4;
	mes "[Veronica]";
	mes "Oh~'Grommtooht' style!";
	mes "It feels like you will be picked by hair!";
	mes "How do you think? Do you like it?";
	close;
mhair16show:
		cutin "hair_m_16",4;
	mes "[Veronica]";
	mes "Oh~'Blitz Beat' style!";
	mes "It feels it will attack 5 times...?";
	mes "How do you think? Do you like it?";
	close;
mhair17show:
		cutin "hair_m_17",4;
	mes "[Veronica]";
	mes "Oh~'Ore Discovery' style!";
	mes "It feels like picking up things while walking.";
	mes "How do you think? Do you like it?";
	close;
mhair18show:
		cutin "hair_m_18",4;
	mes "[Veronica]";
	mes "Oh~'Fire Pillar' style!";
	mes "It has been a great style over the one generation...!";
	mes "How do you think? Do you like it?";
	close;
mhair19show:
		cutin "hair_m_19",4;
	mes "[Veronica]";
	mes "Oh~'Guillotine Fist' style!";
	mes "It feels like betting all at once!!";
	mes "How do you think? Do you like it?";
	close;	
ShowPicF:
		if (@hairf == 0) goto hairnothing;
		if (@hairf == 1) goto fhair1show;
		if (@hairf == 2) goto fhair2show;
		if (@hairf == 3) goto fhair3show;
		if (@hairf == 4) goto fhair4show;
		if (@hairf == 5) goto fhair5show;
		if (@hairf == 6) goto fhair6show;
		if (@hairf == 7) goto fhair7show;
		if (@hairf == 8) goto fhair8show;
		if (@hairf == 9) goto fhair9show;
		if (@hairf == 10) goto fhair10show;
		if (@hairf == 11) goto fhair11show;
		if (@hairf == 12) goto fhair12show;
		if (@hairf == 13) goto fhair13show;
		if (@hairf == 14) goto fhair14show;
		if (@hairf == 15) goto fhair15show;
		if (@hairf == 16) goto fhair16show;
		if (@hairf == 17) goto fhair17show;
		if (@hairf == 18) goto fhair18show;
		if (@hairf == 19) goto fhair19show;
fhair1show:
		cutin "hair_f_01",4;
	mes "[Veronica]";
	mes "Oh~ 'Trickdead' style!";
	mes "It is the style people wants to stroke your hair.";
	mes "How do you think? Do you like it?";
	close;
fhair2show:
		cutin "hair_f_02",4;
	mes "[Veronica]";
	mes "Oh~'Bash' style!";
	mes "It feels unrevealed strong power is hidden inside of....";
	mes "How do you think? Do you like it?";
	close;
fhair3show:
		cutin "hair_f_03",4;
	mes "[Veronica]";
	mes "Oh~'Frost Diver' style!";
	mes "It feels cold, but also warm....";
	mes "How do you think? Do you like it?";
	close;
fhair4show:
		cutin "hair_f_04",4;
	mes "[Veronica]";
	mes "Oh~'Arrow Shower' style!";
	mes "It feels very refreshed~";
	mes "How do you think? Do you like it?";
	close;
fhair5show:
		cutin "hair_f_05",4;
	mes "[Veronica]";
	mes "Oh~'Heal' style!";
	mes "It feels mind in cured.";
	mes "How do you think? Do you like it?";
	close;
fhair6show:
		cutin "hair_f_06",4;
	mes "[Veronica]";
	mes "Oh~'Vending' style!";
	mes "It seems like making lots of money.";
	mes "How do you think? Do you like it?";
	close;
fhair7show:
		cutin "hair_f_07",4;
	mes "[Veronica]";
	mes "Oh~'Double Strafe' style!";
	mes "It makes whomever dash twice.";
	mes "How do you think? Do you like it?";
	close;
fhair8show:
		cutin "hair_f_08",4;
	mes "[Veronica]";
	mes "Oh~'Gloria' style!";
	mes "Its nobleness and holiness moods are great.";
	mes "How do you think? Do you like it?";
	close;
fhair9show:
		cutin "hair_f_09",4;
	mes "[Veronica]";
	mes "Oh~'Increase Sp Recovery' style!";
	mes "It makes fell like recovering spirit fully.";
	mes "How do you think? Do you like it?";
	close;
fhair10show:
		cutin "hair_f_10",4;
	mes "[Veronica]";
	mes "Oh~'Prepare Potion' style!";
	mes "It feels a wound is healed already.";
	mes "How do you think? Do you like it?";
	close;
fhair11show:
		cutin "hair_f_11",4;
	mes "[Veronica]";
	mes "Oh~'Grand Cross' style!";
	mes "It feels like a firm faith.";
	mes "How do you think? Do you like it?";
	close;
fhair12show:
		cutin "hair_f_12",4;
	mes "[Veronica]";
	mes "Oh~'Intimidate' style!";
	mes "It seems you saw this style somewhere...?";
	mes "How do you think? Do you like it?";
	close;
fhair13show:
	cutin "hair_f_13",4;
	mes "[Veronica]";
	mes "Oh~'Spiritual Sphere Absorption' style!";
	mes "Its catch people's spirits.";
	mes "How do you think? Do you like it?";
	close;
fhair14show:
		cutin "hair_f_14",4;
	mes "[Veronica]";
	mes "Oh~'Gypsy's Kiss' style!";
	mes "It makes people think you are very kind to all...";
	mes "How do you think? Do you like it?";
	close;
fhair15show:
		cutin "hair_f_15",4;
	mes "[Veronica]";
	mes "Oh~'Counter Attack' style!";
	mes "It feels it will kick when someone is near.";
	mes "How do you think? Do you like it?";
	close;				
fhair16show:
		cutin "hair_f_16",4;
	mes "[Veronica]";
	mes "Oh~'Ankle Snare' style!";
	mes "This is the style hardly moved";
	mes "How do you think? Do you like it?";
	close;
fhair17show:
		cutin "hair_f_17",4;
	mes "[Veronica]";
	mes "Oh~'Hammer Fall' style!";
	mes "It will make feeling dizzy.";
	mes "How do you think? Do you like it?";
	close;
fhair18show:
		cutin "hair_f_18",4;
	mes "[Veronica]";
	mes "Oh~'Jupiter Thunder' style!";
	mes "It feels very neat.";
	mes "How do you think? Do you like it?";
	close;
fhair19show:
		cutin "hair_f_19",4;
	mes "[Veronica]";
	mes "Oh~'Whirlwind' style!";
	mes "It feels very refreshed like wind.";
	mes "How do you think? Do you like it?";
	close;
hairnothing:
	mes "[Veronica]";
	mes "Did you find a style you like?";
	mes "If you want to change your hair style at anytime, I will do my best!!";
	close;
hairtohigh:
	mes "[Veronica]";
	mes "Sorry, there aren't any Hairstyles with that number.";
	mes "Please choose a number from 1 to 19.";
	close;
Change:
		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;

		set @hairch,0;
	mes "[Veronica]";
	mes "Well, then... Please choose Hair Style you like most.";
	mes "I will do my best";
	mes "There are 19 different Hair Styles.";
	mes "Numbers from 1 to 19~";
	next;
		if(sex==0) goto iffemale;
		input @hairchange_in;
		if (@hairchange_in > 19) goto tohighchange;
		set @hairch,@hairchange_in;
		if (@hairch == 1) goto mhair1;
		if (@hairch == 2) goto mhair2;
		if (@hairch == 3) goto mhair3;
		if (@hairch == 4) goto mhair4;
		if (@hairch == 5) goto mhair5;
		if (@hairch == 6) goto mhair6;
		if (@hairch == 7) goto mhair7;
		if (@hairch == 8) goto mhair8;
		if (@hairch == 9) goto mhair9;
		if (@hairch == 10) goto mhair10;
		if (@hairch == 11) goto mhair11;
		if (@hairch == 12) goto mhair12;
		if (@hairch == 13) goto mhair13;
		if (@hairch == 14) goto mhair14;
		if (@hairch == 15) goto mhair15;
		if (@hairch == 16) goto mhair16;
		if (@hairch == 17) goto mhair17;
		if (@hairch == 18) goto mhair18;
		if (@hairch == 19) goto mhair19;
mhair1:
		cutin "hair_m_01",4;
	mes "[Veronica]";
	mes "This is the (1) style.";
	mes "I will change your Hair with this Again.";
	mes "Is that OK for you??";
	next;
	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO1;
	cutin "",255;
	mes "[Veronica]";
	mes "Now it begins~. Hold still~";
	mes "If you move, you will have very bad style.";
	mes "Just trust me on this!!";
	next;
	mes "[Veronica]";
	mes "- Clip clip Clip clip -";
	mes "- Klit klit Klit klit -";
	mes "- Snap snap Snap snap -";
	next;
		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
		set Zeny,Zeny-99800;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		setlook 1,1;
	mes "[Veronica]";
	mes "Wow~ it came out very well~~";
	mes "I hope you like this (1) style.";
	mes "If you'd like to have another hair style,";
	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
	close;
M_NO1:
		cutin "",255;
	mes "[Veronica]";
	mes "Well~ choose again please~";
	mes "There should be a style you like.";
	mes "Just remember the number you like the most and tell me.";
	close;					
mhair2:
		cutin "hair_m_02",4;
	mes "[Veronica]";
	mes "This is the (2) style.";
	mes "I will change your Hair with this Again.";
	mes "Is that OK for you??";
	next;
	menu "Yaeh~ I'd love to.",-,"No..I don't like it..",M_NO2;
		cutin "",255;
	mes "[Veronica]";
	mes "Now it begins~. Hold still~";
	mes "If you move, you will have very bad style.";
	mes "Just trust me on this!!";
	next;
	mes "[Veronica]";
	mes "- Clip clip Clip clip -";
	mes "- Klit klit Klit klit -";
	mes "- Snap snap Snap snap -";
	next;
		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
		set Zeny,Zeny-99800;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		setlook 1,2;
	mes "[Veronica]";
	mes "Wow~ it came out very well~~";
	mes "I hope you like this (2) style.";
	mes "If you'd like to have another hair style,";
	mes "you are welcome welcome to vitis me anytime~ HoHoHo";
	close;
M_NO2:
		cutin "",255;
	mes "[Veronica]";
	mes "Well~ choose again please~";
	mes "There should be a style you like.";
	mes "Just remember the number you like the most and tell me.";
	close;							
mhair3:
		cutin "hair_m_03",4;
	mes "[Veronica]";
	mes "This is the (3) style.";
	mes "I will change your Hair with this Again.";
	mes "Is that OK for you??";
	next;
	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO3;
		cutin "",255;
	mes "[Veronica]";
	mes "Now it begins~. Hold still~";
	mes "If you move, you will have very bad style.";
	mes "Just trust me on this!!";
	next;
	mes "[Veronica]";
	mes "- Clip clip Clip clip -";
	mes "- Klit klit Klit klit -";
	mes "- Snap snap Snap snap -";
	next;
		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
		set Zeny,Zeny-99800;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		setlook 1,3;
	mes "[Veronica]";
	mes "Wow~ it came out very well~~";
	mes "I hope you like this (3) style.";
	mes "If you'd like to have another hair style,";
	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
	close;
M_NO3:
		cutin "",255;
	mes "[Veronica]";
	mes "Well~ choose again please~";
	mes "There should be a style you like.";
	mes "Just remember the number you like the most and tell me.";
	close;						
mhair4:
		cutin "hair_m_04",4;
	mes "[Veronica]";
	mes "This is the (4) style.";
	mes "I will change your Hair with this Again.";
	mes "Is that OK for you??";
	next;
	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO4;
		cutin "",255;
	mes "[Veronica]";
	mes "Now it begins~. Hold still~";
	mes "If you move, you will have very bad style.";
	mes "Just trust me on this!!";
	next;
	mes "[Veronica]";
	mes "- Clip clip Clip clip -";
	mes "- Klit klit Klit klit -";
	mes "- Snap snap Snap snap -";
	next;
		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
		set Zeny,Zeny-99800;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		setlook 1,4;
	mes "[Veronica]";
	mes "Wow~ it came out very well~~";
	mes "I hope you like this (4) style.";
	mes "If you'd like to have another hair style,";
	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
	close;
M_NO4:
		cutin "",255;
	mes "[Veronica]";
	mes "Well~ choose again please~";
	mes "There should be a style you like.";
	mes "Just remember the number you like the most and tell me.";
	close;
mhair5:
		cutin "hair_m_05",4;
	mes "[Veronica]";
	mes "This is the (5) style.";
	mes "I will change your Hair with this Again.";
	mes "Is that OK for you??";
	next;
	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO5;
		cutin "",255;
	mes "[Veronica]";
	mes "Now it begins~. Hold still~";
	mes "If you move, you will have very bad style.";
	mes "Just trust me on this!!";
	next;
	mes "[Veronica]";
	mes "- Clip clip Clip clip -";
	mes "- Klit klit Klit klit -";
	mes "- Snap snap Snap snap -";
	next;
		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
		set Zeny,Zeny-99800;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		setlook 1,5;
	mes "[Veronica]";
	mes "Wow~ it came out very well~~";
	mes "I hope you like this (5) style.";
	mes "If you'd like to have another hair style,";
	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
	close;
M_NO5:
		cutin "",255;
	mes "[Veronica]";
	mes "Well~ choose again please~";
	mes "There should be a style you like.";
	mes "Just remember the number you like the most and tell me.";
	close;
mhair6:
		cutin "hair_m_06",4;
	mes "[Veronica]";
	mes "This is the (6) style.";
	mes "I will change your Hair with this Again.";
	mes "Is that OK for you??";
	next;
	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO6;
		cutin "",255;
	mes "[Veronica]";
	mes "Now it begins~. Hold still~";
	mes "If you move, you will have very bad style.";
	mes "Just trust me on this!!";
	next;
	mes "[Veronica]";
	mes "- Clip clip Clip clip -";
	mes "- Klit klit Klit klit -";
	mes "- Snap snap Snap snap -";
	next;
		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
		set Zeny,Zeny-99800;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		setlook 1,6;
	mes "[Veronica]";
	mes "Wow~ it came out very well~~";
	mes "I hope you like this (6) style.";
	mes "If you'd like to have another hair style,";
	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
	close;
M_NO6:
		cutin "",255;
	mes "[Veronica]";
	mes "Well~ choose again please~";
	mes "There should be a style you like.";
	mes "Just remember the number you like the most and tell me.";
	close;
mhair7:
		cutin "hair_m_07",4;
	mes "[Veronica]";
	mes "This is the (7) style.";
	mes "I will change your Hair with this Again.";
	mes "Is that OK for you??";
	next;
	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO7;
		cutin "",255;
	mes "[Veronica]";
	mes "Now it begins~. Hold still~";
	mes "If you move, you will have very bad style.";
	mes "Just trust me on this!!";
	next;
	mes "[Veronica]";
	mes "- Clip clip Clip clip -";
	mes "- Klit klit Klit klit -";
	mes "- Snap snap Snap snap -";
	next;
		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
		set Zeny,Zeny-99800;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		setlook 1,7;
	mes "[Veronica]";
	mes "Wow~ it came out very well~~";
	mes "I hope you like this (7) style.";
	mes "If you'd like to have another hair style,";
	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
	close;
M_NO7:
		cutin "",255;
	mes "[Veronica]";
	mes "Well~ choose again please~";
	mes "There should be a style you like.";
	mes "Just remember the number you like the most and tell me.";
	close;
mhair8:
		cutin "hair_m_08",4;
	mes "[Veronica]";
	mes "This is the (8) style.";
	mes "I will change your Hair with this Again.";
	mes "Is that OK for you??";
	next;
	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO8;
		cutin "",255;
	mes "[Veronica]";
	mes "Now it begins~. Hold still~";
	mes "If you move, you will have very bad style.";
	mes "Just trust me on this!!";
	next;
	mes "[Veronica]";
	mes "- Clip clip Clip clip -";
	mes "- Klit klit Klit klit -";
	mes "- Snap snap Snap snap -";
	next;
		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
		set Zeny,Zeny-99800;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		setlook 1,8;
	mes "[Veronica]";
	mes "Wow~ it came out very well~~";
	mes "I hope you like this (8) style.";
	mes "If you'd like to have another hair style,";
	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
	close;
M_NO8:
		cutin "",255;
	mes "[Veronica]";
	mes "Well~ choose again please~";
	mes "There should be a style you like.";
	mes "Just remember the number you like the most and tell me.";
	close;
mhair9:
		cutin "hair_m_09",4;
	mes "[Veronica]";
	mes "This is the (9) style.";
	mes "I will change your Hair with this Again.";
	mes "Is that OK for you??";
	next;
	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO9;
		cutin "",255;
	mes "[Veronica]";
	mes "Now it begins~. Hold still~";
	mes "If you move, you will have very bad style.";
	mes "Just trust me on this!!";
	next;
	mes "[Veronica]";
	mes "- Clip clip Clip clip -";
	mes "- Klit klit Klit klit -";
	mes "- Snap snap Snap snap -";
	next;
		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
		set Zeny,Zeny-99800;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		setlook 1,9;
	mes "[Veronica]";
	mes "Wow~ it came out very well~~";
	mes "I hope you like this (9) style.";
	mes "If you'd like to have another hair style,";
	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
	close;
M_NO9:
		cutin "",255;
	mes "[Veronica]";
	mes "Well~ choose again please~";
	mes "There should be a style you like.";
	mes "Just remember the number you like the most and tell me.";
	close;
mhair10:
		cutin "hair_m_10",4;
	mes "[Veronica]";
	mes "This is the (10) style.";
	mes "I will change your Hair with this Again.";
	mes "Is that OK for you??";
	next;
	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO10;
		cutin "",255;
	mes "[Veronica]";
	mes "Now it begins~. Hold still~";
	mes "If you move, you will have very bad style.";
	mes "Just trust me on this!!";
	next;
	mes "[Veronica]";
	mes "- Clip clip Clip clip -";
	mes "- Klit klit Klit klit -";
	mes "- Snap snap Snap snap -";
	next;
		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
		set Zeny,Zeny-99800;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		setlook 1,10;
	mes "[Veronica]";
	mes "Wow~ it came out very well~~";
	mes "I hope you like this (10) style.";
	mes "If you'd like to have another hair style,";
	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
	close;
M_NO10:
		cutin "",255;
	mes "[Veronica]";
	mes "Well~ choose again please~";
	mes "There should be a style you like.";
	mes "Just remember the number you like the most and tell me.";
	close;
mhair11:
		cutin "hair_m_11",4;
	mes "[Veronica]";
	mes "This is the (11) style.";
	mes "I will change your Hair with this Again.";
	mes "Is that OK for you??";
	next;
	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO11;
		cutin "",255;
	mes "[Veronica]";
	mes "Now it begins~. Hold still~";
	mes "If you move, you will have very bad style.";
	mes "Just trust me on this!!";
	next;
	mes "[Veronica]";
	mes "- Clip clip Clip clip -";
	mes "- Klit klit Klit klit -";
	mes "- Snap snap Snap snap -";
	next;
		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
		set Zeny,Zeny-99800;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		setlook 1,11;
	mes "[Veronica]";
	mes "Wow~ it came out very well~~";
	mes "I hope you like this (11) style.";
	mes "If you'd like to have another hair style,";
	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
	close;
M_NO11:
		cutin "",255;
	mes "[Veronica]";
	mes "Well~ choose again please~";
	mes "There should be a style you like.";
	mes "Just remember the number you like the most and tell me.";
	close;
mhair12:
		cutin "hair_m_12",4;
	mes "[Veronica]";
	mes "This is the (12) style.";
	mes "I will change your Hair with this Again.";
	mes "Is that OK for you??";
	next;
	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO12;
		cutin "",255;
	mes "[Veronica]";
	mes "Now it begins~. Hold still~";
	mes "If you move, you will have very bad style.";
	mes "Just trust me on this!!";
	next;
	mes "[Veronica]";
	mes "- Clip clip Clip clip -";
	mes "- Klit klit Klit klit -";
	mes "- Snap snap Snap snap -";
	next;
		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
		set Zeny,Zeny-99800;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		setlook 1,12;
	mes "[Veronica]";
	mes "Wow~ it came out very well~~";
	mes "I hope you like this (12) style.";
	mes "If you'd like to have another hair style,";
	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
	close;
M_NO12:
		cutin "",255;
	mes "[Veronica]";
	mes "Well~ choose again please~";
	mes "There should be a style you like.";
	mes "Just remember the number you like the most and tell me.";
	close;
mhair13:
		cutin "hair_m_13",4;
	mes "[Veronica]";
	mes "This is the (13) style.";
	mes "I will change your Hair with this Again.";
	mes "Is that OK for you??";
	next;
	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO13;
		cutin "",255;
	mes "[Veronica]";
	mes "Now it begins~. Hold still~";
	mes "If you move, you will have very bad style.";
	mes "Just trust me on this!!";
	next;
	mes "[Veronica]";
	mes "- Clip clip Clip clip -";
	mes "- Klit klit Klit klit -";
	mes "- Snap snap Snap snap -";
	next;
		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
		set Zeny,Zeny-99800;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		setlook 1,13;
	mes "[Veronica]";
	mes "Wow~ it came out very well~~";
	mes "I hope you like this (13) style.";
	mes "If you'd like to have another hair style,";
	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
	close;
M_NO13:
		cutin "",255;
	mes "[Veronica]";
	mes "Well~ choose again please~";
	mes "There should be a style you like.";
	mes "Just remember the number you like the most and tell me.";
	close;	
mhair14:
		cutin "hair_m_14",4;
	mes "[Veronica]";
	mes "This is the (14) style.";
	mes "I will change your Hair with this Again.";
	mes "Is that OK for you??";
	next;
	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO14;
		cutin "",255;
	mes "[Veronica]";
	mes "Now it begins~. Hold still~";
	mes "If you move, you will have very bad style.";
	mes "Just trust me on this!!";
	next;
	mes "[Veronica]";
	mes "- Clip clip Clip clip -";
	mes "- Klit klit Klit klit -";
	mes "- Snap snap Snap snap -";
	next;
		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
		set Zeny,Zeny-99800;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		setlook 1,14;
	mes "[Veronica]";
	mes "Wow~ it came out very well~~";
	mes "I hope you like this (14) style.";
	mes "If you'd like to have another hair style,";
	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
	close;
M_NO14:
		cutin "",255;
	mes "[Veronica]";
	mes "Well~ choose again please~";
	mes "There should be a style you like.";
	mes "Just remember the number you like the most and tell me.";
	close;	
mhair15:
		cutin "hair_m_15",4;
	mes "[Veronica]";
	mes "This is the (15) style.";
	mes "I will change your Hair with this Again.";
	mes "Is that OK for you??";
	next;
	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO15;
		cutin "",255;
	mes "[Veronica]";
	mes "Now it begins~. Hold still~";
	mes "If you move, you will have very bad style.";
	mes "Just trust me on this!!";
	next;
	mes "[Veronica]";
	mes "- Clip clip Clip clip -";
	mes "- Klit klit Klit klit -";
	mes "- Snap snap Snap snap -";
	next;
		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
		set Zeny,Zeny-99800;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		setlook 1,15;
	mes "[Veronica]";
	mes "Wow~ it came out very well~~";
	mes "I hope you like this (15) style.";
	mes "If you'd like to have another hair style,";
	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
	close;
M_NO15:
		cutin "",255;
	mes "[Veronica]";
	mes "Well~ choose again please~";
	mes "There should be a style you like.";
	mes "Just remember the number you like the most and tell me.";
	close;
mhair16:
		cutin "hair_m_16",4;
	mes "[Veronica]";
	mes "This is the (16) style.";
	mes "I will change your Hair with this Again.";
	mes "Is that OK for you??";
	next;
	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO16;
		cutin "",255;
	mes "[Veronica]";
	mes "Now it begins~. Hold still~";
	mes "If you move, you will have very bad style.";
	mes "Just trust me on this!!";
	next;
	mes "[Veronica]";
	mes "- Clip clip Clip clip -";
	mes "- Klit klit Klit klit -";
	mes "- Snap snap Snap snap -";
	next;
		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
		set Zeny,Zeny-99800;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		setlook 1,16;
	mes "[Veronica]";
	mes "Wow~ it came out very well~~";
	mes "I hope you like this (16) style.";
	mes "If you'd like to have another hair style,";
	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
	close;
M_NO16:
		cutin "",255;
	mes "[Veronica]";
	mes "Well~ choose again please~";
	mes "There should be a style you like.";
	mes "Just remember the number you like the most and tell me.";
	close;
mhair17:
		cutin "hair_m_17",4;
	mes "[Veronica]";
	mes "This is the (17) style.";
	mes "I will change your Hair with this Again.";
	mes "Is that OK for you??";
	next;
	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO12;
		cutin "",255;
	mes "[Veronica]";
	mes "Now it begins~. Hold still~";
	mes "If you move, you will have very bad style.";
	mes "Just trust me on this!!";
	next;
	mes "[Veronica]";
	mes "- Clip clip Clip clip -";
	mes "- Klit klit Klit klit -";
	mes "- Snap snap Snap snap -";
	next;
		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
		set Zeny,Zeny-99800;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		setlook 1,17;
	mes "[Veronica]";
	mes "Wow~ it came out very well~~";
	mes "I hope you like this (17) style.";
	mes "If you'd like to have another hair style,";
	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
	close;
M_NO17:
		cutin "",255;
	mes "[Veronica]";
	mes "Well~ choose again please~";
	mes "There should be a style you like.";
	mes "Just remember the number you like the most and tell me.";
	close;
mhair18:
		cutin "hair_m_18",4;
	mes "[Veronica]";
	mes "This is the (18) style.";
	mes "I will change your Hair with this Again.";
	mes "Is that OK for you??";
	next;
	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO12;
		cutin "",255;
	mes "[Veronica]";
	mes "Now it begins~. Hold still~";
	mes "If you move, you will have very bad style.";
	mes "Just trust me on this!!";
	next;
	mes "[Veronica]";
	mes "- Clip clip Clip clip -";
	mes "- Klit klit Klit klit -";
	mes "- Snap snap Snap snap -";
	next;
		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
		set Zeny,Zeny-99800;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		setlook 1,18;
	mes "[Veronica]";
	mes "Wow~ it came out very well~~";
	mes "I hope you like this (18) style.";
	mes "If you'd like to have another hair style,";
	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
	close;
M_NO18:
		cutin "",255;
	mes "[Veronica]";
	mes "Well~ choose again please~";
	mes "There should be a style you like.";
	mes "Just remember the number you like the most and tell me.";
	close;
mhair19:
		cutin "hair_m_19",4;
	mes "[Veronica]";
	mes "This is the (19) style.";
	mes "I will change your Hair with this Again.";
	mes "Is that OK for you??";
	next;
	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO19;
		cutin "",255;
	mes "[Veronica]";
	mes "Now it begins~. Hold still~";
	mes "If you move, you will have very bad style.";
	mes "Just trust me on this!!";
	next;
	mes "[Veronica]";
	mes "- Clip clip Clip clip -";
	mes "- Klit klit Klit klit -";
	mes "- Snap snap Snap snap -";
	next;
		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
		set Zeny,Zeny-99800;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		setlook 1,19;
	mes "[Veronica]";
	mes "Wow~ it came out very well~~";
	mes "I hope you like this (19) style.";
	mes "If you'd like to have another hair style,";
	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
	close;
M_NO19:
		cutin "",255;
	mes "[Veronica]";
	mes "Well~ choose again please~";
	mes "There should be a style you like.";
	mes "Just remember the number you like the most and tell me.";
	close;
iffemale:
		input @hairchange_in;
		if (@hairchange_in > 19) goto tohighchange;
		set @hairch,@hairchange_in;
		if (@hairch == 1) goto fhair1;
		if (@hairch == 2) goto fhair2;
		if (@hairch == 3) goto fhair3;
		if (@hairch == 4) goto fhair4;
		if (@hairch == 5) goto fhair5;
		if (@hairch == 6) goto fhair6;
		if (@hairch == 7) goto fhair7;
		if (@hairch == 8) goto fhair8;
		if (@hairch == 9) goto fhair9;
		if (@hairch == 10) goto fhair10;
		if (@hairch == 11) goto fhair11;
		if (@hairch == 12) goto fhair12;
		if (@hairch == 13) goto fhair13;
		if (@hairch == 14) goto fhair14;
		if (@hairch == 15) goto fhair15;
		if (@hairch == 16) goto fhair16;
		if (@hairch == 17) goto fhair17;
		if (@hairch == 18) goto fhair18;
		if (@hairch == 19) goto fhair19;

fhair1:
		cutin "hair_f_01",4;
	mes "[Veronica]";
	mes "This is the (1) style.";
	mes "I will change your Hair with this Again.";
	mes "Is that OK for you??";
	next;
	menu "Yaeh~ I'd love to.",-,"No..I don't like it..",F_NO1;
		cutin "",255;
	mes "[Veronica]";
	mes "Now it begins~. Hold still~";
	mes "If you move, you will have very bad style.";
	mes "Just trust me on this!!";
	next;
	mes "[Veronica]";
	mes "- Clip clip Clip clip -";
	mes "- Klit klit Klit klit -";
	mes "- Snap snap Snap snap -";
	next;
		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
		set Zeny,Zeny-99800;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		setlook 1,1;
	mes "[Veronica]";
	mes "Wow~ it came out very well~~";
	mes "I hope you like this (1) style.";
	mes "If you'd like to have another hair style,";
	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
	close;
F_NO1:
		cutin "",255;
	mes "[Veronica]";
	mes "Well~ choose again please~";
	mes "There should be a style you like.";
	mes "Just remember the number you like the most and tell me.";
	close;
fhair2:
		cutin "hair_f_02",4;
	mes "[Veronica]";
	mes "This is the (2) style.";
	mes "I will change your Hair with this Again.";
	mes "Is that OK for you??";
	next;
	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO2;
		cutin "",255;
	mes "[Veronica]";
	mes "Now it begins~. Hold still~";
	mes "If you move, you will have very bad style.";
	mes "Just trust me on this!!";
	next;
	mes "[Veronica]";
	mes "- Clip clip Clip clip -";
	mes "- Klit klit Klit klit -";
	mes "- Snap snap Snap snap -";
	next;
		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
		set Zeny,Zeny-99800;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		setlook 1,2;
	mes "[Veronica]";
	mes "Wow~ it came out very well~~";
	mes "I hope you like this (2) style.";
	mes "If you'd like to have another hair style,";
	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
	close;
F_NO2:
		cutin "",255;
	mes "[Veronica]";
	mes "Well~ choose again please~";
	mes "There should be a style you like.";
	mes "Just remember the number you like the most and tell me.";
	close;
fhair3:
		cutin "hair_f_03",4;
	mes "[Veronica]";
	mes "This is the (3) style.";
	mes "I will change your Hair with this Again.";
	mes "Is that OK for you??";
	next;
	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO3;
		cutin "",255;
	mes "[Veronica]";
	mes "Now it begins~. Hold still~";
	mes "If you move, you will have very bad style.";
	mes "Just trust me on this!!";
	next;
	mes "[Veronica]";
	mes "- Clip clip Clip clip -";
	mes "- Klit klit Klit klit -";
	mes "- Snap snap Snap snap -";
	next;
		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
		set Zeny,Zeny-99800;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		setlook 1,3;
	mes "[Veronica]";
	mes "Wow~ it came out very well~~";
	mes "I hope you like this (3) style.";
	mes "If you'd like to have another hair style,";
	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
	close;
F_NO3:
		cutin "",255;
	mes "[Veronica]";
	mes "Well~ choose again please~";
	mes "There should be a style you like.";
	mes "Just remember the number you like the most and tell me.";
	close;
fhair4:
		cutin "hair_f_04",4;
	mes "[Veronica]";
	mes "This is the (4) style.";
	mes "I will change your Hair with this Again.";
	mes "Is that OK for you??";
	next;
	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO4;
		cutin "",255;
	mes "[Veronica]";
	mes "Now it begins~. Hold still~";
	mes "If you move, you will have very bad style.";
	mes "Just trust me on this!!";
	next;
	mes "[Veronica]";
	mes "- Clip clip Clip clip -";
	mes "- Klit klit Klit klit -";
	mes "- Snap snap Snap snap -";
	next;
		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
		set Zeny,Zeny-99800;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		setlook 1,4;
	mes "[Veronica]";
	mes "Wow~ it came out very well~~";
	mes "I hope you like this (4) style.";
	mes "If you'd like to have another hair style,";
	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
	close;
F_NO4:
		cutin "",255;
	mes "[Veronica]";
	mes "Well~ choose again please~";
	mes "There should be a style you like.";
	mes "Just remember the number you like the most and tell me.";
	close;
fhair5:
		cutin "hair_f_05",4;
	mes "[Veronica]";
	mes "This is the (5) style.";
	mes "I will change your Hair with this Again.";
	mes "Is that OK for you??";
	next;
	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO5;
		cutin "",255;
	mes "[Veronica]";
	mes "Now it begins~. Hold still~";
	mes "If you move, you will have very bad style.";
	mes "Just trust me on this!!";
	next;
	mes "[Veronica]";
	mes "- Clip clip Clip clip -";
	mes "- Klit klit Klit klit -";
	mes "- Snap snap Snap snap -";
	next;
		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
		set Zeny,Zeny-99800;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		setlook 1,5;
	mes "[Veronica]";
	mes "Wow~ it came out very well~~";
	mes "I hope you like this (5) style.";
	mes "If you'd like to have another hair style,";
	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
	close;
F_NO5:
		cutin "",255;
	mes "[Veronica]";
	mes "Well~ choose again please~";
	mes "There should be a style you like.";
	mes "Just remember the number you like the most and tell me.";
	close;
fhair6:
		cutin "hair_f_06",4;
	mes "[Veronica]";
	mes "This is the (6) style.";
	mes "I will change your Hair with this Again.";
	mes "Is that OK for you??";
	next;
	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO6;
		cutin "",255;
	mes "[Veronica]";
	mes "Now it begins~. Hold still~";
	mes "If you move, you will have very bad style.";
	mes "Just trust me on this!!";
	next;
	mes "[Veronica]";
	mes "- Clip clip Clip clip -";
	mes "- Klit klit Klit klit -";
	mes "- Snap snap Snap snap -";
	next;
		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
		set Zeny,Zeny-99800;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		setlook 1,6;
	mes "[Veronica]";
	mes "Wow~ it came out very well~~";
	mes "I hope you like this (6) style.";
	mes "If you'd like to have another hair style,";
	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
	close;
F_NO6:
		cutin "",255;
	mes "[Veronica]";
	mes "Well~ choose again please~";
	mes "There should be a style you like.";
	mes "Just remember the number you like the most and tell me.";
	close;
fhair7:
		cutin "hair_f_07",4;
	mes "[Veronica]";
	mes "This is the (7) style.";
	mes "I will change your Hair with this Again.";
	mes "Is that OK for you??";
	next;
	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO7;
		cutin "",255;
	mes "[Veronica]";
	mes "Now it begins~. Hold still~";
	mes "If you move, you will have very bad style.";
	mes "Just trust me on this!!";
	next;
	mes "[Veronica]";
	mes "- Clip clip Clip clip -";
	mes "- Klit klit Klit klit -";
	mes "- Snap snap Snap snap -";
	next;
		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
		set Zeny,Zeny-99800;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		setlook 1,7;
	mes "[Veronica]";
	mes "Wow~ it came out very well~~";
	mes "I hope you like this (7) style.";
	mes "If you'd like to have another hair style,";
	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
	close;
F_NO7:
		cutin "",255;
	mes "[Veronica]";
	mes "Well~ choose again please~";
	mes "There should be a style you like.";
	mes "Just remember the number you like the most and tell me.";
	close;
fhair8:
		cutin "hair_f_08",4;
	mes "[Veronica]";
	mes "This is the (8) style.";
	mes "I will change your Hair with this Again.";
	mes "Is that OK for you??";
	next;
	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO8;
		cutin "",255;
	mes "[Veronica]";
	mes "Now it begins~. Hold still~";
	mes "If you move, you will have very bad style.";
	mes "Just trust me on this!!";
	next;
	mes "[Veronica]";
	mes "- Clip clip Clip clip -";
	mes "- Klit klit Klit klit -";
	mes "- Snap snap Snap snap -";
	next;
		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
		set Zeny,Zeny-99800;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		setlook 1,8;
	mes "[Veronica]";
	mes "Wow~ it came out very well~~";
	mes "I hope you like this (8) style.";
	mes "If you'd like to have another hair style,";
	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
	close;
F_NO8:
		cutin "",255;
	mes "[Veronica]";
	mes "Well~ choose again please~";
	mes "There should be a style you like.";
	mes "Just remember the number you like the most and tell me.";
	close;
fhair9:
		cutin "hair_f_09",4;
	mes "[Veronica]";
	mes "This is the (9) style.";
	mes "I will change your Hair with this Again.";
	mes "Is that OK for you??";
	next;
	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO9;
		cutin "",255;
	mes "[Veronica]";
	mes "Now it begins~. Hold still~";
	mes "If you move, you will have very bad style.";
	mes "Just trust me on this!!";
	next;
	mes "[Veronica]";
	mes "- Clip clip Clip clip -";
	mes "- Klit klit Klit klit -";
	mes "- Snap snap Snap snap -";
	next;
		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
		set Zeny,Zeny-99800;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		setlook 1,9;
	mes "[Veronica]";
	mes "Wow~ it came out very well~~";
	mes "I hope you like this (9) style.";
	mes "If you'd like to have another hair style,";
	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
	close;
F_NO9:
		cutin "",255;
	mes "[Veronica]";
	mes "Well~ choose again please~";
	mes "There should be a style you like.";
	mes "Just remember the number you like the most and tell me.";
	close;
fhair10:
		cutin "hair_f_10",4;
	mes "[Veronica]";
	mes "This is the (10) style.";
	mes "I will change your Hair with this Again.";
	mes "Is that OK for you??";
	next;
	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO10;
		cutin "",255;
	mes "[Veronica]";
	mes "Now it begins~. Hold still~";
	mes "If you move, you will have very bad style.";
	mes "Just trust me on this!!";
	next;
	mes "[Veronica]";
	mes "- Clip clip Clip clip -";
	mes "- Klit klit Klit klit -";
	mes "- Snap snap Snap snap -";
	next;
		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
		set Zeny,Zeny-99800;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		setlook 1,10;
	mes "[Veronica]";
	mes "Wow~ it came out very well~~";
	mes "I hope you like this (10) style.";
	mes "If you'd like to have another hair style,";
	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
	close;
F_NO10:
		cutin "",255;
	mes "[Veronica]";
	mes "Well~ choose again please~";
	mes "There should be a style you like.";
	mes "Just remember the number you like the most and tell me.";
	close;
fhair11:
		cutin "hair_f_11",4;
	mes "[Veronica]";
	mes "This is the (11) style.";
	mes "I will change your Hair with this Again.";
	mes "Is that OK for you??";
	next;
	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO11;
		cutin "",255;
	mes "[Veronica]";
	mes "Now it begins~. Hold still~";
	mes "If you move, you will have very bad style.";
	mes "Just trust me on this!!";
	next;
	mes "[Veronica]";
	mes "- Clip clip Clip clip -";
	mes "- Klit klit Klit klit -";
	mes "- Snap snap Snap snap -";
	next;
		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
		set Zeny,Zeny-99800;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		setlook 1,11;
	mes "[Veronica]";
	mes "Wow~ it came out very well~~";
	mes "I hope you like this (11) style.";
	mes "If you'd like to have another hair style,";
	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
	close;
F_NO11:
		cutin "",255;
	mes "[Veronica]";
	mes "Well~ choose again please~";
	mes "There should be a style you like.";
	mes "Just remember the number you like the most and tell me.";
	close;
fhair12:
		cutin "hair_f_12",4;
	mes "[Veronica]";
	mes "This is the (12) style.";
	mes "I will change your Hair with this Again.";
	mes "Is that OK for you??";
	next;
	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO12;
		cutin "",255;
	mes "[Veronica]";
	mes "Now it begins~. Hold still~";
	mes "If you move, you will have very bad style.";
	mes "Just trust me on this!!";
	next;
	mes "[Veronica]";
	mes "- Clip clip Clip clip -";
	mes "- Klit klit Klit klit -";
	mes "- Snap snap Snap snap -";
	next;
		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
		set Zeny,Zeny-99800;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		setlook 1,12;
	mes "[Veronica]";
	mes "Wow~ it came out very well~~";
	mes "I hope you like this (12) style.";
	mes "If you'd like to have another hair style,";
	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
	close;
F_NO12:
		cutin "",255;
	mes "[Veronica]";
	mes "Well~ choose again please~";
	mes "There should be a style you like.";
	mes "Just remember the number you like the most and tell me.";
	close;
fhair13:
		cutin "hair_f_13",4;
	mes "[Veronica]";
	mes "This is the (13) style.";
	mes "I will change your Hair with this Again.";
	mes "Is that OK for you??";
	next;
	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO13;
		cutin "",255;
	mes "[Veronica]";
	mes "Now it begins~. Hold still~";
	mes "If you move, you will have very bad style.";
	mes "Just trust me on this!!";
	next;
	mes "[Veronica]";
	mes "- Clip clip Clip clip -";
	mes "- Klit klit Klit klit -";
	mes "- Snap snap Snap snap -";
	next;
		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
		set Zeny,Zeny-99800;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		setlook 1,13;
	mes "[Veronica]";
	mes "Wow~ it came out very well~~";
	mes "I hope you like this (13) style.";
	mes "If you'd like to have another hair style,";
	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
	close;
F_NO13:
		cutin "",255;
	mes "[Veronica]";
	mes "Well~ choose again please~";
	mes "There should be a style you like.";
	mes "Just remember the number you like the most and tell me.";
	close;	
fhair14:
		cutin "hair_f_14",4;
	mes "[Veronica]";
	mes "This is the (14) style.";
	mes "I will change your Hair with this Again.";
	mes "Is that OK for you??";
	next;
	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO14;
		cutin "",255;
	mes "[Veronica]";
	mes "Now it begins~. Hold still~";
	mes "If you move, you will have very bad style.";
	mes "Just trust me on this!!";
	next;
	mes "[Veronica]";
	mes "- Clip clip Clip clip -";
	mes "- Klit klit Klit klit -";
	mes "- Snap snap Snap snap -";
	next;
		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
		set Zeny,Zeny-99800;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		setlook 1,14;
	mes "[Veronica]";
	mes "Wow~ it came out very well~~";
	mes "I hope you like this (14) style.";
	mes "If you'd like to have another hair style,";
	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
	close;
F_NO14:
		cutin "",255;
	mes "[Veronica]";
	mes "Well~ choose again please~";
	mes "There should be a style you like.";
	mes "Just remember the number you like the most and tell me.";
	close;	
fhair15:
		cutin "hair_f_15",4;
	mes "[Veronica]";
	mes "This is the (15) style.";
	mes "I will change your Hair with this Again.";
	mes "Is that OK for you??";
	next;
	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO15;
		cutin "",255;
	mes "[Veronica]";
	mes "Now it begins~. Hold still~";
	mes "If you move, you will have very bad style.";
	mes "Just trust me on this!!";
	next;
	mes "[Veronica]";
	mes "- Clip clip Clip clip -";
	mes "- Klit klit Klit klit -";
	mes "- Snap snap Snap snap -";
	next;
		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
		set Zeny,Zeny-99800;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		setlook 1,15;
	mes "[Veronica]";
	mes "Wow~ it came out very well~~";
	mes "I hope you like this (15) style.";
	mes "If you'd like to have another hair style,";
	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
	close;
F_NO15:
		cutin "",255;
	mes "[Veronica]";
	mes "Well~ choose again please~";
	mes "There should be a style you like.";
	mes "Just remember the number you like the most and tell me.";
	close;
fhair16:
		cutin "hair_f_16",4;
	mes "[Veronica]";
	mes "This is the (16) style.";
	mes "I will change your Hair with this Again.";
	mes "Is that OK for you??";
	next;
	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO16;
		cutin "",255;
	mes "[Veronica]";
	mes "Now it begins~. Hold still~";
	mes "If you move, you will have very bad style.";
	mes "Just trust me on this!!";
	next;
	mes "[Veronica]";
	mes "- Clip clip Clip clip -";
	mes "- Klit klit Klit klit -";
	mes "- Snap snap Snap snap -";
	next;
		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
		set Zeny,Zeny-99800;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		setlook 1,16;
	mes "[Veronica]";
	mes "Wow~ it came out very well~~";
	mes "I hope you like this (16) style.";
	mes "If you'd like to have another hair style,";
	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
	close;
F_NO16:
		cutin "",255;
	mes "[Veronica]";
	mes "Well~ choose again please~";
	mes "There should be a style you like.";
	mes "Just remember the number you like the most and tell me.";
	close;
fhair17:
		cutin "hair_f_17",4;
	mes "[Veronica]";
	mes "This is the (17) style.";
	mes "I will change your Hair with this Again.";
	mes "Is that OK for you??";
	next;
	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO17;
		cutin "",255;
	mes "[Veronica]";
	mes "Now it begins~. Hold still~";
	mes "If you move, you will have very bad style.";
	mes "Just trust me on this!!";
	next;
	mes "[Veronica]";
	mes "- Clip clip Clip clip -";
	mes "- Klit klit Klit klit -";
	mes "- Snap snap Snap snap -";
	next;
		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
		set Zeny,Zeny-99800;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		setlook 1,17;
	mes "[Veronica]";
	mes "Wow~ it came out very well~~";
	mes "I hope you like this (17) style.";
	mes "If you'd like to have another hair style,";
	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
	close;
F_NO17:
		cutin "",255;
	mes "[Veronica]";
	mes "Well~ choose again please~";
	mes "There should be a style you like.";
	mes "Just remember the number you like the most and tell me.";
	close;
fhair18:
		cutin "hair_f_18",4;
	mes "[Veronica]";
	mes "This is the (18) style.";
	mes "I will change your Hair with this Again.";
	mes "Is that OK for you??";
	next;
	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO18;
		cutin "",255;
	mes "[Veronica]";
	mes "Now it begins~. Hold still~";
	mes "If you move, you will have very bad style.";
	mes "Just trust me on this!!";
	next;
	mes "[Veronica]";
	mes "- Clip clip Clip clip -";
	mes "- Klit klit Klit klit -";
	mes "- Snap snap Snap snap -";
	next;
		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
		set Zeny,Zeny-99800;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		setlook 1,18;
	mes "[Veronica]";
	mes "Wow~ it came out very well~~";
	mes "I hope you like this (18) style.";
	mes "If you'd like to have another hair style,";
	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
	close;
F_NO18:
		cutin "",255;
	mes "[Veronica]";
	mes "Well~ choose again please~";
	mes "There should be a style you like.";
	mes "Just remember the number you like the most and tell me.";
	close;
fhair19:
		cutin "hair_f_19",4;
	mes "[Veronica]";
	mes "This is the (19) style.";
	mes "I will change your Hair with this Again.";
	mes "Is that OK for you??";
	next;
	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO19;
		cutin "",255;
	mes "[Veronica]";
	mes "Now it begins~. Hold still~";
	mes "If you move, you will have very bad style.";
	mes "Just trust me on this!!";
	next;
	mes "[Veronica]";
	mes "- Clip clip Clip clip -";
	mes "- Klit klit Klit klit -";
	mes "- Snap snap Snap snap -";
	next;
		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
		set Zeny,Zeny-99800;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		setlook 1,19;
	mes "[Veronica]";
	mes "Wow~ it came out very well~~";
	mes "I hope you like this (19) style.";
	mes "If you'd like to have another hair style,";
	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
	close;
F_NO19:
		cutin "",255;
	mes "[Veronica]";
	mes "Well~ choose again please~";
	mes "There should be a style you like.";
	mes "Just remember the number you like the most and tell me.";
	close;
tohighchange:
	mes "[Veronica]";
	mes "There are no such numbers like that!";
	mes "Please check your number~";
	close;
NOItem:
	mes "[Veronica]";
	mes "If you want to change your hairstyle, you need several items.";
	mes "Since, you need many items....";
	mes "I think you should write those down.";
	next;
	mes "[Veronica]";
	mes "3 Counteragents,";
	mes "3 Mixtures,";
	mes "100 Daenggies,";
	mes "100 Short Daenggies,";
	mes "100 Black Hairs,";
	mes "100 Golden Hairs,";
	mes "100 Glossy Hair.";
	next;
	mes "[Veronica]";
	mes "And also you need 99,800zeny.";
	mes "If you gather them all...";
	mes "I will show you what I can do~!!";
	mes "HoHoHo.";
	close;
Cancel:
	mes "[Veronica]";
	mes "Everyone has rights to become beautiful...";
	mes "I wish you can find your hair style which fits on you well~";
	mes "I really do~";
	close;
}