//===== eAthena Script =======================================
//= Hair Dresser
//===== By: ==================================================
//= [Muad_Dib] 1.0 (The Prometheus Project) & Samuray22
//===== Current Version: =====================================
//= 1.2
//===== 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]
//============================================================
// Stylist - alberta_in 55 142
alberta_in,55,142,1 script Stylist 91,{
mes "[Veronica]";
mes "Welcome~~ Welcome~~";
mes "Welcome to the one of the best Hair shop, Veronika Beauty Saloon!! HoHoHo";
mes "Come here for new hair, right? ^^ How may I help you?";
next;
switch(select("Look through Hair Styles.","Change Hair Styles.","Stop talking.")) {
case 1:
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;
input .@style;
if(.@style > 19) {
mes "[Veronica]";
mes "Sorry, there aren't any hair styles with that number.";
mes "Please choose number from 1 to 19.";
next;
} else if(.@style == 0) {
mes "[Veronica]";
mes "How was it?";
mes "Did you find any styles you like?";
mes "If you want to chage your hair style at anytime, I will do my best!!";
close;
}
callsub L_cutin,.@style;
mes "[Veronica]";
switch(.@style) {
case 1:
if(Sex == 1) {
mes "Oh~ 'Trickdead' style'!";
mes "It is very neat feature and comfortable.";
mes "How do you think? Do you like it?";
close2;
cutin "",255;
end;
}
mes "Oh~ 'First Aid' style'!";
mes "It is the style people wants to stroke your hair^^.";
mes "How do you think? Do you like it?";
close2;
cutin "",255;
end;
case 2:
if(Sex == 1) {
mes "Oh~ 'Two-Handed Sword Mastery' style!";
mes "Its style is very similar to one of the famous Swordman.";
mes "How do you think? Do you like it?";
close2;
cutin "",255;
end;
}
mes "Oh~ 'Bash' style!";
mes "It feels unrevealed strong power is hidden inside of....";
mes "How do you think? Do you like it?";
close2; cutin "",255; end;
case 3:
if(Sex == 1) {
mes "Oh~ 'Napalm Beat' style!";
mes "It makes feeling there is unknown power...";
mes "How do you think? Do you like it?";
close2; cutin "",255; end;
}
mes "Oh~ 'Frost Diver' style!";
mes "It feels cold but also warm...";
mes "How do you think? Do you like it?";
close2; cutin "",255; end;
case 4:
if(Sex == 1) {
mes "Oh~ 'Double Strafe' style!";
mes "It will make you feel your mind is very clear.";
mes "How do you think? Do you like it?";
close2; cutin "",255; end;
}
mes "Oh~ 'Arrow Shower' style!";
mes "It feels very refreshed~";
mes "How do you think? Do you like it?";
close2; cutin "",255; end;
case 5:
if(Sex == 1) {
mes "Oh~ 'Angelus' style!";
mes "It feels calm and reverence.";
mes "How do you think? Do you like it?";
close2; cutin "",255; end;
}
mes "Oh~ 'Heal' style!";
mes "It feels mind is cured.";
mes "How do you think? Do you like it?";
close2; cutin "",255; end;
case 6:
if(Sex == 1) {
mes "Oh~ 'Pushcart' style!";
mes "This is the style based on motive of string cart..";
mes "How do you think? Do you like it?";
close2; cutin "",255; end;
}
mes "Oh~ 'Vending' style!";
mes "It seems like making lots of money.";
mes "How do you think? Do you like it?";
close2; cutin "",255; end;
case 7:
if(Sex == 1) {
mes "Oh~ 'Envenom' style!";
mes "It makes feel addicting into something..";
mes "How do you think? Do you like it?";
close2; cutin "",255; end;
}
mes "Oh~ 'Double Strafe' style!";
mes "It makes whomever dash twice.";
mes "How do you think? Do you like it?";
close2; cutin "",255; end;
case 8:
if(Sex == 1) {
mes "Oh~ 'Bowling Bash' style!";
mes "Once people sees it, they will fall for it!";
mes "How do you think? Do you like it?";
close2; cutin "",255; end;
}
mes "Oh~ 'Gloria' style!";
mes "Its nobleness and holiness moods are great.";
mes "How do you think? Do you like it?";
close2; cutin "",255; end;
case 9:
if(Sex == 1) {
mes "Oh~ 'Venom Dust' style!";
mes "It is the style gives feeling deadly charm.";
mes "How do you think? Do you like it?";
close2; cutin "",255; end;
}
mes "Oh~ 'Increase SP Recovery' style!";
mes "It makes feel like recovering spirit fully.";
mes "How do you think? Do you like it?";
close2; cutin "",255; end;
case 10:
if(Sex == 1) {
mes "Oh~ 'Turn Undead' style!";
mes "It gives feeling one attack can make Devils disappear!";
mes "How do you think? Do you like it?";
close2; cutin "",255; end;
}
mes "Oh~ 'Prepare Potion' style!";
mes "It feels a wound is healed already!";
mes "How do you think? Do you like it?";
close2; cutin "",255; end;
case 11:
if(Sex == 1) {
mes "Oh~ 'Dragonology' style!";
mes "This is the style based on motive of mysterious Dragon...";
mes "How do you think? Do you like it?";
close2; cutin "",255; end;
}
mes "Oh~ 'Grand Cross' style!";
mes "It feels a firm faith...";
mes "How do you think? Do you like it?";
close2; cutin "",255; end;
case 12:
if(Sex == 1) {
mes "Oh~ 'Mace Mastery' style!";
mes "It looks very hard and attractive!";
mes "How do you think? Do you like it?";
close2; cutin "",255; end;
}
mes "Oh~ 'Intimidate' style!";
mes "It seems you saw this style somewhere...?";
mes "How do you think? Do you like it?";
close2; cutin "",255; end;
case 13:
if(Sex == 1) {
mes "Oh~ 'Thunderstorm' style!";
mes "It feels hit by thunder storm!!";
mes "How do you think? Do you like it?";
close2; cutin "",255; end;
}
mes "Oh~ 'Spiritual Sphere Absorption' style!";
mes "It catches people's spirits^^";
mes "How do you think? Do you like it?";
close2; cutin "",255; end;
case 14:
if(Sex == 1) {
mes "Oh~ 'Encore' style!";
mes "It is the style makes people feels like asking you to sing~^^";
mes "How do you think? Do you like it??";
close2; cutin "",255; end;
}
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?";
close2; cutin "",255; end;
case 15:
if(Sex == 1) {
mes "Oh~ 'Grimtooth' style!";
mes "It feels like you will be pricked by hair!";
mes "How was it? Do you like it?";
close2; cutin "",255; end;
}
mes "Oh~ 'Counter Attack' style!";
mes "It feels it will kick when someone is near!";
mes "How was it? Do you like it?";
close2; cutin "",255; end;
case 16:
if(Sex == 1) {
mes "Oh~ 'Blitz Beat' style!";
mes "It feels it will attack 5 times...?";
mes "How was it? Do you like it?";
close2; cutin "",255; end;
}
mes "Oh~ 'Ankle Snare' style!";
mes "This is the style hardly move.";
mes "How was it? Do you like it?";
close2; cutin "",255; end;
case 17:
if(Sex == 1) {
mes "Oh~ 'Ore Discovery' style!";
mes "It feels like picking up things while walking.";
mes "How was it? Do you like it?";
close2; cutin "",255; end;
}
mes "Oh~ 'Hammer Fall' style!";
mes "It will make feeling dizzy!";
mes "How was it? Do you like it?";
close2; cutin "",255; end;
case 18:
if(Sex == 1) {
mes "Oh~ 'Fire Pillar' style!";
mes "It has been a great style over the one generation...!";
mes "How was it? Do you like it?";
close2; cutin "",255; end;
}
mes "Oh~ 'Jupitel Thunder' style!";
mes "It feels very neat.";
mes "How was it? Do you like it?";
close2; cutin "",255; end;
case 19:
if(Sex == 1) {
mes "Oh~ 'Guillotine Fist' style!";
mes "It feels like betting all at once!!";
mes "How was it? Do you like it?";
close2; cutin "",255; end;
}
mes "Oh~ 'Whirlwind' style!";
mes "It feels very refresh like wind.";
mes "How was it? Do you like it?";
close2; cutin "",255; end;
}
case 2:
if(BaseLevel < 60) {
mes "[Veronica]";
mes "Wow~, Dear, this style looks good on you~";
mes "Don't change strangely.";
mes "Why don't you decorate hair with accessories~";
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 want to change your hair style, you need several items";
mes "Since you need many items....";
mes "I think you should write those down.";
next;
mes "[Veronica]";
mes "3 Counteragent,";
mes "3 Mixture,";
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,800 zeny.";
mes "If you gather them all...";
mes "I will show you what I can do~!! ^^ HoHoHo.";
close;
}
mes "[Veronica]";
mes "Well, then... Please choose Hair Style you like the most.";
mes "I will do my best ^^";
mes "There are 19 different Hair Styles.";
mes "Numbers from 1 to 19~";
next;
input .@style;
if(.@style > 19) {
mes "[Veronica]";
mes "There are no such numbers like that!";
mes "Please check your number~";
close;
} else if(.@style == 0) {
mes "[Veronica]";
mes "It's been canceled.";
close;
} else if(getlook(1) == .@style) {
mes "[Veronica]";
mes "You already have this style!!";
mes "I think you should look through Hair Styles again";
close;
}
callsub L_cutin,.@style;
mes "[Veronica]";
mes "This is (" + .@style + ") style.";
mes "I will change your hair with this again.";
mes "Is that OK with you??";
next;
if(select("Yeah~ I'd love to.","No..I don't like it...") == 1) {
if(getlook(6) == 0) {
mes "[Veronica]";
mes "You haven't dyeing your hair~ Not even once!!";
mes "I think dyeing your hair makes you much better...";
mes "I can do it for you as a service... for FREE ^^";
mes "Which color do you want?";
next;
switch(select("Red","Yellow","Purple","Orange","Green","Blue","White","Black","Cancel")) {
case 1:
set .@pallete,8;
goto L_style;
case 2:
set .@pallete,1;
goto L_style;
case 3:
set .@pallete,2;
goto L_style;
case 4:
set .@pallete,3;
goto L_style;
case 5:
set .@pallete,4;
goto L_style;
case 6:
set .@pallete,5;
goto L_style;
case 7:
set .@pallete,6;
goto L_style;
case 8:
set .@pallete,7;
goto L_style;
case 9:
mes "[Veronica]";
mes "Well.. then think it over..";
mes "and come visit me again.";
mes "Not only type of hair style but also color of it is very important.";
close;
}
}
L_style:
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 "- Snip snip Snip snip -";
next;
delitem 973,3;
delitem 974,3;
delitem 901,100;
delitem 1094,100;
delitem 1020,100;
delitem 1060,100;
delitem 7152,100;
setlook 1,.@style;
setlook 6,.@pallete;
cutin "",255;
mes "[Veronica]";
mes "Wow~ it came out very well~~~ ";
mes "I hope you like this (" + .@style + ") style. ^^";
mes "If you'd like to have other hair style,";
mes "you are welcome to visit me anytime~ HoHoHo";
setlook 1,.@style;
setlook 6,.@pallete;
close;
}
mes "[Veronica]";
mes "Well~ choose again please~";
mes "There shold be a style you like.";
mes "Just remember the number you like the most abd tell me.";
close;
case 3:
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;
}
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;
}
// Gypsy Hairdresser - alberta 33 141
alberta,33,141,1 script Gypsy Hairdresser 87,{
mes "[Bisharm]";
mes "Omg! Kidding me she is a desinger!!";
mes "One of the best?? Yeah..whatever...";
mes "I'm the only one who knows what's the true dudism and value of hair!";
mes "I am a CREATOR of BEAUTY!";
next;
switch(select("What do you do?","Please bless me also!!",".....")) {
case 1:
mes "[Bisharm]";
mes "ME? I am a hairdresser.";
mes "I am drifting from place to place...and";
mes "giving people beauty of hair.";
mes "I heard there is....";
mes "there is a novice who is calling oneself a hair designer in this town...";
next;
mes "[Bisharm]";
mes "That's why I came to this town.";
mes "I was watching and I find out everyone asks what they want from the menu...";
mes "That is not the way!!";
mes "There are some cases..";
mes "hairs don't look good on people when listening to them!";
next;
mes "[Bisharm]";
mes "Also very amateur skill...";
mes "Very very...amateur...";
mes "You can't call it a beauty designer!";
mes "Waisting too mush hairs!";
mes "In short I don't like it very well!!";
next;
mes "[Bisharm]";
mes "If you want me to touch your hair,";
mes "please ask me anytime.";
mes "I'll specially do my best for you.";
mes "Got it?";
mes "Don't ever let novice touch your hair!";
close;
case 2:
if(BaseLevel < 60) {
mes "[Bisharm]";
mes "Hmm, From my artistic perspective,";
mes "the hair style you have looks very good on you!";
mes "You should stay with it!";
mes "Trust me!";
close;
} else if(Zeny < 199800) {
mes "[Bisharm]";
mes "Yeah? You don't need anything else. You only need ZENY!";
mes "You just need 199,800 zeny.";
mes "Just let you know.... ";
mes "that you should feel an honor about me touching your hair with only this price...";
close;
}
mes "[Bisharm]";
mes "Good, I will take 199,800 zeny for my fee.";
mes "OK?";
mes "You still have chance to go to that novice and do your hair....";
mes "It's up to you...";
next;
if(select("I will ask you a favor","Well..I will pass..") ==1 ) {
mes "[Bisharm]";
mes "Alright!----- Here goes!!!";
mes "Watch yourself!!";
next;
mes "[Bisharm]";
mes "Wooohhhhhhhhh!!!!";
next;
mes "[Bisharm]";
mes "Yipe!! Yeah!! Yeah~~~~~!!";
next;
mes "[Bisharm]";
mes "Finished...!! great...GREAT!!";
mes "The style no one can't creat!!!!";
mes "Phu..Hahahahahaha!!";
setlook 1,rand(1,19);
setlook 6,rand(1,6);
set Zeny,Zeny-199800;
close;
}
mes "[Bisharm]";
mes "Hmm! Whatever...!! You'll regret this!!";
mes "You'll relize only great artisan can...";
mes "can creat real beauty.....";
mes "You will relize it...someday...";
close;
case 3:
mes "[Bisharm]";
mes "I feel so sorry for people";
mes "who let their hairs to be touched by a NOVICE";
mes "who doesn't know anything about beauty!!";
mes "I feel really really sorry for them!!";
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]
//============================================================