pokecrystal-board/engine/pokemon/caught_data.asm

CheckPartyFullAfterContest:
	ld a, [wContestMonSpecies]
	and a
	jp z, .DidntCatchAnything
	ld [wCurPartySpecies], a
	ld [wCurSpecies], a
	call GetBaseData
	ld hl, wPartyCount
	ld a, [hl]
	cp PARTY_LENGTH
	jp nc, .TryAddToBox
	inc a
	ld [hl], a
	ld c, a
	ld b, 0
	add hl, bc
	ld a, [wContestMonSpecies]
	ld [hli], a
	ld [wCurSpecies], a
	ld a, -1
	ld [hl], a
	ld hl, wPartyMon1Species
	ld a, [wPartyCount]
	dec a
	ld bc, PARTYMON_STRUCT_LENGTH
	call AddNTimes
	ld d, h
	ld e, l
	ld hl, wContestMon
	ld bc, PARTYMON_STRUCT_LENGTH
	call CopyBytes
	ld a, [wPartyCount]
	dec a
	ld hl, wPartyMonOTs
	call SkipNames
	ld d, h
	ld e, l
	ld hl, wPlayerName
	call CopyBytes
	ld a, [wCurPartySpecies]
	ld [wNamedObjectIndex], a
	call GetPokemonName
	ld hl, wStringBuffer1
	ld de, wMonOrItemNameBuffer
	ld bc, MON_NAME_LENGTH
	call CopyBytes
	call GiveANickname_YesNo
	jr c, .Party_SkipNickname
	ld a, [wPartyCount]
	dec a
	ld [wCurPartyMon], a
	xor a
	ld [wMonType], a
	ld de, wMonOrItemNameBuffer
	callfar InitNickname

.Party_SkipNickname:
	ld a, [wPartyCount]
	dec a
	ld hl, wPartyMonNicknames
	call SkipNames
	ld d, h
	ld e, l
	ld hl, wMonOrItemNameBuffer
	call CopyBytes
	ld a, [wPartyCount]
	dec a
	ld hl, wPartyMon1Level
	call GetPartyLocation
	ld a, [hl]
	ld [wCurPartyLevel], a
	call SetCaughtData
	ld a, [wPartyCount]
	dec a
	ld hl, wPartyMon1CaughtLocation
	call GetPartyLocation
	ld a, [hl]
	and CAUGHT_GENDER_MASK
	ld [hl], a
	xor a
	ld [wContestMonSpecies], a
	and a ; BUGCONTEST_CAUGHT_MON
	ldh [hScriptVar], a
	ret

.TryAddToBox:
	ld a, BANK(sBoxCount)
	call OpenSRAM
	ld hl, sBoxCount
	ld a, [hl]
	cp MONS_PER_BOX
	call CloseSRAM
	jr nc, .BoxFull
	xor a
	ld [wCurPartyMon], a
	ld hl, wContestMon
	ld de, wBufferMon
	ld bc, BOXMON_STRUCT_LENGTH
	call CopyBytes
	ld hl, wPlayerName
	ld de, wBufferMonOT
	ld bc, NAME_LENGTH
	call CopyBytes
	callfar InsertPokemonIntoBox
	ld a, [wCurPartySpecies]
	ld [wNamedObjectIndex], a
	call GetPokemonName
	call GiveANickname_YesNo
	ld hl, wStringBuffer1
	jr c, .Box_SkipNickname
	ld a, BOXMON
	ld [wMonType], a
	ld de, wMonOrItemNameBuffer
	callfar InitNickname
	ld hl, wMonOrItemNameBuffer

.Box_SkipNickname:
	ld a, BANK(sBoxMonNicknames)
	call OpenSRAM
	ld de, sBoxMonNicknames
	ld bc, MON_NAME_LENGTH
	call CopyBytes
	call CloseSRAM

.BoxFull:
	ld a, BANK(sBoxMon1Level)
	call OpenSRAM
	ld a, [sBoxMon1Level]
	ld [wCurPartyLevel], a
	call CloseSRAM
	call SetBoxMonCaughtData
	ld a, BANK(sBoxMon1CaughtLocation)
	call OpenSRAM
	ld hl, sBoxMon1CaughtLocation
	ld a, [hl]
	and CAUGHT_GENDER_MASK
	ld [hl], a
	call CloseSRAM
	xor a
	ld [wContestMon], a
	ld a, BUGCONTEST_BOXED_MON
	ldh [hScriptVar], a
	ret

.DidntCatchAnything:
	ld a, BUGCONTEST_NO_CATCH
	ldh [hScriptVar], a
	ret

GiveANickname_YesNo:
	ld hl, CaughtAskNicknameText
	call PrintText1bpp
	jp YesNoBox

CaughtAskNicknameText:
	text_far _CaughtAskNicknameText
	text_end

