summaryrefslogtreecommitdiff
path: root/scripts/seafoamislands4.asm
diff options
context:
space:
mode:
Diffstat (limited to 'scripts/seafoamislands4.asm')
-rwxr-xr-xscripts/seafoamislands4.asm149
1 files changed, 0 insertions, 149 deletions
diff --git a/scripts/seafoamislands4.asm b/scripts/seafoamislands4.asm
deleted file mode 100755
index 34873004..00000000
--- a/scripts/seafoamislands4.asm
+++ /dev/null
@@ -1,149 +0,0 @@
-SeafoamIslands4Script:
- call EnableAutoTextBoxDrawing
- ld hl, wFlags_0xcd60
- bit 7, [hl]
- res 7, [hl]
- jr z, .asm_465dc
- ld hl, Seafoam4HolesCoords
- call CheckBoulderCoords
- ret nc
- EventFlagAddress hl, EVENT_SEAFOAM4_BOULDER1_DOWN_HOLE
- ld a, [wCoordIndex]
- cp $1
- jr nz, .asm_465b8
- SetEventReuseHL EVENT_SEAFOAM4_BOULDER1_DOWN_HOLE
- ld a, HS_SEAFOAM_ISLANDS_4_BOULDER_1
- ld [wObjectToHide], a
- ld a, HS_SEAFOAM_ISLANDS_5_BOULDER_1
- ld [wObjectToShow], a
- jr .asm_465c4
-.asm_465b8
- SetEventAfterBranchReuseHL EVENT_SEAFOAM4_BOULDER2_DOWN_HOLE, EVENT_SEAFOAM4_BOULDER1_DOWN_HOLE
- ld a, HS_SEAFOAM_ISLANDS_4_BOULDER_2
- ld [wObjectToHide], a
- ld a, HS_SEAFOAM_ISLANDS_5_BOULDER_2
- ld [wObjectToShow], a
-.asm_465c4
- ld a, [wObjectToHide]
- ld [wMissableObjectIndex], a
- predef HideObject
- ld a, [wObjectToShow]
- ld [wMissableObjectIndex], a
- predef ShowObject
- jr .asm_465ed
-.asm_465dc
- ld a, $a2
- ld [wDungeonWarpDestinationMap], a
- ld hl, Seafoam4HolesCoords
- call IsPlayerOnDungeonWarp
- ld a, [wd732]
- bit 4, a
- ret nz
-.asm_465ed
- ld hl, SeafoamIslands4ScriptPointers
- ld a, [wSeafoamIslands4CurScript]
- jp CallFunctionInTable
-
-Seafoam4HolesCoords:
- db $10,$03
- db $10,$06
- db $ff
-
-SeafoamIslands4ScriptPointers:
- dw SeafoamIslands4Script0
- dw SeafoamIslands4Script1
- dw SeafoamIslands4Script2
- dw SeafoamIslands4Script3
-
-SeafoamIslands4Script0:
- CheckBothEventsSet EVENT_SEAFOAM3_BOULDER1_DOWN_HOLE, EVENT_SEAFOAM3_BOULDER2_DOWN_HOLE
- ret z
- ld a, [wYCoord]
- cp $8
- ret nz
- ld a, [wXCoord]
- cp $f
- ret nz
- ld hl, wSimulatedJoypadStatesEnd
- ld de, RLEMovement46632
- call DecodeRLEList
- dec a
- ld [wSimulatedJoypadStatesIndex], a
- call StartSimulatingJoypadStates
- ld hl, wFlags_D733
- set 2, [hl]
- ld a, $1
- ld [wSeafoamIslands4CurScript], a
- ret
-
-RLEMovement46632:
- db D_DOWN,6
- db D_RIGHT,5
- db D_DOWN,3
- db $ff
-
-SeafoamIslands4Script1:
- ld a, [wSimulatedJoypadStatesIndex]
- and a
- ret nz
- ld a, $0
- ld [wSeafoamIslands4CurScript], a
- ret
-
-SeafoamIslands4Script2:
- CheckBothEventsSet EVENT_SEAFOAM3_BOULDER1_DOWN_HOLE, EVENT_SEAFOAM3_BOULDER2_DOWN_HOLE
- ret z
- ld a, [wXCoord]
- 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, wSimulatedJoypadStatesEnd
- call DecodeRLEList
- dec a
- ld [wSimulatedJoypadStatesIndex], a
- xor a
- ld [wSpriteStateData2 + $06], a
- ld hl, wd730
- set 7, [hl]
- ld hl, wFlags_D733
- set 2, [hl]
- ld a, $3
-.asm_4667b
- ld [wSeafoamIslands4CurScript], a
- ret
-
-RLEData_4667f:
- db D_DOWN,$06
- db D_RIGHT,$02
- db D_DOWN,$04
- db D_LEFT,$01
- db $FF
-
-RLEData_46688:
- db D_DOWN,$06
- db D_RIGHT,$02
- db D_DOWN,$04
- db $FF
-
-SeafoamIslands4Script3:
- ld a, [wSimulatedJoypadStatesIndex]
- and a
- ret nz
- ld a, $0
- ld [wSeafoamIslands4CurScript], a
- ret
-
-SeafoamIslands4TextPointers:
- dw BoulderText
- dw BoulderText
- dw BoulderText
- dw BoulderText
- dw BoulderText
- dw BoulderText