mirror of
https://gitlab.com/xCrystal/pokecrystal-board.git
synced 2024-09-09 09:51:34 -07:00
e8bc86d1fe
Since we're aiming for consistency across the codebase, I believe it includes a uniform way to refer to the creatures this game consists of in the labels of the code. The only exceptions to this rule are labels referring to things named through the use of the <PK><MN> or <PKMN> characters, in which case PKMN is used. Most of this was already consistent enough™, I just picked the convention with the most occurences and fixed the outliers.
388 lines
5.6 KiB
NASM
Executable File
388 lines
5.6 KiB
NASM
Executable File
_BillsPC: ; e3fd
|
|
call .CheckCanUsePC
|
|
ret c
|
|
call .LogIn
|
|
call .UseBillsPC
|
|
jp .LogOut
|
|
|
|
.CheckCanUsePC: ; e40a (3:640a)
|
|
ld a, [wPartyCount]
|
|
and a
|
|
ret nz
|
|
ld hl, .Text_GottaHavePokemon
|
|
call MenuTextBoxBackup
|
|
scf
|
|
ret
|
|
|
|
.Text_GottaHavePokemon: ; 0xe417
|
|
; You gotta have #MON to call!
|
|
text_jump UnknownText_0x1c1006
|
|
db "@"
|
|
|
|
.LogIn: ; e41c (3:641c)
|
|
xor a
|
|
ld [hBGMapMode], a
|
|
call LoadStandardMenuDataHeader
|
|
call ClearPCItemScreen
|
|
ld hl, wOptions
|
|
ld a, [hl]
|
|
push af
|
|
set NO_TEXT_SCROLL, [hl]
|
|
ld hl, .Text_What
|
|
call PrintText
|
|
pop af
|
|
ld [wOptions], a
|
|
call LoadFontsBattleExtra
|
|
ret
|
|
|
|
.Text_What: ; 0xe43a
|
|
; What?
|
|
text_jump UnknownText_0x1c1024
|
|
db "@"
|
|
|
|
.LogOut: ; e43f (3:643f)
|
|
call CloseSubmenu
|
|
ret
|
|
|
|
.UseBillsPC: ; e443 (3:6443)
|
|
ld hl, .MenuDataHeader
|
|
call LoadMenuDataHeader
|
|
ld a, $1
|
|
.loop
|
|
ld [wMenuCursorBuffer], a
|
|
call SetPalettes
|
|
xor a
|
|
ld [wWhichIndexSet], a
|
|
ld [hBGMapMode], a
|
|
call DoNthMenu
|
|
jr c, .cancel
|
|
ld a, [wMenuCursorBuffer]
|
|
push af
|
|
ld a, [wMenuSelection]
|
|
ld hl, .Jumptable
|
|
rst JumpTable
|
|
pop bc
|
|
ld a, b
|
|
jr nc, .loop
|
|
.cancel
|
|
call CloseWindow
|
|
ret
|
|
|
|
.MenuDataHeader: ; 0xe46f
|
|
db MENU_BACKUP_TILES ; flags
|
|
menu_coords 0, 0, SCREEN_WIDTH - 1, SCREEN_HEIGHT - 1
|
|
dw .MenuData2
|
|
db 1 ; default option
|
|
|
|
.MenuData2: ; 0xe477
|
|
db STATICMENU_CURSOR ; flags
|
|
db 0 ; items
|
|
dw .items
|
|
dw PlaceMenuStrings
|
|
dw .strings
|
|
|
|
.strings ; e47f
|
|
db "WITHDRAW <PK><MN>@"
|
|
db "DEPOSIT <PK><MN>@"
|
|
db "CHANGE BOX@"
|
|
db "MOVE <PK><MN> W/O MAIL@"
|
|
db "SEE YA!@"
|
|
|
|
.Jumptable: ; e4ba (3:64ba)
|
|
dw BillsPC_WithdrawMenu
|
|
dw BillsPC_DepositMenu
|
|
dw BillsPC_ChangeBoxMenu
|
|
dw BillsPC_MovePKMNMenu
|
|
dw BillsPC_SeeYa
|
|
|
|
.items ; e4c4
|
|
db 5
|
|
db 0 ; WITHDRAW
|
|
db 1; DEPOSIT
|
|
db 2 ; CHANGE BOX
|
|
db 3 ; MOVE PKMN
|
|
db 4 ; SEE YA!
|
|
db -1
|
|
|
|
BillsPC_SeeYa: ; e4cb
|
|
scf
|
|
ret
|
|
|
|
BillsPC_MovePKMNMenu: ; e4cd
|
|
call LoadStandardMenuDataHeader
|
|
farcall IsAnyMonHoldingMail
|
|
jr nc, .no_mail
|
|
ld hl, .Text_MonHoldingMail
|
|
call PrintText
|
|
jr .quit
|
|
|
|
.no_mail
|
|
farcall StartMoveMonWOMail_SaveGame
|
|
jr c, .quit
|
|
farcall _MovePKMNWithoutMail
|
|
call ReturnToMapFromSubmenu
|
|
call ClearPCItemScreen
|
|
|
|
.quit
|
|
call CloseWindow
|
|
and a
|
|
ret
|
|
|
|
.Text_MonHoldingMail: ; 0xe4f9
|
|
; There is a #MON holding MAIL. Please remove the MAIL.
|
|
text_jump UnknownText_0x1c102b
|
|
db "@"
|
|
|
|
BillsPC_DepositMenu: ; e4fe (3:64fe)
|
|
call LoadStandardMenuDataHeader
|
|
farcall _DepositPKMN
|
|
call ReturnToMapFromSubmenu
|
|
call ClearPCItemScreen
|
|
call CloseWindow
|
|
and a
|
|
ret
|
|
|
|
Unreferenced_Functione512:
|
|
ld a, [wPartyCount]
|
|
and a
|
|
jr z, .no_mon
|
|
cp 2
|
|
jr c, .only_one_mon
|
|
and a
|
|
ret
|
|
|
|
.no_mon
|
|
ld hl, .Text_NoMon
|
|
call MenuTextBoxBackup
|
|
scf
|
|
ret
|
|
|
|
.only_one_mon
|
|
ld hl, .Text_ItsYourLastMon
|
|
call MenuTextBoxBackup
|
|
scf
|
|
ret
|
|
|
|
.Text_NoMon: ; 0xe52e
|
|
; You don't have a single #MON!
|
|
text_jump UnknownText_0x1c1062
|
|
db "@"
|
|
|
|
.Text_ItsYourLastMon: ; 0xe533
|
|
; You can't deposit your last #MON!
|
|
text_jump UnknownText_0x1c1080
|
|
db "@"
|
|
|
|
CheckCurPartyMonFainted: ; e538
|
|
ld hl, wPartyMon1HP
|
|
ld de, PARTYMON_STRUCT_LENGTH
|
|
ld b, $0
|
|
.loop
|
|
ld a, [wCurPartyMon]
|
|
cp b
|
|
jr z, .skip
|
|
ld a, [hli]
|
|
or [hl]
|
|
jr nz, .notfainted
|
|
dec hl
|
|
|
|
.skip
|
|
inc b
|
|
ld a, [wPartyCount]
|
|
cp b
|
|
jr z, .done
|
|
add hl, de
|
|
jr .loop
|
|
|
|
.done
|
|
scf
|
|
ret
|
|
|
|
.notfainted
|
|
and a
|
|
ret
|
|
|
|
BillsPC_WithdrawMenu: ; e559 (3:6559)
|
|
call LoadStandardMenuDataHeader
|
|
farcall _WithdrawPKMN
|
|
call ReturnToMapFromSubmenu
|
|
call ClearPCItemScreen
|
|
call CloseWindow
|
|
and a
|
|
ret
|
|
|
|
Unreferenced_Functione56d:
|
|
ld a, [wPartyCount]
|
|
cp PARTY_LENGTH
|
|
jr nc, .asm_e576
|
|
and a
|
|
ret
|
|
|
|
.asm_e576
|
|
ld hl, UnknownText_0xe57e
|
|
call MenuTextBoxBackup
|
|
scf
|
|
ret
|
|
|
|
UnknownText_0xe57e: ; 0xe57e
|
|
; You can't take any more #MON.
|
|
text_jump UnknownText_0x1c10a2
|
|
db "@"
|
|
|
|
BillsPC_ChangeBoxMenu: ; e583 (3:6583)
|
|
farcall _ChangeBox
|
|
and a
|
|
ret
|
|
|
|
ClearPCItemScreen: ; e58b
|
|
call DisableSpriteUpdates
|
|
xor a
|
|
ld [hBGMapMode], a
|
|
call ClearBGPalettes
|
|
call ClearSprites
|
|
hlcoord 0, 0
|
|
ld bc, SCREEN_HEIGHT * SCREEN_WIDTH
|
|
ld a, " "
|
|
call ByteFill
|
|
hlcoord 0, 0
|
|
lb bc, 10, 18
|
|
call TextBox
|
|
hlcoord 0, 12
|
|
lb bc, 4, 18
|
|
call TextBox
|
|
call WaitBGMap2
|
|
call SetPalettes ; load regular palettes?
|
|
ret
|
|
|
|
CopyBoxmonToTempMon: ; e5bb
|
|
ld a, [wCurPartyMon]
|
|
ld hl, sBoxMon1Species
|
|
ld bc, BOXMON_STRUCT_LENGTH
|
|
call AddNTimes
|
|
ld de, wTempMonSpecies
|
|
ld bc, BOXMON_STRUCT_LENGTH
|
|
ld a, BANK(sBoxMon1Species)
|
|
call GetSRAMBank
|
|
call CopyBytes
|
|
call CloseSRAM
|
|
ret
|
|
|
|
Unreferenced_Functione5d9:
|
|
ld a, [wCurBox]
|
|
cp b
|
|
jr z, .same_box
|
|
ld a, b
|
|
ld hl, .BoxAddrs
|
|
ld bc, 3
|
|
call AddNTimes
|
|
ld a, [hli]
|
|
push af
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
pop af
|
|
jr .okay
|
|
|
|
.same_box
|
|
ld a, BANK(sBoxCount)
|
|
ld hl, sBoxCount
|
|
|
|
.okay
|
|
call GetSRAMBank
|
|
ld a, [hl]
|
|
ld bc, 1 + MONS_PER_BOX + 1
|
|
add hl, bc
|
|
ld b, a
|
|
ld c, $0
|
|
ld de, wc608
|
|
ld a, b
|
|
and a
|
|
jr z, .empty_box
|
|
.loop
|
|
push hl
|
|
push bc
|
|
ld a, c
|
|
ld bc, 0
|
|
add hl, bc
|
|
ld bc, BOXMON_STRUCT_LENGTH
|
|
call AddNTimes
|
|
ld a, [hl]
|
|
ld [de], a
|
|
inc de
|
|
ld [wCurSpecies], a
|
|
call GetBaseData
|
|
pop bc
|
|
pop hl
|
|
|
|
push hl
|
|
push bc
|
|
ld a, c
|
|
ld bc, MONS_PER_BOX * (BOXMON_STRUCT_LENGTH + NAME_LENGTH)
|
|
add hl, bc
|
|
call SkipNames
|
|
call CopyBytes
|
|
pop bc
|
|
pop hl
|
|
|
|
push hl
|
|
push bc
|
|
ld a, c
|
|
ld bc, MON_LEVEL
|
|
add hl, bc
|
|
ld bc, BOXMON_STRUCT_LENGTH
|
|
call AddNTimes
|
|
ld a, [hl]
|
|
ld [de], a
|
|
inc de
|
|
pop bc
|
|
pop hl
|
|
|
|
push hl
|
|
push bc
|
|
ld a, c
|
|
ld bc, MON_DVS
|
|
add hl, bc
|
|
ld bc, BOXMON_STRUCT_LENGTH
|
|
call AddNTimes
|
|
ld a, [hli]
|
|
and $f0
|
|
ld b, a
|
|
ld a, [hl]
|
|
and $f0
|
|
swap a
|
|
or b
|
|
ld b, a
|
|
ld a, [wBaseGender]
|
|
cp b
|
|
ld a, $1
|
|
jr c, .okay2
|
|
xor a
|
|
.okay2
|
|
ld [de], a
|
|
inc de
|
|
pop bc
|
|
pop hl
|
|
|
|
inc c
|
|
dec b
|
|
jr nz, .loop
|
|
.empty_box
|
|
call CloseSRAM
|
|
ret
|
|
|
|
.BoxAddrs: ; e66e
|
|
dba sBox1
|
|
dba sBox2
|
|
dba sBox3
|
|
dba sBox4
|
|
dba sBox5
|
|
dba sBox6
|
|
dba sBox7
|
|
dba sBox8
|
|
dba sBox9
|
|
dba sBox10
|
|
dba sBox11
|
|
dba sBox12
|
|
dba sBox13
|
|
dba sBox14
|