SetCaughtData:
	ld a, [wPartyCount]
	dec a
	ld hl, wPartyMon1CaughtLevel
	call GetPartyLocation
SetBoxmonOrEggmonCaughtData:
	ld a, [wTimeOfDay]
	inc a
	rrca
	rrca
	and CAUGHT_TIME_MASK ; caught in eve becomes $0
	ld b, a
	ld a, [wCurPartyLevel]
	or b
	ld [hli], a
	ld a, [wMapGroup]
	ld b, a
	ld a, [wMapNumber]
	ld c, a
	call GetWorldMapLocation
	ld b, a
	ld a, [wPlayerGender]
	rrca ; shift bit 0 (PLAYERGENDER_FEMALE_F) to bit 7 (CAUGHT_GENDER_MASK)
	or b
	ld [hl], a
	ret

SetBoxMonCaughtData:
	ld a, BANK(sBoxMon1CaughtLevel)
	call OpenSRAM
	ld hl, sBoxMon1CaughtLevel
	call SetBoxmonOrEggmonCaughtData
	call CloseSRAM
	ret

SetGiftBoxMonCaughtData:
	push bc
	ld a, BANK(sBoxMon1CaughtLevel)
	call OpenSRAM
	ld hl, sBoxMon1CaughtLevel
	pop bc
	call SetGiftMonCaughtData
	call CloseSRAM
	ret

SetGiftPartyMonCaughtData:
	ld a, [wPartyCount]
	dec a
	ld hl, wPartyMon1CaughtLevel
	push bc
	call GetPartyLocation
	pop bc
SetGiftMonCaughtData:
	xor a
	ld [hli], a
	ld a, LANDMARK_GIFT
	rrc b
	or b
	ld [hl], a
	ret

SetEggMonCaughtData:
	ld a, [wCurPartyMon]
	ld hl, wPartyMon1CaughtLevel
	call GetPartyLocation
	ld a, [wCurPartyLevel]
	push af
	ld a, CAUGHT_EGG_LEVEL
	ld [wCurPartyLevel], a
	call SetBoxmonOrEggmonCaughtData
	pop af
	ld [wCurPartyLevel], a
	ret
Remove all address comments 2018-06-24 07:09:41 -07:00			`CheckPartyFullAfterContest:`
Harmonize engine/{movie, pokemon} with pokegold (renames GetSRAMBank to OpenSRAM) To do: engine/{menus, overworld} 2020-06-17 14:03:38 -07:00			`ld a, [wContestMonSpecies]`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`and a`
			`jp z, .DidntCatchAnything`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld [wCurPartySpecies], a`
			`ld [wCurSpecies], a`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`call GetBaseData`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld hl, wPartyCount`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`ld a, [hl]`
Use maskbits some more 2018-01-11 09:00:01 -08:00			`cp PARTY_LENGTH`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`jp nc, .TryAddToBox`
			`inc a`
			`ld [hl], a`
			`ld c, a`
Use maskbits some more 2018-01-11 09:00:01 -08:00			`ld b, 0`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`add hl, bc`
Harmonize engine/{movie, pokemon} with pokegold (renames GetSRAMBank to OpenSRAM) To do: engine/{menus, overworld} 2020-06-17 14:03:38 -07:00			`ld a, [wContestMonSpecies]`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`ld [hli], a`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld [wCurSpecies], a`
Use maskbits some more 2018-01-11 09:00:01 -08:00			`ld a, -1`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`ld [hl], a`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld hl, wPartyMon1Species`
			`ld a, [wPartyCount]`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`dec a`
			`ld bc, PARTYMON_STRUCT_LENGTH`
			`call AddNTimes`
			`ld d, h`
			`ld e, l`
			`ld hl, wContestMon`
			`ld bc, PARTYMON_STRUCT_LENGTH`
			`call CopyBytes`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wPartyCount]`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`dec a`
Consistent labels for each nickname in RAM 2021-03-17 13:16:02 -07:00			`ld hl, wPartyMonOTs`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`call SkipNames`
			`ld d, h`
			`ld e, l`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld hl, wPlayerName`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`call CopyBytes`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wCurPartySpecies]`
Rename some labels - Remove "Buffer" suffix from some byte and word quantities - Change "Ptr" to "Pointer" Fixes #789 2020-12-23 13:29:30 -08:00			`ld [wNamedObjectIndex], a`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`call GetPokemonName`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld hl, wStringBuffer1`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`ld de, wMonOrItemNameBuffer`
PARTY_LENGTH; MON_NAME; sgb_border.bin 2018-01-20 09:25:55 -08:00			`ld bc, MON_NAME_LENGTH`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`call CopyBytes`
			`call GiveANickname_YesNo`
			`jr c, .Party_SkipNickname`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wPartyCount]`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`dec a`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld [wCurPartyMon], a`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`xor a`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld [wMonType], a`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`ld de, wMonOrItemNameBuffer`
callba/callab → farcall/callfar 2017-12-24 09:47:30 -08:00			`callfar InitNickname`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00
			`.Party_SkipNickname:`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wPartyCount]`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`dec a`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld hl, wPartyMonNicknames`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`call SkipNames`
			`ld d, h`
			`ld e, l`
			`ld hl, wMonOrItemNameBuffer`
			`call CopyBytes`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wPartyCount]`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`dec a`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld hl, wPartyMon1Level`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`call GetPartyLocation`
			`ld a, [hl]`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld [wCurPartyLevel], a`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`call SetCaughtData`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wPartyCount]`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`dec a`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld hl, wPartyMon1CaughtLocation`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`call GetPartyLocation`
			`ld a, [hl]`
