//===== 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; }