From 6aaa6af952e55b860b7df51772384164e70768e9 Mon Sep 17 00:00:00 2001
From: jesusalva <cpntb1@ymail.com>
Date: Wed, 14 Feb 2018 23:57:24 -0200
Subject: This askes logmes to log at LOGMES_ ATCOMMAND and includes a draft
 about barber

---
 npc/003-1/tamiloc.txt | 73 +++++++++++++++++++++++++++++++++++++++++++++++++--
 1 file changed, 71 insertions(+), 2 deletions(-)

(limited to 'npc/003-1/tamiloc.txt')

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;
-- 
cgit v1.2.3-70-g09d2