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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
// The Barber script has been around since before the repository split
// so it's hard to figure out who wrote it.
// o11c updated it according to new scripting standards while adding pink.
// Note: there is a soft limit of 12 colors (0-11) and 20 styles (0-19)
// This is the number that can be set when creating a character
// or using GM commands, but scripts (such as this one) can set
// any value 0-255
function|script|Barber|{
// TODO do something like this, but with names
//set @style, getlook(LOOK_HAIR_STYLE);
//set @color, getlook(LOOK_HAIR_COLOR);
//mes "Your current style is " + @style + " and your current color is " + @color + ".";
menu
"Change my style", L_Style,
"Change my color", L_Color,
"Nah, I'm fine", L_Done;
L_Style:
menu
"Bald", -,
"Flat ponytail", -,
"Bowl cut", -,
"Combed back", -,
"Emo", -,
"Mohawk", -,
"Pompadour", -,
"Center parting/Short and slick", -,
"Long and slick", -,
"Short and curly", -,
"Pigtails", -,
"Long and curly", -,
"Parted", -,
"Perky ponytail", -,
"Wave", -,
"Mane", -,
"Bun", -,
"Shoulder Length Flick", -,
"Fizzy", -,
// "Last normal style (currently displayed as bald)", -,
"Surprise me", L_RandomStyle,
"Nah, I'm fine", L_Done;
setlook LOOK_HAIR_STYLE, @menu - 1;
goto L_Done;
L_RandomStyle:
setlook LOOK_HAIR_STYLE, rand(20);
goto L_Done;
L_Color:
menu
"Brunette", -,
"Green", -,
"Dark red", -,
"Light purple", -,
"Gray", -,
"Blonde", -,
"Teal", -,
"Light red", -,
"Blue", -,
"Dark purple", -,
"Black", -,
"Pink", -,
"Surprise me", L_RandomColor,
"Nah, I'm fine", L_Done;
setlook LOOK_HAIR_COLOR, @menu - 1;
goto L_Done;
L_RandomColor:
setlook LOOK_HAIR_COLOR, rand(12);
goto L_Done;
L_Done:
// cleanup
set @menu, 0;
//set @style, 0;
//set @color, 0;
return;
}
|
