path: root/world/map/npc/009-2/selim.txt

//#################################################################################
//#                                                                               #
//# 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|142,{
    setarray @all_colours$, "red", "green", "dark blue", "yellow", "light blue", "pink", "black", "orange", "purple", "dark green";
    setarray @all_colours_cap$, "Red", "Green", "Dark Blue", "Yellow", "Light Blue", "Pink", "Black", "Orange", "Purple", "Dark Green";

    mes "[Selim]";
    mes "\"What can I dye for you today?\"";
    set QUEST_clothdyer_state, 3;
    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,
        "Red lined sorcerer robe", L_redlinedsorcererrobe,
        "Bowler hat (brown)", L_bowlerhatbrown,
        "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$, "tanktop";
    goto L_picked_item;

L_tanktop_short:
    set @del, 689;
    set @new, 2120;
    set @name$, "short tanktop";
    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_redlinedsorcererrobe:
    set @del, 798;
    set @new, 2220;
    set @name$, "red 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_picked_item:
    if (countitem(@del) == 0) goto L_havenone;

L_colour:
    mes "[Selim]";
    mes "\"Excellent.  Now, what color do you want?\"";
    next;
    menu
        @all_colours_cap$[0], -,
        @all_colours_cap$[1], -,
        @all_colours_cap$[2], -,
        @all_colours_cap$[3], -,
        @all_colours_cap$[4], -,
        @all_colours_cap$[5], -,
        @all_colours_cap$[6], -,
        @all_colours_cap$[7], -,
        @all_colours_cap$[8], -,
        @all_colours_cap$[9], -;
        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.\"";
    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;
}