pokecrystal-board/home/menu.asm

592 lines
8.4 KiB
NASM
Raw Normal View History

; Functions used in displaying and handling menus.
2015-10-24 07:34:19 -07:00
LoadMenuDataHeader::
call CopyMenuDataHeader
2015-12-22 19:19:33 -08:00
call PushWindow
ret
2015-10-24 07:34:19 -07:00
CopyMenuDataHeader::
ld de, wMenuDataHeader
ld bc, wMenuDataHeaderEnd - wMenuDataHeader
call CopyBytes
ld a, [hROMBank]
ld [wMenuDataBank], a
ret
; 0x1d4b
2015-12-16 09:32:08 -08:00
StoreTo_wMenuCursorBuffer:: ; 1d4b
2015-11-01 09:44:30 -08:00
ld [wMenuCursorBuffer], a
ret
; 1d4f
MenuTextBox:: ; 1d4f
push hl
call LoadMenuTextBox
pop hl
jp PrintText
; 1d57
2015-12-13 11:15:16 -08:00
ret_1d57:: ; 1d57
; unreferenced
ret
; 1d58
LoadMenuTextBox:: ; 1d58
2015-12-17 19:31:16 -08:00
ld hl, .MenuDataHeader
call LoadMenuDataHeader
ret
; 1d5f
.MenuDataHeader: ; 1d5f
db $40 ; tile backup
db 12, 0 ; start coords
db 17, 19 ; end coords
dw VTiles0
db 0 ; default option
; 1d67
MenuTextBoxBackup:: ; 1d67
call MenuTextBox
call CloseWindow
ret
; 1d6e
2015-11-11 13:11:08 -08:00
LoadStandardMenuDataHeader:: ; 1d6e
2015-12-17 19:31:16 -08:00
ld hl, .MenuDataHeader
call LoadMenuDataHeader
ret
; 1d75
.MenuDataHeader: ; 1d75
db $40 ; tile backup
db 0, 0 ; start coords
db 17, 19 ; end coords
2015-11-02 11:37:02 -08:00
dw 0
db 1 ; default option
; 1d7d
2015-09-09 16:27:07 -07:00
Call_ExitMenu:: ; 1d7d
call ExitMenu
ret
; 1d81
2015-12-15 15:59:49 -08:00
VerticalMenu::
xor a
ld [hBGMapMode], a
2015-11-04 11:02:11 -08:00
call MenuBox
call UpdateSprites
2015-12-15 15:59:49 -08:00
call PlaceVerticalMenuItems
2015-11-25 07:16:29 -08:00
call ApplyTilemap
call CopyMenuData2
2015-11-04 11:02:11 -08:00
ld a, [wMenuData2Flags]
bit 7, a
2015-10-24 07:34:19 -07:00
jr z, .cancel
2015-12-15 15:59:49 -08:00
call InitVerticalMenuCursor
call StaticMenuJoypad
call MenuClickSound
bit 1, a
2015-10-24 07:34:19 -07:00
jr z, .okay
2015-10-16 10:35:43 -07:00
.cancel
scf
ret
2015-12-15 15:59:49 -08:00
2015-10-16 10:35:43 -07:00
.okay
and a
ret
; 0x1dab
GetMenu2:: ; 1dab
call LoadMenuDataHeader
2015-12-15 15:59:49 -08:00
call VerticalMenu
call CloseWindow
2015-12-15 15:59:49 -08:00
ld a, [wMenuCursorY]
ret
; 1db8
CopyNameFromMenu::
push hl
push bc
push af
ld hl, wMenuData2Pointer
ld a, [hli]
ld h, [hl]
ld l, a
inc hl
2016-01-05 05:46:37 -08:00
inc hl
pop af
call GetNthString
ld d, h
ld e, l
call CopyName1
pop bc
pop hl
ret
; 0x1dcf
YesNoBox:: ; 1dcf
lb bc, SCREEN_WIDTH - 6, 7
PlaceYesNoBox:: ; 1dd2
2013-12-03 23:49:12 -08:00
jr _YesNoBox
2015-10-17 14:18:52 -07:00
PlaceGenericTwoOptionBox:: ; 1dd4
call LoadMenuDataHeader
2015-10-17 14:18:52 -07:00
jr InterpretTwoOptionMenu
_YesNoBox:: ; 1dd9
2013-12-03 23:49:12 -08:00
; Return nc (yes) or c (no).
push bc
2013-12-03 23:49:12 -08:00
ld hl, YesNoMenuDataHeader
call CopyMenuDataHeader
pop bc
2015-10-17 14:18:52 -07:00
; This seems to be an overflow prevention, but
; it was coded wrong.
ld a, b
2015-10-17 14:18:52 -07:00
cp SCREEN_WIDTH - 6
jr nz, .okay ; should this be "jr nc"?
ld a, SCREEN_WIDTH - 6
ld b, a
2015-10-17 14:18:52 -07:00
.okay
ld a, b
2015-10-24 07:34:19 -07:00
ld [wMenuBorderLeftCoord], a
add 5
2015-10-24 07:34:19 -07:00
ld [wMenuBorderRightCoord], a
ld a, c
2015-10-24 07:34:19 -07:00
ld [wMenuBorderTopCoord], a
add 4
2015-10-24 07:34:19 -07:00
ld [wMenuBorderBottomCoord], a
2015-12-22 19:19:33 -08:00
call PushWindow
2015-10-17 14:18:52 -07:00
InterpretTwoOptionMenu:: ; 1dfe
2015-12-15 15:59:49 -08:00
call VerticalMenu
push af
ld c, $f
call DelayFrames
call CloseWindow
pop af
2015-10-16 10:35:43 -07:00
jr c, .no
2015-12-15 15:59:49 -08:00
ld a, [wMenuCursorY]
2013-12-03 23:49:12 -08:00
cp 2 ; no
2015-10-16 10:35:43 -07:00
jr z, .no
and a
ret
2015-10-16 10:35:43 -07:00
.no
ld a, 2
2015-12-15 15:59:49 -08:00
ld [wMenuCursorY], a
scf
ret
; 1e1d
YesNoMenuDataHeader:: ; 1e1d
db $40 ; tile backup
db 5, 10 ; start coords
db 9, 15 ; end coords
2015-12-17 19:31:16 -08:00
dw .MenuData2
db 1 ; default option
; 1e25
.MenuData2: ; 1e25
db $c0 ; flags
db 2
db "YES@"
db "NO@"
; 1e2e
2015-12-17 19:31:16 -08:00
OffsetMenuDataHeader:: ; 1e2e
call _OffsetMenuDataHeader
2015-12-22 19:19:33 -08:00
call PushWindow
ret
; 1e35
2015-12-17 19:31:16 -08:00
_OffsetMenuDataHeader:: ; 1e35
push de
call CopyMenuDataHeader
pop de
2015-10-24 07:34:19 -07:00
ld a, [wMenuBorderLeftCoord]
ld h, a
2015-10-24 07:34:19 -07:00
ld a, [wMenuBorderRightCoord]
sub h
ld h, a
ld a, d
2015-10-24 07:34:19 -07:00
ld [wMenuBorderLeftCoord], a
add h
2015-10-24 07:34:19 -07:00
ld [wMenuBorderRightCoord], a
ld a, [wMenuBorderTopCoord]
ld l, a
2015-10-24 07:34:19 -07:00
ld a, [wMenuBorderBottomCoord]
sub l
ld l, a
ld a, e
2015-10-24 07:34:19 -07:00
ld [wMenuBorderTopCoord], a
add l
2015-10-24 07:34:19 -07:00
ld [wMenuBorderBottomCoord], a
ret
; 1e5d
2015-11-16 18:46:36 -08:00
DoNthMenu:: ; 1e5d
call DrawVariableLengthMenuBox
call MenuWriteText
call InitMenuCursorAndButtonPermissions
2016-03-01 19:31:21 -08:00
call GetStaticMenuJoypad
2015-12-15 15:59:49 -08:00
call GetMenuJoypad
call MenuClickSound
ret
; 1e70
SetUpMenu:: ; 1e70
call DrawVariableLengthMenuBox ; ???
call MenuWriteText
call InitMenuCursorAndButtonPermissions ; set up selection pointer
2015-12-17 19:31:16 -08:00
ld hl, w2DMenuFlags1
set 7, [hl]
ret
DrawVariableLengthMenuBox::
call CopyMenuData2
2015-12-18 17:07:09 -08:00
call GetMenuIndexSet
call AutomaticGetMenuBottomCoord
2015-11-04 11:02:11 -08:00
call MenuBox
ret
2015-10-24 07:34:19 -07:00
MenuWriteText::
xor a
ld [hBGMapMode], a
2015-12-18 17:07:09 -08:00
call GetMenuIndexSet ; sort out the text
call RunMenuItemPrintingFunction ; actually write it
call SafeUpdateSprites
ld a, [hOAMUpdate]
push af
ld a, $1
ld [hOAMUpdate], a
2015-11-25 07:16:29 -08:00
call ApplyTilemap
pop af
ld [hOAMUpdate], a
ret
; 0x1ea6
AutomaticGetMenuBottomCoord:: ; 1ea6
2015-10-24 07:34:19 -07:00
ld a, [wMenuBorderLeftCoord]
ld c, a
2015-10-24 07:34:19 -07:00
ld a, [wMenuBorderRightCoord]
sub c
ld c, a
2015-11-04 11:02:11 -08:00
ld a, [wMenuData2Items]
add a
inc a
ld b, a
2015-10-24 07:34:19 -07:00
ld a, [wMenuBorderTopCoord]
add b
2015-10-24 07:34:19 -07:00
ld [wMenuBorderBottomCoord], a
ret
; 1ebd
2015-12-18 17:07:09 -08:00
GetMenuIndexSet:: ; 1ebd
2015-12-17 19:31:16 -08:00
ld hl, wMenuData2IndicesPointer
ld a, [hli]
ld h, [hl]
ld l, a
2015-12-18 17:07:09 -08:00
ld a, [wWhichIndexSet]
and a
2015-12-17 19:31:16 -08:00
jr z, .skip
ld b, a
2015-12-17 19:31:16 -08:00
ld c, -1
.loop
ld a, [hli]
cp c
2015-12-17 19:31:16 -08:00
jr nz, .loop
dec b
2015-12-17 19:31:16 -08:00
jr nz, .loop
2015-12-17 19:31:16 -08:00
.skip
ld d, h
ld e, l
ld a, [hl]
2015-11-04 11:02:11 -08:00
ld [wMenuData2Items], a
ret
; 1eda
RunMenuItemPrintingFunction:: ; 1eda
call MenuBoxCoord2Tile
2015-12-17 19:31:16 -08:00
ld bc, 2 * SCREEN_WIDTH + 2
add hl, bc
2015-12-17 19:31:16 -08:00
.loop
inc de
ld a, [de]
2015-12-17 19:31:16 -08:00
cp -1
ret z
ld [MenuSelection], a
push de
push hl
ld d, h
ld e, l
2015-12-17 19:31:16 -08:00
ld hl, wMenuData2DisplayFunctionPointer
call ._hl_
pop hl
2015-12-17 19:31:16 -08:00
ld de, 2 * SCREEN_WIDTH
add hl, de
pop de
2015-12-17 19:31:16 -08:00
jr .loop
; 1efb
._hl_ ; 1efb
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
; 1eff
InitMenuCursorAndButtonPermissions:: ; 1eff
2015-12-15 15:59:49 -08:00
call InitVerticalMenuCursor
ld hl, wMenuJoypadFilter
2015-11-04 11:02:11 -08:00
ld a, [wMenuData2Flags]
bit 3, a
jr z, .disallow_select
set START_F, [hl]
.disallow_select
2015-11-04 11:02:11 -08:00
ld a, [wMenuData2Flags]
bit 2, a
jr z, .disallow_left_right
set D_LEFT_F, [hl]
set D_RIGHT_F, [hl]
.disallow_left_right
ret
; 1f1a
2016-03-01 19:31:21 -08:00
GetScrollingMenuJoypad:: ; 1f1a
2015-12-15 15:59:49 -08:00
call ScrollingMenuJoypad
ld hl, wMenuJoypadFilter
and [hl]
2016-03-01 19:31:21 -08:00
jr ContinueGettingMenuJoypad
; 1f23
2016-03-01 19:31:21 -08:00
GetStaticMenuJoypad:: ; 1f23
xor a
2015-12-15 15:59:49 -08:00
ld [wMenuJoypad], a
call StaticMenuJoypad
; 1f2a
2016-03-01 19:31:21 -08:00
ContinueGettingMenuJoypad:
bit A_BUTTON_F, a
jr nz, .a_button
bit B_BUTTON_F, a
jr nz, .b_start
bit START_F, a
jr nz, .b_start
bit D_RIGHT_F, a
jr nz, .d_right
bit D_LEFT_F, a
jr nz, .d_left
xor a
2015-12-15 15:59:49 -08:00
ld [wMenuJoypad], a
jr .done
.d_right
ld a, D_RIGHT
2015-12-15 15:59:49 -08:00
ld [wMenuJoypad], a
jr .done
.d_left
ld a, D_LEFT
2015-12-15 15:59:49 -08:00
ld [wMenuJoypad], a
jr .done
.a_button
ld a, A_BUTTON
2015-12-15 15:59:49 -08:00
ld [wMenuJoypad], a
.done
2015-12-18 17:07:09 -08:00
call GetMenuIndexSet
2015-12-15 15:59:49 -08:00
ld a, [wMenuCursorY]
ld l, a
ld h, $0
add hl, de
ld a, [hl]
ld [MenuSelection], a
2015-12-15 15:59:49 -08:00
ld a, [wMenuCursorY]
2015-11-01 09:44:30 -08:00
ld [wMenuCursorBuffer], a
and a
ret
.b_start
ld a, B_BUTTON
2015-12-15 15:59:49 -08:00
ld [wMenuJoypad], a
ld a, -1
ld [MenuSelection], a
scf
ret
; 1f79
2015-12-13 11:15:16 -08:00
PlaceMenuStrings:: ; 1f79
push de
2015-12-13 11:15:16 -08:00
ld hl, wMenuData2PointerTableAddr
ld a, [hli]
ld h, [hl]
ld l, a
ld a, [MenuSelection]
call GetNthString
ld d, h
ld e, l
pop hl
call PlaceString
ret
; 1f8d
2015-11-16 18:46:36 -08:00
PlaceNthMenuStrings:: ; 1f8d
push de
ld a, [MenuSelection]
2015-12-13 11:15:16 -08:00
call GetMenuDataPointerTableEntry
inc hl
2016-01-05 05:46:37 -08:00
inc hl
ld a, [hli]
ld d, [hl]
ld e, a
pop hl
call PlaceString
ret
; 1f9e
Function1f9e:: ; 1f9e
2015-12-13 11:15:16 -08:00
; unreferenced
call GetMenuDataPointerTableEntry
inc hl
2016-01-05 05:46:37 -08:00
inc hl
ld a, [hli]
ld d, [hl]
ld e, a
ret
; 1fa7
2015-11-16 18:46:36 -08:00
MenuJumptable:: ; 1fa7
ld a, [MenuSelection]
2015-12-13 11:15:16 -08:00
call GetMenuDataPointerTableEntry
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
; 1fb1
2015-12-13 11:15:16 -08:00
GetMenuDataPointerTableEntry:: ; 1fb1
ld e, a
ld d, $0
2015-12-13 11:15:16 -08:00
ld hl, wMenuData2PointerTableAddr
ld a, [hli]
ld h, [hl]
ld l, a
add hl, de
2016-01-05 05:46:37 -08:00
add hl, de
add hl, de
add hl, de
ret
; 1fbf
ClearWindowData:: ; 1fbf
2015-12-15 15:59:49 -08:00
ld hl, wWindowStackPointer
call .bytefill
ld hl, wMenuDataHeader
call .bytefill
2015-11-04 11:02:11 -08:00
ld hl, wMenuData2Flags
call .bytefill
ld hl, w2DMenuCursorInitY
call .bytefill
ld a, [rSVBK]
push af
ld a, $7
ld [rSVBK], a
xor a
2015-12-15 15:59:49 -08:00
ld hl, wWindowStackBottom
ld [hld], a
2016-01-05 05:46:37 -08:00
ld [hld], a
ld a, l
2015-12-15 15:59:49 -08:00
ld [wWindowStackPointer], a
ld a, h
2015-12-15 15:59:49 -08:00
ld [wWindowStackPointer + 1], a
pop af
ld [rSVBK], a
ret
; 1ff0
.bytefill ; 1ff0
ld bc, $0010
xor a
call ByteFill
ret
; 1ff8
2015-12-15 15:59:49 -08:00
MenuClickSound:: ; 1ff8
push af
2015-12-15 15:59:49 -08:00
and A_BUTTON | B_BUTTON
2015-10-16 10:35:43 -07:00
jr z, .nosound
ld hl, wMenuFlags
bit 3, [hl]
2015-10-16 10:35:43 -07:00
jr nz, .nosound
call PlayClickSFX
2015-10-16 10:35:43 -07:00
.nosound
pop af
ret
; 2009
PlayClickSFX:: ; 2009
push de
ld de, SFX_READ_TEXT_2
2013-10-08 10:10:36 -07:00
call PlaySFX
pop de
ret
; 0x2012
MenuTextBoxWaitButton:: ; 2012
call MenuTextBox
2015-11-25 07:16:29 -08:00
call WaitButton
call ExitMenu
ret
; 201c
2015-12-15 15:59:49 -08:00
Place2DMenuItemName:: ; 201c
ld [hBuffer], a
ld a, [hROMBank]
push af
ld a, [hBuffer]
rst Bankswitch
call PlaceString
pop af
rst Bankswitch
ret
; 202a
2015-12-15 15:59:49 -08:00
_2DMenu:: ; 202a
ld a, [hROMBank]
2015-12-15 15:59:49 -08:00
ld [wMenuData2_2DMenuItemStringsBank], a
callba _2DMenu_
2015-11-01 09:44:30 -08:00
ld a, [wMenuCursorBuffer]
ret
; 2039
2015-12-15 15:59:49 -08:00
InterpretBattleMenu:: ; 2039
ld a, [hROMBank]
2015-12-15 15:59:49 -08:00
ld [wMenuData2_2DMenuItemStringsBank], a
callba _InterpretBattleMenu
2015-11-01 09:44:30 -08:00
ld a, [wMenuCursorBuffer]
ret
; 2048
2015-12-15 15:59:49 -08:00
InterpretMobileMenu:: ; 2048
ld a, [hROMBank]
2015-12-15 15:59:49 -08:00
ld [wMenuData2_2DMenuItemStringsBank], a
callba _InterpretMobileMenu
2015-11-01 09:44:30 -08:00
ld a, [wMenuCursorBuffer]
ret
; 2057