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
|
// 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]+" ("+$@xmas_box_value[0]+")");
mes("2."+$@xmas_box_name$[1]+" ("+$@xmas_box_value[1]+")");
mes("3."+$@xmas_box_name$[2]+" ("+$@xmas_box_value[2]+")");
mes("4."+$@xmas_box_name$[3]+" ("+$@xmas_box_value[3]+")");
mes("5."+$@xmas_box_name$[4]+" ("+$@xmas_box_value[4]+")");
next;
mes "##B"+l("Top 5 - Golbarez Seasonal Quest")+"##b";
mes("1."+$@xmas_gp_name$[0]+" ("+$@xmas_gp_value[0]+" GP)");
mes("2."+$@xmas_gp_name$[1]+" ("+$@xmas_gp_value[1]+" GP)");
mes("3."+$@xmas_gp_name$[2]+" ("+$@xmas_gp_value[2]+" GP)");
mes("4."+$@xmas_gp_name$[3]+" ("+$@xmas_gp_value[3]+" GP)");
mes("5."+$@xmas_gp_name$[4]+" ("+$@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...");
close;
L_Reward:
inventoryplace NPCEyes, 5, 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=.@q2/10000;
REAL_ESTATE_CREDITS+=.@q2*15/10;
if (.@coins)
getitem CasinoCoins, .@coins;
if (.@coins > 3)
getitem StrangeCoin, .@coins/3;
// Mercenary boxes (requires certain global donation values)
.@mc_boxc=.@q2/100000;
.@mc_boxb=(.@q2/60000)-.@mc_boxc;
.@mc_boxa=(.@q2/40000)-.@mc_boxb;
// Event: Good
if ($XMAS_MONEY >= 750000) {
if (.@mc_boxc)
getitem MercBoxC, .@mc_boxb;
if (.@mc_boxb)
getitem MercBoxB, .@mc_boxb;
if (.@mc_boxa)
getitem MercBoxA, .@mc_boxa+1;
// Event: Average
} else if ($XMAS_MONEY >= 250000) {
if (.@mc_boxb)
getitem MercBoxB, .@mc_boxb;
if (.@mc_boxa)
getitem MercBoxA, .@mc_boxa;
// Event: Bad (must aid players)
} else if ($XMAS_MONEY >= 100000) {
if (.@q2 >= 10000)
getitem MercBoxA, .@mc_boxa+1;
}
// MVP Awards
if ((.@q2*100)/$XMAS_MONEY >= 80) // 80% contribution
getitem PrismGift, limit(1, .@q2/500000, 2);
getitem GoldenGift, limit(1, .@q2/100000, 3);
else if ((.@q2*100)/$XMAS_MONEY >= 60) // 60% contribution
getitem GoldenGift, limit(1, .@q2/500000, 2);
getitem SilverGift, limit(1, .@q2/100000, 3);
else if ((.@q2*100)/$XMAS_MONEY >= 40) // 40% contribution
getitem SilverGift, limit(1, .@q2/500000, 2);
getitem BronzeGift, limit(1, .@q2/100000, 3);
else if ((.@q2*100)/$XMAS_MONEY >= 20) // 20% contribution
getitem BronzeGift, limit(1, .@q2/500000, 2);
getitem StrangeCoin, limit(1, .@q2/5000, 20);
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, 2;
else if (strcharinfo(0) == $@xmas_gp_name$[1] || strcharinfo(0) == $@xmas_gp_name$[2])
getitem XmasGift, 1;
else if (strcharinfo(0) == $@xmas_gp_name$[3] || strcharinfo(0) == $@xmas_gp_name$[4])
getitem BronzeGift, 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;
}
|
