First Commit

Upload literally everything from the pokecrystal16 expand-move-ID branch

engine/events/bug_contest/display_stats.asm

@@ -0,0 +1,105 @@
+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 [wNamedObjectIndex], 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, wEnemyMonNickname
+	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