From 10f9559eab8c93b94abb8ae8d1083704ad4e169a Mon Sep 17 00:00:00 2001
From: dannye <33dannye@gmail.com>
Date: Wed, 20 May 2020 19:40:33 -0500
Subject: Sync with pokered

---
 scripts/SeafoamIslandsB1F.asm | 46 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)
 create mode 100755 scripts/SeafoamIslandsB1F.asm

(limited to 'scripts/SeafoamIslandsB1F.asm')

diff --git a/scripts/SeafoamIslandsB1F.asm b/scripts/SeafoamIslandsB1F.asm
new file mode 100755
index 00000000..a4c5767b
--- /dev/null
+++ b/scripts/SeafoamIslandsB1F.asm
@@ -0,0 +1,46 @@
+SeafoamIslandsB1F_Script:
+	call EnableAutoTextBoxDrawing
+	ld hl, wFlags_0xcd60
+	bit 7, [hl]
+	res 7, [hl]
+	jr z, .asm_46362
+	ld hl, Seafoam2HolesCoords
+	call CheckBoulderCoords
+	ret nc
+	EventFlagAddress hl, EVENT_SEAFOAM2_BOULDER1_DOWN_HOLE
+	ld a, [wCoordIndex]
+	cp $1
+	jr nz, .asm_46340
+	SetEventReuseHL EVENT_SEAFOAM2_BOULDER1_DOWN_HOLE
+	ld a, HS_SEAFOAM_ISLANDS_B1F_BOULDER_1
+	ld [wObjectToHide], a
+	ld a, HS_SEAFOAM_ISLANDS_B2F_BOULDER_1
+	ld [wObjectToShow], a
+	jr .asm_4634c
+.asm_46340
+	SetEventAfterBranchReuseHL EVENT_SEAFOAM2_BOULDER2_DOWN_HOLE, EVENT_SEAFOAM2_BOULDER1_DOWN_HOLE
+	ld a, HS_SEAFOAM_ISLANDS_B1F_BOULDER_2
+	ld [wObjectToHide], a
+	ld a, HS_SEAFOAM_ISLANDS_B2F_BOULDER_2
+	ld [wObjectToShow], a
+.asm_4634c
+	ld a, [wObjectToHide]
+	ld [wMissableObjectIndex], a
+	predef HideObject
+	ld a, [wObjectToShow]
+	ld [wMissableObjectIndex], a
+	predef_jump ShowObject
+.asm_46362
+	ld a, SEAFOAM_ISLANDS_B2F
+	ld [wDungeonWarpDestinationMap], a
+	ld hl, Seafoam2HolesCoords
+	jp IsPlayerOnDungeonWarp
+
+Seafoam2HolesCoords:
+	db $06,$12
+	db $06,$17
+	db $ff
+
+SeafoamIslandsB1F_TextPointers:
+	dw BoulderText
+	dw BoulderText
-- 
cgit v1.3.1-sl0p