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

DisplayCaughtContestMonStats:
	call ClearBGPalettes
	call ClearTileMap
	call ClearSprites
	call LoadFontsBattleExtra

	ld hl, wOptions
	ld a, [hl]
	push af
	set NO_TEXT_SCROLL, [hl]

	hlcoord 0, 0
	ld b, 4
	ld c, 13
	call Textbox

	hlcoord 0, 6
	ld b, 4
	ld c, 13
	call Textbox

	hlcoord 2, 0
	ld de, .Stock
	call PlaceString

	hlcoord 2, 6
	ld de, .This
	call PlaceString

	hlcoord 5, 4
	ld de, .Health
	call PlaceString

	hlcoord 5, 10
	ld de, .Health
	call PlaceString

	ld a, [wContestMon]
	ld [wNamedObjectIndexBuffer], a
	call GetPokemonName
	ld de, wStringBuffer1
	hlcoord 1, 2
	call PlaceString

	ld h, b
	ld l, c
	ld a, [wContestMonLevel]
	ld [wTempMonLevel], a
	call PrintLevel

	ld de, wEnemyMonNick
	hlcoord 1, 8
	call PlaceString

	ld h, b
	ld l, c
	ld a, [wEnemyMonLevel]
	ld [wTempMonLevel], a
	call PrintLevel

	hlcoord 11, 4
	ld de, wContestMonMaxHP
	lb bc, 2, 3
	call PrintNum

	hlcoord 11, 10
	ld de, wEnemyMonMaxHP
	call PrintNum

	ld hl, SwitchMonText
	call PrintText

	pop af
	ld [wOptions], a

	call WaitBGMap
	ld b, SCGB_DIPLOMA
	call GetSGBLayout
	call SetPalettes
	ret

.Health:
	db "HEALTH@"
.Stock:
	db " STOCK <PKMN> @"
.This:
	db " THIS <PKMN>  @"

SwitchMonText:
	; Switch #MON?
	text_far UnknownText_0x1c10cf
	text_end

DisplayAlreadyCaughtText:
	call GetPokemonName
	ld hl, .AlreadyCaughtText
	jp PrintText

.AlreadyCaughtText:
	; You already caught a @ .
	text_far UnknownText_0x1c10dd
	text_end

DummyPredef2F:
DummyPredef38:
DummyPredef39:
	ret
Remove all address comments 2018-06-24 07:09:41 -07:00			`DisplayCaughtContestMonStats:`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`call ClearBGPalettes`
			`call ClearTileMap`
			`call ClearSprites`
			`call LoadFontsBattleExtra`

Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld hl, wOptions`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`ld a, [hl]`
			`push af`
Use constants for bit/set/res more 2018-04-05 08:44:02 -07:00			`set NO_TEXT_SCROLL, [hl]`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00
			`hlcoord 0, 0`
			`ld b, 4`
			`ld c, 13`
TextBox -> Textbox Homogenizing names. 2019-04-08 05:15:10 -07:00			`call Textbox`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00
			`hlcoord 0, 6`
			`ld b, 4`
			`ld c, 13`
TextBox -> Textbox Homogenizing names. 2019-04-08 05:15:10 -07:00			`call Textbox`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00
			`hlcoord 2, 0`
			`ld de, .Stock`
			`call PlaceString`

			`hlcoord 2, 6`
			`ld de, .This`
			`call PlaceString`

			`hlcoord 5, 4`
			`ld de, .Health`
			`call PlaceString`

			`hlcoord 5, 10`
			`ld de, .Health`
			`call PlaceString`

			`ld a, [wContestMon]`
Add meaningful aliases for wd265 Introduce MONICON_* constants Introduce BATTLEPLAYERACTION_* constants 2018-07-28 16:27:34 -07:00			`ld [wNamedObjectIndexBuffer], 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 de, wStringBuffer1`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`hlcoord 1, 2`
			`call PlaceString`

			`ld h, b`
			`ld l, c`
			`ld a, [wContestMonLevel]`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld [wTempMonLevel], a`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`call PrintLevel`

Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld de, wEnemyMonNick`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`hlcoord 1, 8`
			`call PlaceString`

			`ld h, b`
			`ld l, c`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wEnemyMonLevel]`
			`ld [wTempMonLevel], a`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`call PrintLevel`

			`hlcoord 11, 4`
			`ld de, wContestMonMaxHP`
			`lb bc, 2, 3`
			`call PrintNum`

			`hlcoord 11, 10`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld de, wEnemyMonMaxHP`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`call PrintNum`

			`ld hl, SwitchMonText`
			`call PrintText`

			`pop af`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld [wOptions], a`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00
			`call WaitBGMap`
			`ld b, SCGB_DIPLOMA`
			`call GetSGBLayout`
			`call SetPalettes`
			`ret`

			`.Health:`
			`db "HEALTH@"`
			`.Stock:`
Use Japanese charmap definitions in strings 2018-01-18 17:40:32 -08:00			`db " STOCK <PKMN> @"`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`.This:`
Use Japanese charmap definitions in strings 2018-01-18 17:40:32 -08:00			`db " THIS <PKMN> @"`
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			`SwitchMonText:`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`; Switch #MON?`
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_0x1c10cf`
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			`DisplayAlreadyCaughtText:`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`call GetPokemonName`
			`ld hl, .AlreadyCaughtText`
			`jp PrintText`

Remove even more address comments That should be all of them this time 2018-06-24 17:10:37 -07:00			`.AlreadyCaughtText:`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`; You already caught a @ .`
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_0x1c10dd`
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
Clean up Predef function names 2018-01-02 06:05:14 -08:00			`DummyPredef2F:`
			`DummyPredef38:`
Remove all address comments 2018-06-24 07:09:41 -07:00			`DummyPredef39:`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`ret`