1 files changed, 82 insertions, 0 deletions
diff --git a/home/mon_stats.asm b/home/mon_stats.asm
new file mode 100644
index 0000000..e84e552
--- /dev/null
+++ b/home/mon_stats.asm
@@ -0,0 +1,82 @@
+include "constants.asm"
+
+if DEBUG
+SECTION "Mon Stats", ROM0 [$394b]
+else
+SECTION "Mon Stats", ROM0 [$390f]
+endc
+
+DrawBattleHPBar::
+	push hl
+	push de
+	push bc
+	ld a, $60
+	ld [hli], a
+	ld a, $61
+	ld [hli], a
+	push hl
+	ld a, $62
+.asm_3957: ; 00:3957
+	ld [hli], a
+	dec d
+	jr nz, .asm_3957
+	ld a, $6b
+	add b
+	ld [hl], a
+	pop hl
+	ld a, e
+	and a
+	jr nz, .asm_396a
+	ld a, c
+	and a
+	jr z, .asm_397d
+	ld e, $1
+.asm_396a: ; 00:396a
+	ld a, e
+	sub $8
+	jr c, .asm_3979
+	ld e, a
+	ld a, $6a
+	ld [hli], a
+	ld a, e
+	and a
+	jr z, .asm_397d
+	jr .asm_396a
+
+.asm_3979: ; 00:3979
+	ld a, $62
+	add e
+	ld [hl], a
+.asm_397d: ; 00:397d
+	pop bc
+	pop de
+	pop hl
+	ret
+
+PrepMonFrontpic::
+	ld a, $1
+	ld [wSpriteFlipped], a
+_PrepMonFrontpic::
+	ld a, [wMonDexIndex]
+	and a
+	jr z, .asm_39a8
+	cp 252
+	jr nc, .asm_39a8
+	push hl
+	ld de, vFrontPic
+	call LoadMonFrontSprite
+	pop hl
+	xor a
+	ldh [hGraphicStartTile], a
+	lb bc, 7, 7
+	predef PlaceGraphic
+	xor a
+	ld [wSpriteFlipped], a
+	ret
+
+.asm_39a8: ; 00:39a8
+	xor a
+	ld [wSpriteFlipped], a
+	inc a
+	ld [wMonDexIndex], a
+	ret