First Commit

Upload literally everything from the pokecrystal16 expand-move-ID branch

engine/battle/menu.asm

@@ -0,0 +1,100 @@
+LoadBattleMenu:
+	ld hl, BattleMenuHeader
+	call LoadMenuHeader
+	ld a, [wBattleMenuCursorPosition]
+	ld [wMenuCursorPosition], a
+	call InterpretBattleMenu
+	ld a, [wMenuCursorPosition]
+	ld [wBattleMenuCursorPosition], a
+	call ExitMenu
+	ret
+
+SafariBattleMenu: ; unreferenced
+	ld hl, SafariBattleMenuHeader
+	call LoadMenuHeader
+	jr CommonBattleMenu
+
+ContestBattleMenu:
+	ld hl, ContestBattleMenuHeader
+	call LoadMenuHeader
+	; fallthrough
+
+CommonBattleMenu:
+	ld a, [wBattleMenuCursorPosition]
+	ld [wMenuCursorPosition], a
+	call _2DMenu
+	ld a, [wMenuCursorPosition]
+	ld [wBattleMenuCursorPosition], a
+	call ExitMenu
+	ret
+
+BattleMenuHeader:
+	db MENU_BACKUP_TILES ; flags
+	menu_coords 8, 12, SCREEN_WIDTH - 1, SCREEN_HEIGHT - 1
+	dw .MenuData
+	db 1 ; default option
+
+.MenuData:
+	db STATICMENU_CURSOR | STATICMENU_DISABLE_B ; flags
+	dn 2, 2 ; rows, columns
+	db 6 ; spacing
+	dba .Text
+	dbw BANK(@), NULL
+
+.Text:
+	db "FIGHT@"
+	db "<PKMN>@"
+	db "PACK@"
+	db "RUN@"
+
+SafariBattleMenuHeader:
+	db MENU_BACKUP_TILES ; flags
+	menu_coords 0, 12, SCREEN_WIDTH - 1, SCREEN_HEIGHT - 1
+	dw .MenuData
+	db 1 ; default option
+
+.MenuData:
+	db STATICMENU_CURSOR | STATICMENU_DISABLE_B ; flags
+	dn 2, 2 ; rows, columns
+	db 11 ; spacing
+	dba .Text
+	dba .PrintSafariBallsRemaining
+
+.Text:
+	db "サファりボール×　　@" ; "SAFARI BALL×  @"
+	db "エサをなげる@" ; "THROW BAIT"
+	db "いしをなげる@" ; "THROW ROCK"
+	db "にげる@" ; "RUN"
+
+.PrintSafariBallsRemaining:
+	hlcoord 17, 13
+	ld de, wSafariBallsRemaining
+	lb bc, PRINTNUM_LEADINGZEROS | 1, 2
+	call PrintNum
+	ret
+
+ContestBattleMenuHeader:
+	db MENU_BACKUP_TILES ; flags
+	menu_coords 2, 12, SCREEN_WIDTH - 1, SCREEN_HEIGHT - 1
+	dw .MenuData
+	db 1 ; default option
+
+.MenuData:
+	db STATICMENU_CURSOR | STATICMENU_DISABLE_B ; flags
+	dn 2, 2 ; rows, columns
+	db 12 ; spacing
+	dba .Text
+	dba .PrintParkBallsRemaining
+
+.Text:
+	db "FIGHT@"
+	db "<PKMN>@"
+	db "PARKBALL×  @"
+	db "RUN@"
+
+.PrintParkBallsRemaining:
+	hlcoord 13, 16
+	ld de, wParkBallsRemaining
+	lb bc, PRINTNUM_LEADINGZEROS | 1, 2
+	call PrintNum
+	ret