Pull map scripts out of main.asm

1 files changed, 87 insertions, 0 deletions

diff --git a/scripts/cinnabarisland.asm b/scripts/cinnabarisland.asm
new file mode 100755
index 00000000..ab77926a
--- /dev/null
+++ b/scripts/cinnabarisland.asm
@@ -0,0 +1,87 @@
+CinnabarIslandScript: ; 1ca19 (7:4a19)
+	call EnableAutoTextBoxDrawing
+	ld hl, $d126
+	set 5, [hl]
+	ld hl, $d796
+	res 0, [hl]
+	ld hl, $d7a3
+	res 1, [hl]
+	ld hl, CinnabarIslandScriptPointers
+	ld a, [W_CINNABARISLANDCURSCRIPT]
+	jp CallFunctionInTable
+
+CinnabarIslandScriptPointers: ; 1ca34 (7:4a34)
+	dw CinnabarIslandScript0
+	dw CinnabarIslandScript1
+
+CinnabarIslandScript0: ; 1ca38 (7:4a38)
+	ld b, SECRET_KEY
+	call IsItemInBag
+	ret nz
+	ld a, [W_YCOORD]
+	cp $4
+	ret nz
+	ld a, [W_XCOORD]
+	cp $12
+	ret nz
+	ld a, $8
+	ld [$d528], a
+	ld a, $8
+	ld [$ff8c], a
+	call DisplayTextID
+	xor a
+	ld [H_CURRENTPRESSEDBUTTONS], a
+	ld a, $1
+	ld [$cd38], a
+	ld a, $80
+	ld [$ccd3], a
+	call Func_3486
+	xor a
+	ld [$c109], a
+	ld [wJoypadForbiddenButtonsMask], a
+	ld a, $1
+	ld [W_CINNABARISLANDCURSCRIPT], a
+	ret
+
+CinnabarIslandScript1: ; 1ca73 (7:4a73)
+	ld a, [$cd38]
+	and a
+	ret nz
+	call Delay3
+	ld a, $0
+	ld [W_CINNABARISLANDCURSCRIPT], a
+	ret
+
+CinnabarIslandTextPointers: ; 1ca81 (7:4a81)
+	dw CinnabarIslandText1
+	dw CinnabarIslandText2
+	dw CinnabarIslandText3
+	dw MartSignText
+	dw PokeCenterSignText
+	dw CinnabarIslandText6
+	dw CinnabarIslandText7
+	dw CinnabarIslandText8
+
+CinnabarIslandText8: ; 1ca91 (7:4a91)
+	TX_FAR _CinnabarIslandText8
+	db "@"
+
+CinnabarIslandText1: ; 1ca96 (7:4a96)
+	TX_FAR _CinnabarIslandText1
+	db "@"
+
+CinnabarIslandText2: ; 1ca9b (7:4a9b)
+	TX_FAR _CinnabarIslandText2
+	db "@"
+
+CinnabarIslandText3: ; 1caa0 (7:4aa0)
+	TX_FAR _CinnabarIslandText3
+	db "@"
+
+CinnabarIslandText6: ; 1caa5 (7:4aa5)
+	TX_FAR _CinnabarIslandText6
+	db "@"
+
+CinnabarIslandText7: ; 1caaa (7:4aaa)
+	TX_FAR _CinnabarIslandText7
+	db "@"