mirror of
https://github.com/pret/pokered.git
synced 2024-10-23 06:58:24 +00:00
71 lines
1.2 KiB
NASM
Executable file
71 lines
1.2 KiB
NASM
Executable file
ShakeElevator: ; 7bf15 (1e:7f15)
|
|
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_02_5b)
|
|
ld a, (SFX_02_5b - SFX_Headers_02) / 3
|
|
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_02_5f)
|
|
ld a, (SFX_02_5f - SFX_Headers_02) / 3
|
|
call PlayMusic
|
|
.musicLoop
|
|
ld a, [wc02a]
|
|
cp $b9
|
|
jr z, .musicLoop
|
|
call UpdateSprites
|
|
jp PlayDefaultMusic
|
|
|
|
ShakeElevatorRedrawRow: ; 7bf64 (1e:7f64)
|
|
; 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 $98
|
|
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
|