viewing paste No more Stylist requests. | 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
//===== rAthena Script =======================================
//= Stylist
//===== By: ==================================================
//= Euphy
//===== Current Version: =====================================
//= 1.0
//===== Compatible With: =====================================
//= rAthena SVN
//===== Description: =========================================
//= Changes your hair style, hair color, and cloth color.
//============================================================
 
prontera,170,180,1      script  Stylist#custom_stylist  122,{
 
        setarray .@Styles[1],553,37,250;        // Maximum dye, hair style, and hair color
 
        setarray .@Look[1],7,1,6;
        set .@s, select(" ~ Cloth color: ~ Hairstyle: ~ Hair color"); set @Look, .@Look[.@s];
        set @Revert, getlook(.@Look[.@s]); set .@Style,1;
        addtimer 1000, strnpcinfo(1)+"::OnLeave";
        while(1) {
                setlook .@Look[.@s], .@Style;
                message strcharinfo(0),"This is style #"+.@Style+".";
                set .@menu$, " ~ Confirm: ~ 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)";
                switch(select(.@menu$)) {
                        case 1: set @Look,0; close;
                        case 2: set .@Style, ((.@Style!=.@Styles[.@s])?.@Style+1:1); break;
                        case 3: set .@Style, ((.@Style!=1)?.@Style-1:.@Styles[.@s]); break;
                        case 4: message strcharinfo(0),"Choose a style between 1 - "+.@Styles[.@s]+".";
                                input .@Style,0,.@Styles[.@s];
                                if (!.@Style) set .@Style, rand(1,.@Styles[.@s]);
                                break;
                        case 5: set .@Style, @Revert; setlook .@Look[.@s], @Revert; break; }
        } end;
OnLeave:
        if (@Look) setlook @Look, @Revert;
        end;
}
Viewed 320 times, submitted by unknown.