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, ContestAskSwitchText
	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>  @"

ContestAskSwitchText:
	text_far _ContestAskSwitchText
	text_end

DisplayAlreadyCaughtText:
	call GetPokemonName
	ld hl, .ContestAlreadyCaughtText
	jp PrintText

.ContestAlreadyCaughtText:
	text_far _ContestAlreadyCaughtText
	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`

#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, ContestAskSwitchText`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`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
#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 15:24:17 -07:00			`ContestAskSwitchText:`
			`text_far _ContestAskSwitchText`
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`
#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, .ContestAlreadyCaughtText`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`jp PrintText`

#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 15:24:17 -07:00			`.ContestAlreadyCaughtText:`
			`text_far _ContestAlreadyCaughtText`
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`