Add home/scrolling_menu.asm

1 files changed, 1 insertions, 56 deletions

diff --git a/home.asm b/home.asm
index b7b2bc65..aa272e23 100644
--- a/home.asm
+++ b/home.asm
@@ -257,62 +257,7 @@ GetWeekday::
 
 INCLUDE "home/pokedex_flags.asm"
 INCLUDE "home/names.asm"
-
-ScrollingMenu::
-	call CopyMenuData
-	ldh a, [hROMBank]
-	push af
-	ld a, BANK(ScrollingMenu_)
-	rst Bankswitch
-	call InitScrollingMenu
-	call ScrollingMenuUpdatePalettes
-	call ScrollingMenu_
-	pop af
-	rst Bankswitch
-	ld a, [wMenuJoypad]
-	ret
-
-ScrollingMenuUpdatePalettes:: ; 3769 (0:3769)
-	ld hl, wVramState
-	bit 0, [hl]
-	jp nz, UpdateTimePals
-	jp SetPalettes
-
-DrawScrollingMenu::
-	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
-
-ScrollingMenuJoyTextDelay::
-	call DelayFrame
-	ldh a, [hInMenu]
-	push af
-	ld a, $1
-	ldh [hInMenu], a
-	call JoyTextDelay
-	pop af
-	ldh [hInMenu], a
-	ldh a, [hJoyLast]
-	and $f0
-	ld c, a
-	ldh a, [hJoyPressed]
-	and $f
-	or c
-	ld c, a
-	ret
+INCLUDE "home/scrolling_menu.asm"
 
 HandleStoneQueue::
 	ldh a, [hROMBank]