pokered/engine/play_time.asm

62 lines
972 B
NASM
Raw Permalink Normal View History

TrackPlayTime::
2014-09-14 18:29:18 +00:00
call CountDownIgnoreInputBitReset
ld a, [wStatusFlags6]
bit BIT_GAME_TIMER_COUNTING, a
2014-05-22 22:13:20 +00:00
ret z
2016-01-03 19:17:10 +00:00
ld a, [wPlayTimeMaxed]
2014-05-22 22:13:20 +00:00
and a
ret nz
2015-08-31 02:38:41 +00:00
ld a, [wPlayTimeFrames]
2014-05-22 22:13:20 +00:00
inc a
2015-08-31 02:38:41 +00:00
ld [wPlayTimeFrames], a
2014-05-22 22:13:20 +00:00
cp 60
ret nz
xor a
2015-08-31 02:38:41 +00:00
ld [wPlayTimeFrames], a
ld a, [wPlayTimeSeconds]
2014-05-22 22:13:20 +00:00
inc a
2015-08-31 02:38:41 +00:00
ld [wPlayTimeSeconds], a
2014-05-22 22:13:20 +00:00
cp 60
ret nz
xor a
2015-08-31 02:38:41 +00:00
ld [wPlayTimeSeconds], a
2016-01-03 19:17:10 +00:00
ld a, [wPlayTimeMinutes]
2014-05-22 22:13:20 +00:00
inc a
2016-01-03 19:17:10 +00:00
ld [wPlayTimeMinutes], a
2014-05-22 22:13:20 +00:00
cp 60
ret nz
xor a
2016-01-03 19:17:10 +00:00
ld [wPlayTimeMinutes], a
ld a, [wPlayTimeHours]
2014-05-22 22:13:20 +00:00
inc a
2016-01-03 19:17:10 +00:00
ld [wPlayTimeHours], a
2014-05-22 22:13:20 +00:00
cp $ff
ret nz
ld a, $ff
2016-01-03 19:17:10 +00:00
ld [wPlayTimeMaxed], a
2014-05-22 22:13:20 +00:00
ret
2016-06-12 00:24:04 +00:00
CountDownIgnoreInputBitReset:
2014-09-14 18:29:18 +00:00
ld a, [wIgnoreInputCounter]
2014-05-22 22:13:20 +00:00
and a
2022-07-11 01:11:03 +00:00
jr nz, .decrement
2014-05-22 22:13:20 +00:00
ld a, $ff
2022-07-11 01:11:03 +00:00
jr .continue
.decrement
2014-05-22 22:13:20 +00:00
dec a
2022-07-11 01:11:03 +00:00
.continue
2014-09-14 18:29:18 +00:00
ld [wIgnoreInputCounter], a
2014-05-22 22:13:20 +00:00
and a
ret nz
ld a, [wStatusFlags5]
res BIT_UNKNOWN_5_1, a
res BIT_UNKNOWN_5_2, a
bit BIT_DISABLE_JOYPAD, a
res BIT_DISABLE_JOYPAD, a
ld [wStatusFlags5], a
2014-05-22 22:13:20 +00:00
ret z
xor a
ldh [hJoyPressed], a
ldh [hJoyHeld], a
2014-05-22 22:13:20 +00:00
ret