pokecrystal-board/home/scrolling_menu.asm

ScrollingMenu::
	call CopyMenuData
	ldh a, [hROMBank]
	push af

	ld a, BANK(_ScrollingMenu) ; aka BANK(_InitScrollingMenu)
	rst Bankswitch

	call _InitScrollingMenu
	call .UpdatePalettes
	call _ScrollingMenu

	pop af
	rst Bankswitch

	ld a, [wMenuJoypad]
	ret

.UpdatePalettes:
	ld hl, wStateFlags
	bit 0, [hl]
	jp nz, UpdateTimePals
	jp SetDefaultBGPAndOBP

InitScrollingMenu::
	ld a, [wMenuBorderTopCoord]
	dec a
	ld b, a
	ld a, [wMenuBorderBottomCoord]
	sub b
	ld d, a
	ld a, [wMenuBorderLeftCoord]
	dec a
	ld c, a
	ld a, [wMenuBorderRightCoord]
	sub c
	ld e, a
	push de
	call Coord2Tile
	pop bc
	jp Textbox1bpp

JoyTextDelay_ForcehJoyDown::
	call DelayFrame

	ldh a, [hInMenu]
	push af
	ld a, $1
	ldh [hInMenu], a
	call JoyTextDelay
	pop af
	ldh [hInMenu], a

	ldh a, [hJoyLast]
	and D_RIGHT + D_LEFT + D_UP + D_DOWN
	ld c, a
	ldh a, [hJoyPressed]
	and A_BUTTON + B_BUTTON + SELECT + START
	or c
	ld c, a
	ret
Remove all address comments 2018-06-24 07:09:41 -07:00			`ScrollingMenu::`
Move more code from home.asm into home/ 2018-04-04 21:35:14 -07:00			`call CopyMenuData`
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 a, [hROMBank]`
Move more code from home.asm into home/ 2018-04-04 21:35:14 -07:00			`push af`

Say "BANK(Foo) ; aka BANK(Bar)" to clarify that Foo and Bar share a bank 2019-01-12 12:17:20 -08:00			`ld a, BANK(_ScrollingMenu) ; aka BANK(_InitScrollingMenu)`
Move more code from home.asm into home/ 2018-04-04 21:35:14 -07:00			`rst Bankswitch`

			`call _InitScrollingMenu`
			`call .UpdatePalettes`
			`call _ScrollingMenu`

			`pop af`
			`rst Bankswitch`

			`ld a, [wMenuJoypad]`
			`ret`

Remove all address comments 2018-06-24 07:09:41 -07:00			`.UpdatePalettes:`
wVramState -> wStateFlags and define flag constants (from pokecrystal f72f078c0e68736adf81f6c45c84f0c1e127a231) 2024-02-10 15:34:46 -08:00			`ld hl, wStateFlags`
Move more code from home.asm into home/ 2018-04-04 21:35:14 -07:00			`bit 0, [hl]`
			`jp nz, UpdateTimePals`
Apply most of pokecrystal PR 1105 2024-02-10 15:16:00 -08:00			`jp SetDefaultBGPAndOBP`
Move more code from home.asm into home/ 2018-04-04 21:35:14 -07:00
Remove all address comments 2018-06-24 07:09:41 -07:00			`InitScrollingMenu::`
Move more code from home.asm into home/ 2018-04-04 21:35:14 -07:00			`ld a, [wMenuBorderTopCoord]`
			`dec a`
			`ld b, a`
			`ld a, [wMenuBorderBottomCoord]`
			`sub b`
			`ld d, a`
			`ld a, [wMenuBorderLeftCoord]`
			`dec a`
			`ld c, a`
			`ld a, [wMenuBorderRightCoord]`
			`sub c`
			`ld e, a`
			`push de`
			`call Coord2Tile`
			`pop bc`
Use overworld textbox in text printing functions, differentiating between 1bpp and 2bpp text (#10) 2023-08-11 03:28:14 -07:00			`jp Textbox1bpp`
Move more code from home.asm into home/ 2018-04-04 21:35:14 -07:00
Remove more address comments 2018-06-24 18:39:23 -07:00			`JoyTextDelay_ForcehJoyDown::`
Move more code from home.asm into home/ 2018-04-04 21:35:14 -07:00			`call DelayFrame`

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 a, [hInMenu]`
Move more code from home.asm into home/ 2018-04-04 21:35:14 -07:00			`push af`
			`ld a, $1`
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 [hInMenu], a`
Move more code from home.asm into home/ 2018-04-04 21:35:14 -07:00			`call JoyTextDelay`
			`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 11:28:22 -07:00			`ldh [hInMenu], a`
Move more code from home.asm into home/ 2018-04-04 21:35:14 -07:00
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 a, [hJoyLast]`
Move more code from home.asm into home/ 2018-04-04 21:35:14 -07:00			`and D_RIGHT + D_LEFT + D_UP + D_DOWN`
			`ld c, 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 a, [hJoyPressed]`
Move more code from home.asm into home/ 2018-04-04 21:35:14 -07:00			`and A_BUTTON + B_BUTTON + SELECT + START`
			`or c`
			`ld c, a`
			`ret`