mirror of
https://github.com/pret/pokered.git
synced 2024-10-23 15:08:23 +00:00
bd533aa79b
Using 'Coord =' doesn't like using wTileMap So use hlCoord, deCoord, bcCoord, aCoord, Coorda, or dwCoord to avoid static addresses
157 lines
2.3 KiB
NASM
Executable file
157 lines
2.3 KiB
NASM
Executable file
Func_7bde9: ; 7bde9 (1e:7de9)
|
|
push hl
|
|
push de
|
|
push bc
|
|
ld a, [wcf91]
|
|
push af
|
|
ld a, [wd0b5]
|
|
push af
|
|
xor a
|
|
ld [wd083], a
|
|
ld [wc02a], a
|
|
dec a
|
|
ld [wc0ee], a
|
|
call PlaySound
|
|
ld a, $1
|
|
ld [H_AUTOBGTRANSFERENABLED], a ; $ffba
|
|
ld a, (SFX_08_3c - SFX_Headers_08) / 3
|
|
call PlaySound
|
|
call Delay3
|
|
xor a
|
|
ld [H_AUTOBGTRANSFERENABLED], a ; $ffba
|
|
ld [$ffd7], a
|
|
ld a, [wHPBarMaxHP]
|
|
ld [wcf1d], a
|
|
ld c, $0
|
|
call Func_7beb4
|
|
ld a, [wHPBarMaxHP + 1]
|
|
ld [wcf91], a
|
|
ld [wd0b5], a
|
|
call Func_7beb9
|
|
ld de, vFrontPic
|
|
ld hl, vBackPic
|
|
ld bc, 7 * 7
|
|
call CopyVideoData
|
|
ld a, [wHPBarMaxHP]
|
|
ld [wcf91], a
|
|
ld [wd0b5], a
|
|
call Func_7beb9
|
|
ld a, $1
|
|
ld [H_AUTOBGTRANSFERENABLED], a ; $ffba
|
|
ld a, [wHPBarMaxHP]
|
|
call PlayCry
|
|
call WaitForSoundToFinish
|
|
ld c, BANK(Music_SafariZone)
|
|
ld a, MUSIC_SAFARI_ZONE
|
|
call PlayMusic
|
|
ld c, $50
|
|
call DelayFrames
|
|
ld c, $1
|
|
call Func_7beb4
|
|
ld bc, $110
|
|
.asm_7be63
|
|
push bc
|
|
call asm_7befa
|
|
jr c, .asm_7bea9
|
|
call asm_7bec2
|
|
pop bc
|
|
inc b
|
|
dec c
|
|
dec c
|
|
jr nz, .asm_7be63
|
|
xor a
|
|
ld [wHPBarOldHP + 1], a
|
|
ld a, $31
|
|
ld [wHPBarOldHP], a
|
|
call Func_7bed6
|
|
ld a, [wHPBarMaxHP + 1]
|
|
.asm_7be81
|
|
ld [wcf1d], a
|
|
ld a, $ff
|
|
ld [wc0ee], a
|
|
call PlaySound
|
|
ld a, [wcf1d]
|
|
call PlayCry
|
|
ld c, $0
|
|
call Func_7beb4
|
|
pop af
|
|
ld [wd0b5], a
|
|
pop af
|
|
ld [wcf91], a
|
|
pop bc
|
|
pop de
|
|
pop hl
|
|
ld a, [wHPBarOldHP + 1]
|
|
and a
|
|
ret z
|
|
scf
|
|
ret
|
|
.asm_7bea9
|
|
pop bc
|
|
ld a, $1
|
|
ld [wHPBarOldHP + 1], a
|
|
ld a, [wHPBarMaxHP]
|
|
jr .asm_7be81
|
|
|
|
Func_7beb4: ; 7beb4 (1e:7eb4)
|
|
ld b, $b
|
|
jp GoPAL_SET
|
|
|
|
Func_7beb9: ; 7beb9 (1e:7eb9)
|
|
call GetMonHeader
|
|
hlCoord 7, 2
|
|
jp LoadFlippedFrontSpriteByMonIndex
|
|
asm_7bec2: ; 7bec2 (1e:7ec2)
|
|
ld a, $31
|
|
ld [wHPBarOldHP], a
|
|
call Func_7bed6
|
|
ld a, $cf
|
|
ld [wHPBarOldHP], a
|
|
call Func_7bed6
|
|
dec b
|
|
jr nz, asm_7bec2
|
|
ret
|
|
|
|
Func_7bed6: ; 7bed6 (1e:7ed6)
|
|
push bc
|
|
xor a
|
|
ld [H_AUTOBGTRANSFERENABLED], a ; $ffba
|
|
hlCoord 7, 2
|
|
ld bc, $707
|
|
ld de, $d
|
|
.asm_7bee3
|
|
push bc
|
|
.asm_7bee4
|
|
ld a, [wHPBarOldHP]
|
|
add [hl]
|
|
ld [hli], a
|
|
dec c
|
|
jr nz, .asm_7bee4
|
|
pop bc
|
|
add hl, de
|
|
dec b
|
|
jr nz, .asm_7bee3
|
|
ld a, $1
|
|
ld [H_AUTOBGTRANSFERENABLED], a ; $ffba
|
|
call Delay3
|
|
pop bc
|
|
ret
|
|
asm_7befa: ; 7befa (1e:7efa)
|
|
call DelayFrame
|
|
push bc
|
|
call JoypadLowSensitivity
|
|
ld a, [$ffb5]
|
|
pop bc
|
|
and $2
|
|
jr nz, .asm_7bf0d
|
|
.asm_7bf08
|
|
dec c
|
|
jr nz, asm_7befa
|
|
and a
|
|
ret
|
|
.asm_7bf0d
|
|
ld a, [wccd4]
|
|
and a
|
|
jr nz, .asm_7bf08
|
|
scf
|
|
ret
|