ref: 3fe60f77935c0891bae2a10184ec85f0ca066111
dir: /engine/overworld/elevator.asm/
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_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 $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