//===== rAthena Script =======================================
//= Stylist
//===== By: ==================================================
//= Nekosume
//===== Current Version: =====================================
//= 4.2
//===== Compatible With: =====================================
//= rAthena SVN
//===== Description: =========================================
//= Changes your hair style, hair color, and cloth color.
//===== Additional Comments: =================================
//= 1.0 - Split into two NPCs
//= 1.5 - Revised script / different dialog
//= 2.0 - Changed palette and hair style select
//= 2.5 - Added more hair colors
//= 3.0 - Added the 'Browse' options
//= 4.0 - Refined and Combined [Darkchild]
//= 4.1 - New hairstyles added [Mass Zero]
//= 4.2 - Renamed to avoid conflict [Paradox924X]
//============================================================
prontera,170,180,1 script Stylist#custom_stylist 122,{
mes "[^FF8000Stylist^000000]";
mes "I'm the greatest stylist in all of Rune-Midgard~~!";
mes "I can change your hair style or color!";
mes "What do you wish to change?";
next;
menu "Hair style",Lstyle,"Hair color",Lcolor,"Cloth Color",Lcloth,"Nothing",LCancel;
Lstyle:
mes "[^FF8000Stylist^000000]";
mes "Do you want to browse through the choices, or do you know what you want?";
next;
menu "Browse",Lbrowsesty,"I know what I want",Lwantsty;
Lwantsty:
mes "[^FF8000Stylist^000000]";
mes "Great! Now just pick a style and I'll get started!";
next;
mes "[^FF8000Stylist^000000]";
mes "Please pick a style number ^0000FFbetween 0 and 23^000000.";
mes "Number 0, by the way, is the default style for your character.";
next;
input @sty;
if (@sty>23) close;
if (@sty<0) close;
setlook 1,@sty;
next;
mes "[^FF8000Stylist^000000]";
mes "Is this good, or do you want a different style?";
next;
menu "This is good",-,"Different style, please",Lwantsty;
next;
mes "[^FF8000Stylist^000000]";
mes "You look great~! Come back again, okay?";
close;
Lbrowsesty:
set @look, -1;
mes "[^FF8000Stylist^000000]";
mes "Okay, here we go~! Just stop me when you see something you like, okay?";
next;
Lbrowserep:
set @look,@look+1;
setlook 1,@look;
mes "This is Pallete Number^FF9009 "+@look+" ^000000!";
if(@look == 23) menu "Back To The Begin",Lbrowsesty,"I like this one",Lstop;
if(@look != 23) menu "Keep going",Lbrowserep,"I like this one",Lstop;
Lcolor:
mes "[^FF8000Stylist^000000]";
mes "Do you want to browse through the choices, or do you know what you want?";
next;
menu "Browse",Lbrowsecolor,"I know what I want",Lwantcolor;
Lwantcolor:
mes "[^FF8000Stylist^000000]";
mes "Just pick a color and we can get started.";
next;
mes "[^FF8000Stylist^000000]";
mes "Please pick a style number ^0000FFbetween 0 and 20^000000.";
mes "Number 0, by the way, is the default color for your character.";
next;
mes "[^FF8000Stylist^000000]";
mes "0 is default...";
mes "1 is blonde...";
mes "2 is lavender...";
mes "3 is brown...";
mes "4 is green...";
mes "5 is blue...";
mes "6 is white...";
mes "7 is black...";
mes "8 is red...";
mes "and 9-20 are new colors.";
input @color;
if (@color>20) close;
if (@color<0) close;
setlook 6,@color;
next;
mes "[^FF8000Stylist^000000]";
mes "Is this good, or do you want a different color?";
next;
menu "This is good",-,"Different color, please",Lwantcolor;
next;
mes "[^FF8000Stylist^000000]";
mes "You look great~! Come back again, okay?";
close;
Lbrowsecolor:
set @look, -1;
mes "[^FF8000Stylist^000000]";
mes "Okay, here we go~! Just stop me when you see something you like, okay?";
next;
Lbrowsecolorrep:
set @look,@look+1;
setlook 6,@look;
mes "This is Pallete Number^FF9009 "+@look+" ^000000!";
if(@look == 20) menu "Back To The Begin",Lbrowsecolor,"I like this one",Lstop;
if(@look != 20) menu "Keep going",Lbrowsecolorrep,"I like this one",Lstop;
Lstop:
mes "[^FF8000Stylist^000000]";
mes "You look great~! I love it~! ^_^";
close;
LCancel:
mes "[^FF8000Stylist^000000]";
mes "Well come again.";
close;
Lcloth:
mes "[^FF8000Stylist^000000]";
mes "Do you want to browse through the choices, or do you know what you want?";
next;
menu "Browse",Lbrowsecloth,"I know what I want",Lwantcloth;
Lwantcloth:
mes "[^FF8000Stylist^000000]";
mes "Great! Now just pick a pallete and I'll get started!";
next;
mes "[^FF8000Stylist^000000]";
mes "Please pick a style number ^0000FFbetween 0 and 77^000000.";
mes "Number 0, by the way, is the default style for your character.";
next;
input @pal;
if (@pal>77) close;
if (@pal<0) close;
setlook 7,@pal;
next;
mes "[^FF8000Stylist^000000]";
mes "Is this good, or do you want a different pallet";
next;
menu "This is good",-,"Different pallet, please",Lwantcloth;
next;
mes "[^FF8000Stylist^000000]";
mes "You look great~! Come back again, okay?";
close;
Lbrowsecloth:
set @look, -1;
mes "[^FF8000Stylist^000000]";
mes "Okay, here we go~! Just stop me when you see something you like, okay?";
next;
Lbrowseclothrep:
set @look,@look+1;
setlook 7,@look;
mes "This is Pallete Number^FF9009 "+@look+" ^000000!";
if(@look == 77) menu "Back To The Begin",Lbrowsecloth,"I like this one",Lstop;
if(@look != 77) menu "Keep going",Lbrowseclothrep,"I like this one",Lstop;
}
