mirror of https://github.com/pret/pokecrystal.git
388 lines
5.3 KiB
NASM
388 lines
5.3 KiB
NASM
_BillsPC:
|
|
call .CheckCanUsePC
|
|
ret c
|
|
call .LogIn
|
|
call .UseBillsPC
|
|
jp .LogOut
|
|
|
|
.CheckCanUsePC:
|
|
ld a, [wPartyCount]
|
|
and a
|
|
ret nz
|
|
ld hl, .Text_GottaHavePokemon
|
|
call MenuTextBoxBackup
|
|
scf
|
|
ret
|
|
|
|
.Text_GottaHavePokemon:
|
|
; You gotta have #MON to call!
|
|
text_far UnknownText_0x1c1006
|
|
text_end
|
|
|
|
.LogIn:
|
|
xor a
|
|
ldh [hBGMapMode], a
|
|
call LoadStandardMenuHeader
|
|
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:
|
|
; What?
|
|
text_far UnknownText_0x1c1024
|
|
text_end
|
|
|
|
.LogOut:
|
|
call CloseSubmenu
|
|
ret
|
|
|
|
.UseBillsPC:
|
|
ld hl, .MenuHeader
|
|
call LoadMenuHeader
|
|
ld a, $1
|
|
.loop
|
|
ld [wMenuCursorBuffer], a
|
|
call SetPalettes
|
|
xor a
|
|
ld [wWhichIndexSet], a
|
|
ldh [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
|
|
|
|
.MenuHeader:
|
|
db MENU_BACKUP_TILES ; flags
|
|
menu_coords 0, 0, SCREEN_WIDTH - 1, SCREEN_HEIGHT - 1
|
|
dw .MenuData
|
|
db 1 ; default option
|
|
|
|
.MenuData:
|
|
db STATICMENU_CURSOR ; flags
|
|
db 0 ; items
|
|
dw .items
|
|
dw PlaceMenuStrings
|
|
dw .strings
|
|
|
|
.strings
|
|
db "WITHDRAW <PK><MN>@"
|
|
db "DEPOSIT <PK><MN>@"
|
|
db "CHANGE BOX@"
|
|
db "MOVE <PK><MN> W/O MAIL@"
|
|
db "SEE YA!@"
|
|
|
|
.Jumptable:
|
|
dw BillsPC_WithdrawMenu
|
|
dw BillsPC_DepositMenu
|
|
dw BillsPC_ChangeBoxMenu
|
|
dw BillsPC_MovePKMNMenu
|
|
dw BillsPC_SeeYa
|
|
|
|
.items
|
|
db 5 ; # items
|
|
db 0 ; WITHDRAW
|
|
db 1 ; DEPOSIT
|
|
db 2 ; CHANGE BOX
|
|
db 3 ; MOVE PKMN
|
|
db 4 ; SEE YA!
|
|
db -1
|
|
|
|
BillsPC_SeeYa:
|
|
scf
|
|
ret
|
|
|
|
BillsPC_MovePKMNMenu:
|
|
call LoadStandardMenuHeader
|
|
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:
|
|
; There is a #MON holding MAIL. Please remove the MAIL.
|
|
text_far UnknownText_0x1c102b
|
|
text_end
|
|
|
|
BillsPC_DepositMenu:
|
|
call LoadStandardMenuHeader
|
|
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:
|
|
; You don't have a single #MON!
|
|
text_far UnknownText_0x1c1062
|
|
text_end
|
|
|
|
.Text_ItsYourLastMon:
|
|
; You can't deposit your last #MON!
|
|
text_far UnknownText_0x1c1080
|
|
text_end
|
|
|
|
CheckCurPartyMonFainted:
|
|
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:
|
|
call LoadStandardMenuHeader
|
|
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:
|
|
; You can't take any more #MON.
|
|
text_far UnknownText_0x1c10a2
|
|
text_end
|
|
|
|
BillsPC_ChangeBoxMenu:
|
|
farcall _ChangeBox
|
|
and a
|
|
ret
|
|
|
|
ClearPCItemScreen:
|
|
call DisableSpriteUpdates
|
|
xor a
|
|
ldh [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:
|
|
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:
|
|
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
|