path: root/npc/new_3-1-tulimshar/bleacher.txt

//

new_3-1.gat,27,53,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(701) < 3) goto L_no_ash;
    
    if (zeny < 5000) goto L_no_money;
    
    menu "I'd like to bleach something", -,
         "No thanks", L_close;
    
L_bleach_menu:
    mes "[Candide]";
    mes "\"What would you like to bleach?\"";
    next;
    
    menu "Cotton shirt", L_cottonshirt,
         "V-Neck sweater", L_vneck,
         "Turtleneck sweater", L_tneck,
         "Cotton shorts", L_shorts,
         "Cotton skirt", L_skirt,
         "Tank top ", L_tanktop,
         "Short tank top", L_tanktop_short,
         "Silk robe", L_robe,
         "Nevermind", -;
    goto L_close;
    
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_skirt:
    set @normal, 632;
    set @dyeBase, 2100;
    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_choose_color:
    mes "[Candide]";
    mes "\"And the color?\"";
    next;
    
    menu "Red", -,
         "Green", -,
         "Dark Blue", -,
         "Yellow", -,
         "Light Blue", -,
         "Pink", -,
         "Black", -,
         "Orange", -,
         "Purple", -,
         "Dark Green", -;
     
    set @del, @dyeBase + @menu - 1;
    
    if (countitem(@del) == 0) goto L_no_item;
    
    if (countitem(701) < 3) goto L_no_ash;
    
    if (zeny < 5000) goto L_no_money;
    
    delitem @del, 1;
    getitem @normal, 1;
    delitem 701, 3;
    set zeny, zeny - 5000;
    
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.\"";
    next;
    
    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.\"";
    next;
    
L_close:
    mes "[Candide]";
    mes "\"Come again.\"";
    close;
}