path: root/npc/functions/barber.txt

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