Add barber functions.

2 files changed, 87 insertions, 0 deletions

diff --git a/npc/functions/barber.txt b/npc/functions/barber.txt
new file mode 100644
index 00000000..db92a1c8
--- /dev/null
+++ b/npc/functions/barber.txt
@@ -0,0 +1,86 @@
+// Evol scripts.
+// Authors:
+//    Reid
+// Description:
+//    Function for supporting barber NPC.
+
+function	script	Barber	{
+    menu
+        l("I'd like to get a different style."), L_Style,
+        l("Can you do something with my color?"), L_Color,
+        l("Hmm, I'm fine for now, thank you."), L_Done;
+
+    goto L_Done;
+
+L_Style:
+    menu
+        l("Bald"), -,
+        l("Bowl cut"), -,
+        l("Combed back"), -,
+        l("Emo"), -,
+        l("Mohawk"), -,
+        l("Pompadour"), -,
+        l("Center parting"), -,
+        l("Long and slick"), -,
+        l("Short and curly"), -,
+        l("Pigtails"), -,
+        l("Long and curly"), -,
+        l("Parted"), -,
+        l("Perky ponytail"), -,
+        l("Wave"), -,
+        l("Mane"), -,
+        l("Bun"), -,
+        l("Wavy"), -,
+        l("Bunches"), -,
+        l("Long ponytail"), -,
+        l("Infinitely long"), -,
+        l("Choppy"), -,
+        l("Wild"), -,
+        l("Punk"), -,
+        l("Imperial"), -,
+        l("Side strand"), -,
+        l("Messy"), -,
+        l("Flat ponytail"), -,
+        l("Tapered Nape"), -,
+        l("As you want!"), -,
+        l("Hmm, I'm fine for now, thank you."), L_Done;
+
+L_Process_Style:
+    set @style, @menu;
+    if (@style == 29) set @style, rand(28);
+    setlook 1, @style;
+    return;
+
+L_Color:
+    menu
+        l("Off black"), -,
+        l("Ash brown"), -,
+        l("Dark brown"), -,
+        l("Dark copper"), -,
+        l("Auburn brown"), -,
+        l("Honey brown"), -,
+        l("Copper blonde"), -,
+        l("Golden blonde"), -,
+        l("Pure platinum"), -,
+        l("Cherry blossom"), -,
+        l("Pinky pink"), -,
+        l("Fire red"), -,
+        l("Light violet"), -,
+        l("Purple plum"), -,
+        l("Navy blue"), -,
+        l("Lagoon blue"), -,
+        l("Twisted teal"), -,
+        l("String Green"), -,
+        l("Forest Green"), -,
+        l("Silver Grey"), -,
+        l("Esperia Blue"), -,
+        l("Surprise me"), -,
+        l("Hmm, I'm fine for now, thank you."), L_Done;
+    set @color, @menu - 1;
+    if (@color == 21) set @color, rand(20);
+    setlook 6, @color;
+    return;
+
+L_Done:
+    return;
+}
diff --git a/npc/scripts.conf b/npc/scripts.conf
index e191a5a0..927cd68a 100644
--- a/npc/scripts.conf
+++ b/npc/scripts.conf
@@ -6,6 +6,7 @@ npc: npc/items/oldbook.txt
 
 // Script functions
 npc: npc/functions/asleep.txt
+npc: npc/functions/barber.txt
 npc: npc/functions/clientversion.txt
 npc: npc/functions/doors.txt
 npc: npc/functions/hammocks.txt