pokecrystal-board/engine/events/pokepic.asm

Pokepic::
	ld hl, PokepicMenuHeader
	call CopyMenuHeader
	call MenuBox
	call UpdateSprites
	call ApplyTilemap
	ld b, CGB_POKEPIC
	call GetCGBLayout
	xor a
	ldh [hBGMapMode], a
	ld a, [wCurPartySpecies]
	ld [wCurSpecies], a
	call GetBaseData
	ld de, vTiles1
	predef GetMonFrontpic
	ld a, [wMenuBorderTopCoord]
	inc a
	ld b, a
	ld a, [wMenuBorderLeftCoord]
	inc a
	ld c, a
	call Coord2Tile
	ld a, $80
	ldh [hGraphicStartTile], a
	lb bc, 7, 7
	predef PlaceGraphic
	call WaitBGMap
	ret

ClosePokepic::
	ld hl, PokepicMenuHeader
	call CopyMenuHeader
	call ClearMenuBoxInterior
	call WaitBGMap
	call GetMemCGBLayout
	xor a
	ldh [hBGMapMode], a
	call LoadScreenTilemapAndAttrmapPals
	call ApplyTilemap
	call UpdateSprites
	call LoadStandardFont
	ret

PokepicMenuHeader:
	db MENU_BACKUP_TILES ; flags
	menu_coords 6, 4, 14, 13
	dw NULL
	db 1 ; default option
Remove all address comments 2018-06-24 07:09:41 -07:00			`Pokepic::`
MenuDataHeader → MenuHeader, MenuData2 → MenuData (might complete issue #440) 2018-01-23 13:08:43 -08:00			`ld hl, PokepicMenuHeader`
			`call CopyMenuHeader`
Add more missing files 2016-01-28 21:57:06 -08:00			`call MenuBox`
			`call UpdateSprites`
			`call ApplyTilemap`
Further remove unnecessary DMG/SGB checking (#7) and remove SGB layouts and palette data (#1) 2023-07-26 08:01:20 -07:00			`ld b, CGB_POKEPIC`
			`call GetCGBLayout`
Add more missing files 2016-01-28 21:57:06 -08:00			`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 11:28:22 -07:00			`ldh [hBGMapMode], a`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wCurPartySpecies]`
			`ld [wCurSpecies], a`
Add more missing files 2016-01-28 21:57:06 -08:00			`call GetBaseData`
Lowercase v for VRAM addresses 2017-12-28 04:32:33 -08:00			`ld de, vTiles1`
Remove Predef_ prefix from routines listed in PredefPointers 2018-01-16 11:30:10 -08:00			`predef GetMonFrontpic`
Add more missing files 2016-01-28 21:57:06 -08:00			`ld a, [wMenuBorderTopCoord]`
			`inc a`
			`ld b, a`
			`ld a, [wMenuBorderLeftCoord]`
			`inc a`
			`ld c, a`
			`call Coord2Tile`
			`ld a, $80`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 11:28:22 -07:00			`ldh [hGraphicStartTile], a`
Add more missing files 2016-01-28 21:57:06 -08:00			`lb bc, 7, 7`
Remove Predef_ prefix from routines listed in PredefPointers 2018-01-16 11:30:10 -08:00			`predef PlaceGraphic`
Add more missing files 2016-01-28 21:57:06 -08:00			`call WaitBGMap`
			`ret`

Remove all address comments 2018-06-24 07:09:41 -07:00			`ClosePokepic::`
MenuDataHeader → MenuHeader, MenuData2 → MenuData (might complete issue #440) 2018-01-23 13:08:43 -08:00			`ld hl, PokepicMenuHeader`
			`call CopyMenuHeader`
Add more missing files 2016-01-28 21:57:06 -08:00			`call ClearMenuBoxInterior`
			`call WaitBGMap`
Further remove unnecessary DMG/SGB checking (#7) and remove SGB layouts and palette data (#1) 2023-07-26 08:01:20 -07:00			`call GetMemCGBLayout`
Add more missing files 2016-01-28 21:57:06 -08:00			`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 11:28:22 -07:00			`ldh [hBGMapMode], a`
Improve some innacurate function names from pokecrystal 2023-08-28 04:30:13 -07:00			`call LoadScreenTilemapAndAttrmapPals`
Add more missing files 2016-01-28 21:57:06 -08:00			`call ApplyTilemap`
			`call UpdateSprites`
			`call LoadStandardFont`
			`ret`

Remove even more address comments That should be all of them this time 2018-06-24 17:10:37 -07:00			`PokepicMenuHeader:`
Use constants for menu flags Added a bunch of constants for the bitflags of each kind of menu. Some are slightly vague or too long, but I'm not sure how to else name them. 2018-01-14 02:59:56 -08:00			`db MENU_BACKUP_TILES ; flags`
menu_coords macro for (x1, y1, x2, y2) order (see issue #440) 2018-01-13 13:38:14 -08:00			`menu_coords 6, 4, 14, 13`
Add more missing files 2016-01-28 21:57:06 -08:00			`dw NULL`
			`db 1 ; default option`