//#################################################################################
//#                                                                               #
//# This script file contains the script for the cloth dyer.   It has been        #
//# revised to require dye items; collaborating NPCs are Selim and Angus.         #
//#                                                                               #
//#################################################################################

009-2.gat,32,104,0|script|Selim|326,
{
    setarray @all_colours$, "red", "green", "dark blue", "yellow", "light blue", "pink", "black", "orange", "purple", "dark green";

    mes "[Selim]";
    mes "\"What can I dye for you today?\"";
    next;

L_clothes_choice:
    set @pronoun$, "it";
    set @is_verb$, "is";
    menu
        "Cotton shirt.", L_cottonshirt,
        "V-Neck sweater.", L_vneck,
        "Turtleneck sweater.", L_tneck,
        "Cotton shorts.", L_shorts,
        "Cotton trousers.", L_trousers,
        "Cotton skirt.", L_skirt,
        "Miniskirt.", L_miniskirt,
        "Tank top.", L_tanktop,
        "Short tank top.", L_tanktop_short,
        "Silk robe.", L_robe,
        "Cotton headband.", L_headband,
        "Desert hat.", L_desert_hat,
        "Cotton boots.", L_cottonboots,
        "Cotton gloves.", L_cottongloves,
        "Rabbit ears.", L_rabbitears,
        "Wizard hat.", L_wizardhat,
        "Bowler hat.", L_bowlerhat,
        "Sorcerer robe.", L_sorcererrobe,
        "Bowler hat (brown).", L_bowlerhatbrown,
        "Fine dress.", L_finedress,
        "About these sorcerer robes...", L_asksorcererrobe,
        "I'm fine for now, thanks.", -;
    close;

L_cottonshirt:
    set @del, 1202;
    set @new, 2050;
    set @name$, "cotton shirt";
    goto L_picked_item;

L_vneck:
    set @del, 624;
    set @new, 2060;
    set @name$, "V-neck sweater";
    goto L_picked_item;

L_tneck:
    set @del, 564;
    set @new, 2070;
    set @name$, "turtleneck sweater";
    goto L_picked_item;

L_shorts:
    set @del, 586;
    set @new, 2110;
    set @name$, "cotton shorts";
    set @pronoun$, "them";
    set @is_verb$, "are";
    goto L_picked_item;

L_trousers:
    set @del, 648;
    set @new, 2180;
    set @name$, "cotton trousers";
    set @pronoun$, "them";
    set @is_verb$, "are";
    goto L_picked_item;

L_skirt:
    set @del, 632;
    set @new, 2100;
    set @name$, "cotton skirt";
    goto L_picked_item;

L_miniskirt:
    set @del, 771;
    set @new, 2170;
    set @name$, "miniskirt";
    goto L_picked_item;

L_tanktop:
    set @del, 688;
    set @new, 2090;
    set @name$, "tank top";
    goto L_picked_item;

L_tanktop_short:
    set @del, 689;
    set @new, 2120;
    set @name$, "short tank top";
    goto L_picked_item;

L_robe:
    set @del, 720;
    set @new, 2080;
    set @name$, "silk robe";
    goto L_picked_item;

L_headband:
    set @del, 724;
    set @new, 2140;
    set @name$, "cotton headband";
    goto L_picked_item;

L_desert_hat:
    set @del, 723;
    set @new, 2130;
    set @name$, "desert hat";
    goto L_picked_item;

L_cottonboots:
    set @del, 735;
    set @new, 2150;
    set @name$, "cotton boots";
    goto L_picked_item;

L_cottongloves:
    set @del, 741;
    set @new, 2160;
    set @name$, "cotton gloves";
    goto L_picked_item;

L_rabbitears:
    set @del, 1255;
    set @new, 2190;
    set @name$, "rabbit ears";
    set @pronoun$, "them";
    set @is_verb$, "are";
    goto L_picked_item;

L_wizardhat:
    set @del, 4028;
    set @new, 2200;
    set @name$, "wizard hat";
    goto L_picked_item;

L_bowlerhat:
    set @del, 4030;
    set @new, 2210;
    set @name$, "bowler hat";
    goto L_picked_item;

L_sorcererrobe:
    mes "[Selim]";
    mes "\"Which one?\"";
    next;
    menu
        "A red lined one.", L_redlinedsorcererrobe,
        "A green lined one.", L_greenlinedsorcererrobe,
        "A dark blue lined one.", L_darkbluelinedsorcererrobe,
        "A yellow lined one.", L_yellowlinedsorcererrobe,
        "A light blue lined one.", L_lightbluelinedsorcererrobe,
        "A pink lined one.", L_pinklinedsorcererrobe,
        "A black lined one.", L_blacklinedsorcererrobe,
        "An orange lined one.", L_orangelinedsorcererrobe,
        "A purple lined one.", L_purplelinedsorcererrobe,
        "A dark green lined one.", L_darkgreenlinedsorcererrobe,
        "A white lined one.", L_whitelinedsorcererrobe,
        "I'm fine for now, thanks.", -;
    close;

L_redlinedsorcererrobe:
    set @del, 798;
    set @new, 2220;
    set @name$, "red lined sorcerer robe";
    goto L_picked_item;

L_greenlinedsorcererrobe:
    set @del, 5010;
    set @new, 5000;
    set @name$, "green lined sorcerer robe";
    goto L_picked_item;

L_darkbluelinedsorcererrobe:
    set @del, 5021;
    set @new, 5011;
    set @name$, "dark blue lined sorcerer robe";
    goto L_picked_item;

L_yellowlinedsorcererrobe:
    set @del, 5032;
    set @new, 5022;
    set @name$, "yellow lined sorcerer robe";
    goto L_picked_item;

L_lightbluelinedsorcererrobe:
    set @del, 5043;
    set @new, 5033;
    set @name$, "light blue lined sorcerer robe";
    goto L_picked_item;

L_pinklinedsorcererrobe:
    set @del, 5054;
    set @new, 5044;
    set @name$, "pink lined sorcerer robe";
    goto L_picked_item;

L_blacklinedsorcererrobe:
    set @del, 5065;
    set @new, 5055;
    set @name$, "black lined sorcerer robe";
    goto L_picked_item;

L_orangelinedsorcererrobe:
    set @del, 5076;
    set @new, 5066;
    set @name$, "orange lined sorcerer robe";
    goto L_picked_item;

L_purplelinedsorcererrobe:
    set @del, 5087;
    set @new, 5077;
    set @name$, "purple lined sorcerer robe";
    goto L_picked_item;

L_darkgreenlinedsorcererrobe:
    set @del, 5098;
    set @new, 5088;
    set @name$, "dark green lined sorcerer robe";
    goto L_picked_item;

L_whitelinedsorcererrobe:
    set @del, 5109;
    set @new, 5099;
    set @name$, "white lined sorcerer robe";
    goto L_picked_item;

L_bowlerhatbrown:
    set @del, 800;
    set @new, 2230;
    set @name$, "bowler hat (brown)";
    goto L_picked_item;

L_finedress:
    set @del, 870;
    set @new, 2240;
    set @name$, "fine dress";
    goto L_picked_item;

L_cottoncloth:
    set @del, 660;
    set @new, 2250;
    set @name$, "cotton cloth";
    goto L_picked_item;

L_asksorcererrobe:
    mes "[Selim]";
    mes "\"Yes?\"";
    next;
    menu
        "Do you think you can dye that line to a different color?", -;
    mes "[Selim]";
    mes "\"Hum, I fear I can't do that. The area is too small and I can operate only on large ones.";
    mes "But with the appropriate materials, maybe a talented tailor can make the change.\"";
    next;
    menu
        "Oh, I see!", -;
    mes "[Selim]";
    mes "\"Of course I can help you by dyeing the materials your tailor will want.";
    mes "All I need is a piece of Cotton Cloth.\"";
    menu
        "Sure. Here is one.", L_cottoncloth,
        "I have to go pick that.", -;
    close;

L_picked_item:
    if (countitem(@del) == 0) goto L_havenone;

L_colour:
    mes "[Selim]";
    mes "\"Excellent.  Now, what color do you want?\"";
    next;
    menu
        "Red.", -,
        "Green.", -,
        "Dark Blue.", -,
        "Yellow.", -,
        "Light Blue.", -,
        "Pink.", -,
        "Black.", -,
        "Orange.", -,
        "Purple.", -,
        "Dark Green.", -;
    set @colour, @menu - 1;
    set @vial, 690 + @colour;
    if (countitem(@vial) == 0) goto L_no_dye;
    goto L_finish;

L_no_dye:
    mes "[Selim]";
    mes "\"I would love to dye your " + @name$ + " for you, but you will have to bring me some " + @all_colours$[@colour] + " dye first.";
    mes "Those behind me are nearly empty and won't last for your item.\"";
    next;
    menu
        "Sorry, I meant a different color.", L_colour,
        "I wanted to dye a different item anyway.", L_clothes_choice,
        "What do you mean, `bring you dye'?", L_explain_dye,
        "Where would I get dye?", L_explain_dye,
        "Never mind.", -;
    close;

L_explain_dye:
    if (QUEST_clothdyer_knowsdye < 1)
        set QUEST_clothdyer_knowsdye, 1;
    mes "[Selim]";
    mes "\"Well, dye is very expensive, and since I don't charge adventurers anything, I can't give you any for free.";
    mes "But most alchemists can make dye; perhaps you can find one around here.\"";
    close;

L_finish:
    if (countitem(@del) == 0)
        goto L_havenone;
    delitem @vial, 1;
    delitem @del, 1;
    getitem @new + @colour, 1;
    mes "[Selim]";
    mes "\"Here " + @is_verb$ + " your " + @all_colours$[@colour] + " " + @name$ + "!  Please let " + @pronoun$ + " dry for a minute before you put " + @pronoun$ + " on.\"";
    close;

L_havenone:
    mes "[Selim]";
    mes "\"You don't have any uncolored " + @name$ + "?  That's unfortunate.";
    mes "Would you like to dye something else?\"";
    next;
    goto L_clothes_choice;
}