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
|
//===== Hercules Script ======================================
//= Stylist
//===== By: ==================================================
//= Euphy
//===== Current Version: =====================================
//= 1.1
//===== Description: =========================================
//= Changes your hair style, hair color, and cloth color.
//===== Additional Comments: =================================
//= 1.1 Switched to 'getbattleflag', credits to Saithis. [Euphy]
//============================================================
prontera,170,180,1 script Stylist#custom_stylist 2_M_DYEINGER,{
setarray .@styles[1],getbattleflag("max_cloth_color"),getbattleflag("max_hair_style"),getbattleflag("max_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(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)";
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(PC_NAME),"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;
}
}
}
|
