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

(limited to 'engine/predefs7.asm')

diff --git a/engine/predefs7.asm b/engine/predefs7.asm
new file mode 100755
index 00000000..a52a71cc
--- /dev/null
+++ b/engine/predefs7.asm
@@ -0,0 +1,48 @@
+Func_1c9c6: ; 1c9c6 (7:49c6)
+	ld hl, WhichFloorText
+	call PrintText
+	ld hl, $cf7b
+	ld a, l
+	ld [$cf8b], a
+	ld a, h
+	ld [$cf8c], a
+	ld a, [wListScrollOffset] ; $cc36
+	push af
+	xor a
+	ld [wCurrentMenuItem], a ; $cc26
+	ld [wListScrollOffset], a ; $cc36
+	ld [$cf93], a
+	ld a, $4
+	ld [wListMenuID], a ; $cf94
+	call DisplayListMenuID
+	pop bc
+	ld a, b
+	ld [wListScrollOffset], a ; $cc36
+	ret c
+	ld hl, $d126
+	set 7, [hl]
+	ld hl, $cc5b
+	ld a, [wWhichPokemon] ; $cf92
+	add a
+	ld d, $0
+	ld e, a
+	add hl, de
+	ld a, [hli]
+	ld b, a
+	ld a, [hl]
+	ld c, a
+	ld hl, $d3af
+	call Func_1ca0d
+
+Func_1ca0d: ; 1ca0d (7:4a0d)
+	inc hl
+	inc hl
+	ld a, b
+	ld [hli], a
+	ld a, c
+	ld [hli], a
+	ret
+
+WhichFloorText: ; 1ca14 (7:4a14)
+	TX_FAR _WhichFloorText
+	db "@"
-- 
cgit v1.3.1-sl0p