From 6a0c87dbd7bf00241c3bd77244e059358ca7fe94 Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Sun, 3 Jun 2018 15:39:53 -0300
Subject: Hurnscald Barber (sorry, I was lazy to give her a proper name)

---
 npc/012-1/_import.txt |  1 +
 npc/012-1/locamit.txt | 72 +++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 73 insertions(+)
 create mode 100644 npc/012-1/locamit.txt

diff --git a/npc/012-1/_import.txt b/npc/012-1/_import.txt
index 6142faf31..f9c6ef80f 100644
--- a/npc/012-1/_import.txt
+++ b/npc/012-1/_import.txt
@@ -6,6 +6,7 @@
 "npc/012-1/dyrinthetraveler.txt",
 "npc/012-1/gwendolyn.txt",
 "npc/012-1/jack.txt",
+"npc/012-1/locamit.txt",
 "npc/012-1/mapflags.txt",
 "npc/012-1/richard.txt",
 "npc/012-1/soul-menhir.txt",
diff --git a/npc/012-1/locamit.txt b/npc/012-1/locamit.txt
new file mode 100644
index 000000000..c4acd9d7e
--- /dev/null
+++ b/npc/012-1/locamit.txt
@@ -0,0 +1,72 @@
+// TMW2 scripts.
+// Authors:
+//    Saulc
+//    Jesusalva
+//    Reid
+//    Travolta
+// Description:
+//    Tamiloc is the barber.
+//    Locamit is an anagram.
+
+012-1,60,73,0	script	Locamit	NPC_ELVEN_FEMALE_ARMOR_SHOP,{
+    function setRace {
+        clear;
+        setnpcdialogtitle l("Debug - Modify Race");
+        mes l("Race") + ": " + $@allraces$[Class];
+        next;
+        mes l("Please select the desired race.");
+        switch (select("Human:Ukar:Redy:Elf:Orc:Raijin:Tritan"))
+        {
+            default:
+                jobchange max(0, @menu-1);
+        }
+        return;
+    }
+
+
+    mesn;
+    mesq l("Hi! Do you want a hair cut?");
+
+    do
+    {
+        select
+            l("What is my current hairstyle and hair color?"),
+            l("I'd like to get a different style."),
+            l("Can you do something with my color?"),
+            rif(is_staff(), l("I am a GM, and I want to change my Race!")),
+            l("I'm fine for now, thank you.");
+
+        switch (@menu) {
+            case 1:
+                BarberSayStyle 3;
+                break;
+            case 2:
+                BarberChangeStyle;
+                speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                    l("Enjoy your new style.");
+                    l("Anything else?");
+                break;
+            case 3:
+                BarberChangeColor;
+                speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                    l("I hope you like this color.");
+                    l("Anything else?");
+                break;
+            case 4:
+                setRace;
+                break;
+            case 5:
+                speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                    l("Feel free to come visit me another time.");
+
+                goodbye;
+        }
+    } while (1);
+    close;
+
+
+OnInit:
+    .sex = G_FEMALE;
+    .distance = 5;
+    end;
+}
-- 
cgit v1.2.3-70-g09d2