mirror of
https://github.com/pret/pokegold-spaceworld.git
synced 2026-04-26 08:13:44 -05:00
105 lines
1.3 KiB
NASM
105 lines
1.3 KiB
NASM
INCLUDE "constants.asm"
|
|
|
|
SECTION "home/cry.asm", ROM0
|
|
|
|
PlayStereoCry::
|
|
push af
|
|
ld a, $1
|
|
ld [wc1b9], a
|
|
pop af
|
|
jr _PlayCry
|
|
|
|
PlayCry::
|
|
push af
|
|
xor a
|
|
ld [wc1b9], a
|
|
ld [wc1ba], a
|
|
pop af
|
|
_PlayCry:
|
|
push hl
|
|
push de
|
|
push bc
|
|
call GetCryIndex
|
|
ld e, c
|
|
ld d, b
|
|
call PlayCryHeader
|
|
call WaitSFX
|
|
pop bc
|
|
pop de
|
|
pop hl
|
|
ret
|
|
|
|
LoadCryHeader::
|
|
call GetCryIndex
|
|
ldh a, [hROMBank]
|
|
push af
|
|
ld a, BANK(CryHeaders)
|
|
call Bankswitch
|
|
ld hl, CryHeaders
|
|
add hl, bc
|
|
add hl, bc
|
|
add hl, bc
|
|
add hl, bc
|
|
add hl, bc
|
|
add hl, bc
|
|
ld e, [hl]
|
|
inc hl
|
|
ld d, [hl]
|
|
inc hl
|
|
ld a, [hli]
|
|
ld [wCryPitch], a
|
|
ld a, [hli]
|
|
ld [wCryPitch + 1], a
|
|
ld a, [hli]
|
|
ld [wCryLength], a
|
|
ld a, [hl]
|
|
ld [wCryLength + 1], a
|
|
pop af
|
|
call Bankswitch
|
|
ret
|
|
|
|
GetCryIndex::
|
|
ld d, a
|
|
ld a, [wce37]
|
|
push af
|
|
ld a, d
|
|
ld [wce37], a
|
|
callba Function40b45
|
|
ld a, [wce37]
|
|
dec a
|
|
ld c, a
|
|
ld b, $0
|
|
pop af
|
|
ld [wce37], a
|
|
ret
|
|
|
|
PrintLevel::
|
|
ld a, $6e ; ":L"
|
|
ld [hli], a
|
|
ld c, 2
|
|
ld a, [wLoadedMonLevel]
|
|
cp 100
|
|
jr c, _PrintLevelCommon
|
|
dec hl
|
|
inc c
|
|
jr _PrintLevelCommon
|
|
|
|
PrintLevelFullWidth::
|
|
ld a, $6e ; ":L"
|
|
ld [hli], a
|
|
ld c, 3
|
|
ld a, [wLoadedMonLevel]
|
|
_PrintLevelCommon:
|
|
ld [wce37], a
|
|
ld de, wce37
|
|
ld b, PRINTNUM_RIGHTALIGN | 1
|
|
jp PrintNumber
|
|
|
|
Function3a42::
|
|
ld hl, wce2e
|
|
ld c, a
|
|
ld b, 0
|
|
add hl, bc
|
|
ld a, [hl]
|
|
ret
|