mirror of https://github.com/pret/pokecrystal.git
254 lines
3.8 KiB
NASM
254 lines
3.8 KiB
NASM
PlaceMenuItemName:
|
||
push de
|
||
ld a, [wMenuSelection]
|
||
ld [wNamedObjectIndex], a
|
||
call GetItemName
|
||
pop hl
|
||
call PlaceString
|
||
ret
|
||
|
||
PlaceMenuItemQuantity:
|
||
push de
|
||
ld a, [wMenuSelection]
|
||
ld [wCurItem], a
|
||
farcall _CheckTossableItem
|
||
ld a, [wItemAttributeValue]
|
||
pop hl
|
||
and a
|
||
jr nz, .done
|
||
ld de, $15
|
||
add hl, de
|
||
ld [hl], "×"
|
||
inc hl
|
||
ld de, wMenuSelectionQuantity
|
||
lb bc, 1, 2
|
||
call PrintNum
|
||
|
||
.done
|
||
ret
|
||
|
||
PlaceMoneyTopRight:
|
||
ld hl, MoneyTopRightMenuHeader
|
||
call CopyMenuHeader
|
||
jr PlaceMoneyTextbox
|
||
|
||
PlaceMoneyBottomLeft:
|
||
ld hl, MoneyBottomLeftMenuHeader
|
||
call CopyMenuHeader
|
||
jr PlaceMoneyTextbox
|
||
|
||
PlaceMoneyAtTopLeftOfTextbox:
|
||
ld hl, MoneyTopRightMenuHeader
|
||
lb de, 0, 11
|
||
call OffsetMenuHeader
|
||
|
||
PlaceMoneyTextbox:
|
||
call MenuBox
|
||
call MenuBoxCoord2Tile
|
||
ld de, SCREEN_WIDTH + 1
|
||
add hl, de
|
||
ld de, wMoney
|
||
lb bc, PRINTNUM_MONEY | 3, 6
|
||
call PrintNum
|
||
ret
|
||
|
||
MoneyTopRightMenuHeader:
|
||
db MENU_BACKUP_TILES ; flags
|
||
menu_coords 11, 0, SCREEN_WIDTH - 1, 2
|
||
dw NULL
|
||
db 1 ; default option
|
||
|
||
MoneyBottomLeftMenuHeader:
|
||
db MENU_BACKUP_TILES ; flags
|
||
menu_coords 0, 11, 8, 13
|
||
dw NULL
|
||
db 1 ; default option
|
||
|
||
DisplayCoinCaseBalance:
|
||
; Place a text box of size 1x7 at 11, 0.
|
||
hlcoord 11, 0
|
||
ld b, 1
|
||
ld c, 7
|
||
call Textbox
|
||
hlcoord 12, 0
|
||
ld de, CoinString
|
||
call PlaceString
|
||
hlcoord 17, 1
|
||
ld de, ShowMoney_TerminatorString
|
||
call PlaceString
|
||
ld de, wCoins
|
||
lb bc, 2, 4
|
||
hlcoord 13, 1
|
||
call PrintNum
|
||
ret
|
||
|
||
DisplayMoneyAndCoinBalance:
|
||
hlcoord 5, 0
|
||
ld b, 3
|
||
ld c, 13
|
||
call Textbox
|
||
hlcoord 6, 1
|
||
ld de, MoneyString
|
||
call PlaceString
|
||
hlcoord 12, 1
|
||
ld de, wMoney
|
||
lb bc, PRINTNUM_MONEY | 3, 6
|
||
call PrintNum
|
||
hlcoord 6, 3
|
||
ld de, CoinString
|
||
call PlaceString
|
||
hlcoord 15, 3
|
||
ld de, wCoins
|
||
lb bc, 2, 4
|
||
call PrintNum
|
||
ret
|
||
|
||
MoneyString:
|
||
db "MONEY@"
|
||
CoinString:
|
||
db "COIN@"
|
||
ShowMoney_TerminatorString:
|
||
db "@"
|
||
|
||
StartMenu_PrintSafariGameStatus: ; unreferenced
|
||
ld hl, wOptions
|
||
ld a, [hl]
|
||
push af
|
||
set NO_TEXT_SCROLL, [hl]
|
||
hlcoord 0, 0
|
||
ld b, 3
|
||
ld c, 7
|
||
call Textbox
|
||
hlcoord 1, 1
|
||
ld de, wSafariTimeRemaining
|
||
lb bc, 2, 3
|
||
call PrintNum
|
||
hlcoord 4, 1
|
||
ld de, .slash_500
|
||
call PlaceString
|
||
hlcoord 1, 3
|
||
ld de, .booru_ko
|
||
call PlaceString
|
||
hlcoord 5, 3
|
||
ld de, wSafariBallsRemaining
|
||
lb bc, 1, 2
|
||
call PrintNum
|
||
pop af
|
||
ld [wOptions], a
|
||
ret
|
||
|
||
.slash_500
|
||
db "／５００@"
|
||
.booru_ko
|
||
db "ボール こ@"
|
||
|
||
StartMenu_DrawBugContestStatusBox:
|
||
hlcoord 0, 0
|
||
ld b, 5
|
||
ld c, 17
|
||
call Textbox
|
||
ret
|
||
|
||
StartMenu_PrintBugContestStatus:
|
||
ld hl, wOptions
|
||
ld a, [hl]
|
||
push af
|
||
set NO_TEXT_SCROLL, [hl]
|
||
call StartMenu_DrawBugContestStatusBox
|
||
hlcoord 1, 5
|
||
ld de, .BallsString
|
||
call PlaceString
|
||
hlcoord 8, 5
|
||
ld de, wParkBallsRemaining
|
||
lb bc, PRINTNUM_LEFTALIGN | 1, 2
|
||
call PrintNum
|
||
hlcoord 1, 1
|
||
ld de, .CaughtString
|
||
call PlaceString
|
||
ld a, [wContestMon]
|
||
and a
|
||
ld de, .NoneString
|
||
jr z, .no_contest_mon
|
||
ld [wNamedObjectIndex], a
|
||
call GetPokemonName
|
||
|
||
.no_contest_mon
|
||
hlcoord 8, 1
|
||
call PlaceString
|
||
ld a, [wContestMon]
|
||
and a
|
||
jr z, .skip_level
|
||
hlcoord 1, 3
|
||
ld de, .LevelString
|
||
call PlaceString
|
||
ld a, [wContestMonLevel]
|
||
ld h, b
|
||
ld l, c
|
||
inc hl
|
||
ld c, 3
|
||
call Print8BitNumLeftAlign
|
||
|
||
.skip_level
|
||
pop af
|
||
ld [wOptions], a
|
||
ret
|
||
|
||
.BallsJPString: ; unreferenced
|
||
db "ボール こ@"
|
||
.CaughtString:
|
||
db "CAUGHT@"
|
||
.BallsString:
|
||
db "BALLS:@"
|
||
.NoneString:
|
||
db "None@"
|
||
.LevelString:
|
||
db "LEVEL@"
|
||
|
||
FindApricornsInBag:
|
||
; Checks the bag for Apricorns.
|
||
ld hl, wKurtApricornCount
|
||
xor a
|
||
ld [hli], a
|
||
assert wKurtApricornCount + 1 == wKurtApricornItems
|
||
dec a
|
||
ld bc, 10
|
||
call ByteFill
|
||
|
||
ld hl, ApricornBalls
|
||
.loop
|
||
ld a, [hl]
|
||
cp -1
|
||
jr z, .done
|
||
push hl
|
||
ld [wCurItem], a
|
||
ld hl, wNumItems
|
||
call CheckItem
|
||
pop hl
|
||
jr nc, .nope
|
||
ld a, [hl]
|
||
call .addtobuffer
|
||
.nope
|
||
inc hl
|
||
inc hl
|
||
jr .loop
|
||
|
||
.done
|
||
ld a, [wKurtApricornCount]
|
||
and a
|
||
ret nz
|
||
scf
|
||
ret
|
||
|
||
.addtobuffer:
|
||
push hl
|
||
ld hl, wKurtApricornCount
|
||
inc [hl]
|
||
ld e, [hl]
|
||
ld d, 0
|
||
add hl, de
|
||
ld [hl], a
|
||
pop hl
|
||
ret
|
||
|
||
INCLUDE "data/items/apricorn_balls.asm"
|