pokecrystal/engine/events/buena.asm

301 lines
4.5 KiB
NASM

BuenasPassword:
xor a
ld [wWhichIndexSet], a
ld hl, .MenuHeader
call CopyMenuHeader
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, [wMenuSelection]
ld c, a
ld a, [wBuenasPassword]
maskbits NUM_PASSWORDS_PER_CATEGORY
cp c
jr nz, .wrong
ld b, $1
.wrong
ld a, b
ld [wScriptVar], a
ret
.MenuHeader:
db MENU_BACKUP_TILES ; flags
menu_coords 0, 0, 10, 7
dw .MenuData
db 1 ; default option
db 0
.MenuData:
db STATICMENU_CURSOR | STATICMENU_DISABLE_B ; flags
db 0 ; items
dw .PasswordIndices
dw .PlacePasswordChoices
.PasswordIndices:
db NUM_PASSWORDS_PER_CATEGORY
for x, NUM_PASSWORDS_PER_CATEGORY
db x
endr
db -1
.PlacePasswordChoices:
push de
ld a, [wBuenasPassword]
and $f0
ld c, a
ld a, [wMenuSelection]
add c
ld c, a
farcall GetBuenasPassword
pop hl
call PlaceString
ret
BuenaPrize:
xor a
ld [wMenuScrollPosition], a
ld a, $1
ld [wMenuSelection], a
call Buena_PlacePrizeMenuBox
call Buena_DisplayBlueCardBalance
ld hl, .BuenaAskWhichPrizeText
call PrintText
jr .okay
.loop
ld hl, .BuenaAskWhichPrizeText
call BuenaPrintText
.okay
call DelayFrame
call UpdateSprites
call PrintBlueCardBalance
call Buena_PrizeMenu
jr z, .done
ld [wMenuSelectionQuantity], a
call Buena_GetPrize
ld a, [hl]
ld [wNamedObjectIndex], a
call GetItemName
ld hl, .BuenaIsThatRightText
call BuenaPrintText
call YesNoBox
jr c, .loop
ld a, [wMenuSelectionQuantity]
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 [wCurItem], a
ld a, $1
ld [wItemQuantityChange], a
ld hl, wNumItems
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, .BuenaNotEnoughPointsText
jr .print
.BagFull:
ld hl, .BuenaNoRoomText
jr .print
.Purchase:
ld de, SFX_TRANSACTION
call PlaySFX
ld hl, .BuenaHereYouGoText
.print
call BuenaPrintText
jr .loop
.done
call CloseWindow
call CloseWindow
ld hl, .BuenaComeAgainText
call PrintText
call JoyWaitAorB
call PlayClickSFX
ret
.BuenaAskWhichPrizeText:
text_far _BuenaAskWhichPrizeText
text_end
.BuenaIsThatRightText:
text_far _BuenaIsThatRightText
text_end
.BuenaHereYouGoText:
text_far _BuenaHereYouGoText
text_end
.BuenaNotEnoughPointsText:
text_far _BuenaNotEnoughPointsText
text_end
.BuenaNoRoomText:
text_far _BuenaNoRoomText
text_end
.BuenaComeAgainText:
text_far _BuenaComeAgainText
text_end
Buena_DisplayBlueCardBalance:
ld hl, BlueCardBalanceMenuHeader
call LoadMenuHeader
ret
PrintBlueCardBalance:
ld de, wBlueCardBalance
call .DrawBox
ret
.DrawBox:
push de
xor a
ldh [hBGMapMode], a
ld hl, BlueCardBalanceMenuHeader
call CopyMenuHeader
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
.Points_string:
db "Points@"
BlueCardBalanceMenuHeader:
db MENU_BACKUP_TILES ; flags
menu_coords 0, 11, 11, 13
Buena_PlacePrizeMenuBox:
ld hl, .MenuHeader
call LoadMenuHeader
ret
.MenuHeader
db MENU_BACKUP_TILES ; flags
menu_coords 0, 0, 17, TEXTBOX_Y - 1
Buena_PrizeMenu:
ld hl, .MenuHeader
call CopyMenuHeader
ld a, [wMenuSelection]
ld [wMenuCursorPosition], a
xor a
ld [wWhichIndexSet], a
ldh [hBGMapMode], a
call InitScrollingMenu
call UpdateSprites
call ScrollingMenu
ld a, [wMenuSelection]
ld c, a
ld a, [wMenuCursorY]
ld [wMenuSelection], a
ld a, [wMenuJoypad]
cp $2
jr z, .cancel
ld a, c
and a
ret nz
.cancel
xor a
ret
.MenuHeader:
db MENU_BACKUP_TILES ; flags
menu_coords 1, 1, 16, 9
dw .MenuData
db 1 ; default option
db 0
.MenuData:
db SCROLLINGMENU_DISPLAY_ARROWS ; flags
db 4, 13 ; rows, columns
db SCROLLINGMENU_ITEMS_NORMAL ; item format
dba .Prizes
dba .PrintPrizeItem
dba .PrintPrizePoints
.Prizes:
db NUM_BUENA_PRIZES
for x, NUM_BUENA_PRIZES
db x + 1
endr
db -1
.PrintPrizeItem:
ld a, [wMenuSelection]
call Buena_GetPrize
ld a, [hl]
push de
ld [wNamedObjectIndex], a
call GetItemName
pop hl
call PlaceString
ret
.PrintPrizePoints:
ld a, [wMenuSelection]
call Buena_GetPrize
inc hl
ld a, [hl]
ld c, "0"
add c
ld [de], a
ret
Buena_GetPrize:
dec a
ld hl, BuenaPrizeItems
ld b, 0
ld c, a
add hl, bc
add hl, bc
ret
INCLUDE "data/items/buena_prizes.asm"