ref: dbabd8b4a94014749a9c2a6f36ed524947c4403e
dir: /engine/menus/menu_2.asm/
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"