Alex
/
rathena_hephaistos_edition
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
main
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '064e5c31a1'
${ noResults }
rathena_hephaistos_edition/npc/pre-re/merchants/hair_style.txt

947 lines
29 KiB
Plaintext
Raw Normal View History Unescape Escape

Added full rathena files
4 months ago
//===== 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]
//============================================================
// 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 == SEX_MALE) {
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 == SEX_MALE) {
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 == SEX_MALE) {
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 == SEX_MALE) {
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 == SEX_MALE) {
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 == SEX_MALE) {
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 == SEX_MALE) {
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 == SEX_MALE) {
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 == SEX_MALE) {
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 == SEX_MALE) {
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 == SEX_MALE) {
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 == SEX_MALE) {
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 == SEX_MALE) {
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 == SEX_MALE) {
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 == SEX_MALE) {
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 == SEX_MALE) {
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 == SEX_MALE) {
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 == SEX_MALE) {
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 == SEX_MALE) {
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:
.@num = getarg(0);
if(Sex == SEX_MALE) {
if (.@num < 10)
cutin "hair_m_0"+ .@num,4;
else
cutin "hair_m_"+ .@num,4;
} else {
if (.@num < 10)
cutin "hair_f_0"+ .@num,4;
else
cutin "hair_f_"+ .@num,4;
}
return;
}
// Lighthalzen
lhz_in02,100,143,3 script Hair Dresser#li 122,{
mes "[Prince Shammi]";
mes "Welcome to Prince Shammi's";
mes "Beauty Shop, the place to go";
mes "for faaabulous hair. Don't be";
mes "shy, tell me exactly how you";
mes "want me to make you glamorous~";
next;
switch(select("Check all hairstyles:Change hairstyle:Cancel")) {
case 1:
mes "[Prince Shammi]";
mes "Oh, would you like to";
mes "see all of the trendy new";
mes "hairstyles I offer?";
next;
mes "[Prince Shammi]";
mes "Please, oh please, choose from the following styles and I will show you a preview.";
next;
switch(select("Old Hairstyles:New Hairstyles")) {
case 1:
if (Sex == SEX_MALE) {
switch(select("Petite Style:Executioner Style:Prince Style:Deviace Style:Cancel")) {
case 1:
cutin "hair_m_20",4;
mes "[Prince Shammi]";
mes "This is the ^3131FFPetite Style^000000,";
mes "which softens the gentleman's";
mes "appearance with long braids";
mes "for a fluffier appearance.";
break;
case 2:
cutin "hair_m_21",4;
mes "[Prince Shammi]";
mes "Oh, the ^3131FFExecutioner Style^000000!";
mes "It's a rugged, shaggy style";
mes "for that tough guy look that's";
mes "becoming popular these days.";
mes "And every girl loves a tough";
mes "guy, right? ^333333*Tee hee~*^000000";
break;
case 3:
cutin "hair_m_22",4;
mes "[Prince Shammi]";
mes "You certainly have an";
mes "eye for fashion! Yes, this";
mes "is the ^3131FFPrince Style^000000, the";
mes "pinnacle of sexiness and";
mes "sophistication. Magnifique, no?";
mes "Yes, choose this one, this one!";
break;
case 4:
cutin "hair_m_23",4;
mes "[Prince Shammi]";
mes "A-ha~! The ^3131FFDeviace Style^000000!";
mes "This is much like the Prince";
mes "Style, but with shorter hair";
mes "in the back. Yes, this look";
mes "is very neat and dandy.";
break;
case 5:
cutin "hair_f_01",255;
mes "[Prince Shammi]";
mes "No? You didn't want";
mes "to take a look? Please,";
mes "you're an adventurer, I know";
mes "you can be more daring than";
mes "that! Be fashionably adventurous, you fashionable adventurer~";
emotion ET_THROB;
close3;
}
}
else {
switch(select("Spring Rabbit Style:Harpy Style:Medusa Style:Isis Style:Cancel")) {
case 1:
cutin "hair_f_20",4;
mes "[Prince Shammi]";
mes "Oh yes, this is the ";
mes "^3131FFSpring Rabbit Style^000000.";
mes "The bobbing forelock";
mes "adds an aura of chic,";
mes "cutsiness and playfulness.";
mes "Yes? No? Yes? No? Oh yes!";
break;
case 2:
cutin "hair_f_21",4;
mes "[Prince Shammi]";
mes "Ooh, are you interested";
mes "in the ^3131FFHarpy Style^000000? The";
mes "natural curl coupled with";
mes "the pony tail results in";
mes "a sophisticated, yet very";
mes "natural and relaxed look~";
break;
case 3:
cutin "hair_f_22",4;
mes "[Prince Shammi]";
mes "Ahh, the ^3131FFMedusa Style^000000~";
mes "These boldy flowing locks";
mes "scream power and dominance";
mes "and is ideal for the big career";
mes "woman who wishes to be...";
mes "irresistable to men~";
break;
case 4:
cutin "hair_f_23",4;
mes "[Prince Shammi]";
mes "Ooh, the ^3131FFIsis Style^000000~";
mes "Yes, you'll look very cute";
mes "with your hair in buns on";
mes "on both sides of your head.";
mes "It'll be very darling on you!";
break;
case 5:
mes "[Prince Shammi]";
mes "No? You didn't want";
mes "to take a look? Please,";
mes "you're an adventurer, I know";
mes "you can be more daring than";
mes "that! Be fashionably adventurous, you fashionable adventurer~";
emotion ET_THROB;
close;
}
}
break;
case 2:
if (Sex == SEX_MALE) {
switch(select("Emergency Heal Perm:Aura Blade Cut:Power Swing:Renovatio Cut:Cancel")) {
case 1:
cutin "hair_m_24",4;
mes "[Prince Shammi]";
mes "This is the ^3131FFEmergency Heal Perm^000000";
mes "It is quite popular among the healing class.";
break;
case 2:
cutin "hair_m_25",4;
mes "[Prince Shammi]";
mes "You must be after a lady yes?";
mes "The ^3131FFAura Blade Cut^000000";
mes "is known to make the ladies swoon, you tiger you!";
break;
case 3:
cutin "hair_m_26",4;
mes "[Prince Shammi]";
mes "Oh you brute!";
mes "^3131FFPower Swing Cut^000000";
mes "Flex your style muscles with this hairstyle. This is definitely your look.";
break;
case 4:
cutin "hair_m_27",4;
mes "[Prince Shammi]";
mes "Ah! I see you're only interested in the latest trends.";
mes "Straight from the runway is the ^3131FFRenovatio Cut^000000.";
break;
case 5:
mes "[Prince Shammi]";
mes "No? You didn't want";
mes "to take a look? Please,";
mes "you're an adventurer, I know";
mes "you can be more daring than";
mes "that! Be fashionably adventurous, you fashionable adventurer~";
emotion ET_THROB;
close;
}
}
else {
switch(select("Assumptio Perm:Soul Changer Cut:X Tornado Cut:Oratio Cut:Cancel")) {
case 1:
cutin "hair_f_24",4;
mes "[Prince Shammi]";
mes "This is the ^3131FFAssumptio Perm^000000";
mes "It's a shorter style perm that allows for maximum spellcasting.";
break;
case 2:
cutin "hair_f_25",4;
mes "[Prince Shammi]";
mes "You must be a man killer no?";
mes "The ^3131FFSoul Changer Cut^000000";
mes "will make any man open his wall... er heart to you!";
break;
case 3:
cutin "hair_f_26",4;
mes "[Prince Shammi]";
mes "This is a bit of a trendy style";
mes "^3131FFX Tornado Cut^000000";
mes "It's for adventurous people who like change.";
break;
case 4:
cutin "hair_f_27",4;
mes "[Prince Shammi]";
mes "Ah! I see you're only interested in the latest trends.";
mes "Straight from the runway is the ^3131FFOratio Cut^000000.";
mes "You'll be the envy of all of your friends with this hairstyle.";
break;
case 5:
mes "[Prince Shammi]";
mes "No? You didn't want";
mes "to take a look? Please,";
mes "you're an adventurer, I know";
mes "you can be more daring than";
mes "that! Be fashionably adventurous, you fashionable adventurer~";
emotion ET_THROB;
close;
}
}
}
close2;
cutin "",255;
end;
case 2:
if (BaseLevel < 60) {
mes "[Prince Shammi]";
mes "Oh, I'm so sorry, but";
mes "I can only perform my";
mes "services for clients that have";
mes "matured enough to find their";
mes "true inner beauty. But please";
mes "come back once you do, okay?";
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 "[Prince Shammi]";
mes "If you've already decided";
mes "what hairstyle you'd like,";
mes "please have my service charge";
mes "ready, as well as the materials";
mes "I will need in performing this";
mes "service, okay? Please bring...";
next;
mes "[Prince Shammi]";
mes "^3355FF3 Counteragent^000000,";
mes "^3355FF3 Mixture^000000,";
mes "^3355FF100 Daenggie^000000,";
mes "^3355FF100 Short Daenggie^000000...";
next;
mes "[Prince Shammi]";
mes "^3355FF100 Black Hair^000000,";
mes "^3355FF100 Golden Hair^000000,";
mes "^3355FF100 Glossy Hair^000000";
mes "and ^3355FF99,800 zeny^000000.";
mes "Once you do that, I'll make";
mes "a miracle out of your hair!";
close;
}
mes "[Prince Shammi]";
mes "Alright, please choose";
mes "which hairstyle you wish";
mes "to have from numbers 20 to 25.";
mes "Here's a list of the style names just in case you need them~";
next;
mes "[Prince Shammi]";
if (Sex == SEX_MALE) {
mes "No. 20: Petite Style";
mes "No. 21: Executioner Style";
mes "No. 22: Prince Style";
mes "No. 23: Deviace Style";
mes "No. 24: Emergency Heal Perm";
mes "No. 25: Aura Blade Cut";
mes "No. 26: Power Swing and";
mes "No. 27: Renovatio Cut.";
}
else {
mes "No. 20: Spring Rabbit Style";
mes "No. 21: Harpy Style";
mes "No. 22: Medusa Style";
mes "No. 23: Isis Style";
mes "No. 24: Assumptio Perm";
mes "No. 25: Soul Changer Cut";
mes "No. 26: X Tornado Cut and";
mes "No. 27: Oratio Cut.";
}
next;
input .@input;
if (.@input == 0) {
mes "[Prince Shammi]";
mes "Oh...?";
mes "You decided to cancel?";
mes "Well, you know what's";
mes "best for you, I suppose.";
mes "Still, I'm so disappointed~";
close;
}
else if ((.@input < 20) || (.@input > 27)) {
mes "[Prince Shammi]";
mes "Dearie, please enter";
mes "a number from ''20'' to";
mes "''25,'' alright? Then I can";
mes "get right to work at making";
mes "you soooooooo beautiful!";
close;
}
else if (getlook(VAR_HEAD) == .@input) {
mes "[Prince Shammi]";
mes "Oh dear me, you're not";
mes "going to waste money for";
mes "the same hairstyle that you";
mes "have now, are you? You can";
mes "have someone else change";
mes "your hair color, you know.";
close;
}
else {
if (Sex == SEX_MALE)
cutin "hair_m_"+.@input+".BMP",4;
else
cutin "hair_f_"+.@input+".BMP",4;
mes "[Prince Shammi]";
mes "Oooh! Now, is this the";
mes "hairstyle that you wanted?";
mes "This is No. "+.@input+", by the way.";
next;
switch(select("Yes.:No.")) {
case 1:
if (getlook(VAR_HEADPALETTE) == 0) {
mes "[Prince Shammi]";
mes "Oh, Sweet Christmas,";
mes "I almost forgot! Would";
mes "you like me to dye your";
mes "hair, free of charge? It's";
mes "a part of my service, so";
mes "please choose a color~";
next;
switch(select("Red:Yellow:Purple:Orange:Green:Blue:White:Dark Brown")) {
case 1:
set .@headpalette,8;
break;
case 2:
set .@headpalette,1;
break;
case 3:
set .@headpalette,2;
break;
case 4:
set .@headpalette,3;
break;
case 5:
set .@headpalette,4;
break;
case 6:
set .@headpalette,5;
break;
case 7:
set .@headpalette,6;
break;
case 8:
set .@headpalette,7;
break;
}
}
mes "[Prince Shammi]";
mes "Okay, let's get";
mes "started, shall we?";
mes "Keep your head still,";
mes "now. Yes, that's good...";
next;
mes "^3355FF*Snip snip*";
mes "*Rustle rustle*";
mes "*Clip clip clip clip*";
mes "*Bzzzzzzzzzzzzzzzzzzzz*^000000";
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 VAR_HEAD,.@input;
setlook VAR_HEADPALETTE,.@headpalette;
mes "[Prince Shammi]";
mes "Well, we're all finished!";
mes "And my, oh my, you look even";
mes "more fabulous that I thought";
mes "you would! Oh, I can't believe";
if (Sex == SEX_MALE) {
mes "how tough and elegant you are~";
mes "So ruggedly manly and handsome!";
}
else {
mes "how graceful and elegant you";
mes "look! Absolutely gorgeous!";
}
emotion ET_CHUP;
next;
mes "[Prince Shammi]";
mes "You love your new";
mes "hair, don't you? Feel";
mes "free to come back anytime.";
mes "I'll make you the best looking";
mes "person in the entire world!";
emotion ET_BEST;
close3;
case 2:
mes "[Prince Shammi]";
mes "Oh, did you forget which";
mes "hairstyle goes with which";
mes "number? By all means, please";
mes "check again! Find the one that";
mes "is perfect just for you, okay?";
close3;
}
}
break;
case 3:
mes "[Prince Shammi]";
mes "Humm ? ";
mes "Maybe you don't understand";
mes "my futuristic styles.";
mes "Goodbye! ";
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]
//============================================================