11d67567d2
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.
337 lines
5.2 KiB
NASM
337 lines
5.2 KiB
NASM
SpecialBuenasPassword: ; 8af6b
|
|
xor a
|
|
ld [wWhichIndexSet], a
|
|
ld hl, .MenuDataHeader
|
|
call CopyMenuDataHeader
|
|
ld a, [wBuenasPassword]
|
|
ld c, a
|
|
farcall GetBuenasPassword
|
|
ld a, [wMenuBorderLeftCoord]
|
|
add c
|
|
add $2
|
|
ld [wMenuBorderRightCoord], a
|
|
call PushWindow
|
|
call DoNthMenu ; menu
|
|
farcall Buena_ExitMenu
|
|
ld b, $0
|
|
ld a, [MenuSelection]
|
|
ld c, a
|
|
ld a, [wBuenasPassword]
|
|
and $3
|
|
cp c
|
|
jr nz, .wrong
|
|
ld b, $1
|
|
|
|
.wrong
|
|
ld a, b
|
|
ld [ScriptVar], a
|
|
ret
|
|
; 8afa9
|
|
|
|
.MenuDataHeader: ; 0x8afa9
|
|
db MENU_BACKUP_TILES ; flags
|
|
db 00, 00 ; start coords
|
|
db 07, 10 ; end coords
|
|
dw .MenuData2
|
|
db 1 ; default option
|
|
; 0x8afb1
|
|
|
|
db 0
|
|
|
|
.MenuData2: ; 0x8afb2
|
|
db STATICMENU_CURSOR | STATICMENU_DISABLE_B ; flags
|
|
db 0 ; items
|
|
dw .PasswordIndices
|
|
dw .PlacePasswordChoices
|
|
; 0x8afb4
|
|
|
|
.PasswordIndices: ; 8afb8
|
|
db 3
|
|
db 0, 1, 2
|
|
db -1
|
|
|
|
.PlacePasswordChoices: ; 8afbd
|
|
push de
|
|
ld a, [wBuenasPassword]
|
|
and $f0
|
|
ld c, a
|
|
ld a, [MenuSelection]
|
|
add c
|
|
ld c, a
|
|
farcall GetBuenasPassword
|
|
pop hl
|
|
call PlaceString
|
|
ret
|
|
; 8afd4
|
|
|
|
SpecialBuenaPrize: ; 8afd4
|
|
xor a
|
|
ld [wMenuScrollPosition], a
|
|
ld a, $1
|
|
ld [MenuSelection], a
|
|
call Buena_PlacePrizeMenuBox
|
|
call Buena_DisplayBlueCardBalance
|
|
ld hl, .Text_AskWhichPrize
|
|
call PrintText
|
|
jr .okay
|
|
|
|
.loop
|
|
ld hl, .Text_AskWhichPrize
|
|
call BuenaPrintText
|
|
|
|
.okay
|
|
call DelayFrame
|
|
call UpdateSprites
|
|
call PrintBlueCardBalance
|
|
call Buena_PrizeMenu
|
|
jr z, .done
|
|
ld [MenuSelectionQuantity], a
|
|
call Buena_getprize
|
|
ld a, [hl]
|
|
ld [wNamedObjectIndexBuffer], a
|
|
call GetItemName
|
|
ld hl, .Text_IsThatRight
|
|
call BuenaPrintText
|
|
call YesNoBox
|
|
jr c, .loop
|
|
|
|
ld a, [MenuSelectionQuantity]
|
|
call Buena_getprize
|
|
inc hl
|
|
ld a, [hld]
|
|
ld c, a
|
|
ld a, [wBlueCardBalance]
|
|
cp c
|
|
jr c, .InsufficientBalance
|
|
|
|
ld a, [hli]
|
|
push hl
|
|
ld [CurItem], a
|
|
ld a, $1
|
|
ld [wItemQuantityChangeBuffer], a
|
|
ld hl, NumItems
|
|
call ReceiveItem
|
|
pop hl
|
|
jr nc, .BagFull
|
|
ld a, [hl]
|
|
ld c, a
|
|
ld a, [wBlueCardBalance]
|
|
sub c
|
|
ld [wBlueCardBalance], a
|
|
call PrintBlueCardBalance
|
|
jr .Purchase
|
|
|
|
.InsufficientBalance:
|
|
ld hl, .Text_NotEnoughPoints
|
|
jr .print
|
|
|
|
.BagFull:
|
|
ld hl, .Text_NoRoom
|
|
jr .print
|
|
|
|
.Purchase:
|
|
ld de, SFX_TRANSACTION
|
|
call PlaySFX
|
|
ld hl, .Text_HereYouGo
|
|
|
|
.print
|
|
call BuenaPrintText
|
|
jr .loop
|
|
|
|
.done
|
|
call CloseWindow
|
|
call CloseWindow
|
|
ld hl, .Text_PleaseComeBackAgain
|
|
call PrintText
|
|
call JoyWaitAorB
|
|
call PlayClickSFX
|
|
ret
|
|
; 8b072
|
|
|
|
.Text_AskWhichPrize: ; 0x8b072
|
|
; Which prize would you like?
|
|
text_jump UnknownText_0x1c589f
|
|
db "@"
|
|
; 0x8b077
|
|
|
|
.Text_IsThatRight: ; 0x8b077
|
|
; ? Is that right?
|
|
text_jump UnknownText_0x1c58bc
|
|
db "@"
|
|
; 0x8b07c
|
|
|
|
.Text_HereYouGo: ; Here you go!
|
|
text_jump UnknownText_0x1c58d1
|
|
db "@"
|
|
; 0x8b081
|
|
|
|
.Text_NotEnoughPoints: ; 0x8b081
|
|
; You don't have enough points.
|
|
text_jump UnknownText_0x1c58e0
|
|
db "@"
|
|
; 0x8b086
|
|
|
|
.Text_NoRoom: ; 0x8b086
|
|
; You have no room for it.
|
|
text_jump UnknownText_0x1c58ff
|
|
db "@"
|
|
; 0x8b08b
|
|
|
|
.Text_PleaseComeBackAgain: ; 0x8b08b
|
|
; Oh. Please come back again!
|
|
text_jump UnknownText_0x1c591a
|
|
db "@"
|
|
; 0x8b090
|
|
|
|
Buena_DisplayBlueCardBalance: ; 8b090
|
|
ld hl, BlueCardBalanceMenuDataHeader
|
|
call LoadMenuDataHeader
|
|
ret
|
|
; 8b097
|
|
|
|
PrintBlueCardBalance: ; 8b097
|
|
ld de, wBlueCardBalance
|
|
call .DrawBox
|
|
ret
|
|
; 8b09e
|
|
|
|
.DrawBox: ; 8b09e
|
|
push de
|
|
xor a
|
|
ld [hBGMapMode], a
|
|
ld hl, BlueCardBalanceMenuDataHeader
|
|
call CopyMenuDataHeader
|
|
call MenuBox
|
|
call UpdateSprites
|
|
call MenuBoxCoord2Tile
|
|
ld bc, SCREEN_WIDTH + 1
|
|
add hl, bc
|
|
ld de, .Points_string
|
|
call PlaceString
|
|
ld h, b
|
|
ld l, c
|
|
inc hl
|
|
ld a, " "
|
|
ld [hli], a
|
|
ld [hld], a
|
|
pop de
|
|
lb bc, 1, 2
|
|
call PrintNum
|
|
ret
|
|
; 8b0ca
|
|
|
|
.Points_string:
|
|
db "Points@"
|
|
; 8b0d1
|
|
|
|
BlueCardBalanceMenuDataHeader: ; 0x8b0d1
|
|
db MENU_BACKUP_TILES ; flags
|
|
db 11, 00 ; start coords
|
|
db 13, 11 ; end coords
|
|
; 8b0d6
|
|
|
|
Buena_PlacePrizeMenuBox: ; 8b0d6
|
|
ld hl, .menudataheader
|
|
call LoadMenuDataHeader
|
|
ret
|
|
; 8b0dd
|
|
|
|
.menudataheader ; 0x8b0dd
|
|
db MENU_BACKUP_TILES ; flags
|
|
db 00, 00 ; start coords
|
|
db 11, 17 ; end coords
|
|
; 8b0e2
|
|
|
|
Buena_PrizeMenu: ; 8b0e2
|
|
ld hl, .MenuDataHeader
|
|
call CopyMenuDataHeader
|
|
ld a, [MenuSelection]
|
|
ld [wMenuCursorBuffer], a
|
|
xor a
|
|
ld [wWhichIndexSet], a
|
|
ld [hBGMapMode], a
|
|
call InitScrollingMenu
|
|
call UpdateSprites
|
|
call ScrollingMenu
|
|
ld a, [MenuSelection]
|
|
ld c, a
|
|
ld a, [wMenuCursorY]
|
|
ld [MenuSelection], a
|
|
ld a, [wMenuJoypad]
|
|
cp $2
|
|
jr z, .cancel
|
|
ld a, c
|
|
and a
|
|
ret nz
|
|
|
|
.cancel
|
|
xor a
|
|
ret
|
|
; 8b113
|
|
|
|
.MenuDataHeader: ; 0x8b113
|
|
db MENU_BACKUP_TILES ; flags
|
|
db 01, 01 ; start coords
|
|
db 09, 16 ; end coords
|
|
dw .MenuData2
|
|
db 1 ; default option
|
|
; 0x8b11b
|
|
|
|
db 0
|
|
|
|
.MenuData2: ; 0x8b11c
|
|
db SCROLLINGMENU_DISPLAY_ARROWS ; flags
|
|
db 4, 13 ; rows, columns
|
|
db 1 ; spacing
|
|
dba .indices
|
|
dba .prizeitem
|
|
dba .prizepoints
|
|
; 8b129
|
|
|
|
NUM_BUENA_PRIZES EQU 9 ; ((BuenaPrizeItemsEnd - BuenaPrizeItems) / 2)
|
|
|
|
.indices ; 8b129
|
|
db NUM_BUENA_PRIZES
|
|
x = 1
|
|
rept NUM_BUENA_PRIZES
|
|
db x
|
|
x = x + 1
|
|
endr
|
|
db -1
|
|
; 8b134
|
|
|
|
.prizeitem ; 8b134
|
|
ld a, [MenuSelection]
|
|
call Buena_getprize
|
|
ld a, [hl]
|
|
push de
|
|
ld [wNamedObjectIndexBuffer], a
|
|
call GetItemName
|
|
pop hl
|
|
call PlaceString
|
|
ret
|
|
; 8b147
|
|
|
|
.prizepoints ; 8b147
|
|
ld a, [MenuSelection]
|
|
call Buena_getprize
|
|
inc hl
|
|
ld a, [hl]
|
|
ld c, "0"
|
|
add c
|
|
ld [de], a
|
|
ret
|
|
; 8b154
|
|
|
|
Buena_getprize: ; 8b154
|
|
dec a
|
|
ld hl, BuenaPrizeItems
|
|
ld b, 0
|
|
ld c, a
|
|
add hl, bc
|
|
add hl, bc
|
|
ret
|
|
; 8b15e
|
|
|
|
INCLUDE "data/items/buena_prizes.asm"
|