mirror of
https://github.com/pret/pokered.git
synced 2024-10-22 22:55:31 +00:00
31 lines
406 B
NASM
31 lines
406 B
NASM
DelayFrames::
|
|
; wait c frames
|
|
call DelayFrame
|
|
dec c
|
|
jr nz, DelayFrames
|
|
ret
|
|
|
|
PlaySoundWaitForCurrent::
|
|
push af
|
|
call WaitForSoundToFinish
|
|
pop af
|
|
jp PlaySound
|
|
|
|
; Wait for sound to finish playing
|
|
WaitForSoundToFinish::
|
|
ld a, [wLowHealthAlarm]
|
|
and $80
|
|
ret nz
|
|
push hl
|
|
.waitLoop
|
|
ld hl, wChannelSoundIDs + CHAN5
|
|
xor a
|
|
or [hl]
|
|
inc hl
|
|
or [hl]
|
|
inc hl
|
|
inc hl
|
|
or [hl]
|
|
jr nz, .waitLoop
|
|
pop hl
|
|
ret
|