//

001-1.gat,29,50,0|script|Candide|156,
{
    mes "[Candide]";
    mes "\"I've figured out how that volcanic ash bleaches cloth.";
    mes "I could do it for you, but I'll need three piles of ash and 5,000 GP for supplies per item.\"";
    next;

    if (countitem("PileOfAsh") < 3) goto L_no_ash;

    if (Zeny < 5000) goto L_no_money;

    menu
        "I'd like to bleach something.", L_bleach_menu,
        "No thanks.", L_Close;

L_bleach_menu:
    mes "[Candide]";
    mes "\"What would you like to bleach?\"";
    next;

    menu
        "Cotton shirt.", L_cottonshirt,
        "Contributor shirt.", L_contributor,
        "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_cotton_headband,
        "Desert hat.", L_desert_hat,
        "Cotton boots.", L_cotton_boots,
        "Cotton gloves.", L_cotton_gloves,
        "Rabbit ears.", L_rabbit_ears,
        "Wizard hat.", L_wizard_hat,
        "Bowler hat.", L_bowler_hat,
        "Sorcerer robe.", L_sorcerer_robe,
        "Bowler hat (brown).", L_bowler_hat_brown,
        "Fine dress.", L_fine_dress,
        "Cotton cloth.", L_cotton_cloth,
        "Nevermind.", L_Close;

L_contributor:
    set @normal, 1178;
    set @dyeBase, 5131;
    goto L_choose_color;

L_cottonshirt:
    set @normal, 1202;
    set @dyeBase, 2050;
    goto L_choose_color;

L_vneck:
    set @normal, 624;
    set @dyeBase, 2060;
    goto L_choose_color;

L_tneck:
    set @normal, 564;
    set @dyeBase, 2070;
    goto L_choose_color;

L_shorts:
    set @normal, 586;
    set @dyeBase, 2110;
    goto L_choose_color;

L_trousers:
    set @normal, 648;
    set @dyeBase, 2180;
    goto L_choose_color;

L_skirt:
    set @normal, 632;
    set @dyeBase, 2100;
    goto L_choose_color;

L_miniskirt:
    set @normal, 771;
    set @dyeBase, 2170;
    goto L_choose_color;

L_tanktop:
    set @normal, 688;
    set @dyeBase, 2090;
    goto L_choose_color;

L_tanktop_short:
    set @normal, 689;
    set @dyeBase, 2120;
    goto L_choose_color;

L_robe:
    set @normal, 720;
    set @dyeBase, 2080;
    goto L_choose_color;

L_cotton_headband:
    set @normal, 724;
    set @dyeBase, 2140;
    goto L_choose_color;

L_desert_hat:
    set @normal, 723;
    set @dyeBase, 2130;
    goto L_choose_color;

L_cotton_boots:
    set @normal, 735;
    set @dyeBase, 2150;
    goto L_choose_color;

L_cotton_gloves:
    set @normal, 741;
    set @dyeBase, 2160;
    goto L_choose_color;

L_rabbit_ears:
    set @normal, 1255;
    set @dyeBase, 2190;
    goto L_choose_color;

L_wizard_hat:
    set @normal, 4028;
    set @dyeBase, 2200;
    goto L_choose_color;

L_bowler_hat:
    set @normal, 4030;
    set @dyeBase, 2210;
    goto L_choose_color;

L_sorcerer_robe:
    mes "[Candide]";
    mes "\"Which one?\"";
    next;
    menu
        "A red lined one.", L_red_lined_sorcerer_robe,
        "A green lined one.", L_green_lined_sorcerer_robe,
        "A dark blue lined one.", L_dark_blue_lined_sorcerer_robe,
        "A yellow lined one.", L_yellow_lined_sorcerer_robe,
        "A light blue lined one.", L_light_blue_lined_sorcerer_robe,
        "A pink lined one.", L_pink_lined_sorcerer_robe,
        "A black lined one.", L_black_lined_sorcerer_robe,
        "An orange lined one.", L_orange_lined_sorcerer_robe,
        "A purple lined one.", L_purple_lined_sorcerer_robe,
        "A dark green lined one.", L_dark_green_lined_sorcerer_robe,
        "A white lined one.", L_white_lined_sorcerer_robe,
        "Nevermind.", L_Close;

L_red_lined_sorcerer_robe:
    set @normal, 798;
    set @dyeBase, 2220;
    goto L_choose_color;

L_green_lined_sorcerer_robe:
    set @normal, 5010;
    set @dyeBase, 5000;
    goto L_choose_color;

L_dark_blue_lined_sorcerer_robe:
    set @normal, 5021;
    set @dyeBase, 5011;
    goto L_choose_color;

L_yellow_lined_sorcerer_robe:
    set @normal, 5032;
    set @dyeBase, 5022;
    goto L_choose_color;

L_light_blue_lined_sorcerer_robe:
    set @normal, 5043;
    set @dyeBase, 5033;
    goto L_choose_color;

L_pink_lined_sorcerer_robe:
    set @normal, 5054;
    set @dyeBase, 5044;
    goto L_choose_color;

L_black_lined_sorcerer_robe:
    set @normal, 5065;
    set @dyeBase, 5055;
    goto L_choose_color;

L_orange_lined_sorcerer_robe:
    set @normal, 5076;
    set @dyeBase, 5066;
    goto L_choose_color;

L_purple_lined_sorcerer_robe:
    set @normal, 5087;
    set @dyeBase, 5077;
    goto L_choose_color;

L_dark_green_lined_sorcerer_robe:
    set @normal, 5098;
    set @dyeBase, 5088;
    goto L_choose_color;

L_white_lined_sorcerer_robe:
    set @normal, 5109;
    set @dyeBase, 5099;
    goto L_choose_color;

L_bowler_hat_brown:
    set @normal, 800;
    set @dyeBase, 2230;
    goto L_choose_color;

L_fine_dress:
    set @normal, 870;
    set @dyeBase, 2240;
    goto L_choose_color;

L_cotton_cloth:
    set @normal, 660;
    set @dyeBase, 2250;
    goto L_choose_color;

L_choose_color:
    mes "[Candide]";
    mes "\"And the color?\"";
    next;

    menu
        "Red.", L_MenuItems,
        "Green.", L_MenuItems,
        "Dark Blue.", L_MenuItems,
        "Yellow.", L_MenuItems,
        "Light Blue.", L_MenuItems,
        "Pink.", L_MenuItems,
        "Black.", L_MenuItems,
        "Orange.", L_MenuItems,
        "Purple.", L_MenuItems,
        "Dark Green.", L_MenuItems;

L_MenuItems:
    set @del, @dyeBase + @menu - 1;

    if (countitem(@del) == 0) goto L_no_item;

    if (countitem("PileOfAsh") < 3) goto L_no_ash;

    if (Zeny < 5000) goto L_no_money;

    delitem @del, 1;
    getitem @normal, 1;
    delitem "PileOfAsh", 3;
    set Zeny, Zeny - 5000;
    goto L_again;

L_again:
    mes "[Candide]";
    mes "\"Would you like to bleach something else?\"";
    next;

    menu
        "Yes.", L_bleach_menu,
        "No.", L_Close;

L_no_item:
    mes "[Candide]";
    mes "\"You don't have one of those.\"";
    next;

    goto L_again;

L_no_ash:
    mes "[Candide]";
    mes "\"You don't have enough ash for me to bleach anything.";
    mes "I need three piles.\"";
    goto L_Close;

L_no_money:
    mes "[Candide]";
    mes "\"You don't have enough gold for me to bleach anything.";
    mes "I need 5,000 GP for supplies.\"";
    goto L_Close;

L_Close:
    mes "[Candide]";
    mes "\"Come again.\"";
    set @normal, 0;
    set @dyeBase, 0;
    set @del, 0;
    close;
}