1 files changed, 66 insertions, 0 deletions
diff --git a/npc/functions/barber.txt b/npc/functions/barber.txt
new file mode 100644
index 00000000..0edaab73
--- /dev/null
+++ b/npc/functions/barber.txt
@@ -0,0 +1,66 @@
+//
+
+function	script	Barber	{
+	menu
+		"Change my style", L_Style,
+		"Change my color", L_Color,
+		"Nah, I'm fine", L_Done;
+
+L_Style:
+	if (Sex == 0) goto L_Style_Female;
+	
+L_Style_Male:
+	menu
+		"Bald", -,
+		"Ponytail", -,
+		"Bowl cut", -,
+		"Combed back", -,
+		"Emo", -,
+		"Mohawk", -,
+		"Pompadour", -,
+		"Center parting", -,
+		"Supprise me", -,
+		"Nah, I'm fine", close;
+		goto L_Process_Style;
+
+L_Style_Female:
+	menu
+		"Bald", -,
+		"Long and slick", -,
+		"Short and curly", -,
+		"Ponytail", -,
+		"Pigtails", -,
+		"Long and curly", -,
+		"Parted", -,
+		"Short and slick", -,
+		"Supprise me", -,
+		"Nah, I'm fine", L_Done;
+
+L_Process_Style:
+	set @style, @menu - 1;
+	if (@style == 8) set @style, rand(8);
+	setlook 1, @style;
+	return;
+
+L_Color:
+	menu
+		"Brunette", -,
+		"Green", -,
+		"Dark red", -,
+		"Light purple", -,
+		"Gray", -,
+		"Blonde", -,
+		"Teal", -,
+		"Light red", -,
+		"Blue", -,
+		"Dark purple", -,
+		"Supprise me", -,
+		"Nah, I'm fine", L_Done;
+	set @color, @menu - 1;
+	if (@color == 10) set @color, rand(10);
+	setlook 6, @color;
+	return;
+
+L_Done:
+	return;
+}