mirror of
https://github.com/pret/pokered.git
synced 2024-10-22 22:55:31 +00:00
82 lines
1.3 KiB
NASM
Executable file
82 lines
1.3 KiB
NASM
Executable file
_GivePokemon: ; 4fda5 (13:7da5)
|
|
; returns success in carry
|
|
; and whether the mon was added to the party in [wAddedToParty]
|
|
call EnableAutoTextBoxDrawing
|
|
xor a
|
|
ld [wAddedToParty], a
|
|
ld a, [wPartyCount]
|
|
cp PARTY_LENGTH
|
|
jr c, .addToParty
|
|
ld a, [W_NUMINBOX]
|
|
cp MONS_PER_BOX
|
|
jr nc, .boxFull
|
|
; add to box
|
|
xor a
|
|
ld [W_ENEMYBATTSTATUS3], a
|
|
ld a, [wcf91]
|
|
ld [wEnemyMonSpecies2], a
|
|
callab LoadEnemyMonData
|
|
call SetPokedexOwnedFlag
|
|
callab SendNewMonToBox
|
|
ld hl, wcf4b
|
|
ld a, [wCurrentBoxNum]
|
|
and $7f
|
|
cp 9
|
|
jr c, .singleDigitBoxNum
|
|
sub 9
|
|
ld [hl], "1"
|
|
inc hl
|
|
add "0"
|
|
jr .next
|
|
.singleDigitBoxNum
|
|
add "1"
|
|
.next
|
|
ld [hli], a
|
|
ld [hl], "@"
|
|
ld hl, SetToBoxText
|
|
call PrintText
|
|
scf
|
|
ret
|
|
.boxFull
|
|
ld hl, BoxIsFullText
|
|
call PrintText
|
|
and a
|
|
ret
|
|
.addToParty
|
|
call SetPokedexOwnedFlag
|
|
call AddPartyMon
|
|
ld a, 1
|
|
ld [wDoNotWaitForButtonPressAfterDisplayingText], a
|
|
ld [wAddedToParty], a
|
|
scf
|
|
ret
|
|
|
|
SetPokedexOwnedFlag: ; 4fe11 (13:7e11)
|
|
ld a, [wcf91]
|
|
push af
|
|
ld [wd11e], a
|
|
predef IndexToPokedex
|
|
ld a, [wd11e]
|
|
dec a
|
|
ld c, a
|
|
ld hl, wPokedexOwned
|
|
ld b, FLAG_SET
|
|
predef FlagActionPredef
|
|
pop af
|
|
ld [wd11e], a
|
|
call GetMonName
|
|
ld hl, GotMonText
|
|
jp PrintText
|
|
|
|
GotMonText: ; 4fe39 (13:7e39)
|
|
TX_FAR _GotMonText
|
|
db $0b
|
|
db "@"
|
|
|
|
SetToBoxText: ; 4fe3f (13:7e3f)
|
|
TX_FAR _SetToBoxText
|
|
db "@"
|
|
|
|
BoxIsFullText: ; 4fe44 (13:7e44)
|
|
TX_FAR _BoxIsFullText
|
|
db "@"
|