| 123456789101112131415161718192021222324252627282930313233 |
- //===== 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 .@Revert, getlook(.@Look[.@s]); set .@Style,1;
- while(1) {
- setlook .@Look[.@s], .@Style;
- message strcharinfo(0),"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)";
- switch(select(.@menu$)) {
- case 1: set .@Style, ((.@Style!=.@Styles[.@s])?.@Style+1:1); break;
- case 2: set .@Style, ((.@Style!=1)?.@Style-1:.@Styles[.@s]); break;
- case 3: 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 4: set .@Style, .@Revert; setlook .@Look[.@s], .@Revert; break; }
- } end;
- }
|
