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
|
// TMW2 scripts.
// Authors:
// Jesusalva
// Description:
// Controls world events so Saulc and I can take vacations.
// The event specifics are more often scattered accross seasons.txt, command/event.txt
// 003-1/events.txt, soulmenhir.txt and, of course, the event maps (if any).
// Schedule, if needed to change, can be found in the OnInit loop.
// An event, obviously, cannot last more than 7... 15 days at WORST.
// Therefore, month checks aren't included in day checks.
- script sPatrick NPC_HIDDEN,{
OnInit:
setarray .maps$,
"005-1",
"013-1",
"014-1",
"014-2",
"014-3",
"014-4",
"014-5",
"017-1",
"018-2",
"018-4",
"018-5",
"soren";
end;
OnMyMobDeath:
end;
OnClock0000:
OnClock6000:
OnClock1200:
OnClock1500:
OnClock1800:
OnClock2100:
.@d=gettime(GETTIME_DAYOFMONTH);
// Patrick Day should work only in 2 luck days according to Saulc
// If this is required use $PATRICK_DAYCTRL so the days before $@PATRICK_DAYMAX
// act with 100% chances (determinism).
// As it is being spawn 4 times at a day (like TMW-BR events), because it is
// flatly and outright IMPOSSIBLE to add a permanent spawn, that is not required.
if ($EVENT$ == "St. Patrick" && .@d <= $@PATRICK_DAYMAX) {
for (.@i=0; .@i < getarraysize(.maps$); .@i++) {
.@m$=.maps$[.@i];
.@x=getmapinfo(MAPINFO_SIZE_X, .@m$)-20;
.@y=getmapinfo(MAPINFO_SIZE_Y, .@m$)-20;
// Remove previously spawned clovers
killmonster(.@m$, "sPatrick::OnMyMobDeath");
// It is one clover for each 225 tiles (about a 25x25 square)
.@maparea=(.@x-20)*(.@y-20);
.@mobs=max(1, .@maparea/225);
areamonster .@m$, 20, 20, .@x, .@y, strmobinfo(1, StPatricksClover), StPatricksClover, .@mobs, "sPatrick::OnMyMobDeath";
}
}
end;
// Remove previously spawned clovers for event end
// And then disables the NPC
OnCleanUp:
for (.@i=0; .@i < getarraysize(.maps$); .@i++) {
.@m$=.maps$[.@i];
killmonster(.@m$, "sPatrick::OnMyMobDeath");
}
disablenpc "sPatrick";
end;
}
000-0,0,0,0 script #EventCore NPC_HIDDEN,{
end;
// Event Schedule (all dates are inclusive)
OnInit:
.valentine_stday=12;
.valentine_stmon=FEBRUARY;
.valentine_endday=15;
.valentine_endmon=FEBRUARY;
.patrick_stday=15;
.patrick_stmon=MARCH;
.patrick_endday=19;
.patrick_endmon=MARCH;
.easter_stday=17;
.easter_stmon=APRIL;
.easter_endday=24;
.easter_endmon=APRIL;
.worker_stday=27;
.worker_stmon=APRIL;
.worker_endday=3;
.worker_endmon=MAY;
.xmas_stday=19;
.xmas_stmon=DECEMBER;
.xmas_endday=2;
.xmas_endmon=JANUARY;
// Some setup
disablenpc "sPatrick";
// Check for events every midnight
OnClock0000:
.@d=gettime(GETTIME_DAYOFMONTH);
.@m=gettime(GETTIME_MONTH);
// Handle Valentine Day
if (.@m >=.valentine_stmon && .@m <= .valentine_endmon) {
// It's tomorrow: Send out an announcement
if (.@d == .valentine_stday - 1) {
channelmes("#world", "Valentine Day will start tomorrow!");
announce ("Valentine Day will start tomorrow!"), bc_all|bc_npc;
}
// Last Day: Send out an announcement
if (.@d == .valentine_endday) {
channelmes("#world", "It's the last day for Valentine Event! Hurry up!");
announce ("It's the last day for Valentine Event! Hurry up!"), bc_all|bc_npc;
}
// Begin the event
if (.@d == .valentine_stday) {
channelmes("#world", "Valentine Day begun!");
announce ("Valentine Day begun!"), bc_all|bc_npc;
$EVENT$="Valentine";
$@VALENTINE_LOVELETTER = htnew();
$@VALENTINE_GIFTSTACKS = htnew();
}
// End the event the day after
if (.@d == .valentine_endday+1) {
channelmes("#world", "Valentine Day ended!");
announce ("Valentine Day ended!"), bc_all|bc_npc;
sClear();
$EVENT$="";
}
}
// Handle St. Patrick Day
// During this day, a special four leaf clover is spawned daily, at 4 times in the day
// in all forests: 6:00, 12:00, 18:00 and 00:00.
// $PATRICK_DAYMAX
if (.@m >=.patrick_stmon && .@m <= .patrick_endmon) {
// It's tomorrow: Send out an announcement
if (.@d == .patrick_stday - 1) {
channelmes("#world", "St. Patrick Day will start tomorrow!");
announce ("St. Patrick Day will start tomorrow!"), bc_all|bc_npc;
}
// Last Day: Send out an announcement
if (.@d == .patrick_endday) {
channelmes("#world", "It's the last day for St. Patrick Event! Hurry up!");
announce ("It's the last day for St. Patrick Event! Hurry up!"), bc_all|bc_npc;
}
// Begin the event
if (.@d == .patrick_stday) {
channelmes("#world", "St. Patrick Day begun!");
announce ("St. Patrick Day begun!"), bc_all|bc_npc;
$EVENT$="St. Patrick";
$@PATRICK_DAYMAX=.patrick_endday;
enablenpc "sPatrick";
enablenpc "Patrick Saulc";
enablenpc "St. Patrick Gold Pot";
donpcevent "St. Patrick Gold Pot::OnForcedMove";
}
// End the event the day after
if (.@d == .patrick_endday+1) {
channelmes("#world", "St. Patrick Day ended!");
announce ("St. Patrick Day ended!"), bc_all|bc_npc;
sClear();
$EVENT$="";
donpcevent "sPatrick::OnCleanUp";
disablenpc "Patrick Saulc";
}
}
// Handle Easter
if (.@m >=.easter_stmon && .@m <= .easter_endmon) {
// It's tomorrow: Send out an announcement
if (.@d == .easter_stday - 1 && .@m == .easter_stmon) {
channelmes("#world", "Easter will start tomorrow!");
announce ("Easter will start tomorrow!"), bc_all|bc_npc;
}
// Last Day: Send out an announcement
if (.@d == .easter_endday && .@m == .easter_endmon) {
channelmes("#world", "It's the last day for Easter Event! Hurry up!");
announce ("It's the last day for Easter Event! Hurry up!"), bc_all|bc_npc;
}
// Begin the event
if (.@d == .easter_stday && .@m == .easter_stmon) {
channelmes("#world", "Easter begun!");
announce ("Easter begun!"), bc_all|bc_npc;
$EVENT$="Easter";
}
// End the event the day after
if (.@d == .easter_endday+1 && .@m == .easter_endmon) {
channelmes("#world", "Easter ended!");
announce ("Easter ended!"), bc_all|bc_npc;
sClear();
$EVENT$="";
}
}
// Handle Worker Day
if (.@m >=.worker_stmon && .@m <= .worker_endmon) {
// It's tomorrow: Send out an announcement
if (.@d == .worker_stday - 1 && .@m == .worker_stmon) {
channelmes("#world", "Worker Day will start tomorrow!");
announce ("Worker Day will start tomorrow!"), bc_all|bc_npc;
}
// Last Day: Send out an announcement
if (.@d == .worker_endday && .@m == .worker_endmon) {
channelmes("#world", "It's the last day for Worker Day Event! Hurry up!");
announce ("It's the last day for Worker Day Event! Hurry up!"), bc_all|bc_npc;
}
// Begin the event
if (.@d == .worker_stday && .@m == .worker_stmon) {
channelmes("#world", "Worker Day begun!");
announce ("Worker Day begun!"), bc_all|bc_npc;
$EVENT$="Worker Day";
}
// End the event the day after
if (.@d == .worker_endday+1 && .@m == .worker_endmon) {
channelmes("#world", "Worker Day ended!");
announce ("Worker Day ended!"), bc_all|bc_npc;
sClear();
$EVENT$="";
}
}
// Handle Christmas
if (.@m >=.xmas_stmon && .@m <= .xmas_endmon) {
// It's tomorrow: Send out an announcement
if (.@d == .xmas_stday - 1 && .@m == .xmas_stmon) {
channelmes("#world", "Christmas will start tomorrow!");
announce ("Christmas will start tomorrow!"), bc_all|bc_npc;
}
// Last Day: Send out an announcement
if (.@d == .xmas_endday && .@m == .xmas_endmon) {
channelmes("#world", "It's the last day for Christmas Event! Hurry up!");
announce ("It's the last day for Christmas Event! Hurry up!"), bc_all|bc_npc;
}
// Begin the event
if (.@d == .xmas_stday && .@m == .xmas_stmon) {
channelmes("#world", "Christmas begun!");
announce ("Christmas begun!"), bc_all|bc_npc;
$EVENT$="Christmas";
query_sql("DELETE FROM `quest` WHERE `quest_id` = '"+SQuest_Christmas+"'");
sChristmas();
}
// End the event the day after
if (.@d == .xmas_endday+1 && .@m == .xmas_endmon) {
channelmes("#world", "Christmas ended!");
announce ("Christmas ended!"), bc_all|bc_npc;
sClear();
$EVENT$="";
}
}
end;
}
|
