mirror of
https://gitlab.com/xCrystal/pokecrystal-board.git
synced 2024-11-16 11:27:33 -08:00
d3cc861d33
Renamed a bunch of files, most of them one-off functions, to better fit the general snake_case naming scheme. Also renamed some awfully long filenames.
32 lines
398 B
NASM
32 lines
398 B
NASM
PlaySlowCry: ; fb841
|
|
ld a, [wScriptVar]
|
|
call LoadCry
|
|
jr c, .done
|
|
|
|
ld hl, wCryPitch
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
ld bc, -$140
|
|
add hl, bc
|
|
ld a, l
|
|
ld [wCryPitch], a
|
|
ld a, h
|
|
ld [wCryPitch + 1], a
|
|
ld hl, wCryLength
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
ld bc, $60
|
|
add hl, bc
|
|
ld a, l
|
|
ld [wCryLength], a
|
|
ld a, h
|
|
ld [wCryLength + 1], a
|
|
farcall _PlayCry
|
|
call WaitSFX
|
|
|
|
.done
|
|
ret
|
|
; fb877
|