2014-05-22 22:13:20 +00:00
|
|
|
_GivePokemon: ; 4fda5 (13:7da5)
|
|
|
|
call EnableAutoTextBoxDrawing
|
|
|
|
xor a
|
2014-05-26 21:04:56 +00:00
|
|
|
ld [wccd3], a
|
2014-06-14 11:12:40 +00:00
|
|
|
ld a, [wPartyCount] ; wPartyCount
|
2014-08-23 06:17:47 +00:00
|
|
|
cp PARTY_LENGTH
|
2014-05-22 22:13:20 +00:00
|
|
|
jr c, .asm_4fe01
|
2014-05-26 21:04:56 +00:00
|
|
|
ld a, [W_NUMINBOX] ; wda80
|
2014-08-23 06:17:47 +00:00
|
|
|
cp MONS_PER_BOX
|
2014-05-22 22:13:20 +00:00
|
|
|
jr nc, .asm_4fdf9
|
|
|
|
xor a
|
2014-05-26 21:04:56 +00:00
|
|
|
ld [W_ENEMYBATTSTATUS3], a ; W_ENEMYBATTSTATUS3
|
|
|
|
ld a, [wcf91]
|
2014-06-14 11:12:40 +00:00
|
|
|
ld [wEnemyMonSpecies2], a
|
2014-08-09 05:39:13 +00:00
|
|
|
callab LoadEnemyMonData
|
2014-05-22 22:13:20 +00:00
|
|
|
call SetPokedexOwnedFlag
|
2015-02-08 06:18:42 +00:00
|
|
|
callab SendNewMonToBox
|
2014-05-26 21:04:56 +00:00
|
|
|
ld hl, wcf4b
|
|
|
|
ld a, [wd5a0]
|
2014-05-22 22:13:20 +00:00
|
|
|
and $7f
|
2014-08-23 06:17:47 +00:00
|
|
|
cp 9
|
2014-05-22 22:13:20 +00:00
|
|
|
jr c, .asm_4fdec
|
2014-08-23 06:17:47 +00:00
|
|
|
sub 9
|
|
|
|
ld [hl], "1"
|
2014-05-22 22:13:20 +00:00
|
|
|
inc hl
|
2014-08-23 06:17:47 +00:00
|
|
|
add "0"
|
2014-05-22 22:13:20 +00:00
|
|
|
jr .asm_4fdee
|
|
|
|
.asm_4fdec
|
2014-08-23 06:17:47 +00:00
|
|
|
add "1"
|
2014-05-22 22:13:20 +00:00
|
|
|
.asm_4fdee
|
|
|
|
ld [hli], a
|
2014-08-23 06:17:47 +00:00
|
|
|
ld [hl], "@"
|
2014-05-22 22:13:20 +00:00
|
|
|
ld hl, SetToBoxText
|
|
|
|
call PrintText
|
|
|
|
scf
|
|
|
|
ret
|
|
|
|
.asm_4fdf9
|
|
|
|
ld hl, BoxIsFullText
|
|
|
|
call PrintText
|
|
|
|
and a
|
|
|
|
ret
|
|
|
|
.asm_4fe01
|
|
|
|
call SetPokedexOwnedFlag
|
2014-06-16 20:03:05 +00:00
|
|
|
call AddPartyMon
|
2014-05-22 22:13:20 +00:00
|
|
|
ld a, $1
|
2014-09-13 07:50:56 +00:00
|
|
|
ld [wDoNotWaitForButtonPressAfterDisplayingText], a
|
2014-05-26 21:04:56 +00:00
|
|
|
ld [wccd3], a
|
2014-05-22 22:13:20 +00:00
|
|
|
scf
|
|
|
|
ret
|
|
|
|
|
|
|
|
SetPokedexOwnedFlag: ; 4fe11 (13:7e11)
|
2014-05-26 21:04:56 +00:00
|
|
|
ld a, [wcf91]
|
2014-05-22 22:13:20 +00:00
|
|
|
push af
|
2014-05-26 21:04:56 +00:00
|
|
|
ld [wd11e], a
|
2014-06-16 20:57:26 +00:00
|
|
|
predef IndexToPokedex
|
2014-05-26 21:04:56 +00:00
|
|
|
ld a, [wd11e]
|
2014-05-22 22:13:20 +00:00
|
|
|
dec a
|
|
|
|
ld c, a
|
2014-05-26 21:04:56 +00:00
|
|
|
ld hl, wPokedexOwned ; wPokedexOwned
|
2014-05-22 22:13:20 +00:00
|
|
|
ld b, $1
|
2014-06-16 20:57:26 +00:00
|
|
|
predef FlagActionPredef
|
2014-05-22 22:13:20 +00:00
|
|
|
pop af
|
2014-05-26 21:04:56 +00:00
|
|
|
ld [wd11e], a
|
2014-05-22 22:13:20 +00:00
|
|
|
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 "@"
|