// 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;


OnInit:
    .sex = G_FEMALE;
    .distance = 5;
    end;
}