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
|
//===== rAthena Script =======================================
//= Clothes Dyer
//===== By: ==================================================
//= Usnul
//===== Current Version: =====================================
//= 2.4
//===== Compatible With: =====================================
//= rAthena 1.0+
//===== Description: =========================================
//= Clothes dyer with standard palletes
//===== Additional Comments: =================================
//= Fully working
//= 2.1 Shortened some labels to make this script loading,
//= Added Black+White Colors desc [Lupus]
//= 2.1a - added adv classes + abby class support [Lupus]
//= 2.2 � Spell checked. [Nexon]
//= 2.3 - Fixed dis $hit! [Poki#3]
//= 2.4 - Disabled cloth dyeing since it's not implemented
// on official servers and cause your client to crash
// [Playtester]
//============================================================
//Note: To enable it, replace L_Busy with L_Dye
//============================================================
// Dyer Ginedin Rephere ---------------------------------------------------
prt_in,284,168,2 script Dyer Ginedin Rephere 55,{
mes "[Dyer Ginedin Rephere]";
mes "11... 12... Mmm... good. I think I'll be able to finish before tonight�s party. Oh! I didn't notice that you were here. Anyway how may I assist you?";
M_Menu:
next;
menu "-Talk",L_Talk,"-Dye Clothing",L_Busy,"-Price list",L_PriceList,"-Cancel",L_End;
L_Talk:
mes "[Dyer Ginedin Rephere]";
mes "Life may have gotten a little better.... but when I look at all of the orders I've received... Whew!";
mes "It seems that the young women of Rune Midgard must be very well off these days.";
next;
mes "[Dyer Ginedin Rephere]";
mes "Not that I think that they are indulging in anything luxurious mind you.";
mes "I don't think there is anything wrong with the pursuit of beauty and being fashionable.";
next;
mes "[Dyer Ginedin Rephere]";
mes "For us humans, who have no colorful fur or decorative scales, clothes are one of the few ways we have to display our personality, style, and beauty.";
next;
mes "[Dyer Ginedin Rephere]";
mes "Haha... When I think about it, I really feel that my job is worthwhile. I believe that I provide a service that the people desire.";
next;
mes "[Dyer Ginedin Rephere]";
mes "Can you feel it too? The energy that is released when rough fabric and leather are brought to life with color?.....";
next;
mes "[Dyer Ginedin Rephere]";
mes "Although the process is very tedious and time consuming, the joy and happiness I feel when a dress is finished.....";
mes "more than makes up for all of the hard work!!";
goto M_Menu;
L_Dye:
mes "[Dyer Ginedin Rephere]";
mes "Oh... you need my work? Well... okay sounds good.";
next;
mes "[Dyer Ginedin Rephere]";
mes "Please choose a color that suits you.";
next;
if(Sex==0) goto Female_dye;
//=================================
// Clothing Dyeing for Males
//=================================
Male_dye:
if(BaseJob==Job_Novice || BaseJob==Job_Novice_High || BaseJob==Job_Baby) goto L_Novice_M;
if(BaseJob==Job_Swordman || BaseJob==Job_Swordman_High || BaseJob==Job_Baby_Swordman) goto L_Swordman_M;
if(BaseJob==Job_Mage || BaseJob==Job_Mage_High || BaseJob==Job_Baby_Mage) goto L_Mage_M;
if(BaseJob==Job_Archer || BaseJob==Job_Archer_High || BaseJob==Job_Baby_Archer) goto L_Archer_M;
if(BaseJob==Job_Acolyte || BaseJob==Job_Acolyte_High || BaseJob==Job_Baby_Acolyte) goto L_Acolyte_M;
if(BaseJob==Job_Merchant || BaseJob==Job_Merchant_High || BaseJob==Job_Baby_Merchant) goto L_Merchant_M;
if(BaseJob==Job_Thief || BaseJob==Job_Thief_High || BaseJob==Job_Baby_Thief) goto L_Thief_M;
if(BaseJob==Job_Knight || BaseJob==Job_Knight2 || BaseJob==Job_Crusader || BaseJob==Job_Crusader2 || BaseJob==Job_Lord_Knight || BaseJob==Job_Lord_Knight2 || BaseJob==Job_Paladin || BaseJob==Job_Paladin2 || BaseJob==Job_Stalker || BaseJob==Job_Baby_Knight || BaseJob==Job_Baby_Knight2 || BaseJob==Job_Baby_Crusader || BaseJob==Job_Baby_Crusader2) goto L_Swordman2_M;
if(BaseJob==Job_Priest || BaseJob==Job_Monk || BaseJob==Job_High_Priest || BaseJob==Job_Champion || BaseJob==Job_Baby_Priest || BaseJob==Job_Baby_Monk) goto L_Acolyte2_M;
if(BaseJob==Job_Wizard || BaseJob==Job_High_Wizard || BaseJob==Job_Baby_Wizard) goto L_Mage2_M;
if(BaseJob==Job_Blacksmith || BaseJob==Job_Alchemist || BaseJob==Job_Whitesmith || BaseJob==Job_Creator || BaseJob==Job_Baby_Blacksmith || BaseJob==Job_Baby_Alchemist) goto L_Merchant2_M;
if(BaseJob==Job_Hunter || BaseJob==Job_Bard || BaseJob==Job_Sniper || BaseJob==Job_Clown || BaseJob==Job_Baby_Hunter || BaseJob==Job_Baby_Bard) goto L_Archer2_M;
if(BaseJob==Job_Assassin || BaseJob==Job_Rogue || BaseJob==Job_Assassin_Cross || BaseJob==Job_Baby_Assassin || BaseJob==Job_Baby_Rogue) goto L_Thief2_M;
if(BaseJob==Job_SuperNovice || BaseJob==Job_Super_Baby) goto L_Super_Novice_M;
goto sL_Sorry;
//NOTE: Although Sages have pellets, they color non existent piece's of clothing. They are not listed, so players won't waste their items and zeny.
//Professors also have a problem <.< The only thing that changes is a part of there Fox scarf. The Stalker Placement is not a bug!
L_Novice_M:
set @black, 1;
set @blue, 2;
set @green, 3;
menu "- Default",L_Dye_Default,"- Black",L_Dye_Black,"- Blue",L_Dye_Blue,"- Green",L_Dye_Green,"- Cancel",L_End;
L_Swordman_M:
set @black, 1;
set @blue, 2;
set @green, 3;
menu "- Default",L_Dye_Default,"- Black",L_Dye_Black,"- Blue",L_Dye_Blue,"- Green",L_Dye_Green,"- Cancel",L_End;
L_Mage_M:
set @red, 1;
set @violet, 2;
set @orange, 3;
set @white, 4;
menu "- Default",L_Dye_Default,"- Red",L_Dye_Red,"- Violet",L_Dye_Violet,"- Orange",L_Dye_Orange,"- White",L_Dye_White,"- Cancel",L_End;
L_Archer_M:
set @black, 1;
set @violet, 2;
set @green, 3;
menu "- Default",L_Dye_Default,"- Black",L_Dye_Black,"- Violet",L_Dye_Violet,"- Green",L_Dye_Green,"- Cancel",L_End;
L_Acolyte_M:
set @blue, 1;
set @red, 2;
set @white, 3;
set @black, 4;
menu "- Default",L_Dye_Default,"- Blue",L_Dye_Blue,"- Red",L_Dye_Red,"- White",L_Dye_White,"- Black",L_Dye_Black,"- Cancel",L_End;
L_Merchant_M:
set @black, 1;
set @blue, 2;
set @green, 3;
menu "- Default",L_Dye_Default,"- Black",L_Dye_Black,"- Blue",L_Dye_Blue,"- Green",L_Dye_Green,"- Cancel",L_End;
L_Thief_M:
set @green, 1;
set @red, 2;
set @white, 4;
menu "- Default",L_Dye_Default,"- Green",L_Dye_Green,"- Red",L_Dye_Red,"- White",L_Dye_White,"- Cancel",L_End;
L_Swordman2_M:
set @violet, 1;
set @red, 3;
set @black, 4;
menu "- Default",L_Dye_Default,"- Violet",L_Dye_Violet,"- Red",L_Dye_Red,"- Black",L_Dye_Black,"- Cancel",L_End;
L_Acolyte2_M:
set @blue, 1;
set @green, 2;
set @red, 3;
set @white, 4;
menu "- Default",L_Dye_Default,"- Blue",L_Dye_Blue,"- Green",L_Dye_Green,"- Red",L_Dye_Red,"- White",L_Dye_White,"- Cancel",L_End;
L_Mage2_M:
set @blue, 1;
set @green, 3;
set @black, 4;
menu "- Default",L_Dye_Default,"- Blue",L_Dye_Blue,"- Green",L_Dye_Green,"- Black",L_Dye_Black,"- Cancel",L_End;
L_Merchant2_M:
set @black, 1;
set @green, 2;
set @white, 3;
menu "- Default",L_Dye_Default,"- Black",L_Dye_Black,"- Green",L_Dye_Green,"- White",L_Dye_White,"- Cancel",L_End;
L_Archer2_M:
set @black, 1;
set @blue, 2;
set @green, 3;
menu "- Default",L_Dye_Default,"- Black",L_Dye_Black,"- Blue",L_Dye_Blue,"- Green",L_Dye_Green,"- Cancel",L_End;
L_Thief2_M:
set @blue, 1;
menu "- Default",L_Dye_Default,"- Blue",L_Dye_Blue,"- Cancel",L_End;
L_Super_Novice_M:
set @violet, 1;
set @blue, 2;
set @green, 3;
set @black, 4;
menu "- Default",L_Dye_Default,"- Violet",L_Dye_Violet,"- Blue",L_Dye_Blue,"- Green",L_Dye_Green,"- Black",L_Dye_Black,"- Cancel",L_End;
//=================================
// Clothing Dyeing for Females
//=================================
Female_dye:
if(BaseJob==Job_Novice || BaseJob==Job_Novice_High || BaseJob==Job_Baby) goto L_Novice_F;
if(BaseJob==Job_Swordman || BaseJob==Job_Swordman_High || BaseJob==Job_Baby_Swordman) goto L_Swordman_F;
if(BaseJob==Job_Mage || BaseJob==Job_Mage_High || BaseJob==Job_Baby_Mage) goto L_Mage_F;
if(BaseJob==Job_Archer || BaseJob==Job_Archer_High || BaseJob==Job_Baby_Archer) goto L_Archer_F;
if(BaseJob==Job_Acolyte || BaseJob==Job_Acolyte_High || BaseJob==Job_Baby_Acolyte) goto L_Acolyte_F;
if(BaseJob==Job_Merchant || BaseJob==Job_Merchant_High || BaseJob==Job_Baby_Merchant) goto L_Merchant_F;
if(BaseJob==Job_Thief || BaseJob==Job_Thief_High || BaseJob==Job_Baby_Thief) goto L_Thief_F;
if(BaseJob==Job_Knight || BaseJob==Job_Knight2 || BaseJob==Job_Crusader || BaseJob==Job_Crusader2 || BaseJob==Job_Lord_Knight || BaseJob==Job_Lord_Knight2 || BaseJob==Job_Paladin || BaseJob==Job_Paladin2 || BaseJob==Job_Stalker || BaseJob==Job_Baby_Knight || BaseJob==Job_Baby_Knight2 || BaseJob==Job_Baby_Crusader || BaseJob==Job_Baby_Crusader2) goto L_Swordman2_F;
if(BaseJob==Job_Priest || BaseJob==Job_Baby_Priest) goto L_Acolyte2_F;
if(BaseJob==Job_Wizard || BaseJob==Job_Sage || BaseJob==Job_High_Wizard || BaseJob==Job_Professor || BaseJob==Job_Baby_Wizard || BaseJob==Job_Baby_Sage) goto L_Mage2_F;
if(BaseJob==Job_Blacksmith || BaseJob==Job_Alchemist || BaseJob==Job_Whitesmith || BaseJob==Job_Creator || BaseJob==Job_Baby_Blacksmith || BaseJob==Job_Baby_Alchemist) goto L_Merchant2_F;
if(BaseJob==Job_Hunter || BaseJob==Job_Dancer || BaseJob==Job_Sniper || BaseJob==Job_Gypsy || BaseJob==Job_Baby_Hunter || BaseJob==Job_Baby_Dancer) goto L_Archer2_F;
if(BaseJob==Job_Assassin || BaseJob==Job_Baby_Assassin) goto L_Thief2_F;
if(BaseJob==Job_Rogue || BaseJob==Job_Assassin_Cross || BaseJob==Job_Baby_Rogue) goto L_Thief3_F;
if(BaseJob==Job_SuperNovice || BaseJob==Job_Super_Baby) goto L_Super_Novice_F;
goto sL_Sorry;
//NOTE: Same problems as with Males. This time: Monk, High Priest, Champion.
//Rogue and Assassin Cross have her own check, because the default dye is black <.< The Stalker Placement is not a bug!
L_Novice_F:
set @blue, 1;
set @red, 2;
set @green, 3;
set @black, 4;
menu "- Default",L_Dye_Default,"- Blue",L_Dye_Blue,"- Red",L_Dye_Red,"- Green",L_Dye_Green,"- Black",L_Dye_Black,"- Cancel",L_End;
L_Swordman_F:
set @red, 1;
set @green, 3;
set @black, 4;
menu "- Default",L_Dye_Default,"- Red",L_Dye_Red,"- Green",L_Dye_Green,"- Black",L_Dye_Black,"- Cancel",L_End;
L_Mage_F:
set @red, 1;
set @violet, 2;
set @white, 3;
set @black, 4;
menu "- Default",L_Dye_Default,"- Red",L_Dye_Red,"- Violet",L_Dye_Violet,"- White",L_Dye_White,"- Black",L_Dye_Black,"- Cancel",L_End;
L_Archer_F:
set @red, 1;
set @green, 2;
set @white, 3;
set @black, 4;
menu "- Default",L_Dye_Default,"- Red",L_Dye_Red,"- Green",L_Dye_Green,"- White",L_Dye_White,"- Black",L_Dye_Black,"- Cancel",L_End;
L_Acolyte_F:
set @red, 1;
set @green, 3;
set @black, 4;
menu "- Default",L_Dye_Default,"- Red",L_Dye_Red,"- Green",L_Dye_Green,"- Black",L_Dye_Black,"- Cancel",L_End;
L_Merchant_F:
set @violet, 1;
set @green, 3;
set @black, 4;
menu "- Default",L_Dye_Default,"- Violet",L_Dye_Violet,"- Green",L_Dye_Green,"- Black",L_Dye_Black,"- Cancel",L_End;
L_Thief_F:
set @red, 1;
set @white, 3;
set @black, 4;
menu "- Default",L_Dye_Default,"- Red",L_Dye_Red,"- White",L_Dye_White,"- Black",L_Dye_Black,"- Cancel",L_End;
L_Swordman2_F:
set @blue, 1;
set @white, 3;
set @black, 4;
menu "- Default",L_Dye_Default,"- Blue",L_Dye_Blue,"- White",L_Dye_White,"- Black",L_Dye_Black,"- Cancel",L_End;
L_Acolyte2_F:
set @red, 1;
set @green, 2;
set @white, 3;
set @black, 4;
menu "- Default",L_Dye_Default,"- Red",L_Dye_Red,"- Green",L_Dye_Green,"- White",L_Dye_White,"- Black",L_Dye_Black,"- Cancel",L_End;
L_Mage2_F:
set @red, 1;
set @blue, 2;
set @white, 3;
set @green, 4;
menu "- Default",L_Dye_Default,"- Red",L_Dye_Red,"- Blue",L_Dye_Blue,"- White",L_Dye_White,"- Green",L_Dye_Green,"- Cancel",L_End;
L_Merchant2_F:
set @red, 1;
set @green, 2;
set @violet, 3;
set @black, 4;
menu "- Default",L_Dye_Default,"- Red",L_Dye_Red,"- Green",L_Dye_Green,"- Violet",L_Dye_Violet,"- Black",L_Dye_Black,"- Cancel",L_End;
L_Archer2_F:
set @blue, 1;
set @green, 3;
set @violet, 4;
menu "- Default",L_Dye_Default,"- Blue",L_Dye_Blue,"- Green",L_Dye_Green,"- Violet",L_Dye_Violet,"- Cancel",L_End;
L_Thief2_F:
set @black, 1;
set @yellow, 2;
set @white, 3;
menu "- Default",L_Dye_Default,"- Black",L_Dye_Black,"- Yellow",L_Dye_Yellow,"- White",L_Dye_White,"- Cancel",L_End;
L_Thief3_F:
set @yellow, 2;
set @white, 3;
menu "- Default",L_Dye_Default,"- Yellow",L_Dye_Yellow,"- White",L_Dye_White,"- Cancel",L_End;
L_Super_Novice_F:
set @blue, 1;
set @red, 2;
set @green, 3;
set @black, 4;
menu "- Default",L_Dye_Default,"- Blue",L_Dye_Blue,"- Red",L_Dye_Red,"- Green",L_Dye_Green,"- Black",L_Dye_Black,"- Cancel",L_End;
//=================================
// Rest of the script
//=================================
L_Dye_Default:
mes "[Dyer Ginedin Rephere]";
mes "I can change your dye to the default one for free.";
mes "Are you sure?";
next;
menu "Yes",-,"No",L_End;
mes "[Dyer Ginedin Rephere]";
mes "OK. Here goes nothing.";
setlook 7,0;
close;
L_Dye_Orange:
mes "[Dyer Ginedin Rephere]";
if(countitem(980) < 1) goto sL_NoDye;
if(Zeny < 10000) goto sL_Zeny;
delitem 980,1;
set Zeny, Zeny - 10000;
mes "Ok. I will dye you clothes orange.";
setlook 7,@orange;
close;
L_Dye_Violet:
mes "[Dyer Ginedin Rephere]";
if(countitem(981) < 1) goto sL_NoDye;
if(Zeny < 10000) goto sL_Zeny;
delitem 981,1;
set Zeny, Zeny - 10000;
mes "Ok. I will dye you clothes Violet.";
setlook 7,@violet;
close;
L_Dye_Red:
mes "[Dyer Ginedin Rephere]";
if(countitem(975) < 1) goto sL_NoDye;
if(Zeny < 10000) goto sL_Zeny;
delitem 975,1;
set Zeny, Zeny - 10000;
mes "Ok. I will dye you clothes red.";
setlook 7,@red;
close;
L_Dye_Black:
mes "[Dyer Ginedin Rephere]";
if(countitem(983) < 1) goto sL_NoDye;
if(Zeny < 10000) goto sL_Zeny;
delitem 983,1;
set Zeny, Zeny - 10000;
mes "Ok. I will dye you clothes black.";
setlook 7,@black;
close;
L_Dye_Green:
mes "[Dyer Ginedin Rephere]";
if(countitem(979) < 1) goto sL_NoDye;
if(Zeny < 10000) goto sL_Zeny;
delitem 979,1;
set Zeny, Zeny - 10000;
mes "Ok. I will dye you clothes green.";
setlook 7,@green;
close;
L_Dye_Blue:
mes "[Dyer Ginedin Rephere]";
if(countitem(978) < 1) goto sL_NoDye;
if(Zeny < 10000) goto sL_Zeny;
delitem 978,1;
set Zeny, Zeny - 10000;
mes "Ok. I will dye you clothes blue.";
setlook 7,@blue;
close;
L_Dye_White:
mes "[Dyer Ginedin Rephere]";
if(countitem(982) < 1) goto sL_NoDye;
if(Zeny < 10000) goto sL_Zeny;
delitem 982,1;
set Zeny, Zeny - 10000;
mes "Ok. I will dye you clothes white.";
setlook 7,@white;
close;
L_Dye_Yellow:
mes "[Dyer Ginedin Rephere]";
if(countitem(976) < 1) goto sL_NoDye;
if(Zeny < 10000) goto sL_Zeny;
delitem 976,1;
set Zeny, Zeny - 10000;
mes "Ok. I will dye you clothes yellow.";
setlook 7,@yellow;
close;
sL_Sorry:
mes "Wow, your clothes is very strange, I haven't seen anything like it before. Hmmm... I'm sorry, but there is no way I can paint it.";
close;
sL_Zeny:
mes "I'm sorry but you don't have enough money.";
close;
sL_NoDye:
mes "For me to dye your clothes, I'll need the appropriate Dyestuffs. Please check my price list for the information.";
next;
L_Busy:
mes "Sorry, I'm too busy with other jobs to dye your clothes.";
goto M_Menu;
L_PriceList:
mes "[Dyer Ginedin Rephere]";
mes "Here is the list of colors you can choose from and their prices:";
mes " ";
mes " - ^FF4422Red^000000: 10000 zeny, 1 Scarlet Dyestuffs";
mes " - ^D5A500Yellow^000000: 10000 zeny, 1 Lemon Dyestuffs";
mes " - ^AA00AAViolet^000000: 10000 zeny, 1 Violet Dyestuffs";
mes " - ^FF8800Orange^000000: 10000 zeny, 1 Orange Dyestuffs";
mes " - ^4422FFBlue^000000: 10000 zeny, 1 CobaltBlue Dyestuffs";
mes " - ^009500Green^000000: 10000 zeny, 1 DarkGreen Dyestuffs";
mes " - Black: 10000 zeny, 1 Black Dyestuffs";
mes " - White: 10000 zeny, 1 White Dyestuffs";
goto M_Menu;
L_End:
mes "[Dyer Ginedin Rephere]";
mes "Make yourself at home. Even though I don't have time for you.";
close;
}
|
