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
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
|
InitializeStartDay_: ; 117f1 (4:57f1)
call Function118c9
ret
ClearDailyTimers:
xor a
ld [wLuckyNumberDayBuffer], a
ld [wUnusedTwoDayTimer], a
ld [wDailyResetTimer], a
ret
InitCallReceiveDelay:
xor a
ld [wTimeCyclesSinceLastCall], a
Function11804: ; 11804 (4:5804)
ld a, [wTimeCyclesSinceLastCall]
cp $3
jr c, .asm_1180d
ld a, $3
.asm_1180d
ld e, a
ld d, $0
ld hl, .ReceiveCallDelays
add hl, de
ld a, [hl]
jp Function11849
.ReceiveCallDelays:
db 20, 10, 5, 3
CheckReceiveCallTimer:
call Function11857
ret nc
ld hl, wTimeCyclesSinceLastCall
ld a, [hl]
cp $3
jr nc, .asm_11829
inc [hl]
.asm_11829
call Function11804
scf
ret
Function1182e: ; 1182e (4:582e)
ld a, $1
Function11830:
ld [hl], a
push hl
call UpdateTime
pop hl
inc hl
call CopyDayToHL
ret
Function1183b: ; 1183b (4:583b)
inc hl
push hl
call CalcDaysSince
call Function119b4
pop hl
dec hl
call Function11972
ret
Function11849: ; 11849 (4:5849)
ld hl, wReceiveCallDelay_MinsRemaining
ld [hl], a
call UpdateTime
ld hl, wReceiveCallDelay_StartTime
call CopyDayHourMinToHL
ret
Function11857: ; 11857 (4:5857)
ld hl, wReceiveCallDelay_StartTime
call CalcMinsHoursDaysSince
call Function1199a
ld hl, wReceiveCallDelay_MinsRemaining
call Function11972
ret
asm_11867
ld hl, wDailyResetTimer
jp Function1182e
CheckDailyResetTimer:
ld hl, wDailyResetTimer
call Function1183b
ret nc
xor a
ld hl, wDailyFlags
ld [hli], a
ld [hl], a
jr asm_11867
StartBugContestTimer:
ld a, 20
ld [wBugContestMinsRemaining], a
ld a, 0
ld [wBugContestSecsRemaining], a
call UpdateTime
ld hl, wBugContestStartTime
call CopyDayHourMinSecToHL
ret
CheckBugContestTimer:
ld hl, wBugContestStartTime
call CalcSecsMinsHoursDaysSince
ld a, [wDaysSince]
and a
jr nz, .asm_118c0
ld a, [wHoursSince]
and a
jr nz, .asm_118c0
ld a, [wSecsSince]
ld b, a
ld a, [wBugContestSecsRemaining]
sub b
jr nc, .asm_118ae
add 60
.asm_118ae
ld [wBugContestSecsRemaining], a
ld a, [wMinsSince]
ld b, a
ld a, [wBugContestMinsRemaining]
sbc b
ld [wBugContestMinsRemaining], a
jr c, .asm_118c0
and a
ret
.asm_118c0
xor a
ld [wBugContestMinsRemaining], a
ld [wBugContestSecsRemaining], a
scf
ret
Function118c9: ; 118c9 (4:58c9)
call UpdateTime
ld hl, wStartDay
call CopyDayToHL
ret
CheckPokerusTick:
ld hl, wStartDay
call CalcDaysSince
call Function119b4
and a
jr z, .asm_118e6
ld b, a
farcall ApplyPokerusTick ; same bank
.asm_118e6
xor a
ret
SetUnusedTwoDayTimer:
ld a, $2
ld hl, wUnusedTwoDayTimer
ld [hl], a
call UpdateTime
ld hl, wUnusedTwoDayTimerStartDate
call CopyDayToHL
ret
Function118f8: ; 118f8 (4:58f8)
ld hl, wUnusedTwoDayTimerStartDate
call CalcDaysSince
call Function119b4
ld hl, wUnusedTwoDayTimer
call Function11972
ret
ld hl, wDailyFlags
set 2, [hl]
ret
and a
ld hl, wDailyFlags
bit 2, [hl]
ret nz
scf
ret
Function11917: ; 11917 (4:5917)
call Function11920
ld hl, wLuckyNumberDayBuffer
jp Function11830
Function11920: ; 11920 (4:5920)
call GetWeekday
ld c, a
ld a, $5
sub c
jr z, .asm_1192b
jr nc, .asm_1192d
.asm_1192b
add $7
.asm_1192d
ret
Function1192e: ; 1192e (4:592e)
ld hl, wLuckyNumberDayBuffer
jp Function1183b
Function11934: ; 11934 (4:5934)
ld a, BANK(sMysteryGiftTimer)
call OpenSRAM
ld hl, sMysteryGiftTimer
ld a, [hli]
ld [wCurHPAnimMaxHP], a
ld a, [hl]
ld [wBuffer2], a
call CloseSRAM
ld hl, wCurHPAnimMaxHP
call Function1183b
jr nc, .asm_1195e
ld hl, wCurHPAnimMaxHP
call Function1182e
call CloseSRAM
farcall Function2a4f6
.asm_1195e
ld a, BANK(sMysteryGiftTimer)
call OpenSRAM
ld hl, wBuffer1
ld a, [hli]
ld [sMysteryGiftTimer], a
ld a, [hl]
ld [sMysteryGiftTimer + 1], a
call CloseSRAM
ret
Function11972: ; 11972 (4:5972)
cp $ff
jr z, .asm_11981
ld c, a
ld a, [hl]
sub c
jr nc, .asm_1197c
xor a
.asm_1197c
ld [hl], a
jr z, .asm_11981
xor a
ret
.asm_11981
xor a
ld [hl], a
scf
ret
GetSecondsSinceIfLessThan60:
ld a, [wDaysSince]
and a
jr nz, asm_119b8
ld a, [wHoursSince]
and a
jr nz, asm_119b8
ld a, [wMinsSince]
jr nz, asm_119b8
ld a, [wSecsSince]
ret
Function1199a: ; 1199a (4:599a)
ld a, [wDaysSince]
and a
jr nz, asm_119b8
ld a, [wHoursSince]
and a
jr nz, asm_119b8
ld a, [wMinsSince]
ret
GetHoursSinceIfLessThan24:
ld a, [wDaysSince]
and a
jr nz, asm_119b8
ld a, [wHoursSince]
ret
Function119b4: ; 119b4 (4:59b4)
ld a, [wDaysSince]
ret
asm_119b8
ld a, $ff
ret
CalcDaysSince: ; 119bb (4:59bb)
xor a
jr CalcDaysSince_
CalcHoursDaysSince:
inc hl
xor a
jr CalcHoursDaysSince_
CalcMinsHoursDaysSince: ; 119c2 (4:59c2)
inc hl
inc hl
xor a
jr CalcMinsHoursDaysSince_
CalcSecsMinsHoursDaysSince: ; 119c7 (4:59c7)
inc hl
inc hl
inc hl
ldh a, [hSeconds]
ld c, a
sub [hl]
jr nc, .asm_119d2
add 60
.asm_119d2
ld [hl], c
dec hl
ld [wSecsSince], a
CalcMinsHoursDaysSince_
ldh a, [hMinutes]
ld c, a
sbc [hl]
jr nc, .asm_119df
add 60
.asm_119df
ld [hl], c
dec hl
ld [wMinsSince], a
CalcHoursDaysSince_
ldh a, [hHours]
ld c, a
sbc [hl]
jr nc, .asm_119ec
add 24
.asm_119ec
ld [hl], c
dec hl
ld [wHoursSince], a
CalcDaysSince_:
ld a, [wCurDay]
ld c, a
sbc [hl]
jr nc, .asm_119fa
add 20 * 7
.asm_119fa
ld [hl], c
ld [wDaysSince], a
ret
CopyDayHourMinSecToHL: ; 119ff (4:59ff)
ld a, [wCurDay]
ld [hli], a
ldh a, [hHours]
ld [hli], a
ldh a, [hMinutes]
ld [hli], a
ldh a, [hSeconds]
ld [hli], a
ret
CopyDayToHL: ; 11a0d (4:5a0d)
ld a, [wCurDay]
ld [hl], a
ret
CopyDayHourToHL:
ld a, [wCurDay]
ld [hli], a
ldh a, [hHours]
ld [hli], a
ret
CopyDayHourMinToHL: ; 11a1a (4:5a1a)
ld a, [wCurDay]
ld [hli], a
ldh a, [hHours]
ld [hli], a
ldh a, [hMinutes]
ld [hli], a
ret
|
