pokecrystal/engine/battle/menu.asm

LoadBattleMenu: ; 24ef2
	ld hl, BattleMenuHeader
	call LoadMenuHeader
	ld a, [wBattleMenuCursorBuffer]
	ld [wMenuCursorBuffer], a
	call InterpretBattleMenu
	ld a, [wMenuCursorBuffer]
	ld [wBattleMenuCursorBuffer], a
	call ExitMenu
	ret
; 24f0b

SafariBattleMenu: ; 24f0b
; untranslated
	ld hl, MenuHeader_0x24f4e
	call LoadMenuHeader
	jr Function24f19
; 24f13

ContestBattleMenu: ; 24f13
	ld hl, MenuHeader_0x24f89
	call LoadMenuHeader
; 24f19

Function24f19: ; 24f19
	ld a, [wBattleMenuCursorBuffer]
	ld [wMenuCursorBuffer], a
	call _2DMenu
	ld a, [wMenuCursorBuffer]
	ld [wBattleMenuCursorBuffer], a
	call ExitMenu
	ret
; 24f2c

BattleMenuHeader: ; 24f2c
	db MENU_BACKUP_TILES ; flags
	menu_coords 8, 12, SCREEN_WIDTH - 1, SCREEN_HEIGHT - 1
	dw MenuData_0x24f34
	db 1 ; default option
; 24f34

MenuData_0x24f34: ; 0x24f34
	db STATICMENU_CURSOR | STATICMENU_DISABLE_B ; flags
	dn 2, 2 ; rows, columns
	db 6 ; spacing
	dba Strings24f3d
	dbw BANK(MenuData_0x24f34), 0
; 0x24f3d

Strings24f3d: ; 0x24f3d
	db "FIGHT@"
	db "<PKMN>@"
	db "PACK@"
	db "RUN@"
; 24f4e

MenuHeader_0x24f4e: ; 24f4e
	db MENU_BACKUP_TILES ; flags
	menu_coords 0, 12, SCREEN_WIDTH - 1, SCREEN_HEIGHT - 1
	dw MenuData_0x24f56
	db 1 ; default option
; 24f56

MenuData_0x24f56: ; 24f56
	db STATICMENU_CURSOR | STATICMENU_DISABLE_B ; flags
	dn 2, 2 ; rows, columns
	db 11 ; spacing
	dba Strings24f5f
	dba Function24f7c
; 24f5f

Strings24f5f: ; 24f5f
	db "サファりボール×　　@" ; "SAFARI BALL×  @"
	db "エサをなげる@" ; "THROW BAIT"
	db "いしをなげる@" ; "THROW ROCK"
	db "にげる@" ; "RUN"
; 24f7c

Function24f7c: ; 24f7c
	hlcoord 17, 13
	ld de, wSafariBallsRemaining
	lb bc, PRINTNUM_LEADINGZEROS | 1, 2
	call PrintNum
	ret
; 24f89

MenuHeader_0x24f89: ; 24f89
	db MENU_BACKUP_TILES ; flags
	menu_coords 2, 12, SCREEN_WIDTH - 1, SCREEN_HEIGHT - 1
	dw MenuData_0x24f91
	db 1 ; default option
; 24f91

MenuData_0x24f91: ; 24f91
	db STATICMENU_CURSOR | STATICMENU_DISABLE_B ; flags
	dn 2, 2 ; rows, columns
	db 12 ; spacing
	dba Strings24f9a
	dba Function24fb2
; 24f9a

Strings24f9a: ; 24f9a
	db "FIGHT@"
	db "<PKMN>", "@"
	db "PARKBALL×  @"
	db "RUN@"
; 24fb2

Function24fb2: ; 24fb2
	hlcoord 13, 16
	ld de, wParkBallsRemaining
	lb bc, PRINTNUM_LEADINGZEROS | 1, 2
	call PrintNum
	ret
; 24fbf
-												Pack; buy, sell, toss

											
										
										
											2015-12-13 22:11:58 +00:00