Use maskbits some more 2018-01-11 09:00:01 -08:00			`and CAUGHT_GENDER_MASK`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`ld [hl], a`
			`xor a`
Harmonize engine/{movie, pokemon} with pokegold (renames GetSRAMBank to OpenSRAM) To do: engine/{menus, overworld} 2020-06-17 14:03:38 -07:00			`ld [wContestMonSpecies], a`
Use more constants in scripts 2018-01-11 22:40:20 -08:00			`and a ; BUGCONTEST_CAUGHT_MON`
Optimize some HRAM usage 2023-09-30 10:12:57 -07:00			`ldh [hScriptVar], a`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`ret`

Remove all address comments 2018-06-24 07:09:41 -07:00			`.TryAddToBox:`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`ld a, BANK(sBoxCount)`
Harmonize engine/{movie, pokemon} with pokegold (renames GetSRAMBank to OpenSRAM) To do: engine/{menus, overworld} 2020-06-17 14:03:38 -07:00			`call OpenSRAM`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`ld hl, sBoxCount`
			`ld a, [hl]`
			`cp MONS_PER_BOX`
			`call CloseSRAM`
			`jr nc, .BoxFull`
			`xor a`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld [wCurPartyMon], a`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`ld hl, wContestMon`
			`ld de, wBufferMon`
			`ld bc, BOXMON_STRUCT_LENGTH`
			`call CopyBytes`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld hl, wPlayerName`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`ld de, wBufferMonOT`
			`ld bc, NAME_LENGTH`
			`call CopyBytes`
callba/callab → farcall/callfar 2017-12-24 09:47:30 -08:00			`callfar InsertPokemonIntoBox`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wCurPartySpecies]`
Rename some labels - Remove "Buffer" suffix from some byte and word quantities - Change "Ptr" to "Pointer" Fixes #789 2020-12-23 13:29:30 -08:00			`ld [wNamedObjectIndex], a`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`call GetPokemonName`
			`call GiveANickname_YesNo`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld hl, wStringBuffer1`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`jr c, .Box_SkipNickname`
			`ld a, BOXMON`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld [wMonType], a`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`ld de, wMonOrItemNameBuffer`
callba/callab → farcall/callfar 2017-12-24 09:47:30 -08:00			`callfar InitNickname`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`ld hl, wMonOrItemNameBuffer`

			`.Box_SkipNickname:`
			`ld a, BANK(sBoxMonNicknames)`
Harmonize engine/{movie, pokemon} with pokegold (renames GetSRAMBank to OpenSRAM) To do: engine/{menus, overworld} 2020-06-17 14:03:38 -07:00			`call OpenSRAM`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`ld de, sBoxMonNicknames`
PARTY_LENGTH; MON_NAME; sgb_border.bin 2018-01-20 09:25:55 -08:00			`ld bc, MON_NAME_LENGTH`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`call CopyBytes`
			`call CloseSRAM`

			`.BoxFull:`
			`ld a, BANK(sBoxMon1Level)`
Harmonize engine/{movie, pokemon} with pokegold (renames GetSRAMBank to OpenSRAM) To do: engine/{menus, overworld} 2020-06-17 14:03:38 -07:00			`call OpenSRAM`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`ld a, [sBoxMon1Level]`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld [wCurPartyLevel], a`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`call CloseSRAM`
			`call SetBoxMonCaughtData`
			`ld a, BANK(sBoxMon1CaughtLocation)`
Harmonize engine/{movie, pokemon} with pokegold (renames GetSRAMBank to OpenSRAM) To do: engine/{menus, overworld} 2020-06-17 14:03:38 -07:00			`call OpenSRAM`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`ld hl, sBoxMon1CaughtLocation`
			`ld a, [hl]`
Use maskbits some more 2018-01-11 09:00:01 -08:00			`and CAUGHT_GENDER_MASK`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`ld [hl], a`
			`call CloseSRAM`
			`xor a`
			`ld [wContestMon], a`
