mirror of https://github.com/pret/pokecrystal.git
32 lines
391 B
NASM
32 lines
391 B
NASM
PlaySlowCry: ; fb841
|
|
ld a, [ScriptVar]
|
|
call LoadCry
|
|
jr c, .done
|
|
|
|
ld hl, CryPitch
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
ld bc, -$140
|
|
add hl, bc
|
|
ld a, l
|
|
ld [CryPitch], a
|
|
ld a, h
|
|
ld [CryPitch + 1], a
|
|
ld hl, CryLength
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
ld bc, $60
|
|
add hl, bc
|
|
ld a, l
|
|
ld [CryLength], a
|
|
ld a, h
|
|
ld [CryLength + 1], a
|
|
farcall _PlayCry
|
|
call WaitSFX
|
|
|
|
.done
|
|
ret
|
|
; fb877
|