+								LoadBattleMenu: ; 24ef2
-												MenuDataHeader → MenuHeader, MenuData2 → MenuData (might complete issue #440)

											
										
										
											2018-01-23 21:08:43 +00:00
+									ld hl, BattleMenuHeader
 									call LoadMenuHeader
-												More WRAM cleanup

											
										
										
											2017-12-10 00:41:03 +00:00
+									ld a, [wBattleMenuCursorBuffer]
-												Pack; buy, sell, toss

											
										
										
											2015-12-13 22:11:58 +00:00
+									ld [wMenuCursorBuffer], a
-												Menu

											
										
										
											2015-12-15 23:59:49 +00:00
+									call InterpretBattleMenu
-												Pack; buy, sell, toss

											
										
										
											2015-12-13 22:11:58 +00:00
+									ld a, [wMenuCursorBuffer]
-												More WRAM cleanup

											
										
										
											2017-12-10 00:41:03 +00:00
+									ld [wBattleMenuCursorBuffer], a
-												Pack; buy, sell, toss

											
										
										
											2015-12-13 22:11:58 +00:00
+									call ExitMenu
 									ret
 								; 24f0b
 								SafariBattleMenu: ; 24f0b
 								; untranslated
-												MenuDataHeader → MenuHeader, MenuData2 → MenuData (might complete issue #440)

											
										
										
											2018-01-23 21:08:43 +00:00
+									ld hl, MenuHeader_0x24f4e
 									call LoadMenuHeader
-												Pack; buy, sell, toss

											
										
										
											2015-12-13 22:11:58 +00:00
+									jr Function24f19
 								; 24f13
 								ContestBattleMenu: ; 24f13
-												MenuDataHeader → MenuHeader, MenuData2 → MenuData (might complete issue #440)

											
										
										
											2018-01-23 21:08:43 +00:00
+									ld hl, MenuHeader_0x24f89
 									call LoadMenuHeader
-												Pack; buy, sell, toss

											
										
										
											2015-12-13 22:11:58 +00:00
+								; 24f19
 								Function24f19: ; 24f19
-												More WRAM cleanup

											
										
										
											2017-12-10 00:41:03 +00:00
+									ld a, [wBattleMenuCursorBuffer]
-												Pack; buy, sell, toss

											
										
										
											2015-12-13 22:11:58 +00:00
+									ld [wMenuCursorBuffer], a
-												Menu

											
										
										
											2015-12-15 23:59:49 +00:00
+									call _2DMenu
-												Pack; buy, sell, toss

											
										
										
											2015-12-13 22:11:58 +00:00
+									ld a, [wMenuCursorBuffer]
-												More WRAM cleanup

											
										
										
											2017-12-10 00:41:03 +00:00
+									ld [wBattleMenuCursorBuffer], a
-												Pack; buy, sell, toss

											
										
										
											2015-12-13 22:11:58 +00:00
+									call ExitMenu
 									ret
 								; 24f2c
-												MenuDataHeader → MenuHeader, MenuData2 → MenuData (might complete issue #440)

											
										
										
											2018-01-23 21:08:43 +00:00
+								BattleMenuHeader: ; 24f2c
-												Use constants for menu flags

Added a bunch of constants for the bitflags of each kind of menu. Some
are slightly vague or too long, but I'm not sure how to else name them.

											
										
										
											2018-01-14 10:59:56 +00:00
+									db MENU_BACKUP_TILES ; flags
-												menu_coords macro for (x1, y1, x2, y2) order (see issue #440)

											
										
										
											2018-01-13 21:38:14 +00:00
+									menu_coords 8, 12, SCREEN_WIDTH - 1, SCREEN_HEIGHT - 1
-												Pack; buy, sell, toss

											
										
										
											2015-12-13 22:11:58 +00:00
+									dw MenuData_0x24f34
 									db 1 ; default option
 								; 24f34
 								MenuData_0x24f34: ; 0x24f34
-												Use constants for menu flags

Added a bunch of constants for the bitflags of each kind of menu. Some
are slightly vague or too long, but I'm not sure how to else name them.

											
										
										
											2018-01-14 10:59:56 +00:00
+									db STATICMENU_CURSOR | STATICMENU_DISABLE_B ; flags
-												Pack; buy, sell, toss

											
										
										
											2015-12-13 22:11:58 +00:00
+									dn 2, 2 ; rows, columns
 									db 6 ; spacing
 									dba Strings24f3d
 									dbw BANK(MenuData_0x24f34), 0
 								; 0x24f3d
 								Strings24f3d: ; 0x24f3d
 									db "FIGHT@"
 									db "<PKMN>@"
 									db "PACK@"
 									db "RUN@"
 								; 24f4e
-												MenuDataHeader → MenuHeader, MenuData2 → MenuData (might complete issue #440)

											
										
										
											2018-01-23 21:08:43 +00:00
+								MenuHeader_0x24f4e: ; 24f4e
-												Use constants for menu flags

Added a bunch of constants for the bitflags of each kind of menu. Some
are slightly vague or too long, but I'm not sure how to else name them.

											
										
										
											2018-01-14 10:59:56 +00:00
+									db MENU_BACKUP_TILES ; flags
-												menu_coords macro for (x1, y1, x2, y2) order (see issue #440)

											
										
										
											2018-01-13 21:38:14 +00:00
+									menu_coords 0, 12, SCREEN_WIDTH - 1, SCREEN_HEIGHT - 1
-												Pack; buy, sell, toss

											
										
										
											2015-12-13 22:11:58 +00:00
+									dw MenuData_0x24f56
 									db 1 ; default option
 								; 24f56
 								MenuData_0x24f56: ; 24f56
-												Use constants for menu flags

Added a bunch of constants for the bitflags of each kind of menu. Some
are slightly vague or too long, but I'm not sure how to else name them.

											
										
										
											2018-01-14 10:59:56 +00:00
+									db STATICMENU_CURSOR | STATICMENU_DISABLE_B ; flags
-												Pack; buy, sell, toss

											
										
										
											2015-12-13 22:11:58 +00:00
+									dn 2, 2 ; rows, columns
 									db 11 ; spacing
 									dba Strings24f5f
 									dba Function24f7c
 								; 24f5f
 								Strings24f5f: ; 24f5f
-												Japanese characters in Japanese text (e.g. "ォ" not "," for $f4)

											
										
										
											2018-01-20 02:49:16 +00:00
+									db "サファりボール×　　@" ; "SAFARI BALL×  @"
-												Pack; buy, sell, toss

											
										
										
											2015-12-13 22:11:58 +00:00
+									db "エサをなげる@" ; "THROW BAIT"
 									db "いしをなげる@" ; "THROW ROCK"
 									db "にげる@" ; "RUN"
 								; 24f7c
 								Function24f7c: ; 24f7c
 									hlcoord 17, 13
 									ld de, wSafariBallsRemaining
 									lb bc, PRINTNUM_LEADINGZEROS | 1, 2
 									call PrintNum
 									ret
 								; 24f89
-												MenuDataHeader → MenuHeader, MenuData2 → MenuData (might complete issue #440)

											
										
										
											2018-01-23 21:08:43 +00:00
+								MenuHeader_0x24f89: ; 24f89
-												Use constants for menu flags

Added a bunch of constants for the bitflags of each kind of menu. Some
are slightly vague or too long, but I'm not sure how to else name them.

											
										
										
											2018-01-14 10:59:56 +00:00
+									db MENU_BACKUP_TILES ; flags
-												menu_coords macro for (x1, y1, x2, y2) order (see issue #440)

											
										
										
											2018-01-13 21:38:14 +00:00
+									menu_coords 2, 12, SCREEN_WIDTH - 1, SCREEN_HEIGHT - 1
-												Pack; buy, sell, toss

											
										
										
											2015-12-13 22:11:58 +00:00
+									dw MenuData_0x24f91
 									db 1 ; default option
 								; 24f91
 								MenuData_0x24f91: ; 24f91
-												Use constants for menu flags

Added a bunch of constants for the bitflags of each kind of menu. Some
are slightly vague or too long, but I'm not sure how to else name them.

											
										
										
											2018-01-14 10:59:56 +00:00
+									db STATICMENU_CURSOR | STATICMENU_DISABLE_B ; flags
-												Pack; buy, sell, toss

											
										
										
											2015-12-13 22:11:58 +00:00
+									dn 2, 2 ; rows, columns
 									db 12 ; spacing
 									dba Strings24f9a
 									dba Function24fb2
 								; 24f9a
 								Strings24f9a: ; 24f9a
 									db "FIGHT@"
 									db "<PKMN>", "@"
 									db "PARKBALL×  @"
 									db "RUN@"
 								; 24fb2
 								Function24fb2: ; 24fb2
 									hlcoord 13, 16
 									ld de, wParkBallsRemaining
 									lb bc, PRINTNUM_LEADINGZEROS | 1, 2
 									call PrintNum
 									ret
 								; 24fbf