pokered/engine/give_pokemon.asm

_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 "@"
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`_GivePokemon: ; 4fda5 (13:7da5)`
misc 2015-07-19 03:49:52 +00:00			`; returns success in carry`
			`; and whether the mon was added to the party in [wAddedToParty]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call EnableAutoTextBoxDrawing`
			`xor a`
misc 2015-07-19 03:49:52 +00:00			`ld [wAddedToParty], a`
$U-Daniel-PC\Daniel$ Rename/organize part 1 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:37:53 +00:00			`ld a, [wPartyCount]`
Use PARTY_LENGTH and related constants in menu and hud code. This should allow reducing PARTY_LENGTH to work as intended. Increasing it also works provided space is provided in wram, but breaks pc/saving. 2014-08-23 06:17:47 +00:00			`cp PARTY_LENGTH`
misc 2015-07-19 03:49:52 +00:00			`jr c, .addToParty`
$U-Daniel-PC\Daniel$ Rename/organize part 1 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:37:53 +00:00			`ld a, [W_NUMINBOX]`
Use PARTY_LENGTH and related constants in menu and hud code. This should allow reducing PARTY_LENGTH to work as intended. Increasing it also works provided space is provided in wram, but breaks pc/saving. 2014-08-23 06:17:47 +00:00			`cp MONS_PER_BOX`
misc 2015-07-19 03:49:52 +00:00			`jr nc, .boxFull`
			`; add to box`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`xor a`
$U-Daniel-PC\Daniel$ Rename/organize part 1 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:37:53 +00:00			`ld [W_ENEMYBATTSTATUS3], a`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld a, [wcf91]`
Use monster struct macros in wram. Rename related labels for consistency. 2014-06-14 11:12:40 +00:00			`ld [wEnemyMonSpecies2], a`
Labelled many functions/variables 2014-08-09 05:39:13 +00:00			`callab LoadEnemyMonData`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call SetPokedexOwnedFlag`
fixed hp bar wram label and misc 2015-02-08 06:18:42 +00:00			`callab SendNewMonToBox`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld hl, wcf4b`
menu stuff 2015-07-16 03:04:58 +00:00			`ld a, [wCurrentBoxNum]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`and $7f`
Use PARTY_LENGTH and related constants in menu and hud code. This should allow reducing PARTY_LENGTH to work as intended. Increasing it also works provided space is provided in wram, but breaks pc/saving. 2014-08-23 06:17:47 +00:00			`cp 9`
misc 2015-07-19 03:49:52 +00:00			`jr c, .singleDigitBoxNum`
Use PARTY_LENGTH and related constants in menu and hud code. This should allow reducing PARTY_LENGTH to work as intended. Increasing it also works provided space is provided in wram, but breaks pc/saving. 2014-08-23 06:17:47 +00:00			`sub 9`
			`ld [hl], "1"`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`inc hl`
Use PARTY_LENGTH and related constants in menu and hud code. This should allow reducing PARTY_LENGTH to work as intended. Increasing it also works provided space is provided in wram, but breaks pc/saving. 2014-08-23 06:17:47 +00:00			`add "0"`
misc 2015-07-19 03:49:52 +00:00			`jr .next`
			`.singleDigitBoxNum`
Use PARTY_LENGTH and related constants in menu and hud code. This should allow reducing PARTY_LENGTH to work as intended. Increasing it also works provided space is provided in wram, but breaks pc/saving. 2014-08-23 06:17:47 +00:00			`add "1"`
misc 2015-07-19 03:49:52 +00:00			`.next`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld [hli], a`
Use PARTY_LENGTH and related constants in menu and hud code. This should allow reducing PARTY_LENGTH to work as intended. Increasing it also works provided space is provided in wram, but breaks pc/saving. 2014-08-23 06:17:47 +00:00			`ld [hl], "@"`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld hl, SetToBoxText`
			`call PrintText`
			`scf`
			`ret`
misc 2015-07-19 03:49:52 +00:00			`.boxFull`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld hl, BoxIsFullText`
			`call PrintText`
			`and a`
			`ret`
misc 2015-07-19 03:49:52 +00:00			`.addToParty`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call SetPokedexOwnedFlag`
Rename predef functions so they aren't excessive in length. This is mostly because of an rgbasm bug that prevents macro arguments from exceeding 16 characters, but the names were bad anyway. 2014-06-16 20:03:05 +00:00			`call AddPartyMon`
misc 2015-07-19 03:49:52 +00:00			`ld a, 1`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`ld [wDoNotWaitForButtonPressAfterDisplayingText], a`
misc 2015-07-19 03:49:52 +00:00			`ld [wAddedToParty], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`scf`
			`ret`

			`SetPokedexOwnedFlag: ; 4fe11 (13:7e11)`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld a, [wcf91]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`push af`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld [wd11e], a`
Use macros for predef calls/jumps instead of static ids. 2014-06-16 20:57:26 +00:00			`predef IndexToPokedex`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld a, [wd11e]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`dec a`
			`ld c, a`
$U-Daniel-PC\Daniel$ Rename/organize part 1 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:37:53 +00:00			`ld hl, wPokedexOwned`
constants for flag actions 2015-07-20 03:45:34 +00:00			`ld b, FLAG_SET`
Use macros for predef calls/jumps instead of static ids. 2014-06-16 20:57:26 +00:00			`predef FlagActionPredef`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`pop af`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld [wd11e], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 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 "@"`