viewing paste Unknown #17669 | Athena

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
prontera,134,190,5  script  Stylist#balikRO 122,{
    setarray .@styles[1],getbattleflag("max_cloth_color"),getbattleflag("max_hair_style"),getbattleflag("max_hair_color");
    setarray .@Look[1],LOOK_CLOTHES_COLOR,LOOK_HAIR,LOOK_HAIR_COLOR;
    set s_select, select(" ~ Cloth color: ~ Hairstyle: ~ Hair color");
    .@t_start = (s_select-1)*2;
    switch(s_select){
        case 1:
            message strcharinfo(0)," I take "+.event_ticket[1]+" "+getitemname(.event_ticket[0])+" For Changing Cloth Color";
            break;
        case 2:
            message strcharinfo(0)," I take "+.event_ticket[3]+" "+getitemname(.event_ticket[2])+" For Changing HairStyle";
            break;
        case 3:
            message strcharinfo(0)," I take "+.event_ticket[5]+" "+getitemname(.event_ticket[4])+" For Changing Hair Color";
            break;
    }
    if (countitem(.event_ticket[.@t_start]) < .event_ticket[.@t_start+1]){  //Check one more time.
        message strcharinfo(0), "You don't have enough "+getitemname(.event_ticket[.@t_start]);
        end;
    }
    set RevertStyle, getlook(.@Look[s_select]); //Original Style
    set .@style,1;
    set StyleCost,1;
               addtimer 1000,strnpcinfo(3)+"::OnResetLook";
    while(1) {
        setlook .@Look[s_select], .@style;
        message strcharinfo(0),"This is style #"+.@style+".";
        set .@menu$, "~ Confirm the Style: ~ Next (^0055FF"+((.@style!=.@styles[s_select])?.@style+1:1)+"^000000): ~ Previous (^0055FF"+((.@style!=1)?.@style-1:.@styles[s_select])+"^000000): ~ Jump to...: ~ Revert to original (^0055FF"+.@Revert+"^000000)";
        switch(select(.@menu$)) {
            case 1:
                if (RevertStyle == .@style){
                    message strcharinfo(0),"Same Style has been chosen";
                    break;
                }
                if (countitem(.event_ticket[.@t_start]) < .event_ticket[.@t_start+1]){  //Check one more time.
                    message strcharinfo(0), "You don't have enough "+getitemname(.event_ticket[.@t_start]);
                    end;
                }
                                                          mes " Style Changed";
                set StyleCost,0;
                delitem .event_ticket[.@t_start],.event_ticket[.@t_start+1];
                close;
            case 2: set .@style, ((.@style!=.@styles[s_select])?.@style+1:1); break;
            case 3: set .@style, ((.@style!=1)?.@style-1:.@styles[s_select]); break;
            case 4: message strcharinfo(0),"Choose a style between 1 - "+.@styles[s_select]+".";
                input .@style,0,.@styles[s_select];
                if (!.@style) set .@style, rand(1,.@styles[s_select]);
                break;
            case 5: set .@style, RevertStyle; setlook .@Look[s_select], RevertStyle; break;
        }
    }
    end;
OnResetLook:
    if (StyleCost==1){
        setarray .@Look[1],LOOK_CLOTHES_COLOR,LOOK_HAIR,LOOK_HAIR_COLOR;
        setlook .@Look[s_select], RevertStyle;
        message strcharinfo(0),"Style Reset to Normal";
    }
    end;
    
OnInit:
    setarray .event_ticket[0],20014,1//Cloth Color
    setarray .event_ticket[2],20014,1//Hair Style
    setarray .event_ticket[4],20014,1//Hair Color
}
Viewed 579 times, submitted by Guest.