pokered/engine/overworld/elevator.asm

ShakeElevator::
	ld de, -$20
	call ShakeElevatorRedrawRow
	ld de, SCREEN_HEIGHT * $20
	call ShakeElevatorRedrawRow
	call Delay3
	ld a, SFX_STOP_ALL_MUSIC
	call PlaySound
	ldh 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
	ldh [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
	ldh [hSCY], a
	ld a, SFX_STOP_ALL_MUSIC
	call PlaySound
	ld c, BANK(SFX_Safari_Zone_PA)
	ld a, SFX_SAFARI_ZONE_PA
	call PlayMusic
.musicLoop
	ld a, [wChannelSoundIDs + Ch5]
	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 HIGH(vBGMap0)
	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
Separate maps.asm, pics.asm, sprites.asm, and tilesets.asm from main.asm (#251) Each new file builds its own .o, along with separate main.o and home.o, which necessitates many more "exported::" labels. 2020-06-27 19:32:24 +00:00			`ShakeElevator::`
small changes 2015-07-19 05:34:11 +00:00			`ld de, -$20`
			`call ShakeElevatorRedrawRow`
			`ld de, SCREEN_HEIGHT * $20`
			`call ShakeElevatorRedrawRow`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call Delay3`
Organize macros/ like pokecrystal While doing so I replaced the StopAllMusic macro with a SFX_STOP_ALL_MUSIC constant and applied it throughout the code. 2020-07-03 20:37:47 +00:00			`ld a, SFX_STOP_ALL_MUSIC`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call PlaySound`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh a, [hSCY]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld d, a`
			`ld e, $1`
$U-Daniel-PC\Daniel$ Rename/organize part 1 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:37:53 +00:00			`ld b, 100`
small changes 2015-07-19 05:34:11 +00:00			`.shakeLoop ; scroll the BG up and down and play a sound effect`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld a, e`
			`xor $fe`
			`ld e, a`
			`add d`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [hSCY], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`push bc`
Rename sound effect files 2015-07-22 14:57:31 +00:00			`ld c, BANK(SFX_Collision_1)`
Name sound effects 2015-07-19 08:46:12 +00:00			`ld a, SFX_COLLISION`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call PlayMusic`
			`pop bc`
$U-Daniel-PC\Daniel$ Rename/organize part 1 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:37:53 +00:00			`ld c, 2`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call DelayFrames`
			`dec b`
small changes 2015-07-19 05:34:11 +00:00			`jr nz, .shakeLoop`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld a, d`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [hSCY], a`
Organize macros/ like pokecrystal While doing so I replaced the StopAllMusic macro with a SFX_STOP_ALL_MUSIC constant and applied it throughout the code. 2020-07-03 20:37:47 +00:00			`ld a, SFX_STOP_ALL_MUSIC`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call PlaySound`
Rename sound effect files 2015-07-22 14:57:31 +00:00			`ld c, BANK(SFX_Safari_Zone_PA)`
Name sound effects 2015-07-19 08:46:12 +00:00			`ld a, SFX_SAFARI_ZONE_PA`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call PlayMusic`
small changes 2015-07-19 05:34:11 +00:00			`.musicLoop`
Update audio macro names change audio channel numbers from 0-7 back to 1-8 change all note macros back to single note macro todo: fix comments with old macro names, update noise macros/instrument names 2019-07-28 04:21:39 +00:00			`ld a, [wChannelSoundIDs + Ch5]`
sync engine code with pokeyellow 2016-06-12 04:30:05 +00:00			`cp SFX_SAFARI_ZONE_PA`
small changes 2015-07-19 05:34:11 +00:00			`jr z, .musicLoop`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call UpdateSprites`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`jp PlayDefaultMusic`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00
remove address comments 2016-06-12 00:24:04 +00:00			`ShakeElevatorRedrawRow:`
small changes 2015-07-19 05:34:11 +00:00			`; 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.`
Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`ld hl, wMapViewVRAMPointer + 1`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`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`
Use HIGH() and LOW() 2020-07-07 15:10:29 +00:00			`or HIGH(vBGMap0)`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`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`