mirror of https://github.com/pret/pokecrystal.git
679 lines
11 KiB
NASM
Executable File
679 lines
11 KiB
NASM
Executable File
PokemonCenterPC: ; 1559a
|
||
call PC_CheckPartyForPokemon
|
||
ret c
|
||
call PC_PlayBootSound
|
||
ld hl, PokeCenterPCText_BootedUpPC
|
||
call PC_DisplayText
|
||
ld hl, PokeCenterPCText_AccessWhosePC
|
||
call PC_DisplayTextWaitMenu
|
||
ld hl, .TopMenu
|
||
call LoadMenuDataHeader
|
||
.loop
|
||
xor a
|
||
ld [hBGMapMode], a
|
||
call .ChooseWhichPCListToUse
|
||
ld [wWhichIndexSet], a
|
||
call DoNthMenu
|
||
jr c, .shutdown
|
||
ld a, [MenuSelection]
|
||
ld hl, .JumpTable
|
||
call MenuJumptable
|
||
jr nc, .loop
|
||
|
||
.shutdown
|
||
call PC_PlayShutdownSound
|
||
call ExitMenu
|
||
call CloseWindow
|
||
ret
|
||
|
||
.TopMenu:
|
||
db $48 ; flags
|
||
db 00, 00 ; start coords
|
||
db 12, 15 ; end coords
|
||
dw .MenuData2
|
||
db 1 ; default option
|
||
|
||
.MenuData2:
|
||
db $a0 ; flags
|
||
db 0 ; items
|
||
dw .WhichPC
|
||
dw PlaceNthMenuStrings
|
||
dw .JumpTable
|
||
|
||
.JumpTable:
|
||
dw PlayersPC, .String_PlayersPC
|
||
dw BillsPC, .String_BillsPC
|
||
dw OaksPC, .String_OaksPC
|
||
dw HallOfFamePC, .String_HallOfFame
|
||
dw TurnOffPC, .String_TurnOff
|
||
|
||
.String_PlayersPC: db "<PLAYER>'s PC@"
|
||
.String_BillsPC: db "BILL's PC@"
|
||
.String_OaksPC: db "PROF.OAK's PC@"
|
||
.String_HallOfFame: db "HALL OF FAME@"
|
||
.String_TurnOff: db "TURN OFF@"
|
||
|
||
.WhichPC:
|
||
; before pokedex
|
||
db 3 ; items
|
||
db 1, 0, 4 ; bill's, player's, turn off
|
||
db -1
|
||
|
||
; before Hall Of Fame
|
||
db 4 ; items
|
||
db 1, 0, 2, 4 ; bill's, player's, oak's, turn off
|
||
db -1
|
||
|
||
; postgame
|
||
db 5 ; items
|
||
db 1, 0, 2, 3, 4 ; bill's, player's, oak's, hall of fame, turn off
|
||
db -1
|
||
|
||
.ChooseWhichPCListToUse:
|
||
call CheckReceivedDex
|
||
jr nz, .got_dex
|
||
ld a, $0
|
||
ret
|
||
|
||
.got_dex
|
||
ld a, [wHallOfFameCount]
|
||
and a
|
||
ld a, $1
|
||
ret z
|
||
ld a, $2
|
||
ret
|
||
; 15650
|
||
|
||
PC_CheckPartyForPokemon: ; 15650
|
||
ld a, [PartyCount]
|
||
and a
|
||
ret nz
|
||
ld de, SFX_CHOOSE_PC_OPTION
|
||
call PlaySFX
|
||
ld hl, .MustHavePokemonToUse
|
||
call PC_DisplayText
|
||
scf
|
||
ret
|
||
|
||
.MustHavePokemonToUse:
|
||
; Bzzzzt! You must have a #MON to use this!
|
||
text_jump UnknownText_0x1c1328
|
||
db "@"
|
||
; 0x15668
|
||
|
||
BillsPC: ; 15668
|
||
call PC_PlayChoosePCSound
|
||
ld hl, PokeCenterPCText_AccessedBillsPC
|
||
call PC_DisplayText
|
||
callba _BillsPC
|
||
and a
|
||
ret
|
||
; 15679 (5:5679)
|
||
|
||
PlayersPC: ; 15679
|
||
call PC_PlayChoosePCSound
|
||
ld hl, PokeCenterPCText_AccessedOwnPC
|
||
call PC_DisplayText
|
||
ld b, $0
|
||
call _PlayersPC
|
||
and a
|
||
ret
|
||
; 15689
|
||
|
||
OaksPC: ; 15689
|
||
call PC_PlayChoosePCSound
|
||
ld hl, PokeCenterPCText_AccessedOaksPC
|
||
call PC_DisplayText
|
||
callba ProfOaksPC
|
||
and a
|
||
ret
|
||
; 1569a
|
||
|
||
HallOfFamePC: ; 1569a
|
||
call PC_PlayChoosePCSound
|
||
call FadeToMenu
|
||
callba _HallOfFamePC
|
||
call CloseSubmenu
|
||
and a
|
||
ret
|
||
; 156ab
|
||
|
||
TurnOffPC: ; 156ab
|
||
ld hl, PokeCenterPCText_LinkClosed
|
||
call PrintText
|
||
scf
|
||
ret
|
||
; 156b3
|
||
|
||
PC_PlayBootSound: ; 156b3
|
||
ld de, SFX_BOOT_PC
|
||
jr PC_WaitPlaySFX
|
||
|
||
PC_PlayShutdownSound: ; 156b8
|
||
ld de, SFX_SHUT_DOWN_PC
|
||
call PC_WaitPlaySFX
|
||
call WaitSFX
|
||
ret
|
||
|
||
PC_PlayChoosePCSound: ; 156c2
|
||
ld de, SFX_CHOOSE_PC_OPTION
|
||
jr PC_WaitPlaySFX
|
||
|
||
PC_PlaySwapItemsSound: ; 156c7
|
||
ld de, SFX_SWITCH_POKEMON
|
||
call PC_WaitPlaySFX
|
||
ld de, SFX_SWITCH_POKEMON
|
||
|
||
PC_WaitPlaySFX: ; 156d0
|
||
push de
|
||
call WaitSFX
|
||
pop de
|
||
call PlaySFX
|
||
ret
|
||
; 156d9
|
||
|
||
_KrissHousePC: ; 156d9
|
||
call PC_PlayBootSound
|
||
ld hl, UnknownText_0x156ff
|
||
call PC_DisplayText
|
||
ld b, $1
|
||
call _PlayersPC
|
||
and a
|
||
jr nz, .asm_156f9
|
||
call OverworldTextModeSwitch
|
||
call ApplyTilemap
|
||
call UpdateSprites
|
||
call PC_PlayShutdownSound
|
||
ld c, $0
|
||
ret
|
||
|
||
.asm_156f9
|
||
call ClearBGPalettes
|
||
ld c, $1
|
||
ret
|
||
; 156ff
|
||
|
||
UnknownText_0x156ff: ; 0x156ff
|
||
; turned on the PC.
|
||
text_jump UnknownText_0x1c1353
|
||
db "@"
|
||
; 0x15704
|
||
|
||
_PlayersPC: ; 15704
|
||
ld a, b
|
||
ld [wWhichIndexSet], a
|
||
ld hl, UnknownText_0x157cc
|
||
call PC_DisplayTextWaitMenu
|
||
call Function15715
|
||
call ExitMenu
|
||
ret
|
||
; 15715
|
||
|
||
Function15715: ; 15715
|
||
xor a
|
||
ld [wPCItemsCursor], a
|
||
ld [wPCItemsScrollPosition], a
|
||
ld hl, KrissPCMenuData
|
||
call LoadMenuDataHeader
|
||
.asm_15722
|
||
call UpdateTimePals
|
||
call DoNthMenu
|
||
jr c, .asm_15731
|
||
call MenuJumptable
|
||
jr nc, .asm_15722
|
||
jr .asm_15732
|
||
|
||
.asm_15731
|
||
xor a
|
||
|
||
.asm_15732
|
||
call ExitMenu
|
||
ret
|
||
; 15736
|
||
|
||
KrissPCMenuData: ; 0x15736
|
||
db %01000000
|
||
db 0, 0 ; top left corner coords (y, x)
|
||
db 12, 15 ; bottom right corner coords (y, x)
|
||
dw .KrissPCMenuData2
|
||
db 1 ; default selected option
|
||
|
||
.KrissPCMenuData2:
|
||
db %10100000 ; bit7
|
||
db 0 ; # items?
|
||
dw .KrissPCMenuList1
|
||
dw PlaceNthMenuStrings
|
||
dw .KrissPCMenuPointers
|
||
|
||
.KrissPCMenuPointers: ; 0x15746
|
||
dw KrisWithdrawItemMenu, .WithdrawItem
|
||
dw KrisDepositItemMenu, .DepositItem
|
||
dw KrisTossItemMenu, .TossItem
|
||
dw KrisMailBoxMenu, .MailBox
|
||
dw KrisDecorationMenu, .Decoration
|
||
dw KrisLogOffMenu, .LogOff
|
||
dw KrisLogOffMenu, .TurnOff
|
||
|
||
.WithdrawItem: db "WITHDRAW ITEM@"
|
||
.DepositItem: db "DEPOSIT ITEM@"
|
||
.TossItem: db "TOSS ITEM@"
|
||
.MailBox: db "MAIL BOX@"
|
||
.Decoration: db "DECORATION@"
|
||
.TurnOff: db "TURN OFF@"
|
||
.LogOff: db "LOG OFF@"
|
||
|
||
WITHDRAW_ITEM EQU 0
|
||
DEPOSIT_ITEM EQU 1
|
||
TOSS_ITEM EQU 2
|
||
MAIL_BOX EQU 3
|
||
DECORATION EQU 4
|
||
TURN_OFF EQU 5
|
||
LOG_OFF EQU 6
|
||
|
||
.KrissPCMenuList1:
|
||
db 5
|
||
db WITHDRAW_ITEM
|
||
db DEPOSIT_ITEM
|
||
db TOSS_ITEM
|
||
db MAIL_BOX
|
||
db TURN_OFF
|
||
db -1
|
||
|
||
.KrissPCMenuList2:
|
||
db 6
|
||
db WITHDRAW_ITEM
|
||
db DEPOSIT_ITEM
|
||
db TOSS_ITEM
|
||
db MAIL_BOX
|
||
db DECORATION
|
||
db LOG_OFF
|
||
db -1
|
||
|
||
PC_DisplayTextWaitMenu: ; 157bb
|
||
ld a, [Options]
|
||
push af
|
||
set NO_TEXT_SCROLL, a
|
||
ld [Options], a
|
||
call MenuTextBox
|
||
pop af
|
||
ld [Options], a
|
||
ret
|
||
; 157cc
|
||
|
||
UnknownText_0x157cc: ; 0x157cc
|
||
; What do you want to do?
|
||
text_jump UnknownText_0x1c1368
|
||
db "@"
|
||
; 0x157d1
|
||
|
||
KrisWithdrawItemMenu: ; 0x157d1
|
||
call LoadStandardMenuDataHeader
|
||
callba ClearPCItemScreen
|
||
.loop
|
||
call PCItemsJoypad
|
||
jr c, .quit
|
||
call .Submenu
|
||
jr .loop
|
||
|
||
.quit
|
||
call CloseSubmenu
|
||
xor a
|
||
ret
|
||
|
||
.Submenu:
|
||
; check if the item has a quantity
|
||
callba _CheckTossableItem
|
||
ld a, [wItemAttributeParamBuffer]
|
||
and a
|
||
jr z, .askquantity
|
||
|
||
; items without quantity are always ×1
|
||
ld a, 1
|
||
ld [wItemQuantityChangeBuffer], a
|
||
jr .withdraw
|
||
|
||
.askquantity
|
||
ld hl, .HowManyText
|
||
call MenuTextBox
|
||
callba SelectQuantityToToss
|
||
call ExitMenu
|
||
call ExitMenu
|
||
jr c, .done
|
||
|
||
.withdraw
|
||
ld a, [wItemQuantityChangeBuffer]
|
||
ld [Buffer1], a ; quantity
|
||
ld a, [CurItemQuantity]
|
||
ld [Buffer2], a
|
||
ld hl, NumItems
|
||
call ReceiveItem
|
||
jr nc, .PackFull
|
||
ld a, [Buffer1]
|
||
ld [wItemQuantityChangeBuffer], a
|
||
ld a, [Buffer2]
|
||
ld [CurItemQuantity], a
|
||
ld hl, PCItems
|
||
call TossItem
|
||
predef PartyMonItemName
|
||
ld hl, .WithdrewText
|
||
call MenuTextBox
|
||
xor a
|
||
ld [hBGMapMode], a
|
||
call ExitMenu
|
||
ret
|
||
|
||
.PackFull:
|
||
ld hl, .NoRoomText
|
||
call MenuTextBoxBackup
|
||
ret
|
||
|
||
.done
|
||
ret
|
||
|
||
.HowManyText: ; 0x15850
|
||
text_jump _KrissPCHowManyWithdrawText
|
||
db "@"
|
||
|
||
.WithdrewText: ; 0x15855
|
||
text_jump _KrissPCWithdrewItemsText
|
||
db "@"
|
||
|
||
.NoRoomText: ; 0x1585a
|
||
text_jump _KrissPCNoRoomWithdrawText
|
||
db "@"
|
||
|
||
KrisTossItemMenu: ; 0x1585f
|
||
call LoadStandardMenuDataHeader
|
||
callba ClearPCItemScreen
|
||
.loop
|
||
call PCItemsJoypad
|
||
jr c, .quit
|
||
ld de, PCItems
|
||
callba TossItemFromPC
|
||
jr .loop
|
||
|
||
.quit
|
||
call CloseSubmenu
|
||
xor a
|
||
ret
|
||
; 0x1587d
|
||
|
||
KrisDecorationMenu: ; 0x1587d
|
||
callba _KrisDecorationMenu
|
||
ld a, c
|
||
and a
|
||
ret z
|
||
scf
|
||
ret
|
||
; 0x15888
|
||
|
||
KrisLogOffMenu: ; 0x15888
|
||
xor a
|
||
scf
|
||
ret
|
||
; 0x1588b
|
||
|
||
KrisDepositItemMenu: ; 0x1588b
|
||
call .CheckItemsInBag
|
||
jr c, .nope
|
||
call DisableSpriteUpdates
|
||
call LoadStandardMenuDataHeader
|
||
callba DepositSellInitPackBuffers
|
||
.loop
|
||
callba DepositSellPack
|
||
ld a, [wcf66]
|
||
and a
|
||
jr z, .close
|
||
call .TryDepositItem
|
||
callba CheckRegisteredItem
|
||
jr .loop
|
||
|
||
.close
|
||
call CloseSubmenu
|
||
|
||
.nope
|
||
xor a
|
||
ret
|
||
|
||
.CheckItemsInBag:
|
||
callba HasNoItems
|
||
ret nc
|
||
ld hl, .NoItemsInBag
|
||
call MenuTextBoxBackup
|
||
scf
|
||
ret
|
||
|
||
.NoItemsInBag:
|
||
; No items here!
|
||
text_jump UnknownText_0x1c13df
|
||
db "@"
|
||
|
||
.TryDepositItem:
|
||
ld a, [wSpriteUpdatesEnabled]
|
||
push af
|
||
ld a, $0
|
||
ld [wSpriteUpdatesEnabled], a
|
||
callba CheckItemMenu
|
||
ld a, [wItemAttributeParamBuffer]
|
||
ld hl, .dw
|
||
rst JumpTable
|
||
pop af
|
||
ld [wSpriteUpdatesEnabled], a
|
||
ret
|
||
|
||
.dw
|
||
dw .tossable
|
||
dw .no_toss
|
||
dw .no_toss
|
||
dw .no_toss
|
||
dw .tossable
|
||
dw .tossable
|
||
dw .tossable
|
||
|
||
.no_toss
|
||
ret
|
||
|
||
.tossable
|
||
ld a, [Buffer1]
|
||
push af
|
||
ld a, [Buffer2]
|
||
push af
|
||
call .DepositItem_
|
||
pop af
|
||
ld [Buffer2], a
|
||
pop af
|
||
ld [Buffer1], a
|
||
ret
|
||
|
||
.DepositItem_:
|
||
callba _CheckTossableItem
|
||
ld a, [wItemAttributeParamBuffer]
|
||
and a
|
||
jr z, .AskQuantity
|
||
ld a, $1
|
||
ld [wItemQuantityChangeBuffer], a
|
||
jr .DepositItem
|
||
|
||
.AskQuantity:
|
||
ld hl, .HowManyText
|
||
call MenuTextBox
|
||
callba SelectQuantityToToss
|
||
push af
|
||
call ExitMenu
|
||
call ExitMenu
|
||
pop af
|
||
jr c, .DeclinedToDeposit
|
||
|
||
.DepositItem:
|
||
ld a, [wItemQuantityChangeBuffer]
|
||
ld [Buffer1], a
|
||
ld a, [CurItemQuantity]
|
||
ld [Buffer2], a
|
||
ld hl, PCItems
|
||
call ReceiveItem
|
||
jr nc, .NoRoomInPC
|
||
ld a, [Buffer1]
|
||
ld [wItemQuantityChangeBuffer], a
|
||
ld a, [Buffer2]
|
||
ld [CurItemQuantity], a
|
||
ld hl, NumItems
|
||
call TossItem
|
||
predef PartyMonItemName
|
||
ld hl, .DepositText
|
||
call PrintText
|
||
ret
|
||
|
||
.NoRoomInPC:
|
||
ld hl, .NoRoomText
|
||
call PrintText
|
||
ret
|
||
|
||
.DeclinedToDeposit:
|
||
and a
|
||
ret
|
||
|
||
.HowManyText: ; 0x1596e
|
||
text_jump _KrissPCHowManyDepositText
|
||
db "@"
|
||
|
||
.DepositText: ; 0x15973
|
||
text_jump _KrissPCDepositItemsText
|
||
db "@"
|
||
|
||
.NoRoomText: ; 0x15978
|
||
text_jump _KrissPCNoRoomDepositText
|
||
db "@"
|
||
|
||
KrisMailBoxMenu: ; 0x1597d
|
||
callba _KrisMailBoxMenu
|
||
xor a
|
||
ret
|
||
; 0x15985
|
||
|
||
PCItemsJoypad: ; 0x15985
|
||
xor a
|
||
ld [wSwitchItem], a
|
||
.loop
|
||
ld a, [wSpriteUpdatesEnabled]
|
||
push af
|
||
ld a, $0
|
||
ld [wSpriteUpdatesEnabled], a
|
||
ld hl, .PCItemsMenuData
|
||
call CopyMenuDataHeader
|
||
hlcoord 0, 0
|
||
ld b, 10
|
||
ld c, 18
|
||
call TextBox
|
||
ld a, [wPCItemsCursor]
|
||
ld [wMenuCursorBuffer], a
|
||
ld a, [wPCItemsScrollPosition]
|
||
ld [wMenuScrollPosition], a
|
||
call ScrollingMenu
|
||
ld a, [wMenuScrollPosition]
|
||
ld [wPCItemsScrollPosition], a
|
||
ld a, [wMenuCursorY]
|
||
ld [wPCItemsCursor], a
|
||
pop af
|
||
ld [wSpriteUpdatesEnabled], a
|
||
ld a, [wSwitchItem]
|
||
and a
|
||
jr nz, .moving_stuff_around
|
||
ld a, [wMenuJoypad]
|
||
cp B_BUTTON
|
||
jr z, .b_1
|
||
cp A_BUTTON
|
||
jr z, .a_1
|
||
cp SELECT
|
||
jr z, .select_1
|
||
jr .next
|
||
|
||
.moving_stuff_around
|
||
ld a, [wMenuJoypad]
|
||
cp B_BUTTON
|
||
jr z, .b_2
|
||
cp A_BUTTON
|
||
jr z, .a_select_2
|
||
cp SELECT
|
||
jr z, .a_select_2
|
||
jr .next
|
||
|
||
.b_2
|
||
xor a
|
||
ld [wSwitchItem], a
|
||
jr .next
|
||
|
||
.a_select_2
|
||
call PC_PlaySwapItemsSound
|
||
.select_1
|
||
callba SwitchItemsInBag
|
||
.next
|
||
jp .loop
|
||
|
||
.a_1
|
||
callba ScrollingMenu_ClearLeftColumn
|
||
call PlaceHollowCursor
|
||
and a
|
||
ret
|
||
|
||
.b_1
|
||
scf
|
||
ret
|
||
|
||
.PCItemsMenuData:
|
||
db %01000000
|
||
db 1, 4 ; start coords
|
||
db 10, 18 ; end coords
|
||
dw .MenuData2
|
||
db 1 ; default option
|
||
|
||
.MenuData2:
|
||
db %10110000
|
||
db 4, 8 ; rows/cols?
|
||
db 2 ; horizontal spacing?
|
||
dbw 0, PCItems
|
||
dba PlaceMenuItemName
|
||
dba PlaceMenuItemQuantity
|
||
dba UpdateItemDescription
|
||
|
||
PC_DisplayText: ; 15a20
|
||
call MenuTextBox
|
||
call ExitMenu
|
||
ret
|
||
; 15a27
|
||
|
||
PokeCenterPCText_BootedUpPC: ; 0x15a27
|
||
; turned on the PC.
|
||
text_jump UnknownText_0x1c144d
|
||
db "@"
|
||
; 0x15a2c
|
||
|
||
PokeCenterPCText_AccessWhosePC: ; 0x15a2c
|
||
; Access whose PC?
|
||
text_jump UnknownText_0x1c1462
|
||
db "@"
|
||
; 0x15a31
|
||
|
||
PokeCenterPCText_AccessedBillsPC: ; 0x15a31
|
||
; BILL's PC accessed. #MON Storage System opened.
|
||
text_jump UnknownText_0x1c1474
|
||
db "@"
|
||
; 0x15a36
|
||
|
||
PokeCenterPCText_AccessedOwnPC: ; 0x15a36
|
||
; Accessed own PC. Item Storage System opened.
|
||
text_jump UnknownText_0x1c14a4
|
||
db "@"
|
||
; 0x15a3b
|
||
|
||
PokeCenterPCText_AccessedOaksPC: ; 0x15a3b
|
||
; PROF.OAK's PC accessed. #DEX Rating System opened.
|
||
text_jump UnknownText_0x1c14d2
|
||
db "@"
|
||
; 0x15a40
|
||
|
||
PokeCenterPCText_LinkClosed: ; 0x15a40
|
||
; … Link closed…
|
||
text_jump UnknownText_0x1c1505
|
||
db "@"
|
||
; 0x15a45
|