pokecrystal/engine/pokedex/new_pokedex_entry.asm

NewPokedexEntry:
	ldh a, [hMapAnims]
	push af
	xor a
	ldh [hMapAnims], a
	call LowVolume
	call ClearBGPalettes
	call ClearTilemap
	call UpdateSprites
	call ClearSprites
	ld a, [wPokedexStatus]
	push af
	ldh a, [hSCX]
	add POKEDEX_SCX
	ldh [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
	ldh a, [hSCX]
	add -POKEDEX_SCX
	ldh [hSCX], a
	call .ReturnFromDexRegistration
	pop af
	ldh [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 14:09:41 +00:00			`NewPokedexEntry:`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh a, [hMapAnims]`
Copy pokered's organization some more, with further constant and data files 2017-12-15 22:22:52 +00:00			`push af`
			`xor a`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh [hMapAnims], a`
Copy pokered's organization some more, with further constant and data files 2017-12-15 22:22:52 +00:00			`call LowVolume`
			`call ClearBGPalettes`
Standardize on lowercase Tilemap and Attrmap We used to have a mixture of TileMap and and Tilemap, as well as the similar AttrMap. Standardize on one. 2020-02-13 17:30:13 +00:00			`call ClearTilemap`
Copy pokered's organization some more, with further constant and data files 2017-12-15 22:22:52 +00:00			`call UpdateSprites`
			`call ClearSprites`
			`ld a, [wPokedexStatus]`
			`push af`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh a, [hSCX]`
POKEDEX_SCX 2018-01-21 21:53:19 +00:00			`add POKEDEX_SCX`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh [hSCX], a`
Copy pokered's organization some more, with further constant and data files 2017-12-15 22:22:52 +00:00			`xor a`
			`ld [wPokedexStatus], a`
callba/callab → farcall/callfar 2017-12-24 17:47:30 +00:00			`farcall _NewPokedexEntry`
Copy pokered's organization some more, with further constant and data files 2017-12-15 22:22:52 +00:00			`call WaitPressAorB_BlinkCursor`
Cleaner Pokédex code 2018-01-16 22:59:05 +00:00			`ld a, 1 ; page 2`
Copy pokered's organization some more, with further constant and data files 2017-12-15 22:22:52 +00:00			`ld [wPokedexStatus], a`
callba/callab → farcall/callfar 2017-12-24 17:47:30 +00:00			`farcall DisplayDexEntry`
Copy pokered's organization some more, with further constant and data files 2017-12-15 22:22:52 +00:00			`call WaitPressAorB_BlinkCursor`
			`pop af`
			`ld [wPokedexStatus], a`
			`call MaxVolume`
			`call RotateThreePalettesRight`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh a, [hSCX]`
POKEDEX_SCX 2018-01-21 21:53:19 +00:00			`add -POKEDEX_SCX`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh [hSCX], a`
Copy pokered's organization some more, with further constant and data files 2017-12-15 22:22:52 +00:00			`call .ReturnFromDexRegistration`
			`pop af`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh [hMapAnims], a`
Copy pokered's organization some more, with further constant and data files 2017-12-15 22:22:52 +00:00			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`.ReturnFromDexRegistration:`
Standardize on lowercase Tilemap and Attrmap We used to have a mixture of TileMap and and Tilemap, as well as the similar AttrMap. Standardize on one. 2020-02-13 17:30:13 +00:00			`call ClearTilemap`
Copy pokered's organization some more, with further constant and data files 2017-12-15 22:22:52 +00:00			`call LoadFontsExtra`
			`call LoadStandardFont`
callba/callab → farcall/callfar 2017-12-24 17:47:30 +00:00			`farcall Pokedex_PlaceFrontpicTopLeftCorner`
Copy pokered's organization some more, with further constant and data files 2017-12-15 22:22:52 +00:00			`call WaitBGMap2`
callba/callab → farcall/callfar 2017-12-24 17:47:30 +00:00			`farcall GetEnemyMonDVs`
Copy pokered's organization some more, with further constant and data files 2017-12-15 22:22:52 +00:00			`ld a, [hli]`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld [wTempMonDVs], a`
Copy pokered's organization some more, with further constant and data files 2017-12-15 22:22:52 +00:00			`ld a, [hl]`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld [wTempMonDVs + 1], a`
Copy pokered's organization some more, with further constant and data files 2017-12-15 22:22:52 +00:00			`ld b, SCGB_TRAINER_OR_MON_FRONTPIC_PALS`
			`call GetSGBLayout`
			`call SetPalettes`
			`ret`