Add display_stats.asm

2 files changed, 106 insertions, 7 deletions

diff --git a/engine/events/bug_contest/display_stats.asm b/engine/events/bug_contest/display_stats.asm
new file mode 100755
index 00000000..bfa6d90b
--- /dev/null
+++ b/engine/events/bug_contest/display_stats.asm
@@ -0,0 +1,104 @@
+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 <PK><MN> @"
+.This:
+	db " THIS <PK><MN> @"
+
+ContestAskSwitchText:
+	text_far _ContestAskSwitchText
+	text_end
+
+DisplayAlreadyCaughtText:
+	call GetPokemonName
+	ld hl, .ContestAlreadyCaughtText
+	jp PrintText
+
+.ContestAlreadyCaughtText:
+	text_far _ContestAlreadyCaughtText
+	text_end
+
+DummyPredef38:
+DummyPredef39:
+	ret
diff --git a/main.asm b/main.asm
index 51170d3f..cf5e0f3a 100644
--- a/main.asm
+++ b/main.asm
@@ -297,13 +297,8 @@ INCBIN "gfx/credits/theend.2bpp"
 
 SECTION "Move Animations", ROMX
 
-DisplayCaughtContestMonStats::
-	dr $cc000, $cc0c8
-DisplayAlreadyCaughtText::
-	dr $cc0c8, $cc0d6
-DummyPredef38::
-DummyPredef39::
-	ret
+INCLUDE "engine/events/bug_contest/display_stats.asm"
+
 PlayBattleAnim::
 	dr $cc0d7, $cc283
 BattleAnimCommands::