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
|
// TMW2/LoF scripts.
// Authors:
// TMW-LoF Team
// Jesusalva
// Description:
// Christmas Quest
// Closed Christmas Boxes have been stolen! Give him any you find for the
// ranking (and ranking based rewards). The global amount of delivered boxes
// will determine the gifts (and amount of gifts) handled by Santa!
//
// Rewards: Santa Hat, Gnome Hat, Santa Bearded Hat, Ugly Christmas Sweater,
// Turtle Neck Sweater, Santa Globe, Snowman Globe, Red Stocking.
//
// SQuest_Christmas
// Current Year
// Boxes Delivered
// Money Sponsored
//
// $XMAS_GIFTS
// World-wide collected gifts count.
019-4-1,56,33,0 script Christmas Chief NPC_GNOME_A,{
function ScoreXMAS {
mes "##B"+l("Top 5 - Christmas Box Donation Event")+"##b";
mes("1."+$@xmas_box_name$[0]+" ("+fnum($@xmas_box_value[0])+")");
mes("2."+$@xmas_box_name$[1]+" ("+fnum($@xmas_box_value[1])+")");
mes("3."+$@xmas_box_name$[2]+" ("+fnum($@xmas_box_value[2])+")");
mes("4."+$@xmas_box_name$[3]+" ("+fnum($@xmas_box_value[3])+")");
mes("5."+$@xmas_box_name$[4]+" ("+fnum($@xmas_box_value[4])+")");
next;
mes "##B"+l("Top 5 - Golbarez Seasonal Quest")+"##b";
mes("1."+$@xmas_gp_name$[0]+" ("+fnum($@xmas_gp_value[0])+" GP)");
mes("2."+$@xmas_gp_name$[1]+" ("+fnum($@xmas_gp_value[1])+" GP)");
mes("3."+$@xmas_gp_name$[2]+" ("+fnum($@xmas_gp_value[2])+" GP)");
mes("4."+$@xmas_gp_name$[3]+" ("+fnum($@xmas_gp_value[3])+" GP)");
mes("5."+$@xmas_gp_name$[4]+" ("+fnum($@xmas_gp_value[4])+" GP)");
next;
}
// Christmas still running
if ($EVENT$ == "Christmas")
goto L_Main;
// Last year
if (getq(SQuest_Christmas) == gettime(GETTIME_YEAR)-1)
goto L_Reward;
// Not in season
goto L_OutOfSeason;
L_OutOfSeason:
mesn;
mesq l("This workshop doesn't gets too many tasks from Santa outside the Christmas...");
if (is_staff())
ScoreXMAS();
close;
L_Reward:
inventoryplace NPCEyes, 6, Iten, 1;
.@q1=getq2(SQuest_Christmas);
.@q2=getq3(SQuest_Christmas);
setq1 SQuest_Christmas, 0;
/* Handle Christmas Quest Rewards */
/* The top 5 gets special rewards! */
// #1 : White Cat Pet
// #2 - #3: Red Stocking
// #4 - #5: Extra xmas gift
/* You get Christmas Gift Box, which contain rares */
.@gifts=min(15, log2($XMAS_GIFTS/100))+1;
if (.@q1 >= .@gifts)
getitem XmasGift, .@gifts;
// Top 5 rewards
if (strcharinfo(0) == $@xmas_box_name$[0])
makepet CattyCat;
else if (strcharinfo(0) == $@xmas_box_name$[1] || strcharinfo(0) == $@xmas_box_name$[2])
getitem RedStocking, 1;
else if (strcharinfo(0) == $@xmas_box_name$[3] || strcharinfo(0) == $@xmas_box_name$[4])
getitem XmasGift, 1;
if (strcharinfo(0) == .@name$[0])
mesc l("You gained a @@ for the #1 place on the event. Remember to feed it @@, or it may run away from you.", getitemlink(CattyCat), getitemlink(Milk));
/////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////
/* Handle Golbarez Quest Rewards */
/* Mostly Coins, some Merc Boxes, EXP/JExp */
/* Gift the best people at this quest, too */
getexp .@q2/4, (.@q2/1000)+.@q1;
.@coins=limit(0, .@q2/10000, 300);
.@overf=limit(0, (.@q2-3000000)/5000, 1400);
REAL_ESTATE_CREDITS+=.@q2*15/10;
if (.@coins)
getitem CasinoCoins, .@coins;
if (.@coins > 3)
getitem StrangeCoin, .@coins/3;
if (.@overf)
getitem HeroCoin, .@overf;
// Mercenary boxes (requires certain global donation values)
.@mc_boxc=.@q2/100000;
.@mc_boxb=(.@q2/60000)-.@mc_boxc;
.@mc_boxa=(.@q2/40000)-.@mc_boxb;
// Blueprints
.@bp_total=.@q2/15000; // Price of an Ancient Blueprint
.@bp_rank=0;
// Event: Supreme (5 Mi)
if ($XMAS_MONEY >= 5000000) {
if (.@mc_boxc)
getitem MercBoxE, .@mc_boxc;
if (.@mc_boxb)
getitem MercBoxD, .@mc_boxb;
if (.@mc_boxa)
getitem MercBoxC, .@mc_boxa+1;
.@bp_rank=5;
.@bp_gift=SupremeGift;
// Event: Great (1.5 Mi)
} if ($XMAS_MONEY >= 1500000) {
if (.@mc_boxc)
getitem MercBoxD, .@mc_boxc;
if (.@mc_boxb)
getitem MercBoxC, .@mc_boxb;
if (.@mc_boxa)
getitem MercBoxB, .@mc_boxa+1;
.@bp_rank=4;
.@bp_gift=PrismGift;
// Event: Good (750k)
} else if ($XMAS_MONEY >= 750000) {
if (.@mc_boxc)
getitem MercBoxC, .@mc_boxc;
if (.@mc_boxb)
getitem MercBoxB, .@mc_boxb;
if (.@mc_boxa)
getitem MercBoxA, .@mc_boxa+1;
.@bp_rank=3;
.@bp_gift=GoldenGift;
// Event: Average (250k)
} else if ($XMAS_MONEY >= 250000) {
if (.@mc_boxb)
getitem MercBoxB, .@mc_boxb;
if (.@mc_boxa)
getitem MercBoxA, .@mc_boxa;
.@bp_rank=2;
.@bp_gift=SilverGift;
// Event: Bad (must aid players - 100k)
} else if ($XMAS_MONEY >= 100000) {
if (.@q2 >= 10000)
getitem MercBoxA, .@mc_boxa+1;
.@bp_rank=1;
.@bp_gift=BronzeGift;
}
// Event: Terrible (< 100k: No merc rewards)
// Blueprints control
// Event: Horrible
if (.@bp_rank <= 0 && .@bp_total) {
.@bp=.@bp_total/2;
getitem AlchemyBlueprintA, limit(1, .@bp, 3);
if (.@bp)
getitem EquipmentBlueprintA, limit(1, .@bp, 3);
}
// Event: Bad
else if (.@bp_rank <= 1 && .@bp_total) {
.@bp=.@bp_total/2;
getitem AlchemyBlueprintA, limit(1, .@bp, 10);
if (.@bp)
getitem EquipmentBlueprintA, limit(1, .@bp, 10);
if (.@bp > 3)
getitem AncientBlueprint, 1;
}
// Event: Average
else if (.@bp_rank <= 2 && .@bp_total) {
.@bp=.@bp_total/4;
getitem AlchemyBlueprintA, limit(1, .@bp, 5);
getitem EquipmentBlueprintA, limit(1, .@bp, 5);
if (.@bp) {
getitem AlchemyBlueprintB, limit(1, .@bp, 3);
getitem EquipmentBlueprintB, limit(1, .@bp, 3);
getitem AncientBlueprint, 1;
}
}
// Event: Good
else if (.@bp_rank <= 3 && .@bp_total) {
.@bp=.@bp_total/6;
getitem AlchemyBlueprintA, limit(1, .@bp, 10);
getitem EquipmentBlueprintA, limit(1, .@bp, 10);
getitem AlchemyBlueprintB, limit(1, .@bp, 5);
getitem EquipmentBlueprintB, limit(1, .@bp, 5);
if (.@bp) {
getitem AlchemyBlueprintC, limit(1, .@bp, 3);
getitem EquipmentBlueprintC, limit(1, .@bp, 3);
getitem AncientBlueprint, 2;
}
}
// Event: Great
else if (.@bp_rank <= 4 && .@bp_total) {
.@bp=.@bp_total/7;
getitem AlchemyBlueprintB, limit(1, .@bp, 10);
getitem EquipmentBlueprintB, limit(1, .@bp, 10);
getitem AlchemyBlueprintC, limit(1, .@bp, 5);
getitem EquipmentBlueprintC, limit(1, .@bp, 5);
if (.@bp) {
getitem AlchemyBlueprintD, limit(1, .@bp, 3);
getitem EquipmentBlueprintD, limit(1, .@bp, 3);
getitem AncientBlueprint, 3;
}
}
// Event: Supreme
else if (.@bp_rank >= 5 && .@bp_total) {
.@bp=.@bp_total/8;
getitem AlchemyBlueprintC, limit(1, .@bp, 7);
getitem EquipmentBlueprintC, limit(1, .@bp, 7);
getitem AlchemyBlueprintD, limit(1, .@bp, 5);
getitem EquipmentBlueprintD, limit(1, .@bp, 5);
if (.@bp) {
getitem AlchemyBlueprintE, limit(1, .@bp, 2);
getitem EquipmentBlueprintE, limit(1, .@bp, 2);
getitem AncientBlueprint, 3;
}
}
// MVP Awards
if ((.@q2*100)/$XMAS_MONEY >= 80) { // 80% contribution
getitem PrismGift, limit(1, .@q2/500000, 2);
getitem GoldenGift, limit(1, .@q2/100000, 3);
if (.@bp_rank >= 2)
getitem AncientBlueprint, 5;
else if (.@bp_rank >= 1)
getitem AncientBlueprint, 3;
} else if ((.@q2*100)/$XMAS_MONEY >= 60) { // 60% contribution
getitem GoldenGift, limit(1, .@q2/500000, 2);
getitem SilverGift, limit(1, .@q2/100000, 3);
if (.@bp_rank >= 2)
getitem AncientBlueprint, 3;
else if (.@bp_rank >= 1)
getitem AncientBlueprint, 2;
} else if ((.@q2*100)/$XMAS_MONEY >= 40) { // 40% contribution
getitem SilverGift, limit(1, .@q2/500000, 2);
getitem BronzeGift, limit(1, .@q2/100000, 3);
if (.@bp_rank >= 2)
getitem AncientBlueprint, 2;
else if (.@bp_rank >= 1)
getitem AncientBlueprint, 1;
} else if ((.@q2*100)/$XMAS_MONEY >= 20) { // 20% contribution
getitem BronzeGift, limit(1, .@q2/500000, 2);
getitem StrangeCoin, limit(1, .@q2/5000, 20);
if (.@bp_rank >= 2)
getitem AncientBlueprint, 1;
} else if ((.@q2*100)/$XMAS_MONEY >= 5) { // 5% contribution
getitem StrangeCoin, limit(1, .@q2/100000, 10);
getitem CasinoCoins, limit(1, .@q2/5000, 20);
}
/* The top 5 gets special rewards! */
// #1 : Xmas Gift x2
// #2 - #3: Xmas Gift x1
// #4 - #5: Bronze Gift
if (strcharinfo(0) == $@xmas_gp_name$[0])
getitem XmasGift, max(.@bp_rank, 1)+1;
getitem .@bp_gift, 1;
else if (strcharinfo(0) == $@xmas_gp_name$[1] || strcharinfo(0) == $@xmas_gp_name$[2])
getitem XmasGift, max(.@bp_rank, 1);
getitem .@bp_gift, 1;
else if (strcharinfo(0) == $@xmas_gp_name$[3] || strcharinfo(0) == $@xmas_gp_name$[4])
getitem .@bp_gift, 1;
mesn;
mesq l("Thanks for helping us the last year. I hope to have your help by the next year.");
next;
ScoreXMAS();
close;
L_Main:
// Start Event for the first time if needed
if (gettime(GETTIME_MONTH) != JANUARY && getq(SQuest_Christmas) != gettime(GETTIME_YEAR)) {
setq SQuest_Christmas, gettime(GETTIME_YEAR), 0, 0;
}
if (gettime(GETTIME_MONTH) == JANUARY && getq(SQuest_Christmas) != gettime(GETTIME_YEAR)-1) {
setq SQuest_Christmas, gettime(GETTIME_YEAR)-1, 0, 0;
}
// Begin Christmas
.@q=getq2(SQuest_Christmas);
//
if (!getq(General_Narrator)) {
mesn;
mesq l("The stolen christmas boxes!! Christmas is RUINED!!!");
mesc l("You should complete Candor Prologue before participating on this quest.");
close;
}
mesn;
mesq l("We only managed to recover @@ stolen @@ thus far...", $XMAS_GIFTS, getitemlink(ClosedChristmasBox));
// Same formula from 2007 event. (max: 3.276.800 boxes delivered, an ABSURD amount)
// You need to give at least this many boxes yourself to be eligible for rewards, though.
.@gifts=min(15, log2($XMAS_GIFTS/100))+1;
mesq l("If things keep like this, we will only manage to give @@ gifts to every player...", .@gifts);
if (.@q < .@gifts || !.@q)
mesc l("WARNING: You must give at least @@ boxes more before event ends to be eligible for a reward!", .@gifts-.@q), 1;
next;
if (.@q) {
mesn;
switch (.@gifts) {
case 0: mesq l("There isn't enough, not even for NPCs. We need at least 100."); break;
case 1: mesq l("Santa can give one present for all players. Maybe if we got 200..."); break;
case 2: mesq l("Hey, two gifts is very nice. But if we delivered 400. Think on it."); break;
case 3: mesq l("Wow, three gifts! Good job! With 800, an extra gift for everyone!"); break;
case 4: mesq l("Hahah, four gifts, neat! Can we get to 1600 boxes?"); break;
case 5: mesq l("Amazing. Five gifts for all. With 3200, we could supply nomad tribes..."); break;
case 6: mesq l("Atonishing. Six gifts is the real deal. Easy to guess: 6400 is the next milestone."); break;
case 7: mesq l("Impressive. Seven gifts! Now, 12800 is not easy. I understand if everyone gives up."); break;
case 8: mesq l("Eight gifts. Let's double the goal. 25600 gifts. Did you guys hire some chinese gold farmers, anyway?"); break;
case 9: mesq l("How did you got that much? Nine gifts, and 51200 if you want even more."); break;
case 10: mesq l("Want to break the hundredthousand item limit?? Ten gifts, for more, bring 102,400 boxes here."); break;
case 11: mesq l("Eleven gifts? You guys really have no live! For 204,800 I'll give an extra one."); break;
case 12: mesq l("Twelve... There is no way people collected this many gifts. Anyway. 404,800 is the next milestone."); break;
case 13: mesq l("What the f...? Four Hundred Thousand??? Must be a bug. Next milestone is 819,200. Cheaters."); break;
case 14: mesq l("I must report this to Jesusalva. The inventory system can't handle that much. Want more? Try 1,638,400."); break;
default: mesq l("ENOUGH! LAME CHEATERS, GET OFF THIS GAME %%a That's 15 gifts, and it is final."); break;
}
next;
}
goto L_Loop;
L_Loop:
mesn;
mesq l("Well, if you want to donate @@, you'll be ranked. There's gift for everyone, and rewards for top 5 donors.", getitemlink(ClosedChristmasBox));
mesc l("Thus far, you've donated @@ boxes.", .@q);
mes "";
select
rif(countitem(ClosedChristmasBox), l("Return @@ boxes", countitem(ClosedChristmasBox))),
l("Scoreboards"),
l("Leave");
mes "";
switch (@menu) {
case 1:
.@am=countitem(ClosedChristmasBox);
delitem ClosedChristmasBox, .@am;
.@q=getq2(SQuest_Christmas);
$XMAS_GIFTS+=.@am;
setq2 SQuest_Christmas, .@q+.@am;
break;
case 2: ScoreXMAS(); goto L_Loop; break;
}
close;
OnInit:
.sex=G_MALE;
.distance=5;
end;
}
|
