pokered/engine/overworld/healing_machine.asm

AnimateHealingMachine:
	ld de, PokeCenterFlashingMonitorAndHealBall
	ld hl, vChars0 tile $7c
	lb bc, BANK(PokeCenterFlashingMonitorAndHealBall), 3 ; should be 2
	call CopyVideoData
	ld hl, wUpdateSpritesEnabled
	ld a, [hl]
	push af
	ld [hl], $ff
	push hl
	ldh a, [rOBP1]
	push af
	ld a, $e0
	ldh [rOBP1], a
	ld hl, wShadowOAMSprite33
	ld de, PokeCenterOAMData
	call CopyHealingMachineOAM
	ld a, 4
	ld [wAudioFadeOutControl], a
	ld a, SFX_STOP_ALL_MUSIC
	ld [wNewSoundID], a
	call PlaySound
.waitLoop
	ld a, [wAudioFadeOutControl]
	and a ; is fade-out finished?
	jr nz, .waitLoop ; if not, check again
	ld a, [wPartyCount]
	ld b, a
.partyLoop
	call CopyHealingMachineOAM
	ld a, SFX_HEALING_MACHINE
	call PlaySound
	ld c, 30
	call DelayFrames
	dec b
	jr nz, .partyLoop
	ld a, [wAudioROMBank]
	cp BANK("Audio Engine 3")
	ld [wAudioSavedROMBank], a
	jr nz, .next
	ld a, SFX_STOP_ALL_MUSIC
	ld [wNewSoundID], a
	call PlaySound
	ld a, BANK(Music_PkmnHealed)
	ld [wAudioROMBank], a
.next
	ld a, MUSIC_PKMN_HEALED
	ld [wNewSoundID], a
	call PlaySound
	ld d, $28
	call FlashSprite8Times
.waitLoop2
	ld a, [wChannelSoundIDs]
	cp MUSIC_PKMN_HEALED ; is the healed music still playing?
	jr z, .waitLoop2 ; if so, check gain
	ld c, 32
	call DelayFrames
	pop af
	ldh [rOBP1], a
	pop hl
	pop af
	ld [hl], a
	jp UpdateSprites

PokeCenterFlashingMonitorAndHealBall:
	INCBIN "gfx/overworld/heal_machine.2bpp"

PokeCenterOAMData:
	; heal machine monitor
	dbsprite  6,  4,  4,  4, $7c, OAM_OBP1
	; poke balls 1-6
	dbsprite  6,  5,  0,  3, $7d, OAM_OBP1
	dbsprite  7,  5,  0,  3, $7d, OAM_OBP1 | OAM_HFLIP
	dbsprite  6,  6,  0,  0, $7d, OAM_OBP1
	dbsprite  7,  6,  0,  0, $7d, OAM_OBP1 | OAM_HFLIP
	dbsprite  6,  6,  0,  5, $7d, OAM_OBP1
	dbsprite  7,  6,  0,  5, $7d, OAM_OBP1 | OAM_HFLIP

; d = value to xor with palette
FlashSprite8Times:
	ld b, 8
.loop
	ldh a, [rOBP1]
	xor d
	ldh [rOBP1], a
	ld c, 10
	call DelayFrames
	dec b
	jr nz, .loop
	ret

CopyHealingMachineOAM:
; copy one OAM entry and advance the pointers
REPT 4
	ld a, [de]
	inc de
	ld [hli], a
ENDR
	ret
remove address comments 2016-06-12 00:24:04 +00:00			`AnimateHealingMachine:`
$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 de, PokeCenterFlashingMonitorAndHealBall`
Use 'tile' and 'tiles' macros 2020-07-07 19:09:54 +00:00			`ld hl, vChars0 tile $7c`
			`lb bc, BANK(PokeCenterFlashingMonitorAndHealBall), 3 ; should be 2`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call CopyVideoData`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`ld hl, wUpdateSpritesEnabled`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld a, [hl]`
			`push af`
			`ld [hl], $ff`
			`push hl`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh a, [rOBP1]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`push af`
			`ld a, $e0`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [rOBP1], a`