Use more constants in scripts 2018-01-11 22:40:20 -08:00			`ld a, BUGCONTEST_BOXED_MON`
Optimize some HRAM usage 2023-09-30 10:12:57 -07:00			`ldh [hScriptVar], a`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`ret`

Remove all address comments 2018-06-24 07:09:41 -07:00			`.DidntCatchAnything:`
Use more constants in scripts 2018-01-11 22:40:20 -08:00			`ld a, BUGCONTEST_NO_CATCH`
Optimize some HRAM usage 2023-09-30 10:12:57 -07:00			`ldh [hScriptVar], a`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`ret`

Remove all address comments 2018-06-24 07:09:41 -07:00			`GiveANickname_YesNo:`
#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 15:24:17 -07:00			`ld hl, CaughtAskNicknameText`
Use overworld textbox in text printing functions, differentiating between 1bpp and 2bpp text (#10) 2023-08-11 03:28:14 -07:00			`call PrintText1bpp`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`jp YesNoBox`

#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 15:24:17 -07:00			`CaughtAskNicknameText:`
			`text_far _CaughtAskNicknameText`
Resolve issue #575: Rename text commands 2018-11-17 10:33:03 -08:00			`text_end`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00
Remove all address comments 2018-06-24 07:09:41 -07:00			`SetCaughtData:`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wPartyCount]`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`dec a`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld hl, wPartyMon1CaughtLevel`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`call GetPartyLocation`
Remove all address comments 2018-06-24 07:09:41 -07:00			`SetBoxmonOrEggmonCaughtData:`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wTimeOfDay]`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`inc a`
			`rrca`
			`rrca`
Create a fourth time of day (#2) 2023-07-31 03:27:53 -07:00			`and CAUGHT_TIME_MASK ; caught in eve becomes $0`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`ld b, a`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wCurPartyLevel]`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`or b`
			`ld [hli], a`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wMapGroup]`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`ld b, a`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wMapNumber]`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`ld c, a`
			`call GetWorldMapLocation`
			`ld b, a`
Prefix engine_flags wram addresses with w 2017-12-28 04:15:46 -08:00			`ld a, [wPlayerGender]`
More engine flag constants 2018-01-22 11:34:55 -08:00			`rrca ; shift bit 0 (PLAYERGENDER_FEMALE_F) to bit 7 (CAUGHT_GENDER_MASK)`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`or b`
			`ld [hl], a`
			`ret`

Remove all address comments 2018-06-24 07:09:41 -07:00			`SetBoxMonCaughtData:`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`ld a, BANK(sBoxMon1CaughtLevel)`
Harmonize engine/{movie, pokemon} with pokegold (renames GetSRAMBank to OpenSRAM) To do: engine/{menus, overworld} 2020-06-17 14:03:38 -07:00			`call OpenSRAM`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`ld hl, sBoxMon1CaughtLevel`
			`call SetBoxmonOrEggmonCaughtData`
			`call CloseSRAM`
			`ret`

Remove all address comments 2018-06-24 07:09:41 -07:00			`SetGiftBoxMonCaughtData:`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`push bc`
			`ld a, BANK(sBoxMon1CaughtLevel)`
Harmonize engine/{movie, pokemon} with pokegold (renames GetSRAMBank to OpenSRAM) To do: engine/{menus, overworld} 2020-06-17 14:03:38 -07:00			`call OpenSRAM`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`ld hl, sBoxMon1CaughtLevel`
			`pop bc`
			`call SetGiftMonCaughtData`
			`call CloseSRAM`
			`ret`

Remove all address comments 2018-06-24 07:09:41 -07:00			`SetGiftPartyMonCaughtData:`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wPartyCount]`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`dec a`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld hl, wPartyMon1CaughtLevel`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`push bc`
			`call GetPartyLocation`
			`pop bc`
Remove all address comments 2018-06-24 07:09:41 -07:00			`SetGiftMonCaughtData:`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`xor a`
			`ld [hli], a`
Add a `LANDMARK_` prefix to landmark constants Resolves #697 2020-03-15 14:26:10 -07:00			`ld a, LANDMARK_GIFT`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`rrc b`
			`or b`
			`ld [hl], a`
			`ret`

Remove all address comments 2018-06-24 07:09:41 -07:00			`SetEggMonCaughtData:`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wCurPartyMon]`
			`ld hl, wPartyMon1CaughtLevel`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`call GetPartyLocation`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wCurPartyLevel]`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`push af`
Use maskbits some more 2018-01-11 09:00:01 -08:00			`ld a, CAUGHT_EGG_LEVEL`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld [wCurPartyLevel], a`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`call SetBoxmonOrEggmonCaughtData`
			`pop af`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld [wCurPartyLevel], a`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`ret`