mirror of
https://github.com/pret/pokered.git
synced 2024-10-23 15:08:23 +00:00
134 lines
2.6 KiB
NASM
134 lines
2.6 KiB
NASM
BillsHousePC:
|
|
call EnableAutoTextBoxDrawing
|
|
ld a, [wSpriteStateData1 + 9]
|
|
cp SPRITE_FACING_UP
|
|
ret nz
|
|
CheckEvent EVENT_LEFT_BILLS_HOUSE_AFTER_HELPING
|
|
jr nz, .displayBillsHousePokemonList
|
|
CheckEventReuseA EVENT_USED_CELL_SEPARATOR_ON_BILL
|
|
jr nz, .displayBillsHouseMonitorText
|
|
CheckEventReuseA EVENT_BILL_SAID_USE_CELL_SEPARATOR
|
|
jr nz, .doCellSeparator
|
|
.displayBillsHouseMonitorText
|
|
tx_pre_jump BillsHouseMonitorText
|
|
.doCellSeparator
|
|
ld a, $1
|
|
ld [wDoNotWaitForButtonPressAfterDisplayingText], a
|
|
tx_pre BillsHouseInitiatedText
|
|
ld c, 32
|
|
call DelayFrames
|
|
ld a, SFX_TINK
|
|
call PlaySound
|
|
call WaitForSoundToFinish
|
|
ld c, 80
|
|
call DelayFrames
|
|
ld a, SFX_SHRINK
|
|
call PlaySound
|
|
call WaitForSoundToFinish
|
|
ld c, 48
|
|
call DelayFrames
|
|
ld a, SFX_TINK
|
|
call PlaySound
|
|
call WaitForSoundToFinish
|
|
ld c, 32
|
|
call DelayFrames
|
|
ld a, SFX_GET_ITEM_1
|
|
call PlaySound
|
|
call WaitForSoundToFinish
|
|
call PlayDefaultMusic
|
|
SetEvent EVENT_USED_CELL_SEPARATOR_ON_BILL
|
|
ret
|
|
.displayBillsHousePokemonList
|
|
ld a, $1
|
|
ld [wDoNotWaitForButtonPressAfterDisplayingText], a
|
|
tx_pre BillsHousePokemonList
|
|
ret
|
|
|
|
BillsHouseMonitorText::
|
|
TX_FAR _BillsHouseMonitorText
|
|
db "@"
|
|
|
|
BillsHouseInitiatedText::
|
|
TX_FAR _BillsHouseInitiatedText
|
|
TX_BLINK
|
|
TX_ASM
|
|
ld a, $ff
|
|
ld [wNewSoundID], a
|
|
call PlaySound
|
|
ld c, 16
|
|
call DelayFrames
|
|
ld a, SFX_SWITCH
|
|
call PlaySound
|
|
call WaitForSoundToFinish
|
|
ld c, 60
|
|
call DelayFrames
|
|
jp TextScriptEnd
|
|
|
|
BillsHousePokemonList::
|
|
TX_ASM
|
|
call SaveScreenTilesToBuffer1
|
|
ld hl, BillsHousePokemonListText1
|
|
call PrintText
|
|
xor a
|
|
ld [wMenuItemOffset], a ; not used
|
|
ld [wCurrentMenuItem], a
|
|
ld [wLastMenuItem], a
|
|
ld a, A_BUTTON | B_BUTTON
|
|
ld [wMenuWatchedKeys], a
|
|
ld a, 4
|
|
ld [wMaxMenuItem], a
|
|
ld a, 2
|
|
ld [wTopMenuItemY], a
|
|
ld a, 1
|
|
ld [wTopMenuItemX], a
|
|
.billsPokemonLoop
|
|
ld hl, wd730
|
|
set 6, [hl]
|
|
coord hl, 0, 0
|
|
ld b, 10
|
|
ld c, 9
|
|
call TextBoxBorder
|
|
coord hl, 2, 2
|
|
ld de, BillsMonListText
|
|
call PlaceString
|
|
ld hl, BillsHousePokemonListText2
|
|
call PrintText
|
|
call SaveScreenTilesToBuffer2
|
|
call HandleMenuInput
|
|
bit 1, a ; pressed b
|
|
jr nz, .cancel
|
|
ld a, [wCurrentMenuItem]
|
|
add EEVEE
|
|
cp EEVEE
|
|
jr z, .displayPokedex
|
|
cp FLAREON
|
|
jr z, .displayPokedex
|
|
cp JOLTEON
|
|
jr z, .displayPokedex
|
|
cp VAPOREON
|
|
jr z, .displayPokedex
|
|
jr .cancel
|
|
.displayPokedex
|
|
call DisplayPokedex
|
|
call LoadScreenTilesFromBuffer2
|
|
jr .billsPokemonLoop
|
|
.cancel
|
|
ld hl, wd730
|
|
res 6, [hl]
|
|
call LoadScreenTilesFromBuffer2
|
|
jp TextScriptEnd
|
|
|
|
BillsHousePokemonListText1:
|
|
TX_FAR _BillsHousePokemonListText1
|
|
db "@"
|
|
|
|
BillsMonListText:
|
|
db "EEVEE"
|
|
next "FLAREON"
|
|
next "JOLTEON"
|
|
next "VAPOREON"
|
|
next "CANCEL@"
|
|
|
|
BillsHousePokemonListText2:
|
|
TX_FAR _BillsHousePokemonListText2
|
|
db "@"
|