This askes logmes to log at LOGMES_ ATCOMMAND and includes a draft about barber

1 files changed, 71 insertions, 2 deletions

diff --git a/npc/003-1/tamiloc.txt b/npc/003-1/tamiloc.txt
index 6d42a41e0..9d6519ad4 100644
--- a/npc/003-1/tamiloc.txt
+++ b/npc/003-1/tamiloc.txt
@@ -1,11 +1,80 @@
 // TMW2 scripts.
 // Authors:
 //    Saulc
-
+//    Jesusalva
+//    The Evol Team (debug-look.txt)
+// Description:
+//    For a while, the Barber will be Tamiloc, until we either move it or keep it.
 
 003-1,49,43,0	script	Tamiloc	NPC_ELVEN_FEMALE_ARMOR_SHOP,{
+    function setStyle {
+        clear;
+        mes l("Hair style") + ": " + getlook(LOOK_HAIR);
+        next;
+        mes l("Please enter the desired hair style");
+        switch (select("Bald:Bowl Cut:Combed Back:Emo:Mohawk:Pompadour:Center Parting:Long and Slick:Short and Curly:Pigtails:Long and Curly:Parted:Perky Ponytail:Wave:Mane:Bun:Wavy:Bunches:Long Ponytail:Infinitely Long:Choppy:Wild:Punk:Imperial:Side Strand:Messy:Flat Ponytail:Tapered Nape"))
+        {
+            default:
+                setlook LOOK_HAIR, max(1, @menu);
+        }
+        return;
+    }
+    function setColor {
+        clear;
+        mes l("Hair color") + ": " + getlook(LOOK_HAIR_COLOR);
+        next;
+        mes l("Please enter the desired hair color");
+        switch (select("Off Black:Ash Brown:Dark Brown:Dark Copper:Auburn Brown:Honey Brown:Copper Blonde:Golden Blonde:Pure Platinum:Cherry Blossom:Pinky Pink:Fire Red:Light Violet:Purple Plum:Navy Blue:Lagoon Blue:Twisted Teal:Spring Green:Forest Green:Silver Grey:Royal Blue"))
+        {
+            default:
+                setlook LOOK_HAIR_COLOR, max(0, @menu-1);
+        }
+        return;
+    }
+    function setRace {
+        clear;
+        setnpcdialogtitle l("Debug - Race");
+        mes l("Race") + ": " + Class;
+        next;
+        mes l("Please enter 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?");
+    mes l("Hair style") + ": " + getlook(LOOK_HAIR);
+    mes l("Hair color") + ": " + getlook(LOOK_HAIR_COLOR);
+
+    if (getgmlevel())
+        mes l("Race") + ": " + Class;
+
+        select
+            l("Hair style"),
+            l("Hair color"),
+            rif(getgmlevel(), l("Race")),
+            l("Abort");
+
+        switch (@menu)
+        {
+            case 1: setStyle; break;
+            case 2: setColor; break;
+            case 3: setRace; break;
+            case 4: close;
+        }
+    close;
 
-    hello;
 
 OnInit:
     .sex = G_FEMALE;