Move to a subdirectory

1 files changed, 63 insertions, 0 deletions

diff --git a/world/map/npc/functions/barber.txt b/world/map/npc/functions/barber.txt
new file mode 100644
index 00000000..8d0a32e3
--- /dev/null
+++ b/world/map/npc/functions/barber.txt
@@ -0,0 +1,63 @@
+//
+
+function	script	Barber	{
+	menu
+		"Change my style", L_Style,
+		"Change my color", L_Color,
+		"Nah, I'm fine", L_Done;
+
+	goto L_Done;
+
+L_Style:
+	menu
+		"Bald", -,
+		"Flat ponytail", -,
+		"Bowl cut", -,
+		"Combed back", -,
+		"Emo", -,
+		"Mohawk", -,
+		"Pompadour", -,
+		"Center parting/Short and slick", -,
+		"Long and slick", -,
+		"Short and curly", -,
+		"Pigtails", -,
+		"Long and curly", -,
+		"Parted", -,
+		"Perky ponytail", -,
+		"Wave", -,
+		"Mane", -,
+		"Bun", -,
+		"Shoulder Length Flick", -,
+		"Fizzy", -,
+		"Surprise me", -,
+		"Nah, I'm fine", L_Done;
+
+L_Process_Style:
+	set @style, @menu - 1;
+	if (@style == 19) set @style, rand(19);
+	setlook 1, @style;
+	return;
+
+L_Color:
+	menu
+		"Brunette", -,
+		"Green", -,
+		"Dark red", -,
+		"Light purple", -,
+		"Gray", -,
+		"Blonde", -,
+		"Teal", -,
+		"Light red", -,
+		"Blue", -,
+		"Dark purple", -,
+		"Black", -,
+		"Surprise me", -,
+		"Nah, I'm fine", L_Done;
+	set @color, @menu - 1;
+	if (@color == 11) set @color, rand(11);
+	setlook 6, @color;
+	return;
+
+L_Done:
+	return;
+}