wOAMBuffer -> wShadowOAM (#370) 2022-07-09 21:18:18 +00:00			`ld hl, wShadowOAMSprite33`
$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 de, PokeCenterOAMData`
small changes 2015-07-19 05:34:11 +00:00			`call CopyHealingMachineOAM`
commented audio code 2015-08-09 05:32:44 +00:00			`ld a, 4`
			`ld [wAudioFadeOutControl], 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`
commented audio code 2015-08-09 05:32:44 +00:00			`ld [wNewSoundID], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call PlaySound`
commented audio code 2015-08-09 05:32:44 +00:00			`.waitLoop`
			`ld a, [wAudioFadeOutControl]`
			`and a ; is fade-out finished?`
			`jr nz, .waitLoop ; if not, check again`
$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 a, [wPartyCount]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld b, a`
commented audio code 2015-08-09 05:32:44 +00:00			`.partyLoop`
small changes 2015-07-19 05:34:11 +00:00			`call CopyHealingMachineOAM`
Name sound effects 2015-07-19 08:46:12 +00:00			`ld a, SFX_HEALING_MACHINE`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call PlaySound`
$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, 30`
$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`
commented audio code 2015-08-09 05:32:44 +00:00			`jr nz, .partyLoop`
			`ld a, [wAudioROMBank]`
Sync more with pokeyellow 2020-11-06 15:33:58 +00:00			`cp BANK("Audio Engine 3")`
commented audio code 2015-08-09 05:32:44 +00:00			`ld [wAudioSavedROMBank], a`
			`jr nz, .next`
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`
commented audio code 2015-08-09 05:32:44 +00:00			`ld [wNewSoundID], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call PlaySound`
$U-Fish-PC\Daniel$ Clean up music bank references 2014-06-09 20:18:29 +00:00			`ld a, BANK(Music_PkmnHealed)`
commented audio code 2015-08-09 05:32:44 +00:00			`ld [wAudioROMBank], a`
			`.next`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld a, MUSIC_PKMN_HEALED`
commented audio code 2015-08-09 05:32:44 +00:00			`ld [wNewSoundID], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call PlaySound`
			`ld d, $28`
commented battle stuff 2015-02-08 00:24:16 +00:00			`call FlashSprite8Times`
commented audio code 2015-08-09 05:32:44 +00:00			`.waitLoop2`
			`ld a, [wChannelSoundIDs]`
			`cp MUSIC_PKMN_HEALED ; is the healed music still playing?`
			`jr z, .waitLoop2 ; if so, check gain`
$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, 32`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call DelayFrames`
			`pop af`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [rOBP1], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`pop hl`
			`pop af`
			`ld [hl], a`
			`jp UpdateSprites`

remove address comments 2016-06-12 00:24:04 +00:00			`PokeCenterFlashingMonitorAndHealBall:`
Organize gfx/ 2020-06-27 20:27:30 +00:00			`INCBIN "gfx/overworld/heal_machine.2bpp"`
$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			`PokeCenterOAMData:`
Port dbsprite macro for OAM y,x,tile,attr data from pokecrystal 2020-07-17 19:58:06 +00:00			`; heal machine monitor`
			`dbsprite 6, 4, 4, 4, $7c, OAM_OBP1`
			`; poke balls 1-6`
			`dbsprite 6, 5, 0, 3, $7d, OAM_OBP1`
			`dbsprite 7, 5, 0, 3, $7d, OAM_OBP1 \| OAM_HFLIP`
			`dbsprite 6, 6, 0, 0, $7d, OAM_OBP1`
			`dbsprite 7, 6, 0, 0, $7d, OAM_OBP1 \| OAM_HFLIP`
			`dbsprite 6, 6, 0, 5, $7d, OAM_OBP1`
			`dbsprite 7, 6, 0, 5, $7d, OAM_OBP1 \| OAM_HFLIP`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00
commented battle stuff 2015-02-08 00:24:16 +00:00			`; d = value to xor with palette`
remove address comments 2016-06-12 00:24:04 +00:00			`FlashSprite8Times:`
commented battle stuff 2015-02-08 00:24:16 +00:00			`ld b, 8`
			`.loop`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh a, [rOBP1]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`xor d`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [rOBP1], a`
commented battle stuff 2015-02-08 00:24:16 +00:00			`ld c, 10`
$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`
commented battle stuff 2015-02-08 00:24:16 +00:00			`jr nz, .loop`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ret`

remove address comments 2016-06-12 00:24:04 +00:00			`CopyHealingMachineOAM:`
small changes 2015-07-19 05:34:11 +00:00			`; copy one OAM entry and advance the pointers`
Use rgbds 0.5.0 features: - FOR loops - {interpolation} - REDEF EQUS - \# for all macro args 2021-04-17 23:06:56 +00:00			`REPT 4`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld a, [de]`
			`inc de`
			`ld [hli], a`
Use rgbds 0.5.0 features: - FOR loops - {interpolation} - REDEF EQUS - \# for all macro args 2021-04-17 23:06:56 +00:00			`ENDR`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ret`