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/items/tm_prices.asm | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100755 engine/items/tm_prices.asm

(limited to 'engine/items/tm_prices.asm')

diff --git a/engine/items/tm_prices.asm b/engine/items/tm_prices.asm
new file mode 100755
index 00000000..cf74ade2
--- /dev/null
+++ b/engine/items/tm_prices.asm
@@ -0,0 +1,23 @@
+GetMachinePrice: ; 7bf86 (1e:7f86)
+	ld a, [$cf91]
+	sub TM_01
+	ret c
+	ld d, a
+	ld hl, TechnicalMachinePrices ; $7fa7
+	srl a
+	ld c, a
+	ld b, 0
+	add hl, bc
+	ld a, [hl]
+	srl d
+	jr nc, .asm_7bf9d
+	swap a
+.asm_7bf9d
+	and $f0
+	ld [H_DOWNARROWBLINKCNT2], a ; $ff8c
+	xor a
+	ld [H_DOWNARROWBLINKCNT1], a ; $ff8b
+	ld [$ff8d], a
+	ret
+
+INCLUDE "data/tm_prices.asm"
-- 
cgit v1.3.1-sl0p