pokecrystal-board/engine/events/bug_contest/caught_mon.asm

BugContest_SetCaughtContestMon:
	ld a, [wContestMon]
	and a
	jr z, .firstcatch
	ld [wNamedObjectIndexBuffer], a
	farcall DisplayAlreadyCaughtText
	farcall DisplayCaughtContestMonStats
	lb bc, 14, 7
	call PlaceYesNoBox
	ret c

.firstcatch
	call .generatestats
	ld a, [wTempEnemyMonSpecies]
	ld [wNamedObjectIndexBuffer], a
	call GetPokemonName
	ld hl, .caughttext
	call PrintText
	ret

.generatestats
	ld a, [wTempEnemyMonSpecies]
	ld [wCurSpecies], a
	ld [wCurPartySpecies], a
	call GetBaseData
	xor a
	ld bc, PARTYMON_STRUCT_LENGTH
	ld hl, wContestMon
	call ByteFill
	xor a
	ld [wMonType], a
	ld hl, wContestMon
	jp GeneratePartyMonStats

.caughttext
	; Caught @ !
	text_far UnknownText_0x1c10c0
	text_end
Remove all address comments 2018-06-24 07:09:41 -07:00			`BugContest_SetCaughtContestMon:`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`ld a, [wContestMon]`
			`and a`
			`jr z, .firstcatch`
Add meaningful aliases for wd265 Introduce MONICON_* constants Introduce BATTLEPLAYERACTION_* constants 2018-07-28 16:27:34 -07:00			`ld [wNamedObjectIndexBuffer], a`
callba/callab → farcall/callfar 2017-12-24 09:47:30 -08:00			`farcall DisplayAlreadyCaughtText`
			`farcall DisplayCaughtContestMonStats`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`lb bc, 14, 7`
			`call PlaceYesNoBox`
			`ret c`

			`.firstcatch`
			`call .generatestats`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wTempEnemyMonSpecies]`
Add meaningful aliases for wd265 Introduce MONICON_* constants Introduce BATTLEPLAYERACTION_* constants 2018-07-28 16:27:34 -07:00			`ld [wNamedObjectIndexBuffer], a`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`call GetPokemonName`
			`ld hl, .caughttext`
			`call PrintText`
			`ret`

Remove all address comments 2018-06-24 07:09:41 -07:00			`.generatestats`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wTempEnemyMonSpecies]`
			`ld [wCurSpecies], a`
			`ld [wCurPartySpecies], a`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`call GetBaseData`
			`xor a`
			`ld bc, PARTYMON_STRUCT_LENGTH`
			`ld hl, wContestMon`
			`call ByteFill`
			`xor a`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld [wMonType], a`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`ld hl, wContestMon`
			`jp GeneratePartyMonStats`

Remove even more address comments That should be all of them this time 2018-06-24 17:10:37 -07:00			`.caughttext`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`; Caught @ !`
text_jump → text_far The previous name for this was rather misleading. It isn't an actual jump like you'd expect the `jp` instruction to behave as. Instead, it behaves more like a `farcall`. This also makes it consistent with its current command ID name of `TX_FAR`. 2018-10-28 09:16:55 -07:00			`text_far UnknownText_0x1c10c0`
Resolve issue #575: Rename text commands 2018-11-17 10:33:03 -08:00			`text_end`