ref: 819b6789099947e83b7e3f0b0e2f6d39cf901807
dir: /engine/menu/bills_pc.asm/
DisplayPCMainMenu:: xor a ld [H_AUTOBGTRANSFERENABLED], a call SaveScreenTilesToBuffer2 ld a, [wNumHoFTeams] and a jr nz, .leaguePCAvailable CheckEvent EVENT_GOT_POKEDEX jr z, .noOaksPC ld a, [wNumHoFTeams] and a jr nz, .leaguePCAvailable coord hl, 0, 0 ld b, 8 ld c, 14 jr .next .noOaksPC coord hl, 0, 0 ld b, 6 ld c, 14 jr .next .leaguePCAvailable coord hl, 0, 0 ld b, 10 ld c, 14 .next call TextBoxBorder call UpdateSprites ld a, 3 ld [wMaxMenuItem], a CheckEvent EVENT_MET_BILL jr nz, .metBill coord hl, 2, 2 ld de, SomeonesPCText jr .next2 .metBill coord hl, 2, 2 ld de, BillsPCText .next2 call PlaceString coord hl, 2, 4 ld de, wPlayerName call PlaceString ld l, c ld h, b ld de, PlayersPCText call PlaceString CheckEvent EVENT_GOT_POKEDEX jr z, .noOaksPC2 coord hl, 2, 6 ld de, OaksPCText call PlaceString ld a, [wNumHoFTeams] and a jr z, .noLeaguePC ld a, 4 ld [wMaxMenuItem], a coord hl, 2, 8 ld de, PKMNLeaguePCText call PlaceString coord hl, 2, 10 ld de, LogOffPCText jr .next3 .noLeaguePC coord hl, 2, 8 ld de, LogOffPCText jr .next3 .noOaksPC2 ld a, $2 ld [wMaxMenuItem], a coord hl, 2, 6 ld de, LogOffPCText .next3 call PlaceString ld a, A_BUTTON | B_BUTTON ld [wMenuWatchedKeys], a ld a, 2 ld [wTopMenuItemY], a ld a, 1 ld [wTopMenuItemX], a xor a ld [wCurrentMenuItem], a ld [wLastMenuItem], a ld a, 1 ld [H_AUTOBGTRANSFERENABLED], a ret SomeonesPCText: db "SOMEONE's PC@" BillsPCText: db "BILL's PC@" PlayersPCText: db "'s PC@" OaksPCText: db "PROF.OAK's PC@" PKMNLeaguePCText: db $4a, "LEAGUE@" LogOffPCText: db "LOG OFF@" BillsPC_:: ld hl, wd730 set 6, [hl] xor a ld [wParentMenuItem], a inc a ; MONSTER_NAME ld [wNameListType], a call LoadHpBarAndStatusTilePatterns ld a, [wListScrollOffset] push af ld a, [wFlags_0xcd60] bit 3, a ; accessing Bill's PC through another PC? jr nz, BillsPCMenu ; accessing it directly ld a, $99 call PlaySound ld hl, SwitchOnText call PrintText BillsPCMenu: ld a, [wParentMenuItem] ld [wCurrentMenuItem], a ld hl, vChars2 + $780 ld de, PokeballTileGraphics lb bc, BANK(PokeballTileGraphics), $01 call CopyVideoData call LoadScreenTilesFromBuffer2DisableBGTransfer coord hl, 0, 0 ld b, 10 ld c, 12 call TextBoxBorder coord hl, 2, 2 ld de, BillsPCMenuText call PlaceString ld hl, wTopMenuItemY ld a, 2 ld [hli], a ; wTopMenuItemY dec a ld [hli], a ; wTopMenuItemX inc hl inc hl ld a, 4 ld [hli], a ; wMaxMenuItem ld a, A_BUTTON | B_BUTTON ld [hli], a ; wMenuWatchedKeys xor a ld [hli], a ; wLastMenuItem ld [hli], a ; wPartyAndBillsPCSavedMenuItem ld hl, wListScrollOffset ld [hli], a ; wListScrollOffset ld [hl], a ; wMenuWatchMovingOutOfBounds ld [wPlayerMonNumber], a ld hl, WhatText call PrintText coord hl, 9, 14 ld b, 2 ld c, 9 call TextBoxBorder ld a, [wCurrentBoxNum] and $7f cp 9 jr c, .singleDigitBoxNum ; two digit box num sub 9 coord hl, 17, 16 ld [hl], "1" add "0" jr .next .singleDigitBoxNum add "1" .next Coorda 18, 16 coord hl, 10, 16 ld de, BoxNoPCText call PlaceString ld a, 1 ld [H_AUTOBGTRANSFERENABLED], a call Delay3 call HandleMenuInput bit 1, a jp nz, ExitBillsPC ; b button call PlaceUnfilledArrowMenuCursor ld a, [wCurrentMenuItem] ld [wParentMenuItem], a and a jp z, BillsPCWithdraw ; withdraw cp $1 jp z, BillsPCDeposit ; deposit cp $2 jp z, BillsPCRelease ; release cp $3 jp z, BillsPCChangeBox ; change box ExitBillsPC: ld a, [wFlags_0xcd60] bit 3, a ; accessing Bill's PC through another PC? jr nz, .next ; accessing it directly call LoadTextBoxTilePatterns ld a, $9a call PlaySound call WaitForSoundToFinish .next ld hl, wFlags_0xcd60 res 5, [hl] call LoadScreenTilesFromBuffer2 pop af ld [wListScrollOffset], a ld hl, wd730 res 6, [hl] ret BillsPCDeposit: ld a, [wPartyCount] dec a jr nz, .partyLargeEnough ld hl, CantDepositLastMonText call PrintText jp BillsPCMenu .partyLargeEnough ld a, [wNumInBox] cp MONS_PER_BOX jr nz, .boxNotFull ld hl, BoxFullText call PrintText jp BillsPCMenu .boxNotFull ld hl, wPartyCount call DisplayMonListMenu jp c, BillsPCMenu call DisplayDepositWithdrawMenu jp nc, BillsPCMenu ld a, [wcf91] call GetCryData call PlaySoundWaitForCurrent ld a, PARTY_TO_BOX ld [wMoveMonType], a call MoveMon xor a ld [wRemoveMonFromBox], a call RemovePokemon call WaitForSoundToFinish ld hl, wBoxNumString ld a, [wCurrentBoxNum] and $7f cp 9 jr c, .singleDigitBoxNum sub 9 ld [hl], "1" inc hl add "0" jr .next .singleDigitBoxNum add "1" .next ld [hli], a ld [hl], "@" ld hl, MonWasStoredText call PrintText jp BillsPCMenu BillsPCWithdraw: ld a, [wNumInBox] and a jr nz, .boxNotEmpty ld hl, NoMonText call PrintText jp BillsPCMenu .boxNotEmpty ld a, [wPartyCount] cp PARTY_LENGTH jr nz, .partyNotFull ld hl, CantTakeMonText call PrintText jp BillsPCMenu .partyNotFull ld hl, wNumInBox call DisplayMonListMenu jp c, BillsPCMenu call DisplayDepositWithdrawMenu jp nc, BillsPCMenu ld a, [wWhichPokemon] ld hl, wBoxMonNicks call GetPartyMonName ld a, [wcf91] call GetCryData call PlaySoundWaitForCurrent xor a ; BOX_TO_PARTY ld [wMoveMonType], a call MoveMon ld a, 1 ld [wRemoveMonFromBox], a call RemovePokemon call WaitForSoundToFinish ld hl, MonIsTakenOutText call PrintText jp BillsPCMenu BillsPCRelease: ld a, [wNumInBox] and a jr nz, .loop ld hl, NoMonText call PrintText jp BillsPCMenu .loop ld hl, wNumInBox call DisplayMonListMenu jp c, BillsPCMenu ld hl, OnceReleasedText call PrintText call YesNoChoice ld a, [wCurrentMenuItem] and a jr nz, .loop inc a ld [wRemoveMonFromBox], a call RemovePokemon call WaitForSoundToFinish ld a, [wcf91] call PlayCry ld hl, MonWasReleasedText call PrintText jp BillsPCMenu BillsPCChangeBox: callba ChangeBox jp BillsPCMenu DisplayMonListMenu: ld a, l ld [wListPointer], a ld a, h ld [wListPointer + 1], a xor a ld [wPrintItemPrices], a ld [wListMenuID], a inc a ; MONSTER_NAME ld [wNameListType], a ld a, [wPartyAndBillsPCSavedMenuItem] ld [wCurrentMenuItem], a call DisplayListMenuID ld a, [wCurrentMenuItem] ld [wPartyAndBillsPCSavedMenuItem], a ret BillsPCMenuText: db "WITHDRAW ", $4a next "DEPOSIT ", $4a next "RELEASE ", $4a next "CHANGE BOX" next "SEE YA!" db "@" BoxNoPCText: db "BOX No.@" KnowsHMMove:: ; returns whether mon with party index [wWhichPokemon] knows an HM move ld hl, wPartyMon1Moves ld bc, wPartyMon2 - wPartyMon1 jr .next ; unreachable ld hl, wBoxMon1Moves ld bc, wBoxMon2 - wBoxMon1 .next ld a, [wWhichPokemon] call AddNTimes ld b, NUM_MOVES .loop ld a, [hli] push hl push bc ld hl, HMMoveArray ld de, 1 call IsInArray pop bc pop hl ret c dec b jr nz, .loop and a ret HMMoveArray: db CUT db FLY db SURF db STRENGTH db FLASH db -1 DisplayDepositWithdrawMenu: coord hl, 9, 10 ld b, 6 ld c, 9 call TextBoxBorder ld a, [wParentMenuItem] and a ; was the Deposit or Withdraw item selected in the parent menu? ld de, DepositPCText jr nz, .next ld de, WithdrawPCText .next coord hl, 11, 12 call PlaceString coord hl, 11, 14 ld de, StatsCancelPCText call PlaceString ld hl, wTopMenuItemY ld a, 12 ld [hli], a ; wTopMenuItemY ld a, 10 ld [hli], a ; wTopMenuItemX xor a ld [hli], a ; wCurrentMenuItem inc hl ld a, 2 ld [hli], a ; wMaxMenuItem ld a, A_BUTTON | B_BUTTON ld [hli], a ; wMenuWatchedKeys xor a ld [hl], a ; wLastMenuItem ld hl, wListScrollOffset ld [hli], a ; wListScrollOffset ld [hl], a ; wMenuWatchMovingOutOfBounds ld [wPlayerMonNumber], a ld [wPartyAndBillsPCSavedMenuItem], a .loop call HandleMenuInput bit 1, a ; pressed B? jr nz, .exit ld a, [wCurrentMenuItem] and a jr z, .choseDepositWithdraw dec a jr z, .viewStats .exit and a ret .choseDepositWithdraw scf ret .viewStats call SaveScreenTilesToBuffer1 ld a, [wParentMenuItem] and a ld a, PLAYER_PARTY_DATA jr nz, .next2 ld a, BOX_DATA .next2 ld [wMonDataLocation], a predef StatusScreen predef StatusScreen2 call LoadScreenTilesFromBuffer1 call ReloadTilesetTilePatterns call RunDefaultPaletteCommand call LoadGBPal jr .loop DepositPCText: db "DEPOSIT@" WithdrawPCText: db "WITHDRAW@" StatsCancelPCText: db "STATS" next "CANCEL@" SwitchOnText: TX_FAR _SwitchOnText db "@" WhatText: TX_FAR _WhatText db "@" DepositWhichMonText: TX_FAR _DepositWhichMonText db "@" MonWasStoredText: TX_FAR _MonWasStoredText db "@" CantDepositLastMonText: TX_FAR _CantDepositLastMonText db "@" BoxFullText: TX_FAR _BoxFullText db "@" MonIsTakenOutText: TX_FAR _MonIsTakenOutText db "@" NoMonText: TX_FAR _NoMonText db "@" CantTakeMonText: TX_FAR _CantTakeMonText db "@" ReleaseWhichMonText: TX_FAR _ReleaseWhichMonText db "@" OnceReleasedText: TX_FAR _OnceReleasedText db "@" MonWasReleasedText: TX_FAR _MonWasReleasedText db "@" CableClubLeftGameboy:: ld a, [hSerialConnectionStatus] cp USING_EXTERNAL_CLOCK ret z ld a, [wSpriteStateData1 + 9] ; player's sprite facing direction cp SPRITE_FACING_RIGHT ret nz ld a, [wCurMap] cp TRADE_CENTER ld a, LINK_STATE_START_TRADE jr z, .next inc a ; LINK_STATE_START_BATTLE .next ld [wLinkState], a call EnableAutoTextBoxDrawing tx_pre_jump JustAMomentText CableClubRightGameboy:: ld a, [hSerialConnectionStatus] cp USING_INTERNAL_CLOCK ret z ld a, [wSpriteStateData1 + 9] ; player's sprite facing direction cp SPRITE_FACING_LEFT ret nz ld a, [wCurMap] cp TRADE_CENTER ld a, LINK_STATE_START_TRADE jr z, .next inc a ; LINK_STATE_START_BATTLE .next ld [wLinkState], a call EnableAutoTextBoxDrawing tx_pre_jump JustAMomentText JustAMomentText:: TX_FAR _JustAMomentText db "@" ld a, [wSpriteStateData1 + 9] ; player's sprite facing direction cp SPRITE_FACING_UP ret nz call EnableAutoTextBoxDrawing tx_pre_jump OpenBillsPCText OpenBillsPCText:: db $FD ; FuncTX_BillsPC