mirror of
https://gitlab.com/xCrystal/pokecrystal-board.git
synced 2024-11-16 11:27:33 -08:00
7d4486e6a3
engine/routines/ stores isolated out-of-context routines as individual files. It might be preferable later to append them to their related engine/ files in unique little SECTIONs, relying on the linkerscript to place them appropriately; or some other organization method. In the meantime, they're now easily findable apart from main.asm's other content.
32 lines
403 B
NASM
32 lines
403 B
NASM
PlaySlowCry: ; fb841
|
|
ld a, [ScriptVar]
|
|
call LoadCryHeader
|
|
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 _PlayCryHeader
|
|
call WaitSFX
|
|
|
|
.done
|
|
ret
|
|
; fb877
|