npc/merchants/hair_style.txt

   1 //===== rAthena Script =======================================
   2 //= Hair Dresser
   3 //===== By: ==================================================
   4 //= Muad_Dib, Samuray22, Kisuka
   5 //===== Current Version: =====================================
   6 //= 1.4
   7 //===== Compatible With: =====================================
   8 //= rAthena Project
   9 //===== Description: =========================================
  10 //= [Official Conversion]
  11 //= Allows you to change your hairstyle.
  12 //===== Additional Comments: =================================
  13 //= 1.2 Rescripted to the Aegis 10.3 Standards. [Samuray22]
  14 //= 1.3 Updated to match AEGIS script. [Kisuka]
  15 //= 1.4 Added Lighthalzen Hair Dresser. [L0ne_W0lf]
  16 //============================================================
  17
  18 // Hair Dresser Veronica
  19 // ============================================================
  20 alberta_in,55,142,7     script  Hair Dresser    91,{
  21         mes "[Veronica]";
  22         mes "Welcome to Veronica's hair salon.";
  23         mes "How can I help you?";
  24         next;
  25         switch(select("See available hair styles.:Change hair style.:End conversation.")) {
  26         case 1:
  27                 mes "[Veronica]";
  28                 mes "We have a total of 19 styles, available from no.1 to no.19.";
  29                 mes "Which one do you want to see?";
  30                 mes "If you wish to cancel,";
  31                 mes "please enter 0.";
  32                 next;
  33                 input .@style;
  34                 if(.@style > 19) {
  35                         mes "[Veronica]";
  36                         mes "Oops, I'm sorry, but that";
  37                         mes "style is not available.";
  38                         mes "Remember to enter a number";
  39                         mes "from 1 to 19.";
  40                         next;
  41                 } else if(.@style == 0) {
  42                         mes "[Veronica]";
  43                         mes "So, how do you like the style?";
  44                         mes "Feel free to ask me about any";
  45                         mes "available hairstyle. It will";
  46                         mes "be my pleasure to style your";
  47                         mes "hair.";
  48                         close;
  49                 }
  50                 else {
  51                         callsub L_cutin,.@style;
  52                         mes "[Veronica]";
  53                         switch(.@style) {
  54                         case 1:
  55                                 if(Sex == SEX_MALE) {
  56                                         mes "Oh, that's 'Play Dead' style!";
  57                                         mes "It's a nice, basic haircut.";
  58                                         mes "I notice that usually the";
  59                                         mes "cute, conversative types seem";
  60                                         mes "to prefer this style.";
  61                                         close2; cutin "",255; end;
  62                                 }
  63                                         mes "Oh, that's 'First Aid' style!";
  64                                         mes "The shoulder length tresses";
  65                                         mes "are straightened for those";
  66                                         mes "no nonsense adventurers. It";
  67                                         mes "seems to be the style of";
  68                                         mes "choice for Novices.";
  69                                         close2; cutin "",255; end;
  70                         case 2:
  71                                 if(Sex == SEX_MALE) {
  72                                         mes "Oh, that's the 'Two Handed Sword";
  73                                         mes "Mastery' style! It's perfect for";
  74                                         mes "for Swordmen who might muss their";
  75                                         mes "hair while swinging their swords";
  76                                         mes "all day long.";
  77                                         close2; cutin "",255; end;
  78                                 }
  79                                         mes "Oh, that's 'Bash' style!";
  80                                         mes "For the powerful woman that's";
  81                                         mes "not afraid to get a little";
  82                                         mes "blood on her hands, but knows";
  83                                         mes "how great her hair will look";
  84                                         mes "while wildly flailing a sword.";
  85                                         close2; cutin "",255; end;
  86                         case 3:
  87                                 if(Sex == SEX_MALE) {
  88                                         mes "Oh, that's 'Napalm Beat' style!";
  89                                         mes "It's a unique look with a hint";
  90                                         mes "of eccentricity that's offset";
  91                                         mes "with a helping of elegance.";
  92                                         close2; cutin "",255; end;
  93                                 }
  94                                         mes "Oh, that's 'Frost Diver' style!";
  95                                         mes "The pigtails lend an innocent,";
  96                                         mes "demure look for those Mages";
  97                                         mes "and Wizards that usually scare";
  98                                         mes "off the boys with their spells.";
  99                                         close2; cutin "",255; end;
 100                         case 4:
 101                                 if(Sex == SEX_MALE) {
 102                                         mes "Oh, that's the 'Double Strafe'";
 103                                         mes "style! The arrangement of the";
 104                                         mes "hair conducts ambient static";
 105                                         mes "electricity, naturally clearing";
 106                                         mes "the mind. At least, that's what";
 107                                         mes "I was taught in fashion school.";
 108                                         close2; cutin "",255; end;
 109                                 }
 110                                         mes "Oh, that's 'Arrow Shower' style!";
 111                                         mes "For the Bowswoman who doesn't";
 112                                         mes "want fashion to interfere with";
 113                                         mes "her depth perception. Much more";
 114                                         mes "attractive than those horrid";
 115                                         mes "granny-style hairbuns.";
 116                                         close2; cutin "",255; end;
 117                         case 5:
 118                                 if(Sex == SEX_MALE) {
 119                                         mes "Oh, that's 'Angelus' style!";
 120                                         mes "It's for calm and devout people,";
 121                                         mes "as well as those bashful,";
 122                                         mes "mild-mannered types.";
 123                                         close2; cutin "",255; end;
 124                                 }
 125                                         mes "Oh, that's 'Heal' style!";
 126                                         mes "This is in trend among";
 127                                         mes "Priests and Acolytes since";
 128                                         mes "this style is appropriate";
 129                                         mes "for formal situations, but";
 130                                         mes "is also practical in battle.";
 131                                         close2; cutin "",255; end;
 132                         case 6:
 133                                 if(Sex == SEX_MALE) {
 134                                         mes "Oh, that's 'Push Cart' style!";
 135                                         mes "It was based on the design of a";
 136                                         mes "cart...at least, that's what";
 137                                         mes "I learned in beautician school.";
 138                                         close2; cutin "",255; end;
 139                                 }
 140                                         mes "Ooh, that's 'Vending' style!";
 141                                         mes "It's the hairdo of money";
 142                                         mes "makers...and if I may say so,";
 143                                         mes "it's also economical.";
 144                                         close2; cutin "",255; end;
 145                         case 7:
 146                                 if(Sex == SEX_MALE) {
 147                                         mes "Ooh, that's 'Envenom' style!";
 148                                         mes "It looks great on Thieves and";
 149                                         mes "and Assassins when they're";
 150                                         mes "out poisoning people and animals.";
 151                                         mes "It's fashion for the aggressive";
 152                                         mes "and eclectic~!";
 153                                         close2; cutin "",255; end;
 154                                 }
 155                                         mes "Oh, that's 'Double Attack' style!";
 156                                         mes "The adorable pigtail, paired with";
 157                                         mes "those provacative bangs are sure";
 158                                         mes "to help you steal the heart of";
 159                                         mes "some cute guy.";
 160                                         close2; cutin "",255; end;
 161                         case 8:
 162                                 if(Sex == SEX_MALE) {
 163                                         mes "Oh, that's 'Bowling Bash' style!";
 164                                         mes "A popular style for Knights, its";
 165                                         mes "manly, rugged look tends to";
 166                                         mes "attract all of the ladies,";
 167                                         mes "and looks great on men with";
 168                                         mes "strong chins.";
 169                                         close2; cutin "",255; end;
 170                                 }
 171                                         mes "Oh, that's 'Gloria' style!";
 172                                         mes "It's very elegant and looks";
 173                                         mes "great on holy Priests. This";
 174                                         mes "style is most attractive to";
 175                                         mes "ladies who aren't that used";
 176                                         mes "to fighting with their hands.";
 177                                         close2; cutin "",255; end;
 178                         case 9:
 179                                 if(Sex == SEX_MALE) {
 180                                         mes "Oh, that's 'Venom Dust' style!";
 181                                         mes "Definitely a look for rebels,";
 182                                         mes "the sweeping, yet decidedly";
 183                                         mes "luxorious locks seems to enchant";
 184                                         mes "girls with a fatal attraction.";
 185                                         close2; cutin "",255; end;
 186                                 }
 187                                         mes "Oh, that's 'SP Recovery' style!";
 188                                         mes "To add more body to the special";
 189                                         mes "style of these bangs, I use a";
 190                                         mes "special conditioner that makes";
 191                                         mes "you feel like you're regaining SP";
 192                                         mes "...Although, it acutally doesn't.";
 193                                         close2; cutin "",255; end;
 194                         case 10:
 195                                 if(Sex == SEX_MALE) {
 196                                         mes "Oh, that's 'Turn Undead' style!";
 197                                         mes "This is popular among Priests";
 198                                         mes "that want a serious, yet a bit";
 199                                         mes "of a wild, agressive look.";
 200                                         mes "Definitely more attractive";
 201                                         mes "than the 'Holy Light' mullet.";
 202                                         close2; cutin "",255; end;
 203                                 }
 204                                         mes "Oh, that's 'Prepare Potion' style!";
 205                                         mes "The flared out tresses are chosen";
 206                                         mes "by beginning Alchemists, since";
 207                                         mes "early, explosive experiments would";
 208                                         mes "make their hair to stick out anyway.";
 209                                         close2; cutin "",255; end;
 210                         case 11:
 211                                 if(Sex == SEX_MALE) {
 212                                         mes "Oh, that's 'Dragonology' style!";
 213                                         mes "It's neat and clean cut, perfect";
 214                                         mes "for studious people and looks";
 215                                         mes "great with eyeglasses. This";
 216                                         mes "is a fashion well suited to";
 217                                         mes "intellectual types.";
 218                                         close2; cutin "",255; end;
 219                                 }
 220                                         mes "Oh, that's 'Grand Cross' style!";
 221                                         mes "It's in style among those pious";
 222                                         mes "Crusaders that need hair that";
 223                                         mes "won't muss during fighting, yet";
 224                                         mes "is respectable enough to attend";
 225                                         mes "religious services.";
 226                                         close2; cutin "",255; end;
 227                         case 12:
 228                                 if(Sex == SEX_MALE) {
 229                                         mes "Oh, that's 'Mace Mastery' style!";
 230                                         mes "A lot of care goes into making";
 231                                         mes "that tussled hair say, 'I don't";
 232                                         mes "care how I look at all.'";
 233                                         close2; cutin "",255; end;
 234                                 }
 235                                         mes "Oh, that's 'Intimidate' style!";
 236                                         mes "The Rogue women seem to like";
 237                                         mes "this style...although I imagine";
 238                                         mes "that more of them would prefer";
 239                                         mes "something wilder to match those";
 240                                         mes "stockings...";
 241                                         close2; cutin "",255; end;
 242                         case 13:
 243                                 if(Sex == SEX_MALE) {
 244                                         mes "Oh, that's 'Thunder Storm' style!";
 245                                         mes "This hot, flamboyant hairstyle";
 246                                         mes "flares out wildly like thunder.";
 247                                         mes "...And you will too with this new look.";
 248                                         close2; cutin "",255; end;
 249                                 }
 250                                         mes "Oh, that's 'Spiritual Sphere";
 251                                         mes "Absorption' style! There's a";
 252                                         mes "charismatic quality to this";
 253                                         mes "fashion: it's tough, slightly";
 254                                         mes "tomboyish, but not so much";
 255                                         mes "that it can't be cute.";
 256                                         close2; cutin "",255; end;
 257                         case 14:
 258                                 if(Sex == SEX_MALE) {
 259                                         mes "Oh, that's 'Encore' style!";
 260                                         mes "The elegant, flowing locks";
 261                                         mes "fit well with Bards, or men who";
 262                                         mes "appreciate the value of male";
 263                                         mes "beauty.";
 264                                         close2; cutin "",255; end;
 265                                 }
 266                                         mes "Oh, that's 'Gypsy's Kiss' style!";
 267                                         mes "Dancers seem to like this style,";
 268                                         mes "although personally, I think";
 269                                         mes "this fashion fits very well";
 270                                         mes "with glasses.";
 271                                         close2; cutin "",255; end;
 272                         case 15:
 273                                 if(Sex == SEX_MALE) {
 274                                         mes "Oh, that's 'Grimtooth' style!";
 275                                         mes "Spiky and unkempt, this style";
 276                                         mes "is a popular counterculture";
 277                                         mes "street fashion. You might";
 278                                         mes "not want to wear your hair";
 279                                         mes "this way at a wedding, though.";
 280                                         close2; cutin "",255; end;
 281                                 }
 282                                         mes "Oh, that's 'Counter Attack' style!";
 283                                         mes "This is an intimidating look for";
 284                                         mes "girls that want to say 'You hit";
 285                                         mes "me, I'll hit you back!' It really";
 286                                         mes "emphasizes strong looking";
 287                                         mes "foreheads and cheekbones.";
 288                                         close2; cutin "",255; end;
 289                         case 16:
 290                                 if(Sex == SEX_MALE) {
 291                                         mes "Oh, that's 'Blitz Beat' style!";
 292                                         mes "A funky and lively fashion,";
 293                                         mes "this style was developed for a";
 294                                         mes "Hunter who liked really long";
 295                                         mes "bangs and wanted to see";
 296                                         mes "through them at the same time.";
 297                                         close2; cutin "",255; end;
 298                                 }
 299                                         mes "Oh, that's 'Anke Snare' style!";
 300                                         mes "The style style is specially";
 301                                         mes "made for Hunters that don't like";
 302                                         mes "to get their hair tangled...";
 303                                         mes "After all, what kind of Hunter";
 304                                         mes "lets their hair get trapped?";
 305                                         close2; cutin "",255; end;
 306                         case 17:
 307                                 if(Sex == SEX_MALE) {
 308                                         mes "Oh, that's 'Find Ore' style!";
 309                                         mes "It's a practical, economical look";
 310                                         mes "that is popular among Blacksmiths.";
 311                                         mes "Some swear that this fashion helps";
 312                                         mes "them in finding ores, but where's";
 313                                         mes "the science in that??";
 314                                         close2; cutin "",255; end;
 315                                 }
 316                                         mes "Oh, that's 'Hammer Fall' style!";
 317                                         mes "For the woman that doesn't want";
 318                                         mes "her hair to get in the way when";
 319                                         mes "she's savagely swinging heavy";
 320                                         mes "objects. Of course, this is a";
 321                                         mes "Blacksmith favorite.";
 322                                         close2; cutin "",255; end;
 323                         case 18:
 324                                 if(Sex == SEX_MALE) {
 325                                         mes "Oh, that's 'Fire Pillar' style!";
 326                                         mes "It's a trendy look, in which";
 327                                         mes "you cover one eye for that";
 328                                         mes "intrigue effect. The element";
 329                                         mes "of mystery is always in";
 330                                         mes "fashion, don't you think?";
 331                                         close2; cutin "",255; end;
 332                                 }
 333                                         mes "Oh, that's 'Jupitel Thunder'";
 334                                         mes "style! A look that strikes";
 335                                         mes "like lightening, without";
 336                                         mes "any of that annoying static";
 337                                         mes "cling or muss. This fashion";
 338                                         mes "looks great with Mage Hats.";
 339                                         close2; cutin "",255; end;
 340                         case 19:
 341                                 if(Sex == SEX_MALE) {
 342                                         mes "Oh, that's 'Guillotine Fist'";
 343                                         mes "style! The smooth, slicked back";
 344                                         mes "pompadour shows that you're";
 345                                         mes "serious about your passion";
 346                                         mes "for brawling... or just your passion.";
 347                                         close2; cutin "",255; end;
 348                                 }
 349                                         mes "Oh, that's 'Whirlwind' style!";
 350                                         mes "A favorite among the studious";
 351                                         mes "Sages, the hair is tied back";
 352                                         mes "in a stylish braid so that";
 353                                         mes "it doesn't fly around after";
 354                                         mes "casting those windy spells.";
 355                                         close2; cutin "",255; end;
 356                         }
 357                 }
 358         case 2:
 359                 if(BaseLevel < 60) {
 360                         mes "[Veronica]";
 361                         mes "Oh, dear, you're looking fabulous with";
 362                         mes "your current hairstyle. Why don't you";
 363                         mes "try a new hair accessory rather than changing your look?";
 364                         close;
 365                 } 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)) {
 366                         mes "[Veronica]";
 367                         mes "If you wish to change your";
 368                         mes "hairstyle, you should meet some";
 369                         mes "requirements. I suggest that you";
 370                         mes "write down all the items that";
 371                         mes "you will need.";
 372                         next;
 373                         mes "[Veronica]";
 374                         mes "3 Counteragent,";
 375                         mes "3 Mixture,";
 376                         mes "100 Danggie,";
 377                         mes "100 Short Danggie,";
 378                         mes "100 Black Hair,";
 379                         mes "100 Golden Hair,";
 380                         mes "100 Glossy Hair, and lastly...";
 381                         next;
 382                         mes "[Veronica]";
 383                         mes "You will need 99,800 zeny.";
 384                         mes "Please come back when you're";
 385                         mes "ready. I will make you look";
 386                         mes "fabulous. Hohohohoho~";
 387                         close;
 388                 }
 389                 mes "[Veronica]";
 390                 mes "Okay now, please choose the style";
 391                 mes "you desire from styles no.1 to";
 392                 mes "no.19.  I will do my best to";
 393                 mes "make you look your very best.";
 394                 next;
 395                 input .@style;
 396                 if(.@style > 19) {
 397                         mes "[Veronica]";
 398                         mes "I am sorry, you chose an unavailable style.";
 399                         mes "Make sure you enter the correct number.";
 400                         close;
 401                 } else if(.@style == 0) {
 402                         mes "[Veronica]";
 403                         mes "You have canceled your request.";
 404                         close;
 405                 } else if(getlook(1) == .@style) {
 406                         mes "[Veronica]";
 407                         mes "I am sorry, but you are already";
 408                         mes "wearing the style you have";
 409                         mes "requested. Would you please";
 410                         mes "choose a different style?";
 411                         close;
 412                 }
 413                         callsub L_cutin,.@style;
 414                         mes "[Veronica]";
 415                         mes "You have chosen style no. (" + .@style + ").";
 416                         mes "I shall proceed with your request.";
 417                         mes "Would you mind?";
 418                         next;
 419                         if(select("No, I don't mind.:Yes, let me choose another one.") == 1) {
 420                                 if(getlook(6) == 0) {
 421                                         mes "[Veronica]";
 422                                         mes "Oh, my, you haven't dyed your hair";
 423                                         mes "at all. You would look even more";
 424                                         mes "fabulous if you dyed your hair...";
 425                                         mes "Oh well, I will do it for free.";
 426                                         mes "So what kind of color would you like?";
 427                                         next;
 428                                         switch(select("Red.:Yellow.:Purple.:Orange.:Green.:Blue.:White.:Dark Brown.:Cancel.")) {
 429                                         case 1:
 430                                                 set .@pallete,8;
 431                                                 break;
 432                                         case 2:
 433                                                 set .@pallete,1;
 434                                                 break;
 435                                         case 3:
 436                                                 set .@pallete,2;
 437                                                 break;
 438                                         case 4:
 439                                                 set .@pallete,3;
 440                                                 break;
 441                                         case 5:
 442                                                 set .@pallete,4;
 443                                                 break;
 444                                         case 6:
 445                                                 set .@pallete,5;
 446                                                 break;
 447                                         case 7:
 448                                                 set .@pallete,6;
 449                                                 break;
 450                                         case 8:
 451                                                 set .@pallete,7;
 452                                                 break;
 453                                         case 9:
 454                                                 mes "[Veronica]";
 455                                                 mes "Oh, I was gonna do it for free.";
 456                                                 mes "Well, if you change your mind, please come again.";
 457                                                 mes "The color of your hair enhances your look.";
 458                                                 close;
 459                                         }
 460                                 }
 461                                 nude;
 462                                 mes "[Veronica]";
 463                                 mes "Now, let's get started. Try to";
 464                                 mes "stay still, dear. If you move,";
 465                                 mes "it might ruin the perfect look";
 466                                 mes "I intend to give you. Trust me,";
 467                                 mes "I will make you look fabulous~";
 468                                 next;
 469                                 mes "[Veronica]";
 470                                 mes "- *snip snip snip snip* -";
 471                                 mes "- *bzzzzzzz bzzzzzzz bzzzzzzz bzzzzzzz* -";
 472                                 mes "- *snip snip snip snip* -";
 473                                 mes "- *bzzzzzzz bzzzzzzz bzzzzzzz bzzzzzzz* -";
 474                                 next;
 475                                 set Zeny, Zeny-99800;
 476                                 delitem 973,3;  // Counteragent
 477                                 delitem 974,3;  // Mixture
 478                                 delitem 901,100;        // Danggie
 479                                 delitem 1094,100;       // Short_Daenggie
 480                                 delitem 1020,100;       // Long_Hair
 481                                 delitem 1060,100;       // Golden_Hair
 482                                 delitem 7152,100;       // Glossy_Hair
 483                                 setlook 1,.@style;
 484                                 setlook 6,.@pallete;
 485                                 cutin "",255;
 486                                 mes "[Veronica]";
 487                                 mes "Alright, it's done~";
 488                                 mes "I hope you like";
 489                                 mes "this style no.(" + .@style + ").";
 490                                 mes "Feel free to come back anytime";
 491                                 mes "when you want a new hairstyle. Hohohohohoho~";
 492                                 setlook 1,.@style;
 493                                 setlook 6,.@pallete;
 494                                 close;
 495                         }
 496                         mes "[Veronica]";
 497                         mes "Okay then, please choose one";
 498                         mes "a hairstyle again. I believe";
 499                         mes "you will find the look that's best for you.";
 500                         close;
 501         case 3:
 502                 mes "[Veronica]";
 503                 mes "Everybody deserves the right to";
 504                 mes "pursue beauty. I hope that you";
 505                 mes "will find the right hairstyle";
 506                 mes "one of these days.";
 507                 close;
 508         }
 509
 510 L_cutin:
 511         .@num = getarg(0);
 512         if(Sex == SEX_MALE) {
 513                 if (.@num  < 10)
 514                         cutin "hair_m_0"+ .@num,4;
 515                 else
 516                         cutin "hair_m_"+ .@num,4;
 517         } else {
 518                 if (.@num < 10)
 519                         cutin "hair_f_0"+ .@num,4;
 520                 else
 521                         cutin "hair_f_"+ .@num,4;
 522         }
 523         return;
 524 }
 525
 526 // Roving Hair Dresser
 527 // ============================================================
 528 alberta,33,141,7        script  Roving Hair Dresser     87,{
 529         mes "[Rui Vishop]";
 530         mes "That Veronica...";
 531         mes "Hah! Best hair dresser my ass.";
 532         mes "She's not the best hair dresser...";
 533         mes "...";
 534         mes "I am!";
 535         next;
 536         mes "[Rui Vishop]";
 537         mes "I, Rui Vishop, the man to whom";
 538         mes "all scalps are canvases";
 539         mes "waiting to be transformed into";
 540         mes "works of magnificent art~!";
 541         next;
 542         switch(select("What are you?:Do my hair, please!:.....")) {
 543         case 1:
 544                 mes "[Rui Vishop]";
 545                 mes "Do you not know that I, Rui";
 546                 mes "Vishop, maestro of the shears";
 547                 mes "and sculptor of hair, am an";
 548                 mes "artist far ahead of his time?!";
 549                 mes "Well, I suppose an adventurer";
 550                 mes "like yourself wouldn't know...";
 551                 next;
 552                 mes "[Rui Vishop]";
 553                 mes "As a hair sculptor, I find joy";
 554                 mes "in bestowing upon others the";
 555                 mes "supreme favour of doing their";
 556                 mes "hairstyle at a reasonable price.";
 557                 next;
 558                 mes "[Rui Vishop]";
 559                 mes "Recently, however, I happened to";
 560                 mes "overhear that some tyro has had";
 561                 mes "the audacity to call herself a";
 562                 mes "hair dresser.";
 563                 next;
 564                 mes "[Rui Vishop]";
 565                 mes "So one day I went there,";
 566                 mes "pretending to be a customer.";
 567                 mes "I was apalled to see the boring,";
 568                 mes "lifeless hairstyles that she was";
 569                 mes "giving all of her clients...";
 570                 next;
 571                 mes "[Rui Vishop]";
 572                 mes "It wasn't hard to notice that her";
 573                 mes "skills, or lack thereof, are a";
 574                 mes "joke. She brings shame to the";
 575                 mes "great and honorable";
 576                 mes "profession of hair dressing.";
 577                 mes "A complete and utter disgrace!";
 578                 next;
 579                 mes "[Rui Vishop]";
 580                 mes "But the worst part was...";
 581                 mes "she forced her customers to";
 582                 mes "choose a hairstyle before she";
 583                 mes "styled their hair!";
 584                 next;
 585                 mes "[Rui Vishop]";
 586                 mes "That's not how talented hair";
 587                 mes "dressers do their job! She";
 588                 mes "should know what hair style will";
 589                 mes "fit a customer without ever";
 590                 mes "asking them!";
 591                 next;
 592                 mes "[Rui Vishop]";
 593                 mes "If by any chance you decide to";
 594                 mes "do your hair, don't even think";
 595                 mes "about giving her patronage.";
 596                 mes "Instead, you may ask for my";
 597                 mes "services. I assure you, I am";
 598                 mes "faaaar better than her.";
 599                 next;
 600                 mes "[Rui Vishop]";
 601                 mes "Do you understand? I mean, don't";
 602                 mes "let her ruin your hair needlessly!";
 603                 mes "You could get a Swordman to hack";
 604                 mes "away at your hair if you want a";
 605                 mes "hairstyle that horrible~!";
 606                 close;
 607         case 2:
 608                 if(BaseLevel < 60) {
 609                         mes "[Rui Vishop]";
 610                         mes "Hmm, I must say, your current";
 611                         mes "style fits you best. Trust me, I know what I am saying.";
 612                         close;
 613                 } else if(Zeny < 199800) {
 614                         mes "[Rui Vishop]";
 615                         mes "Ah, I see that that you can";
 616                         mes "recognize genius when it is";
 617                         mes "right before you. In light";
 618                         mes "of your good taste, I will";
 619                         mes "only require money for my";
 620                         mes "services.";
 621                         next;
 622                         mes "[Rui Vishop]";
 623                         mes "Simply pay me the small";
 624                         mes "fee of 199,800 zeny. You must";
 625                         mes "know that I am doing you a";
 626                         mes "huge favor by charging you";
 627                         mes "such a small amount. My";
 628                         mes "art is priceless, after all.";
 629                         close;
 630                 }
 631                 mes "[Rui Vishop]";
 632                 mes "Alright, I will be taking my";
 633                 mes "199,800 zeny service charge now.";
 634                 next;
 635                 mes "[Rui Vishop]";
 636                 mes "If you don't wish to do";
 637                 mes "this right now, though I can't";
 638                 mes "imagine why, you may ask that";
 639                 mes "stupid hair dresser to";
 640                 mes "do her clumsy work on you...";
 641                 next;
 642                 if(select("No, please do my hair.:Umm, I changed my mind.") ==1 ) {
 643                         mes "[Rui Vishop]";
 644                         mes "O~k~a~y!";
 645                         mes "Now, let us begin~!";
 646                         next;
 647                         mes "[Rui Vishop]";
 648                         mes "Wooooo~oooohhhh!! Toohhhhh~oooohhhh!!";
 649                         next;
 650                         mes "[Rui Vishop]";
 651                         mes "Woooooo~aaaaaaahhhhh!!";
 652                         next;
 653                         mes "[Rui Vishop]";
 654                         mes "Voila!";
 655                         next;
 656                         mes "[Rui Vishop]";
 657                         mes "Oh, great~ it's awesome!";
 658                         mes "Another Vishop masterpiece~";
 659                         mes "Once more I've outdone myself.";
 660                         mes "It's such a unique and talented";
 661                         mes "style! Yes, I am the best! Wooohahahahahaha!";
 662                         set Zeny, Zeny-199800;
 663                         setlook 1,rand(1,19);
 664                         setlook 6,rand(1,8);
 665                         close;
 666                 }
 667                 mes "[Rui Vishop]";
 668                 mes "Bah! Alright! It's your decision.";
 669                 mes "But don't blame me later!";
 670                 mes "One day you'll wake up, realize";
 671                 mes "you're ugly and regret not";
 672                 mes "having my genius shape every lock";
 673                 mes "of hair on your head.";
 674                 close;
 675         case 3:
 676                 mes "[Rui Vishop]";
 677                 mes "What? What a shame!";
 678                 mes "Will you let that...that";
 679                 mes "charlatan of a hair dresser ruin";
 680                 mes "your hairstyle!? I'm sure the";
 681                 mes "heavens are crying tears of";
 682                 mes "pity at mankind's ignorance...";
 683                 close;
 684         }
 685 }
 686
 687
 688 // Lighthalzen
 689 lhz_in02,100,143,3      script  Hair Dresser#li 122,{
 690         mes "[Prince Shammi]";
 691         mes "Welcome to Prince Shammi's";
 692         mes "Beauty Shop, the place to go";
 693         mes "for faaabulous hair. Don't be";
 694         mes "shy, tell me exactly how you";
 695         mes "want me to make you glamorous~";
 696         next;
 697         switch(select("Check all hairstyles:Change hairstyle:Cancel")) {
 698         case 1:
 699                 mes "[Prince Shammi]";
 700                 mes "Oh, would you like to";
 701                 mes "see all of the trendy new";
 702                 mes "hairstyles I offer?";
 703                 next;
 704                 mes "[Prince Shammi]";
 705                 mes "Please, oh please, choose from the following styles and I will show you a preview.";
 706                 next;
 707                 switch(select("Old Hairstyles:New Hairstyles")) {
 708                 case 1:
 709                         if (Sex == SEX_MALE) {
 710                                 switch(select("Petite Style:Executioner Style:Prince Style:Deviace Style:Cancel")) {
 711                                 case 1:
 712                                         cutin "hair_m_20",4;
 713                                         mes "[Prince Shammi]";
 714                                         mes "This is the ^3131FFPetite Style^000000,";
 715                                         mes "which softens the gentleman's";
 716                                         mes "appearance with long braids";
 717                                         mes "for a fluffier appearance.";
 718                                         break;
 719                                 case 2:
 720                                         cutin "hair_m_21",4;
 721                                         mes "[Prince Shammi]";
 722                                         mes "Oh, the ^3131FFExecutioner Style^000000!";
 723                                         mes "It's a rugged, shaggy style";
 724                                         mes "for that tough guy look that's";
 725                                         mes "becoming popular these days.";
 726                                         mes "And every girl loves a tough";
 727                                         mes "guy, right? ^333333*Tee hee~*^000000";
 728                                         break;
 729                                 case 3:
 730                                         cutin "hair_m_22",4;
 731                                         mes "[Prince Shammi]";
 732                                         mes "You certainly have an";
 733                                         mes "eye for fashion! Yes, this";
 734                                         mes "is the ^3131FFPrince Style^000000, the";
 735                                         mes "pinnacle of sexiness and";
 736                                         mes "sophistication. Magnifique, no?";
 737                                         mes "Yes, choose this one, this one!";
 738                                         break;
 739                                 case 4:
 740                                         cutin "hair_m_23",4;
 741                                         mes "[Prince Shammi]";
 742                                         mes "A-ha~! The ^3131FFDeviace Style^000000!";
 743                                         mes "This is much like the Prince";
 744                                         mes "Style, but with shorter hair";
 745                                         mes "in the back. Yes, this look";
 746                                         mes "is very neat and dandy.";
 747                                         break;
 748                                 case 5:
 749                                         cutin "hair_f_01",255;
 750                                         mes "[Prince Shammi]";
 751                                         mes "No? You didn't want";
 752                                         mes "to take a look? Please,";
 753                                         mes "you're an adventurer, I know";
 754                                         mes "you can be more daring than";
 755                                         mes "that! Be fashionably adventurous, you fashionable adventurer~";
 756                                         emotion e_lv,"Hair Dresser#i";
 757                                         close;
 758                                 }
 759                         }
 760                         else {
 761                                 switch(select("Spring Rabbit Style:Harpy Style:Medusa Style:Isis Style:Cancel")) {
 762                                 case 1:
 763                                         cutin "hair_f_20",4;
 764                                         mes "[Prince Shammi]";
 765                                         mes "Oh yes, this is the ";
 766                                         mes "^3131FFSpring Rabbit Style^000000.";
 767                                         mes "The bobbing forelock";
 768                                         mes "adds an aura of chic,";
 769                                         mes "cutsiness and playfulness.";
 770                                         mes "Yes? No? Yes? No? Oh yes!";
 771                                         break;
 772                                 case 2:
 773                                         cutin "hair_f_21",4;
 774                                         mes "[Prince Shammi]";
 775                                         mes "Ooh, are you interested";
 776                                         mes "in the ^3131FFHarpy Style^000000? The";
 777                                         mes "natural curl coupled with";
 778                                         mes "the pony tail results in";
 779                                         mes "a sophisticated, yet very";
 780                                         mes "natural and relaxed look~";
 781                                         break;
 782                                 case 3:
 783                                         cutin "hair_f_22",4;
 784                                         mes "[Prince Shammi]";
 785                                         mes "Ahh, the ^3131FFMedusa Style^000000~";
 786                                         mes "These boldy flowing locks";
 787                                         mes "scream power and dominance";
 788                                         mes "and is ideal for the big career";
 789                                         mes "woman who wishes to be...";
 790                                         mes "irresistable to men~";
 791                                         break;
 792                                 case 4:
 793                                         cutin "hair_f_23",4;
 794                                         mes "[Prince Shammi]";
 795                                         mes "Ooh, the ^3131FFIsis Style^000000~";
 796                                         mes "Yes, you'll look very cute";
 797                                         mes "with your hair in buns on";
 798                                         mes "on both sides of your head.";
 799                                         mes "It'll be very darling on you!";
 800                                         break;
 801                                 case 5:
 802                                         mes "[Prince Shammi]";
 803                                         mes "No? You didn't want";
 804                                         mes "to take a look? Please,";
 805                                         mes "you're an adventurer, I know";
 806                                         mes "you can be more daring than";
 807                                         mes "that! Be fashionably adventurous, you fashionable adventurer~";
 808                                         emotion e_lv,"Hair Dresser#li";
 809                                         close;
 810                                 }
 811                         }
 812                         break;
 813                 case 2:
 814                         if (Sex == SEX_MALE) {
 815                                 switch(select("Emergency Heal Perm:Aura Blade Cut:Power Swing:Renovatio Cut:Cancel")) {
 816                                 case 1:
 817                                         cutin "hair_m_24",4;
 818                                         mes "[Prince Shammi]";
 819                                         mes "This is the ^3131FFEmergency Heal Perm^000000";
 820                                         mes "It is quite popular among the healing class.";
 821                                         break;
 822                                 case 2:
 823                                         cutin "hair_m_25",4;
 824                                         mes "[Prince Shammi]";
 825                                         mes "You must be after a lady yes?";
 826                                         mes "The ^3131FFAura Blade Cut^000000";
 827                                         mes "is known to make the ladies swoon, you tiger you!";
 828                                         break;
 829                                 case 3:
 830                                         cutin "hair_m_26",4;
 831                                         mes "[Prince Shammi]";
 832                                         mes "Oh you brute!";
 833                                         mes "^3131FFPower Swing Cut^000000";
 834                                         mes "Flex your style muscles with this hairstyle. This is definitely your look.";
 835                                         break;
 836                                 case 4:
 837                                         cutin "hair_m_27",4;
 838                                         mes "[Prince Shammi]";
 839                                         mes "Ah! I see you're only interested in the latest trends.";
 840                                         mes "Straight from the runway is the ^3131FFRenovatio Cut^000000.";
 841                                         break;
 842                                 case 5:
 843                                         mes "[Prince Shammi]";
 844                                         mes "No? You didn't want";
 845                                         mes "to take a look? Please,";
 846                                         mes "you're an adventurer, I know";
 847                                         mes "you can be more daring than";
 848                                         mes "that! Be fashionably adventurous, you fashionable adventurer~";
 849                                         emotion e_lv,"Hair Dresser#li";
 850                                         close;
 851                                 }
 852                         }
 853                         else {
 854                                 switch(select("Assumptio Perm:Soul Changer Cut:X Tornado Cut:Oratio Cut:Cancel")) {
 855                                 case 1:
 856                                         cutin "hair_f_24",4;
 857                                         mes "[Prince Shammi]";
 858                                         mes "This is the ^3131FFAssumptio Perm^000000";
 859                                         mes "It's a shorter style perm that allows for maximum spellcasting.";
 860                                         break;
 861                                 case 2:
 862                                         cutin "hair_f_25",4;
 863                                         mes "[Prince Shammi]";
 864                                         mes "You must be a man killer no?";
 865                                         mes "The ^3131FFSoul Changer Cut^000000";
 866                                         mes "will make any man open his wall... er heart to you!";
 867                                         break;
 868                                 case 3:
 869                                         cutin "hair_f_26",4;
 870                                         mes "[Prince Shammi]";
 871                                         mes "This is a bit of a trendy style";
 872                                         mes "^3131FFX Tornado Cut^000000";
 873                                         mes "It's for adventurous people who like change.";
 874                                         break;
 875                                 case 4:
 876                                         cutin "hair_f_27",4;
 877                                         mes "[Prince Shammi]";
 878                                         mes "Ah! I see you're only interested in the latest trends.";
 879                                         mes "Straight from the runway is the ^3131FFOratio Cut^000000.";
 880                                         mes "You'll be the envy of all of your friends with this hairstyle.";
 881                                         break;
 882                                 case 5:
 883                                         mes "[Prince Shammi]";
 884                                         mes "No? You didn't want";
 885                                         mes "to take a look? Please,";
 886                                         mes "you're an adventurer, I know";
 887                                         mes "you can be more daring than";
 888                                         mes "that! Be fashionably adventurous, you fashionable adventurer~";
 889                                         emotion e_lv,"Hair Dresser#li";
 890                                         close;
 891                                 }
 892                         }
 893                 }
 894                 close2;
 895                 cutin "",255;
 896                 end;
 897         case 2:
 898                 if (BaseLevel < 60) {
 899                         mes "[Prince Shammi]";
 900                         mes "Oh, I'm so sorry, but";
 901                         mes "I can only perform my";
 902                         mes "services for clients that have";
 903                         mes "matured enough to find their";
 904                         mes "true inner beauty. But please";
 905                         mes "come back once you do, okay?";
 906                         close;
 907                 }
 908                 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)) {
 909                         mes "[Prince Shammi]";
 910                         mes "If you've already decided";
 911                         mes "what hairstyle you'd like,";
 912                         mes "please have my service charge";
 913                         mes "ready, as well as the materials";
 914                         mes "I will need in performing this";
 915                         mes "service, okay? Please bring...";
 916                         next;
 917                         mes "[Prince Shammi]";
 918                         mes "^3355FF3 Counteragent^000000,";
 919                         mes "^3355FF3 Mixture^000000,";
 920                         mes "^3355FF100 Daenggie^000000,";
 921                         mes "^3355FF100 Short Daenggie^000000...";
 922                         next;
 923                         mes "[Prince Shammi]";
 924                         mes "^3355FF100 Black Hair^000000,";
 925                         mes "^3355FF100 Golden Hair^000000,";
 926                         mes "^3355FF100 Glossy Hair^000000";
 927                         mes "and ^3355FF99,800 zeny^000000.";
 928                         mes "Once you do that, I'll make";
 929                         mes "a miracle out of your hair!";
 930                         close;
 931                 }
 932                 mes "[Prince Shammi]";
 933                 mes "Alright, please choose";
 934                 mes "which hairstyle you wish";
 935                 mes "to have from numbers 20 to 25.";
 936                 mes "Here's a list of the style names just in case you need them~";
 937                 next;
 938                 mes "[Prince Shammi]";
 939                 if (Sex == SEX_MALE) {
 940                         mes "No. 20: Petite Style";
 941                         mes "No. 21: Executioner Style";
 942                         mes "No. 22: Prince Style";
 943                         mes "No. 23: Deviace Style";
 944                         mes "No. 24: Emergency Heal Perm";
 945                         mes "No. 25: Aura Blade Cut";
 946                         mes "No. 26: Power Swing and";
 947                         mes "No. 27: Renovatio Cut.";
 948                 }
 949                 else {
 950                         mes "No. 20: Spring Rabbit Style";
 951                         mes "No. 21: Harpy Style";
 952                         mes "No. 22: Medusa Style";
 953                         mes "No. 23: Isis Style";
 954                         mes "No. 24: Assumptio Perm";
 955                         mes "No. 25: Soul Changer Cut";
 956                         mes "No. 26: X Tornado Cut and";
 957                         mes "No. 27: Oratio Cut.";
 958                 }
 959                 next;
 960                 input .@input;
 961                 if (.@input == 0) {
 962                         mes "[Prince Shammi]";
 963                         mes "Oh...?";
 964                         mes "You decided to cancel?";
 965                         mes "Well, you know what's";
 966                         mes "best for you, I suppose.";
 967                         mes "Still, I'm so disappointed~";
 968                         close;
 969                 }
 970                 else if ((.@input < 20) || (.@input > 27)) {
 971                         mes "[Prince Shammi]";
 972                         mes "Dearie, please enter";
 973                         mes "a number from ''20'' to";
 974                         mes "''25,'' alright? Then I can";
 975                         mes "get right to work at making";
 976                         mes "you soooooooo beautiful!";
 977                         close;
 978                 }
 979                 else if (getlook(VAR_HEAD) == .@input) {
 980                         mes "[Prince Shammi]";
 981                         mes "Oh dear me, you're not";
 982                         mes "going to waste money for";
 983                         mes "the same hairstyle that you";
 984                         mes "have now, are you? You can";
 985                         mes "have someone else change";
 986                         mes "your hair color, you know.";
 987                         close;
 988                 }
 989                 else {
 990                         if (Sex == SEX_MALE)
 991                                 cutin "hair_m_"+.@input+".BMP",4;
 992                         else
 993                                 cutin "hair_f_"+.@input+".BMP",4;
 994                         mes "[Prince Shammi]";
 995                         mes "Oooh! Now, is this the";
 996                         mes "hairstyle that you wanted?";
 997                         mes "This is No. "+.@input+", by the way.";
 998                         next;
 999                         switch(select("Yes.:No.")) {
1000                         case 1:
1001                                 if (getlook(VAR_HEADPALETTE) == 0) {
1002                                         mes "[Prince Shammi]";
1003                                         mes "Oh, Sweet Christmas,";
1004                                         mes "I almost forgot! Would";
1005                                         mes "you like me to dye your";
1006                                         mes "hair, free of charge? It's";
1007                                         mes "a part of my service, so";
1008                                         mes "please choose a color~";
1009                                         next;
1010                                         switch(select("Red:Yellow:Purple:Orange:Green:Blue:White:Dark Brown")) {
1011                                         case 1:
1012                                                 set .@headpalette,8;
1013                                                 break;
1014                                         case 2:
1015                                                 set .@headpalette,1;
1016                                                 break;
1017                                         case 3:
1018                                                 set .@headpalette,2;
1019                                                 break;
1020                                         case 4:
1021                                                 set .@headpalette,3;
1022                                                 break;
1023                                         case 5:
1024                                                 set .@headpalette,4;
1025                                                 break;
1026                                         case 6:
1027                                                 set .@headpalette,5;
1028                                                 break;
1029                                         case 7:
1030                                                 set .@headpalette,6;
1031                                                 break;
1032                                         case 8:
1033                                                 set .@headpalette,7;
1034                                                 break;
1035                                         }
1036                                 }
1037                                 mes "[Prince Shammi]";
1038                                 mes "Okay, let's get";
1039                                 mes "started, shall we?";
1040                                 mes "Keep your head still,";
1041                                 mes "now. Yes, that's good...";
1042                                 next;
1043                                 mes "^3355FF*Snip snip*";
1044                                 mes "*Rustle rustle*";
1045                                 mes "*Clip clip clip clip*";
1046                                 mes "*Bzzzzzzzzzzzzzzzzzzzz*^000000";
1047                                 next;
1048                                 set Zeny, Zeny-99800;
1049                                 delitem 973,3; //Counteragent
1050                                 delitem 974,3; //Mixture
1051                                 delitem 901,100; //Danggie
1052                                 delitem 1094,100; //Short_Daenggie
1053                                 delitem 1020,100; //Long_Hair
1054                                 delitem 1060,100; //Golden_Hair
1055                                 delitem 7152,100; //Glossy_Hair
1056                                 setlook VAR_HEAD,.@input;
1057                                 setlook VAR_HEADPALETTE,.@headpalette;
1058                                 mes "[Prince Shammi]";
1059                                 mes "Well, we're all finished!";
1060                                 mes "And my, oh my, you look even";
1061                                 mes "more fabulous that I thought";
1062                                 mes "you would! Oh, I can't believe";
1063                                 if (Sex == SEX_MALE) {
1064                                         mes "how tough and elegant you are~";
1065                                         mes "So ruggedly manly and handsome!";
1066                                 }
1067                                 else {
1068                                         mes "how graceful and elegant you";
1069                                         mes "look! Absolutely gorgeous!";
1070                                 }
1071                                 emotion e_kis,"Hair Dresser#li";
1072                                 next;
1073                                 mes "[Prince Shammi]";
1074                                 mes "You love your new";
1075                                 mes "hair, don't you? Feel";
1076                                 mes "free to come back anytime.";
1077                                 mes "I'll make you the best looking";
1078                                 mes "person in the entire world!";
1079                                 emotion e_no1,"Hair Dresser#li";
1080                                 close;
1081                         case 2:
1082                                 mes "[Prince Shammi]";
1083                                 mes "Oh, did you forget which";
1084                                 mes "hairstyle goes with which";
1085                                 mes "number? By all means, please";
1086                                 mes "check again! Find the one that";
1087                                 mes "is perfect just for you, okay?";
1088                                 close;
1089                         }
1090                 }
1091                 break;
1092         case 3:
1093                 mes "[Prince Shammi]";
1094                 mes "Humm ? ";
1095                 mes "Maybe you don't understand";
1096                 mes "my futuristic styles.";
1097                 mes "Goodbye! ";
1098                 close;
1099         }
1100 }
1101
1102 lhz_in02,91,155,5       script  Assistant Beautician#li 862,{
1103         mes "[Assistant Beautician]";
1104         mes "Wah?! Sweet Jiminy,";
1105         mes "you freaked me out!";
1106         mes "What are you doing?!";
1107         emotion e_omg,"Assistant Beautician#li";
1108         next;
1109         mes "[Assistant Beautician]";
1110         mes "Oh! Um, a customer!";
1111         mes "H-h-h-h-h-hello! Can";
1112         mes "I help you with anything?";
1113         next;
1114         switch(select("What do you do?:Please change my hairstyle.:Who is Prince Shammi?")) {
1115         case 1:
1116                 mes "[Assistant Beautician]";
1117                 mes "Oh! Me...? I'm";
1118                 mes "just an assistant";
1119                 mes "beautician, but I'm";
1120                 mes "training hard everyday";
1121                 mes "so that I can become";
1122                 mes "a real professional!";
1123                 next;
1124                 mes "[Assistant Beautician]";
1125                 mes "Yeah, I do all sorts of";
1126                 mes "grunt work for the boss while";
1127                 mes "I'm in training. Sometimes, he";
1128                 mes "makes me work pretty hard.";
1129                 mes "In fact, I better get back to work before he gets angry at me!";
1130                 close;
1131         case 2:
1132                 if (BaseLevel < 60) {
1133                         mes "[Assistant Beautician]";
1134                         mes "Me...? Oh no,";
1135                         mes "no I can't! I mean,";
1136                         mes "I'd love to but, I'm";
1137                         mes "still in training and";
1138                         mes "I can't take responsibility";
1139                         mes "if I mess up on a little kid!";
1140                         close;
1141                 }
1142                 else if ((Zeny < 250000)) {
1143                         mes "[Assistant Beautician]";
1144                         mes "Well... I'm just an";
1145                         mes "assistant, but I have been";
1146                         mes "studying hairstyling after";
1147                         mes "work. If you want, just bring";
1148                         mes "me 250,000 zeny and I'll try";
1149                         mes "my best to change your hair~";
1150                         next;
1151                         mes "[Assistant Beautician]";
1152                         mes "I'd appreciate it if you'd";
1153                         mes "give me this chance! The";
1154                         mes "boss doesn't think I'm ready";
1155                         mes "for styling real people yet, so";
1156                         mes "I haven't had much practice!";
1157                         next;
1158                         mes "[Assistant Beautician]";
1159                         mes "I just know I could";
1160                         mes "do a good job on your";
1161                         mes "hair! Just... Just please";
1162                         mes "understand if I mess up.";
1163                         mes "It won't be too bad, I promise~";
1164                         close;
1165                 }
1166                 else {
1167                         mes "[Assistant Beautician]";
1168                         mes "You're really going to";
1169                         mes "give me a chance to practice?";
1170                         mes "Oh, I love you so much! Okay,";
1171                         mes "I'll need 250,000 zeny to make";
1172                         mes "up for the material expenses.";
1173                         mes "Is that okay with you?";
1174                         next;
1175                         switch(select("Of course~:On second thought...")) {
1176                         case 1:
1177                                 mes "[Assistant Beautician]";
1178                                 mes "Great! Now, please";
1179                                 mes "choose a hairstyle";
1180                                 mes "from ''1'' to ''23.''";
1181                                 mes "Um, if you need to";
1182                                 mes "cancel, just enter ''0.''";
1183                                 next;
1184                                 input .@input;
1185                                 if (.@input == 0) {
1186                                         mes "[Assistant Beautician]";
1187                                         mes "Awwww...";
1188                                         mes "I guess you don't";
1189                                         mes "trust me after all...";
1190                                         close;
1191                                 }
1192                                 else if ((.@input < 1) || (.@input > 23)) {
1193                                         mes "[Assistant Beautician]";
1194                                         mes "Huh? I thought I asked";
1195                                         mes "you to enter a number from";
1196                                         mes "''1'' to ''23?'' What did I do";
1197                                         mes "wrong this time? Hmmm...";
1198                                         close;
1199                                 }
1200                                 else {
1201                                         mes "[Assistant Beautician]";
1202                                         mes "So this is the";
1203                                         mes "style you want me";
1204                                         mes "to try to do for you?";
1205                                         if (Sex == SEX_MALE) {
1206                                                 if (.@input < 10)
1207                                                         cutin "hair_m_0"+.@input+".BMP",4;
1208                                                 else
1209                                                         cutin "hair_m_"+.@input+".BMP",4;
1210                                         }
1211                                         else {
1212                                                 if (.@input < 10)
1213                                                         cutin "hair_f_0"+.@input+".BMP",4;
1214                                                 else
1215                                                         cutin "hair_f_"+.@input+".BMP",4;
1216                                         }
1217                                         next;
1218                                         switch(select("Yes, let's try it~:Cancel.")) {
1219                                         case 1:
1220                                                 break;
1221                                         case 2:
1222                                                 mes "[Assistant Beautician]";
1223                                                 mes "Oooh, there must";
1224                                                 mes "be some style that";
1225                                                 mes "you like, right? Hmmm...";
1226                                                 close;
1227                                         }
1228                                 }
1229                                 mes "[Assistant Beautician]";
1230                                 mes "Great, you finally";
1231                                 mes "picked one! What, which";
1232                                 mes "one did you pick again?";
1233                                 mes "Ah, I found it, I found it!";
1234                                 mes "Haha! No problem here!";
1235                                 mes "Now it's time to style!";
1236                                 next;
1237                                 nude;
1238                                 mes "[Assistant Beautician]";
1239                                 mes "Bwwwwaaaahhhh!";
1240                                 next;
1241                                 mes "[Assistant Beautician]";
1242                                 mes "Yap! Pwwwaaattt!";
1243                                 next;
1244                                 mes "[Assistant Beautician]";
1245                                 mes "Waaaah!";
1246                                 mes "Oh crap!";
1247                                 mes "Wait, I can...";
1248                                 mes "I can fix this!";
1249                                 next;
1250                                 set .@style_r,rand(1,23);
1251                                 set .@color_r,rand(1,8);
1252                                 mes "[Assistant Beautician]";
1253                                 mes "^333333*Pant Pant Pant*^000000";
1254                                 next;
1255                                 set Zeny, Zeny-250000;
1256                                 setlook VAR_HEAD,.@style_r;
1257                                 setlook VAR_HEADPALETTE,.@color_r;
1258                                 mes "[Assistant Beautician]";
1259                                 mes "Bwahahaha! Success!";
1260                                 if (.@input == .@style_r) {
1261                                         mes "So... How do you like";
1262                                         mes "your new style? I love it!";
1263                                 }
1264                                 else {
1265                                         mes "Wha...? This isn't what";
1266                                         mes "you wanted? Uh oh... Um...";
1267                                         mes "Well, next time I know I can";
1268                                         mes "do a much better job! Right!";
1269                                 }
1270                                 next;
1271                                 mes "[Assistant Beautician]";
1272                                 mes "Oh, you're such a";
1273                                 mes "sweetheart for helping";
1274                                 mes "me! Thank you for using";
1275                                 mes "my service and come again~";
1276                                 emotion e_kis,"Assistant Beautician#li";
1277                                 close;
1278                         case 2:
1279                                 mes "[Assistant Beautician]";
1280                                 mes "Huh? Oh no, you're";
1281                                 mes "quitting? Well, I guess";
1282                                 mes "I couldn't trust me to";
1283                                 mes "style my hair either...";
1284                                 mes "You're... You're right.";
1285                                 close;
1286                         }
1287                 }
1288         case 3:
1289                 mes "[Assistant Beautician]";
1290                 mes "Prince Shammi?";
1291                 mes "He's only a genius when";
1292                 mes "it comes to hairstyling!";
1293                 mes "I'm just his apprentice, but";
1294                 mes "maybe someday, I can be a";
1295                 mes "force in the fashion world too!";
1296                 close;
1297         }
1298 }
1299
1300 //===== Old Changelog: =================================
1301 //= 07/06/05 : Added 1st Version. [Muad_Dib]
1302 //= Converted to rAthena format by Dr.Evil Fixed typos [Nexon]
1303 //= 1.1 Removed Duplicates [Silent]
1304 //============================================================