1 files changed, 33 insertions, 0 deletions
diff --git a/npc/custom/stylist.txt b/npc/custom/stylist.txt
new file mode 100644
index 000000000..c91853b32
--- /dev/null
+++ b/npc/custom/stylist.txt
@@ -0,0 +1,33 @@
+//===== rAthena Script =======================================
+//= Stylist
+//===== By: ==================================================
+//= Euphy
+//===== Current Version: =====================================
+//= 1.0
+//===== Compatible With: =====================================
+//= rAthena SVN
+//===== Description: =========================================
+//= Changes your hair style, hair color, and cloth color.
+//============================================================
+
+prontera,170,180,1	script	Stylist#custom_stylist	122,{
+
+	setarray .@Styles[1],553,37,250;	// Maximum dye, hair style, and hair color
+
+	setarray .@Look[1],7,1,6;
+	set .@s, select(" ~ Cloth color: ~ Hairstyle: ~ Hair color");
+	set .@Revert, getlook(.@Look[.@s]); set .@Style,1;
+	while(1) {
+		setlook .@Look[.@s], .@Style;
+		message strcharinfo(0),"This is style #"+.@Style+".";
+		set .@menu$, " ~ Next (^0055FF"+((.@Style!=.@Styles[.@s])?.@Style+1:1)+"^000000): ~ Previous (^0055FF"+((.@Style!=1)?.@Style-1:.@Styles[.@s])+"^000000): ~ Jump to...: ~ Revert to original (^0055FF"+.@Revert+"^000000)";
+		switch(select(.@menu$)) {
+			case 1: set .@Style, ((.@Style!=.@Styles[.@s])?.@Style+1:1); break;
+			case 2: set .@Style, ((.@Style!=1)?.@Style-1:.@Styles[.@s]); break;
+			case 3: message strcharinfo(0),"Choose a style between 1 - "+.@Styles[.@s]+".";
+				input .@Style,0,.@Styles[.@s];
+				if (!.@Style) set .@Style, rand(1,.@Styles[.@s]);
+				break;
+			case 4: set .@Style, .@Revert; setlook .@Look[.@s], .@Revert; break; }
+	} end;
+}
+\ No newline at end of file