From b234b9eebf84e4966b7785469ee5f52d7b0539d6 Mon Sep 17 00:00:00 2001
From: luckytyphlosion <alan.rj.huang@gmail.com>
Date: Sun, 10 May 2015 15:02:46 -0400
Subject: Move play_time.asm to homebank.

---
 home/play_time.asm | 61 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 61 insertions(+)
 create mode 100644 home/play_time.asm

diff --git a/home/play_time.asm b/home/play_time.asm
new file mode 100644
index 00000000..74da9c59
--- /dev/null
+++ b/home/play_time.asm
@@ -0,0 +1,61 @@
+TrackPlayTime: ; 18dee (6:4dee)
+	call CountDownIgnoreInputBitReset
+	ld a, [wd732]
+	bit 0, a
+	ret z
+	ld a, [W_PLAYTIMEMINUTES]
+	and a
+	ret nz
+	ld a, [W_PLAYTIMEFRAMES]
+	inc a
+	ld [W_PLAYTIMEFRAMES], a
+	cp 60
+	ret nz
+	xor a
+	ld [W_PLAYTIMEFRAMES], a
+	ld a, [W_PLAYTIMESECONDS]
+	inc a
+	ld [W_PLAYTIMESECONDS], a
+	cp 60
+	ret nz
+	xor a
+	ld [W_PLAYTIMESECONDS], a
+	ld a, [W_PLAYTIMEMINUTES + 1]
+	inc a
+	ld [W_PLAYTIMEMINUTES + 1], a
+	cp 60
+	ret nz
+	xor a
+	ld [W_PLAYTIMEMINUTES + 1], a
+	ld a, [W_PLAYTIMEHOURS + 1]
+	inc a
+	ld [W_PLAYTIMEHOURS + 1], a
+	cp $ff
+	ret nz
+	ld a, $ff
+	ld [W_PLAYTIMEMINUTES], a
+	ret
+
+CountDownIgnoreInputBitReset: ; 18e36 (6:4e36)
+	ld a, [wIgnoreInputCounter]
+	and a
+	jr nz, .asm_18e40
+	ld a, $ff
+	jr .asm_18e41
+.asm_18e40
+	dec a
+.asm_18e41
+	ld [wIgnoreInputCounter], a
+	and a
+	ret nz
+	ld a, [wd730]
+	res 1, a
+	res 2, a
+	bit 5, a
+	res 5, a
+	ld [wd730], a
+	ret z
+	xor a
+	ld [hJoyPressed], a
+	ld [hJoyHeld], a
+	ret
-- 
cgit v1.3.1-sl0p