pokered/engine/play_time.asm
2022-07-10 21:11:03 -04:00

61 lines
864 B
NASM

TrackPlayTime::
call CountDownIgnoreInputBitReset
ld a, [wd732]
bit 0, a
ret z
ld a, [wPlayTimeMaxed]
and a
ret nz
ld a, [wPlayTimeFrames]
inc a
ld [wPlayTimeFrames], a
cp 60
ret nz
xor a
ld [wPlayTimeFrames], a
ld a, [wPlayTimeSeconds]
inc a
ld [wPlayTimeSeconds], a
cp 60
ret nz
xor a
ld [wPlayTimeSeconds], a
ld a, [wPlayTimeMinutes]
inc a
ld [wPlayTimeMinutes], a
cp 60
ret nz
xor a
ld [wPlayTimeMinutes], a
ld a, [wPlayTimeHours]
inc a
ld [wPlayTimeHours], a
cp $ff
ret nz
ld a, $ff
ld [wPlayTimeMaxed], a
ret
CountDownIgnoreInputBitReset:
ld a, [wIgnoreInputCounter]
and a
jr nz, .decrement
ld a, $ff
jr .continue
.decrement
dec a
.continue
ld [wIgnoreInputCounter], a
and a
ret nz
ld a, [wd730]
res 1, a
res 2, a
bit 5, a
res 5, a
ld [wd730], a
ret z
xor a
ldh [hJoyPressed], a
ldh [hJoyHeld], a
ret