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
|
009-2,32,104,0|script|Selim|326
{
cleararray @items$, "", getarraysize(@items$);
cleararray @item_names$, "", getarraysize(@item_names$);
set @r, 0;
set @j, getarraysize($@DYE_items$);
goto L_CloneArray; // clone the array from DyeConfig
L_CloneArray:
set @items$[@r], $@DYE_items$[@r];
set @item_names$[@r], $@DYE_item_names$[@r];
set @r, @r + 1;
if(@r < @j) goto L_CloneArray;
set @r, 0;
set @j, 0;
goto L_Main;
L_Main:
mes "[Selim]";
mes "\"Greetings, fair traveler. With what may I help you?\"";
menu
"Greetings, are you the store merchant?", L_ask_selim,
"But what are dyes and what purpose do they serve?", L_ask_dye,
"Can you dye something for me?", L_clothes_choice,
"Can you also remove color from clothing?", L_ask_bleach,
"About these sorcerer robes...", L_asksorcererrobe,
"Never mind.", L_Close;
L_ask_bleach:
mes "[Selim]";
mes "\"I'm afraid no.";
mes "For that, you would need to visit Candide in the Tulimshar marketplace.\"";
goto L_Main;
L_ask_selim:
mes "[Selim]";
mes "\"That is an honest mistake you have made.";
mes "However I am not the merchant, but rather a Master Dyer here to serve the good people of this town.";
mes "I dye things, upon request.\"";
menu
"But what are dyes and where can I get them?", L_ask_dye,
"Can you dye something for me?", L_clothes_choice,
"Can you also remove color from clothing?", L_ask_bleach,
"Good bye.", L_Close;
L_ask_dye:
mes "[Selim]";
mes "\"Dyes are special liquids used to add color to clothing. If you want me to dye something for you you will have to bring me some dye first.";
mes "Those behind me are nearly empty and won't last for your item.\"";
menu
"What do you mean, `bring you dye'?", L_explain_dye,
"Where would I get dye?", L_explain_dye,
"Good bye.", L_Close;
L_clothes_choice:
mes "[Selim]";
mes "\"What can I dye for you today?\"";
next;
callfunc "DynamicItemMenu$";
set @default_choice$, "";
set @item_del$, @item$;
set @name$, @item_names$[@index];
cleararray @items$, "", getarraysize(@items$);
cleararray @item_names$, "", getarraysize(@item_names$);
if(@item$ == "") goto L_Close;
goto L_picked_item;
L_asksorcererrobe:
mes "[Selim]";
mes "\"Yes?\"";
next;
menu
"Do you think you can dye that line to a different color?", L_Next1;
L_Next1:
mes "[Selim]";
mes "\"Hum, I fear I can't do that. The area is too small and I can operate only on large ones.";
mes "But with the appropriate materials, maybe a talented tailor can make the change.\"";
next;
menu
"Oh, I see!", L_Next;
L_Next:
mes "[Selim]";
mes "\"Of course I can help you by dyeing the materials your tailor will want.";
mes "All I need is a piece of Cotton Cloth.\"";
set @item_del$, "CottonCloth";
menu
"Sure. Here is one.", L_picked_item,
"I have to go pick that.", L_Close;
L_picked_item:
if (countitem(@item_del$) == 0) goto L_havenone;
goto L_colour;
L_colour:
mes "[Selim]";
mes "\"Excellent. Now, what color do you want?\"";
next;
set @r, 0;
set @j, getarraysize($@DYE_colors$);
callsub S_CloneColors;
set @default_choice$, "I have no dye.";
callfunc "DynamicItemMenu$";
cleararray @items$, "", getarraysize(@items$);
cleararray @item_names$, "", getarraysize(@item_names$);
set @default_choice$, "";
if (@item$ == "") goto L_no_dye;
set @colour, @index;
goto L_finish;
S_CloneColors:
set @items$[@r], $@DYE_colors$[@r] + "Dye";
set @item_names$[@r], $@DYE_color_names$[@r];
set @r, @r + 1;
if(@r < @j) goto S_CloneColors;
set @r, 0;
set @j, 0;
return;
L_no_dye:
mes "[Selim]";
mes "\"I would love to dye your " + @name$ + " for you, but you will have to bring me some dye first.";
mes "Those behind me are nearly empty and won't last for your item.\"";
next;
menu
"I wanted to dye a different item anyway.", L_clothes_choice,
"What do you mean, `bring you dye'?", L_explain_dye,
"Where would I get dye?", L_explain_dye,
"Never mind.", L_Close;
L_explain_dye:
if (QUEST_clothdyer_knowsdye < 1)
set QUEST_clothdyer_knowsdye, 1;
mes "[Selim]";
mes "\"Well, dye is very expensive, and since I don't charge adventurers anything, I can't give you any for free.";
mes "But most alchemists can make dye; perhaps you can find one around here.\"";
goto L_Close;
L_finish:
if(getitemname($@DYE_colors$[@colour] + @item_del$) == "Unknown Item") mapexit;
if(countitem(@item_del$) < 1) goto L_havenone;
delitem @item$, 1;
delitem @item_del$, 1;
getitem $@DYE_colors$[@colour] + @item_del$, 1;
mes "[Selim]";
mes "\"Here's your " + $@DYE_color_names$[@colour] + " " + @name$ + "! Please let dry for a minute.\"";
goto L_Close;
L_havenone:
mes "[Selim]";
mes "\"You don't have any uncolored " + @name$ + "? That's unfortunate.";
mes "Would you like to dye something else?\"";
next;
goto L_clothes_choice;
L_Close:
mes "\"Farewell and good luck in your journeys!\"";
close2;
emotion EMOTE_WINK;
end;
}
|
