mirror of
https://github.com/pret/pokered.git
synced 2024-10-24 15:27:10 +00:00
71 lines
1.2 KiB
NASM
Executable file
71 lines
1.2 KiB
NASM
Executable file
ShakeElevator:
|
|
ld de, -$20
|
|
call ShakeElevatorRedrawRow
|
|
ld de, SCREEN_HEIGHT * $20
|
|
call ShakeElevatorRedrawRow
|
|
call Delay3
|
|
ld a, $ff
|
|
call PlaySound
|
|
ld a, [hSCY]
|
|
ld d, a
|
|
ld e, $1
|
|
ld b, 100
|
|
.shakeLoop ; scroll the BG up and down and play a sound effect
|
|
ld a, e
|
|
xor $fe
|
|
ld e, a
|
|
add d
|
|
ld [hSCY], a
|
|
push bc
|
|
ld c, BANK(SFX_Collision_1)
|
|
ld a, SFX_COLLISION
|
|
call PlayMusic
|
|
pop bc
|
|
ld c, 2
|
|
call DelayFrames
|
|
dec b
|
|
jr nz, .shakeLoop
|
|
ld a, d
|
|
ld [hSCY], a
|
|
ld a, $ff
|
|
call PlaySound
|
|
ld c, BANK(SFX_Safari_Zone_PA)
|
|
ld a, SFX_SAFARI_ZONE_PA
|
|
call PlayMusic
|
|
.musicLoop
|
|
ld a, [wChannelSoundIDs + Ch4]
|
|
cp SFX_SAFARI_ZONE_PA
|
|
jr z, .musicLoop
|
|
call UpdateSprites
|
|
jp PlayDefaultMusic
|
|
|
|
ShakeElevatorRedrawRow:
|
|
; This function is used to redraw certain portions of the screen, but it does
|
|
; not appear to ever result in any visible effect, so this function seems to
|
|
; be pointless.
|
|
ld hl, wMapViewVRAMPointer + 1
|
|
ld a, [hld]
|
|
push af
|
|
ld a, [hl]
|
|
push af
|
|
push hl
|
|
push hl
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
add hl, de
|
|
ld a, h
|
|
and $3
|
|
or vBGMap0 / $100
|
|
ld d, a
|
|
ld a, l
|
|
pop hl
|
|
ld [hli], a
|
|
ld [hl], d
|
|
call ScheduleNorthRowRedraw
|
|
pop hl
|
|
pop af
|
|
ld [hli], a
|
|
pop af
|
|
ld [hl], a
|
|
jp Delay3
|