Pull map scripts out of main.asm

1 files changed, 148 insertions, 0 deletions

diff --git a/scripts/seafoamislands4.asm b/scripts/seafoamislands4.asm
new file mode 100755
index 00000000..c7be0f44
--- /dev/null
+++ b/scripts/seafoamislands4.asm
@@ -0,0 +1,148 @@
+SeafoamIslands4Script: ; 4658d (11:658d)
+	call EnableAutoTextBoxDrawing
+	ld hl, wFlags_0xcd60
+	bit 7, [hl]
+	res 7, [hl]
+	jr z, .asm_465dc ; 0x46597 $43
+	ld hl, Seafoam4HolesCoords
+	call CheckBoulderCoords
+	ret nc
+	ld hl, $d881
+	ld a, [$cd3d]
+	cp $1
+	jr nz, .asm_465b8 ; 0x465a8 $e
+	set 0, [hl]
+	ld a, $dd
+	ld [$d079], a
+	ld a, $e1
+	ld [$d07a], a
+	jr .asm_465c4 ; 0x465b6 $c
+.asm_465b8
+	set 1, [hl]
+	ld a, $de
+	ld [$d079], a
+	ld a, $e2
+	ld [$d07a], a
+.asm_465c4
+	ld a, [$d079]
+	ld [$cc4d], a
+	ld a, $11
+	call Predef
+	ld a, [$d07a]
+	ld [$cc4d], a
+	ld a, $15
+	call Predef
+	jr .asm_465ed ; 0x465da $11
+.asm_465dc
+	ld a, $a2
+	ld [$d71d], a
+	ld hl, Seafoam4HolesCoords
+	call Func_46981
+	ld a, [$d732]
+	bit 4, a
+	ret nz
+.asm_465ed
+	ld hl, SeafoamIslands4ScriptPointers
+	ld a, [W_SEAFOAMISLANDS4CURSCRIPT]
+	jp CallFunctionInTable
+
+Seafoam4HolesCoords: ; 465f6 (11:65f6)
+	db $10,$03
+	db $10,$06
+	db $ff
+
+SeafoamIslands4ScriptPointers: ; 465fb (11:65fb)
+	dw SeafoamIslands4Script0
+	dw SeafoamIslands4Script1
+	dw SeafoamIslands4Script2
+	dw SeafoamIslands4Script3
+
+SeafoamIslands4Script0: ; 46603 (11:6603)
+	ld a, [$d880]
+	and $3
+	cp $3
+	ret z
+	ld a, [W_YCOORD]
+	cp $8
+	ret nz
+	ld a, [W_XCOORD]
+	cp $f
+	ret nz
+	ld hl, $ccd3
+	ld de, RLEMovement46632
+	call DecodeRLEList
+	dec a
+	ld [$cd38], a
+	call Func_3486
+	ld hl, W_FLAGS_D733
+	set 2, [hl]
+	ld a, $1
+	ld [W_SEAFOAMISLANDS4CURSCRIPT], a
+	ret
+
+RLEMovement46632: ; 46632 (11:6632)
+	db $80,6
+	db $10,5
+	db $80,3
+	db $ff
+
+SeafoamIslands4Script1: ; 46639 (11:6639)
+	ld a, [$cd38]
+	and a
+	ret nz
+	ld a, $0
+	ld [W_SEAFOAMISLANDS4CURSCRIPT], a
+	ret
+
+SeafoamIslands4Script2: ; 46644 (11:6644)
+	ld a, [$d880]
+	and $3
+	cp $3
+	ret z
+	ld a, [W_XCOORD]
+	cp $12
+	jr z, .asm_4665e
+	cp $13
+	ld a, $0
+	jr nz, .asm_4667b
+	ld de, RLEData_4667f
+	jr .asm_46661
+.asm_4665e
+	ld de, RLEData_46688
+.asm_46661
+	ld hl, $ccd3
+	call DecodeRLEList
+	dec a
+	ld [$cd38], a
+	xor a
+	ld [$c206], a
+	ld hl, $d730
+	set 7, [hl]
+	ld hl, W_FLAGS_D733
+	set 2, [hl]
+	ld a, $3
+.asm_4667b
+	ld [W_SEAFOAMISLANDS4CURSCRIPT], a
+	ret
+
+RLEData_4667f: ; 4667f (11:667f)
+	db $80,$06,$10,$02,$80,$04,$20,$01,$FF
+
+RLEData_46688: ; 46688 (11:6688)
+	db $80,$06,$10,$02,$80,$04,$FF
+
+SeafoamIslands4Script3: ; 4668f (11:668f)
+	ld a, [$cd38]
+	and a
+	ret nz
+	ld a, $0
+	ld [W_SEAFOAMISLANDS4CURSCRIPT], a
+	ret
+
+SeafoamIslands4TextPointers: ; 4669a (11:669a)
+	dw BoulderText
+	dw BoulderText
+	dw BoulderText
+	dw BoulderText
+	dw BoulderText
+	dw BoulderText