// 6046, New Clothing Dye Coupon
// Euphy's Stylist NPC
 
prontera,170,180,1  script  Adv. Stylist    4_F_JP_CHROME,{
 
 
 
    setarray .@styles[1],getbattleflag("max_cloth_color"),getbattleflag("max_hair_style"),getbattleflag("max_hair_color");
 
    setarray .@Look[1],7,1,6;
 
    mes "[ ^8B008BAdvanced Stylist^000000 ]";
    mes "Hello "+strcharinfo(0)+", I am Elendir.";
    mes "I can customize your appearance (Cloth Color, Hair Style, and Hair Color) in exchange for (1) Premium Reset Stone.";
    mes "Please select the service that you want:";
 
    set .@s, select(" ~ Cloth Color", " ~ Hair Style", " ~ Hair Color");
 
    set .@Revert, getlook(.@Look[.@s]);
 
    set .@style,1;
 
 
    while(1) {
 
 
        setlook .@Look[.@s], .@style;
 
        message strcharinfo(PC_NAME),"This is style #"+.@style+".";
 
        set .@menu$, " ~ Next (^0055FF"+((.@style!=.@styles[.@s])?.@style+1:1)+"^000000): ~ Previous (^0055FF"+((.@style!=1)?.@style-1:.@styles[.@s])+"^000000): ~ Jump to...: ~ Revert to original (^0055FF"+.@Revert+"^000000): ~ I want this appearance";
 
 
        switch(select(.@menu$)) {
 
 
            case 1:
            set .@style, ((.@style!=.@styles[.@s])?.@style+1:1);
            if ( countitem(6046) < 1 ) goto dyecouponacceptance_fail;
 
 
            case 2:
            set .@style, ((.@style!=1)?.@style-1:.@styles[.@s]);
            if ( countitem(6046) < 1 ) goto dyecouponacceptance_fail;
 
            case 3:
            message strcharinfo(PC_NAME),"Choose a style between 1 - "+.@styles[.@s]+".";
            input .@style,0,.@styles[.@s];
 
            case 5:
            if ( countitem(6046) < 1 ) goto dyecoupon_fail; // Counts Clothing Coupon
            delitem 6046, 1; // Deletes New Clothing Dye Coupon
            next;
            mes "[ ^8B008BAdvanced Stylist^000000 ]";
            mes "There you go! I've successfully changed your appearance.";
            close;
 
        dyecoupon_fail:
            
            next;
            mes "[ ^8B008BAdvanced Stylist^000000 ]";
            mes "It seems you don't have a ^0000FFNew Clothing Dye Coupon^000000.";
            mes "Please come back when you have the coupon.";
            close;
 
        dyecouponacceptance_fail
            set .@style, .@Revert;
            setlook .@Look[.@s], .@Revert;
            next;
            mes "[ ^8B008BAdvanced Stylist^000000 ]";
            mes "It seems you don't have a ^0000FFNew Clothing Dye Coupon^000000.";
            mes "Please come back when you have the coupon.";
 
 
        if (!.@style) set .@style, rand(1,.@styles[.@s]);
        break;
 
 
            case 4:
            set .@style, .@Revert;
            setlook .@Look[.@s], .@Revert;
            break;
 
        }
 
    }
 
}