From 15427f532085846ab6b51719be687951a094cb6c Mon Sep 17 00:00:00 2001
From: "U-Fish-PC\\Daniel" <corrnondacqb@yahoo.com>
Date: Thu, 22 May 2014 18:13:20 -0400
Subject: Pull a lot of engine out of main.asm

---
 engine/battle/safari_zone.asm | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100755 engine/battle/safari_zone.asm

(limited to 'engine/battle/safari_zone.asm')

diff --git a/engine/battle/safari_zone.asm b/engine/battle/safari_zone.asm
new file mode 100755
index 00000000..426e391e
--- /dev/null
+++ b/engine/battle/safari_zone.asm
@@ -0,0 +1,36 @@
+PrintSafariZoneBattleText: ; 4277 (1:4277)
+	ld hl, $cce9
+	ld a, [hl]
+	and a
+	jr z, .asm_4284
+	dec [hl]
+	ld hl, SafariZoneEatingText
+	jr .asm_429f
+.asm_4284
+	dec hl
+	ld a, [hl]
+	and a
+	ret z
+	dec [hl]
+	ld hl, SafariZoneAngryText
+	jr nz, .asm_429f
+	push hl
+	ld a, [$cfe5]
+	ld [$d0b5], a
+	call GetMonHeader
+	ld a, [W_MONHCATCHRATE]
+	ld [$d007], a
+	pop hl
+.asm_429f
+	push hl
+	call LoadScreenTilesFromBuffer1
+	pop hl
+	jp PrintText
+
+SafariZoneEatingText: ; 42a7 (1:42a7)
+	TX_FAR _SafariZoneEatingText
+	db "@"
+
+SafariZoneAngryText: ; 42ac (1:42ac)
+	TX_FAR _SafariZoneAngryText
+	db "@"
-- 
cgit v1.2.3