mirror of
https://gitlab.com/xCrystal/pokecrystal-board.git
synced 2024-11-16 11:27:33 -08:00
134 lines
2.1 KiB
NASM
134 lines
2.1 KiB
NASM
InsertPokemonIntoBox:
|
|
ld a, BANK(sBoxCount)
|
|
call OpenSRAM
|
|
ld hl, sBoxCount
|
|
call InsertSpeciesIntoBoxOrParty
|
|
ld a, [sBoxCount]
|
|
dec a
|
|
ld [wNextBoxOrPartyIndex], a
|
|
ld hl, sBoxMonNicknames
|
|
ld bc, MON_NAME_LENGTH
|
|
ld de, wBufferMonNickname
|
|
call InsertDataIntoBoxOrParty
|
|
ld a, [sBoxCount]
|
|
dec a
|
|
ld [wNextBoxOrPartyIndex], a
|
|
ld hl, sBoxMonOTs
|
|
ld bc, NAME_LENGTH
|
|
ld de, wBufferMonOT
|
|
call InsertDataIntoBoxOrParty
|
|
ld a, [sBoxCount]
|
|
dec a
|
|
ld [wNextBoxOrPartyIndex], a
|
|
ld hl, sBoxMons
|
|
ld bc, BOXMON_STRUCT_LENGTH
|
|
ld de, wBufferMon
|
|
call InsertDataIntoBoxOrParty
|
|
ld hl, wBufferMonMoves
|
|
ld de, wTempMonMoves
|
|
ld bc, NUM_MOVES
|
|
call CopyBytes
|
|
ld hl, wBufferMonPP
|
|
ld de, wTempMonPP
|
|
ld bc, NUM_MOVES
|
|
call CopyBytes
|
|
ld a, [wCurPartyMon]
|
|
ld b, a
|
|
farcall RestorePPOfDepositedPokemon
|
|
jp CloseSRAM
|
|
|
|
InsertPokemonIntoParty:
|
|
ld hl, wPartyCount
|
|
call InsertSpeciesIntoBoxOrParty
|
|
ld a, [wPartyCount]
|
|
dec a
|
|
ld [wNextBoxOrPartyIndex], a
|
|
ld hl, wPartyMonNicknames
|
|
ld bc, MON_NAME_LENGTH
|
|
ld de, wBufferMonNickname
|
|
call InsertDataIntoBoxOrParty
|
|
ld a, [wPartyCount]
|
|
dec a
|
|
ld [wNextBoxOrPartyIndex], a
|
|
ld hl, wPartyMonOTs
|
|
ld bc, NAME_LENGTH
|
|
ld de, wBufferMonOT
|
|
call InsertDataIntoBoxOrParty
|
|
ld a, [wPartyCount]
|
|
dec a
|
|
ld [wNextBoxOrPartyIndex], a
|
|
ld hl, wPartyMons
|
|
ld bc, PARTYMON_STRUCT_LENGTH
|
|
ld de, wBufferMon
|
|
call InsertDataIntoBoxOrParty
|
|
ret
|
|
|
|
InsertSpeciesIntoBoxOrParty:
|
|
inc [hl]
|
|
inc hl
|
|
ld a, [wCurPartyMon]
|
|
ld c, a
|
|
ld b, 0
|
|
add hl, bc
|
|
ld a, [wCurPartySpecies]
|
|
ld c, a
|
|
.loop
|
|
ld a, [hl]
|
|
ld [hl], c
|
|
inc hl
|
|
inc c
|
|
ld c, a
|
|
jr nz, .loop
|
|
ret
|
|
|
|
InsertDataIntoBoxOrParty:
|
|
push de
|
|
push hl
|
|
push bc
|
|
ld a, [wNextBoxOrPartyIndex]
|
|
dec a
|
|
call AddNTimes
|
|
push hl
|
|
add hl, bc
|
|
ld d, h
|
|
ld e, l
|
|
pop hl
|
|
.loop
|
|
push bc
|
|
ld a, [wNextBoxOrPartyIndex]
|
|
ld b, a
|
|
ld a, [wCurPartyMon]
|
|
cp b
|
|
pop bc
|
|
jr z, .insert
|
|
push hl
|
|
push de
|
|
push bc
|
|
call CopyBytes
|
|
pop bc
|
|
pop de
|
|
pop hl
|
|
push hl
|
|
ld a, l
|
|
sub c
|
|
ld l, a
|
|
ld a, h
|
|
sbc b
|
|
ld h, a
|
|
pop de
|
|
ld a, [wNextBoxOrPartyIndex]
|
|
dec a
|
|
ld [wNextBoxOrPartyIndex], a
|
|
jr .loop
|
|
|
|
.insert
|
|
pop bc
|
|
pop hl
|
|
ld a, [wCurPartyMon]
|
|
call AddNTimes
|
|
ld d, h
|
|
ld e, l
|
|
pop hl
|
|
call CopyBytes
|
|
ret
|