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
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
|
//===== rAthena Script =======================================
//= Hair Dyer
//===== By: ==================================================
//= kobra_k88; L0ne_W0lf
//===== Current Version: =====================================
//= 1.5
//===== Compatible With: =====================================
//= rAthena SVN
//===== 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]
//============================================================
prt_in,243,168,4 script Jovovich 91,{
mes "[Hairdresser Jovovich]";
mes "Welcome~!";
mes "How may I help you?";
next;
mes "[Hairdresser Jovovich]";
if (sex) mes "Oh, no! Your hair is damaged. It seems as if you may need professional treatment. Come sit over here, please. Come.";
else {
if (rand(20) > 11) {
mes "Eh!? Oh my! Oh no no no no! Your hair is sooo damaged! It's not good if you leave your hair like this.";
next;
mes "[Hairdresser Jovovich]";
mes "Would you let me treat your hair? Please?";
}
else mes "Wow! Your hair would be perfect once it's dyed~ How about dying your hair for a change?";
}
next;
while(1) {
switch(select("Dye Hair:Tips and Information:Cancel")) {
case 1:
mes "[Hairdresser Jovovich]";
mes "Yes yes, good choice~";
mes "Well then, this is your chance for a make-over, your chance to blossom in beauty! Choose the color you would like.";
next;
while(1) {
if (.@choose_success == 1) {
mes "[Hairdresser Jovovich]";
mes "What do you think? Did you want a different color?";
next;
if (select("Yes:No") == 1) {
mes "[Hairdresser Jovovich]";
mes "Okay! Choose the color that you would like.";
next;
}
else {
mes "[Hairdresser Jovovich]";
mes "Hmm, I'm sort of disappointed. I wanted to do a better job. But I promise I'll do it better next time. Please come again~";
close;
}
}
while(1) {
switch(select("Red, please.:Yellow, please.:Violet, please.:Orange, please.:Green, please.:Blue, please.:White, please.:Black, please.:Actually, I like my hair as it is.")) {
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 "[Hairdresser Jovovich]";
mes "You must like your hair color~";
close;
}
mes "[Hairdresser Jovovich]";
mes "Eehh~? You're not going to dye your hair? I'm a little sad...";
close;
}
if (.@headpalette == getlook(VAR_HEADPALETTE)) {
mes "[Hairdresser Jovovich]";
mes "Eh? But that's the hair color you already have. Please choose a different color.";
next;
}
else {
switch(.@headpalette) {
case 1: callsub S_NoDye,976,"yellow"; break;
case 2: callsub S_NoDye,978,"violet"; break;
case 3: callsub S_NoDye,979,"orange"; break;
case 4: callsub S_NoDye,980,"green"; break;
case 5: callsub S_NoDye,981,"blue"; break;
case 6: callsub S_NoDye,982,"white"; break;
case 7: callsub S_NoDye,983,"black"; break;
Case 8: callsub S_NoDye,975,"red"; break;
}
if (zeny < 1000) {
mes "[Hairdresser Jovovich]";
mes "The fee is 1000 zeny. Do you not have enough...?";
close;
}
switch(.@headpalette) {
case 1: delitem 976,1; break; //Lemon_Dyestuffs
case 2: delitem 978,1; break; //Violet_Dyestuffs
case 3: delitem 979,1; break; //Orange_Dyestuffs
case 4: delitem 980,1; break; //Darkgreen_Dyestuffs
case 5: delitem 981,1; break; //Cobaltblue_Dyestuffs
case 6: delitem 982,1; break; //White_Dyestuffs
case 7: delitem 983,1; break; //Black_Dyestuffs
case 8: delitem 975,1; break; //Scarlet_Dyestuffs
}
set Zeny,Zeny-1000;
setlook VAR_HEADPALETTE,.@headpalette;
set .@choose_success,1;
break;
}
}
}
case 2:
mes "[Hairdresser Jovovich]";
mes "When you're feeling down , when you get dumped, when you want to impress someone, or even when you just want to stand out...";
next;
mes "[Hairdresser Jovovich]";
mes "For that special place and time, wouldn't you want a hairstyle of your very own? As long as you have the appropriate dyestuffs, I will make your hair look wonderful.";
next;
mes "[Hairdresser Jovovich]";
mes "And try not to worry too much about the fee. Acquiring beauty is the same as acquiring everything. Hehe~";
next;
mes "[Hairdresser Jovovich]";
mes "* Fees and Information *";
mes "- 1 Dyestuffs item of the color of hair you want.";
mes "- 1000 zeny fee.";
break;
case 3:
mes "[Hairdresser Jovovich]";
mes "Men or Women...";
mes "Everyone has the right and obligation to be beautiful.";
close;
}
}
S_NoDye:
if (countitem(getarg(0)) == 0) {
mes "[Hairdresser Jovovich]";
mes "Eh?! But you need the item '"+getitemname(getarg(0))+"' to dye your hair "+getarg(1)+"...";
close;
}
return;
}
// Lighthalzen
lhz_in02,100,134,3 script Hair Dyer#lich 850,{
mes "[Rossa]";
if (Sex == 1) {
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;
}
|
