viewing paste Advance Stylist | Text

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89
// 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;
 
                }
 
        }
 
}
 
Viewed 628 times, submitted by unknown.