ref: 1f9e688b76c90403d14f1ab68b47b0e7d1df24c6
dir: /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