pokecrystal-board/engine/pokedex/new_pokedex_entry.asm

NewPokedexEntry:
	ld a, [hMapAnims]
	push af
	xor a
	ld [hMapAnims], a
	call LowVolume
	call ClearBGPalettes
	call ClearTileMap
	call UpdateSprites
	call ClearSprites
	ld a, [wPokedexStatus]
	push af
	ld a, [hSCX]
	add POKEDEX_SCX
	ld [hSCX], a
	xor a
	ld [wPokedexStatus], a
	farcall _NewPokedexEntry
	call WaitPressAorB_BlinkCursor
	ld a, 1 ; page 2
	ld [wPokedexStatus], a
	farcall DisplayDexEntry
	call WaitPressAorB_BlinkCursor
	pop af
	ld [wPokedexStatus], a
	call MaxVolume
	call RotateThreePalettesRight
	ld a, [hSCX]
	add -POKEDEX_SCX
	ld [hSCX], a
	call .ReturnFromDexRegistration
	pop af
	ld [hMapAnims], a
	ret

.ReturnFromDexRegistration:
	call ClearTileMap
	call LoadFontsExtra
	call LoadStandardFont
	farcall Pokedex_PlaceFrontpicTopLeftCorner
	call WaitBGMap2
	farcall GetEnemyMonDVs
	ld a, [hli]
	ld [wTempMonDVs], a
	ld a, [hl]
	ld [wTempMonDVs + 1], a
	ld b, SCGB_TRAINER_OR_MON_FRONTPIC_PALS
	call GetSGBLayout
	call SetPalettes
	ret
Remove all address comments 2018-06-24 07:09:41 -07:00			`NewPokedexEntry:`
Copy pokered's organization some more, with further constant and data files 2017-12-15 14:22:52 -08:00			`ld a, [hMapAnims]`
			`push af`
			`xor a`
			`ld [hMapAnims], a`
			`call LowVolume`
			`call ClearBGPalettes`
			`call ClearTileMap`
			`call UpdateSprites`
			`call ClearSprites`
			`ld a, [wPokedexStatus]`
			`push af`
			`ld a, [hSCX]`
POKEDEX_SCX 2018-01-21 13:53:19 -08:00			`add POKEDEX_SCX`
Copy pokered's organization some more, with further constant and data files 2017-12-15 14:22:52 -08:00			`ld [hSCX], a`
			`xor a`
			`ld [wPokedexStatus], a`
callba/callab → farcall/callfar 2017-12-24 09:47:30 -08:00			`farcall _NewPokedexEntry`
Copy pokered's organization some more, with further constant and data files 2017-12-15 14:22:52 -08:00			`call WaitPressAorB_BlinkCursor`
Cleaner Pokédex code 2018-01-16 14:59:05 -08:00			`ld a, 1 ; page 2`
Copy pokered's organization some more, with further constant and data files 2017-12-15 14:22:52 -08:00			`ld [wPokedexStatus], a`
callba/callab → farcall/callfar 2017-12-24 09:47:30 -08:00			`farcall DisplayDexEntry`
Copy pokered's organization some more, with further constant and data files 2017-12-15 14:22:52 -08:00			`call WaitPressAorB_BlinkCursor`
			`pop af`
			`ld [wPokedexStatus], a`
			`call MaxVolume`
			`call RotateThreePalettesRight`
			`ld a, [hSCX]`
POKEDEX_SCX 2018-01-21 13:53:19 -08:00			`add -POKEDEX_SCX`
Copy pokered's organization some more, with further constant and data files 2017-12-15 14:22:52 -08:00			`ld [hSCX], a`
			`call .ReturnFromDexRegistration`
			`pop af`
			`ld [hMapAnims], a`
			`ret`

Remove all address comments 2018-06-24 07:09:41 -07:00			`.ReturnFromDexRegistration:`
Copy pokered's organization some more, with further constant and data files 2017-12-15 14:22:52 -08:00			`call ClearTileMap`
			`call LoadFontsExtra`
			`call LoadStandardFont`
callba/callab → farcall/callfar 2017-12-24 09:47:30 -08:00			`farcall Pokedex_PlaceFrontpicTopLeftCorner`
Copy pokered's organization some more, with further constant and data files 2017-12-15 14:22:52 -08:00			`call WaitBGMap2`
callba/callab → farcall/callfar 2017-12-24 09:47:30 -08:00			`farcall GetEnemyMonDVs`
Copy pokered's organization some more, with further constant and data files 2017-12-15 14:22:52 -08:00			`ld a, [hli]`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld [wTempMonDVs], a`
Copy pokered's organization some more, with further constant and data files 2017-12-15 14:22:52 -08:00			`ld a, [hl]`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld [wTempMonDVs + 1], a`
Copy pokered's organization some more, with further constant and data files 2017-12-15 14:22:52 -08:00			`ld b, SCGB_TRAINER_OR_MON_FRONTPIC_PALS`
			`call GetSGBLayout`
			`call SetPalettes`
			`ret`