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
|
// This file is part of Christmas Event 2012
// author: Jenalya
// Create Blanket
030-2.gat,153,39,0|script|Raimo|329,{
callfunc "xmas2012time";
set @reinboo, (xmas2012 & NIBBLE_0_MASK) >> NIBBLE_0_SHIFT;
if (@xmas_time == $@xmas2012_no_event_time)
goto L_NoEvent;
if (@xmas_time == $@xmas2012_reward_time)
goto L_RewardTime;
if (@reinboo > 3) goto L_BlanketDone;
if (@reinboo == 3) goto L_BlanketNext;
mes "You see a busy helper, working on some adorable little dolls.";
next;
mes "[Raimo]";
mes "\"Hello there! Welcome to Santa's Christmas workshop. Most of the Christmas presents are crafted here.";
mes "Feel free to have a look around and talk to us helpers. Let me know if there's anything I can help you with.\"";
if (@reinboo != 2)
goto L_Close;
menu
"Actually, could you sew a blanket for Neiremes?", -,
"Thank you.", L_Close;
mes "[Raimo]";
mes "\"A blanket? Well, that'd be an easy task, provided you bring me some material. I need " + $@xmas2012_cotton_cloth_amount + " Cotton Cloths to create a blanket big enough for a Reinboo.\"";
menu
"Here, I have it.", -,
"I'll be right back.", L_Close;
if (countitem("CottonCloth") < $@xmas2012_cotton_cloth_amount)
goto L_NoItem;
getinventorylist;
if ((checkweight("WhiteBlanket", 1) == 0) || (@inventorylist_count == 100))
goto L_Inventory;
delitem "CottonCloth", $@xmas2012_cotton_cloth_amount;
getitem "WhiteBlanket", 1;
set @reinboo, 3;
callfunc "xmas2012update_reinboo_var";
mes "Raimo takes the Cotton Cloths and starts working. It doesn't take long and he has created a simple blanket which he gives you.";
next;
mes "[Raimo]";
mes "\"Here you go. Though I don't think it'll keep him warm enough when he's flying high up in the air.";
mes "You can ask Launo to pad it.\"";
goto L_Close;
L_NoItem:
mes "[Raimo]";
mes "\"You don't have it!\"";
goto L_Close;
L_Inventory:
mes "[Raimo]";
mes "\"You carry too much!\"";
goto L_Close;
L_BlanketNext:
mes "[Raimo]";
mes "\"Did you already ask Launo to pad the blanket I made?\"";
goto L_Close;
L_BlanketDone:
mes "[Raimo]";
mes "\"It's really kind of you to help Neiremes. I hope the blanket will help him.\"";
goto L_Close;
L_NoEvent:
mes "[Raimo]";
mes "\"I'm sorry, the house isn't open to visitors at the moment.\"";
warp "030-1.gat", 99, 55;
goto L_Close;
L_RewardTime:
mes "[Raimo]";
mes "\"This year everything went pretty well. Not like last year!\"";
if (@reinboo != 14)
goto L_Close;
next;
mes "\"You should go and talk to Neiremes. I'm sure he'd like to thank you.\"";
goto L_Close;
L_Close:
set @reinboo, 0;
set @xmas_time, 0;
close;
}
// Create Saddle Rug
030-2.gat,135,31,0|script|Launo|329,{
callfunc "xmas2012time";
set @reinboo, (xmas2012 & NIBBLE_0_MASK) >> NIBBLE_0_SHIFT;
if (@xmas_time == $@xmas2012_no_event_time)
goto L_NoEvent;
if (@xmas_time == $@xmas2012_reward_time)
goto L_RewardTime;
if (@reinboo > 4) goto L_BlanketDone;
if (@reinboo == 4) goto L_BlanketNext;
mes "[Launo]";
mes "\"Hello. I'm creating plush toys for Christmas.\"";
next;
mes "\"Are you here to talk to Santa? You might find him in his office, just go upstairs through the helpers' office.\"";
if (@reinboo != 3)
goto L_Close;
menu
"Could you pad this blanket for Neiremes?", -,
"Thank you.", L_Close;
mes "[Launo]";
mes "\"Oh, Neiremes is one of the young Reinboos who are going to join Santa's team, right? I heard he's rather insecure and has some problems with learning to fly over long distances.\"";
next;
mes "\"I'm very glad to help, if I can. Just bring me " + $@xmas2012_fluffy_fur_amount + " White Furs and give me the White Blanket, then I can add some padding which will keep Neiremes warm on his flights.\"";
menu
"Here, I have it.", -,
"I'll come back later.", L_Close;
if ((countitem("WhiteBlanket") < 1) || (countitem("WhiteFur") < $@xmas2012_fluffy_fur_amount))
goto L_NoItem;
getinventorylist;
if ((checkweight("WhiteSaddleRug", 1) == 0) || (@inventorylist_count == 100))
goto L_Inventory;
delitem "WhiteFur", $@xmas2012_fluffy_fur_amount;
delitem "WhiteBlanket", 1;
getitem "WhiteSaddleRug", 1;
set @reinboo, 4;
callfunc "xmas2012update_reinboo_var";
mes "Launo takes the White Blanket and the Fur you brought him. It doesn't take long until he's done and he gives you a very warm White Saddle Rug.";
next;
mes "[Launo]";
mes "\"Done! This should keep Neiremes warm. Please bring it to him.\"";
menu
"But he said it should be red...", -;
mes "[Launo]";
mes "\"Red? Oh, I see. Well, I think you should ask Reino for help with that. He's working on dying the wrapping papers, but I think he could also dye this Saddle Rug.\"";
goto L_Close;
L_NoItem:
mes "[Launo]";
mes "\"You don't have everything I need.\"";
goto L_Close;
L_Inventory:
mes "[Launo]";
mes "\"You have a lot of things with you. Come back when you carry less.\"";
goto L_Close;
L_BlanketNext:
mes "[Launo]";
mes "\"Talk to Reino about dying the White Saddle Rug.\"";
goto L_Close;
L_BlanketDone:
mes "[Launo]";
mes "\"I love the Christmas time. Creating plush toys is a very satisfying work for me, knowing how much joy they will bring.\"";
next;
mes "\"I wish I could do that all year long. But as a helper of a Sage, there are other duties as well.\"";
goto L_Close;
L_NoEvent:
mes "[Launo]";
mes "\"I'm sorry, the house isn't open to visitors at the moment.\"";
warp "030-1.gat", 99, 55;
goto L_Close;
L_RewardTime:
mes "[Launo]";
mes "\"I'm a bit sad that Christmas is already over. I like the preparation time. But of course I'm glad everything went well.\"";
if (@reinboo != 14)
goto L_Close;
next;
mes "\"Have you talked to Neiremes already?\"";
goto L_Close;
L_Close:
set @reinboo, 0;
set @xmas_time, 0;
close;
}
// Dye Saddle Rug
030-2.gat,140,31,0|script|Reino|328,{
callfunc "xmas2012time";
set @reinboo, (xmas2012 & NIBBLE_0_MASK) >> NIBBLE_0_SHIFT;
if (@xmas_time == $@xmas2012_no_event_time)
goto L_NoEvent;
if (@xmas_time == $@xmas2012_reward_time)
goto L_RewardTime;
mes "[Reino]";
mes "\"Are you another visitor? We're working on the Christmas preparation here.\"";
mes "Reino seems to be a bit grumpy.";
if (@reinboo != 4)
goto L_Close;
menu
"I need help with this Saddle Rug for Neiremes...", -,
"I see. I'll ... let you work then.", L_Close;
mes "[Reino]";
mes "\"Neiremes? One of the Reinboos? Why?\"";
menu
"He feels cold when he's high up in the air.", -,
"Forget it.", L_Close;
mes "Reino sighs.";
mes "[Reino]";
mes "\"Well, all right. And what do you want me to do?\"";
menu
"This Saddle Rug needs to be red, because that's Santa's color.", -;
mes "[Reino]";
mes "\"Of course! What a stupid question. Well, I tell you I'm doing some more serious work here than pampering some mollycoddle Reinboo.\"";
next;
mes "\"But if you bring me " + $@xmas2012_red_dye_amount + " Red Dyes, I think I can dye that Saddle Rug quickly.\"";
menu
"I have it with me.", -,
"I'll get that.", L_Close;
if ((countitem("RedDye") < $@xmas2012_red_dye_amount) || (countitem("WhiteSaddleRug") < 1))
goto L_NoItem;
getinventorylist;
if ((checkweight("RedSaddleRug", 1) == 0) || (@inventorylist_count == 100))
goto L_Inventory;
delitem "RedDye", $@xmas2012_red_dye_amount;
delitem "WhiteSaddleRug", 1;
getitem "RedSaddleRug", 1;
set @reinboo, 5;
callfunc "xmas2012update_reinboo_var";
mes "Reino takes your dyes and the Saddle Rug. He puts the dye into some bowl and dunks the Saddle Rug into it. After the Rug is soaked with the dye, he puts it by the side to dry.";
next;
mes "[Reino]";
mes "\"Ok, done. Now I need to get back to my actual work. Bring that Red Saddle Rug to the Reinboo.\"";
goto L_Close;
L_NoItem:
mes "[Reino]";
mes "\"Don't waste my time! Come back when you have everything I need.\"";
goto L_Close;
L_Inventory:
mes "[Reino]";
mes "\"I suggest you to lighten your backpack first. It must be a pain to carry so many things around!\"";
goto L_Close;
L_NoEvent:
mes "[Reino]";
mes "\"I'm sorry, the house isn't open to visitors at the moment.\"";
warp "030-1.gat", 99, 55;
goto L_Close;
L_RewardTime:
mes "[Reino]";
mes "\"It's a really good feeling when all the hard work pays off.\"";
if (@reinboo != 14)
goto L_Close;
next;
mes "\"By the way, did that Saddle Rug help? Did you talk to Neiremes already?\"";
goto L_Close;
L_Close:
set @reinboo, 0;
set @xmas_time, 0;
close;
}
|
