pokecrystal/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, wVramState
	bit 0, [hl]
	jp nz, UpdateTimePals
	jp SetPalettes

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 Textbox

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 14:09:41 +00:00			`ScrollingMenu::`
Move more code from home.asm into home/ 2018-04-05 04:35:14 +00: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 18:28:22 +00:00			`ldh a, [hROMBank]`
Move more code from home.asm into home/ 2018-04-05 04:35:14 +00:00			`push af`

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

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

			`pop af`
			`rst Bankswitch`

			`ld a, [wMenuJoypad]`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`.UpdatePalettes:`
Move more code from home.asm into home/ 2018-04-05 04:35:14 +00:00			`ld hl, wVramState`
			`bit 0, [hl]`
			`jp nz, UpdateTimePals`
			`jp SetPalettes`

Remove all address comments 2018-06-24 14:09:41 +00:00			`InitScrollingMenu::`
Move more code from home.asm into home/ 2018-04-05 04:35:14 +00: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`
TextBox -> Textbox Homogenizing names. 2019-04-08 12:15:10 +00:00			`jp Textbox`
Move more code from home.asm into home/ 2018-04-05 04:35:14 +00:00
Remove more address comments 2018-06-25 01:39:23 +00:00			`JoyTextDelay_ForcehJoyDown::`
Move more code from home.asm into home/ 2018-04-05 04:35:14 +00: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 18:28:22 +00:00			`ldh a, [hInMenu]`
Move more code from home.asm into home/ 2018-04-05 04:35:14 +00: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 18:28:22 +00:00			`ldh [hInMenu], a`
Move more code from home.asm into home/ 2018-04-05 04:35:14 +00: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 18:28:22 +00:00			`ldh [hInMenu], a`
Move more code from home.asm into home/ 2018-04-05 04:35:14 +00: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 18:28:22 +00:00			`ldh a, [hJoyLast]`
Move more code from home.asm into home/ 2018-04-05 04:35:14 +00: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 18:28:22 +00:00			`ldh a, [hJoyPressed]`
Move more code from home.asm into home/ 2018-04-05 04:35:14 +00:00			`and A_BUTTON + B_BUTTON + SELECT + START`
			`or c`
			`ld c, a`
			`ret`