/
hair_dyer.txt
272 lines (271 loc) · 7.94 KB
/
hair_dyer.txt
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
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
//===== rAthena Script =======================================
//= Hair Dyer
//===== By: ==================================================
//= kobra_k88; L0ne_W0lf
//===== Current Version: =====================================
//= 1.5
//===== Compatible With: =====================================
//= rAthena Project
//===== Description: =========================================
//= Hair Dyer with standard palletes
//===== Additional Comments: =================================
//= Fully working
//= 1.1 Bugfix: fixed missing menu label LEnd->M_End [Lupus]
//= 1.2 Rescripted to Aegis 10.3 standards. [L0ne_W0lf]
//= 1.3 Fixed problem what "freezes" the NPC. (bugreport:509) [Samuray22]
//= 1.4 Fixed getlook checking the wrong color. (bugreport:2392) [L0ne_W0lf]
//= 1.5 Added Lighthalzen Hair Dying NPC. [L0ne_W0lf]
//= 1.6 Moving NPC Jovovich to Pre-Renewal [JohnnyPlayy]
//============================================================
// Lighthalzen
lhz_in02,100,134,3 script Hair Dyer#lich 850,{
mes "[Rossa]";
if (Sex == SEX_MALE) {
mes "Welcome, come in~";
mes "Oh, I see that you take";
mes "much better care of your";
mes "hair than those other boys.";
mes "Now would you like to dye";
mes "your hair another color?";
}
else {
mes "Oh, wow~ Where did";
mes "you get your hair styled?";
mes "I love it! But... It would";
mes "be even more beautiful if";
mes "you dyed your hair. What";
mes "do you think about that?";
}
while (.@choose_success != 2) {
next;
switch(select("Dye Hair:Coloring Information:Cancel")) {
case 1:
mes "[Rossa]";
mes "Ho ho ho ho~";
mes "So which color would";
mes "you like to try? Something";
mes "vivid or dark? Sexy or cute?";
next;
while (.@choose_success != 2) {
if (.@choose_success == 1) {
mes "[Rossa]";
mes "Ooh, I like this color!";
mes "But would you like to";
mes "try a different one?";
next;
switch(select("Yes:No")) {
case 1:
mes "[Rossa]";
mes "Please select";
mes "another color~";
next;
break;
case 2:
mes "[Rossa]";
mes "An excellent choice~";
mes "Alright then, thank you";
mes "for using my service and";
mes "I hope you come by again!";
close2;
set .@choose_success,2;
break;
}
}
while (.@choose_success != 2) {
switch(select("Red, please.:Yellow, please.:Purple, please.:Orange, please.:Green, please.:Blue, please.:White, please.:Dark Brown, please.:I like my hair color.")) {
case 1:
set .@headpalette,8;
break;
case 2:
set .@headpalette,1;
break;
case 3:
set .@headpalette,2;
break;
case 4:
set .@headpalette,3;
break;
case 5:
set .@headpalette,4;
break;
case 6:
set .@headpalette,5;
break;
case 7:
set .@headpalette,6;
break;
case 8:
set .@headpalette,7;
break;
case 9:
if (.@choose_success != 0) {
mes "[Rossa]";
mes "Are you sure?";
mes "Alright then, you";
mes "know what's best for";
mes "your beauty and to tell";
mes "the truth, I agree with you~";
close2;
set .@choose_success,2;
}
else {
mes "[Rossa]";
mes "Oh, I see. Still, I can't";
mes "help but feel so disappointed.";
mes "You'd look so good if you dyed";
mes "your hair a different color~";
close2;
set .@choose_success,2;
}
break;
}
if (getlook(VAR_HEADPALETTE) == .@headpalette) {
mes "[Rossa]";
mes "Hmm, your hair color";
mes "is still fine, so there's";
mes "no need to dye it the same";
mes "color again, if that's what";
mes "you're worried about.";
next;
}
else {
if ((.@headpalette == 8) && (countitem(975) == 0)) {
mes "[Rossa]";
mes "Oh, I'm sorry dear,";
mes "but I can't dye your";
mes "hair if you didn't bring";
mes "Scarlet Dyestuffs with you...";
close2;
set .@choose_success,2;
break;
}
else if ((.@headpalette == 1) && (countitem(976) == 0)) {
mes "[Rossa]";
mes "Oh, I'm sorry dear,";
mes "but I can't dye your";
mes "hair if you didn't bring";
mes "Lemon Dyestuffs with you...";
close2;
set .@choose_success,2;
break;
}
else if ((.@headpalette == 2) && (countitem(981) == 0)) {
mes "[Rossa]";
mes "Oh, I'm sorry dear,";
mes "but I can't dye your";
mes "hair if you didn't bring";
mes "Violet Dyestuffs with you...";
close2;
set .@choose_success,2;
break;
}
else if ((.@headpalette == 3) && (countitem(980) == 0)) {
mes "[Rossa]";
mes "Oh, I'm sorry dear,";
mes "but I can't dye your";
mes "hair if you didn't bring";
mes "Orange Dyestuffs with you...";
close2;
set .@choose_success,2;
break;
}
else if ((.@headpalette == 4) && (countitem(979) == 0)) {
mes "[Rossa]";
mes "Oh, I'm sorry dear,";
mes "but I can't dye your";
mes "hair if you didn't bring";
mes "Darkgreen Dyestuffs";
mes "with you. Would you come";
mes "back after you get some?";
close2;
set .@choose_success,2;
break;
}
else if ((.@headpalette == 5) && (countitem(978) == 0)) {
mes "[Rossa]";
mes "Oh, I'm sorry dear,";
mes "but I can't dye your";
mes "hair if you didn't bring";
mes "Cobaltblue Dyestuffs";
mes "with you. Would you come";
mes "back after you get some?";
close2;
set .@choose_success,2;
break;
}
else if ((.@headpalette == 6) && (countitem(982) == 0)) {
mes "[Rossa]";
mes "Oh, I'm sorry dear,";
mes "but I can't dye your";
mes "hair if you didn't bring";
mes "White Dyestuffs with you...";
close2;
set .@choose_success,2;
break;
}
else if ((.@headpalette == 7) && (countitem(983) == 0)) {
mes "[Rossa]";
mes "Oh, I'm sorry dear,";
mes "but I can't dye your";
mes "hair if you didn't bring";
mes "Black Dyestuffs with you...";
close2;
set .@choose_success,2;
break;
}
if (Zeny < 1000) {
mes "[Rossa]";
mes "Oh, I'm so sorry dear,";
mes "but my service fee is";
mes "1,000 zeny. Did you forget";
mes "to bring your money with you?";
close2;
set .@choose_success,2;
break;
}
if (.@headpalette == 8) delitem 975,1; //Scarlet_Dyestuffs
else if (.@headpalette == 1) delitem 976,1; //Lemon_Dyestuffs
else if (.@headpalette == 2) delitem 981,1; //Violet_Dyestuffs
else if (.@headpalette == 3) delitem 980,1; //Orange_Dyestuffs
else if (.@headpalette == 4) delitem 979,1; //Darkgreen_Dyestuffs
else if (.@headpalette == 5) delitem 978,1; //Cobaltblue_Dyestuffs
else if (.@headpalette == 6) delitem 982,1; //White_Dyestuffs
else if (.@headpalette == 7) delitem 983,1; //Black_Dyestuffs
set Zeny, Zeny-1000;
setlook VAR_HEADPALETTE,.@headpalette;
set .@choose_success,1;
break;
}
}
}
break;
case 2:
mes "[Rossa]";
mes "When you're feeling";
mes "down, when you just want";
mes "to look nice for the one you";
mes "love, or when you just want";
mes "a different look, why don't";
mes "you dye your hair?";
next;
mes "[Rossa]";
mes "All you need is one";
mes "Dyestuffs item of the";
mes "color that you want to";
mes "dye your hair, as well as";
mes "a 1,000 zeny service fee.";
mes "I'm here for your beauty needs~";
break;
case 3:
mes "[Rossa]";
mes "You know, when you";
mes "put some effort into";
mes "your appearance, you'll";
mes "not only look better, but";
mes "you'll feel better about";
mes "yourself. Makes sense, right?";
close;
}
}
close;
}