summaryrefslogtreecommitdiff
path: root/scripts/vermiliondock.asm
diff options
context:
space:
mode:
authorRangi <remy.oukaour+rangi42@gmail.com>2019-01-01 15:06:23 -0500
committerRangi <remy.oukaour+rangi42@gmail.com>2019-01-01 23:33:10 -0500
commitc7796024590fec48ac79756793c1a6e3b54daf8f (patch)
tree0d61caa7ebe429995a61e800d1d78c3a82aec886 /scripts/vermiliondock.asm
parent90430e6dee9e207dc0b618d07566f83617343f60 (diff)
Rename map files, labels, and constants to be consistent and work with Polished Map
Diffstat (limited to 'scripts/vermiliondock.asm')
-rwxr-xr-xscripts/vermiliondock.asm215
1 files changed, 0 insertions, 215 deletions
diff --git a/scripts/vermiliondock.asm b/scripts/vermiliondock.asm
deleted file mode 100755
index 5b5d520b..00000000
--- a/scripts/vermiliondock.asm
+++ /dev/null
@@ -1,215 +0,0 @@
-VermilionDockScript:
- call EnableAutoTextBoxDrawing
- CheckEventHL EVENT_STARTED_WALKING_OUT_OF_DOCK
- jr nz, .asm_1db8d
- CheckEventReuseHL EVENT_GOT_HM01
- ret z
- ld a, [wDestinationWarpID]
- cp $1
- ret nz
- CheckEventReuseHL EVENT_SS_ANNE_LEFT
- jp z, VermilionDock_1db9b
- SetEventReuseHL EVENT_STARTED_WALKING_OUT_OF_DOCK
- call Delay3
- ld hl, wd730
- set 7, [hl]
- ld hl, wSimulatedJoypadStatesEnd
- ld a, D_UP
- ld [hli], a
- ld [hli], a
- ld [hl], a
- ld a, $3
- ld [wSimulatedJoypadStatesIndex], a
- xor a
- ld [wSpriteStateData2 + $06], a
- ld [wOverrideSimulatedJoypadStatesMask], a
- dec a
- ld [wJoyIgnore], a
- ret
-.asm_1db8d
- CheckEventAfterBranchReuseHL EVENT_WALKED_OUT_OF_DOCK, EVENT_STARTED_WALKING_OUT_OF_DOCK
- ret nz
- ld a, [wSimulatedJoypadStatesIndex]
- and a
- ret nz
- ld [wJoyIgnore], a
- SetEventReuseHL EVENT_WALKED_OUT_OF_DOCK
- ret
-
-VermilionDock_1db9b:
- SetEventForceReuseHL EVENT_SS_ANNE_LEFT
- ld a, $ff
- ld [wJoyIgnore], a
- ld [wNewSoundID], a
- call PlaySound
- ld c, BANK(Music_Surfing)
- ld a, MUSIC_SURFING
- call PlayMusic
- callba LoadSmokeTileFourTimes
- xor a
- ld [wSpriteStateData1 + 2], a
- ld c, 120
- call DelayFrames
- ld b, $9c
- call CopyScreenTileBufferToVRAM
- coord hl, 0, 10
- ld bc, SCREEN_WIDTH * 6
- ld a, $14 ; water tile
- call FillMemory
- ld a, 1
- ld [H_AUTOBGTRANSFERENABLED], a
- call Delay3
- xor a
- ld [H_AUTOBGTRANSFERENABLED], a
- ld [wSSAnneSmokeDriftAmount], a
- ld [rOBP1], a
- ld a, 88
- ld [wSSAnneSmokeX], a
- ld hl, wMapViewVRAMPointer
- ld c, [hl]
- inc hl
- ld b, [hl]
- push bc
- push hl
- ld a, SFX_SS_ANNE_HORN
- call PlaySoundWaitForCurrent
- ld a, $ff
- ld [wUpdateSpritesEnabled], a
- ld d, $0
- ld e, $8
-.asm_1dbfa
- ld hl, $0002
- add hl, bc
- ld a, l
- ld [wMapViewVRAMPointer], a
- ld a, h
- ld [wMapViewVRAMPointer + 1], a
- push hl
- push de
- call ScheduleEastColumnRedraw
- call VermilionDock_EmitSmokePuff
- pop de
- ld b, $10
-.asm_1dc11
- call VermilionDock_AnimSmokePuffDriftRight
- ld c, $8
-.asm_1dc16
- call VermilionDock_1dc7c
- dec c
- jr nz, .asm_1dc16
- inc d
- dec b
- jr nz, .asm_1dc11
- pop bc
- dec e
- jr nz, .asm_1dbfa
- xor a
- ld [rWY], a
- ld [hWY], a
- call VermilionDock_EraseSSAnne
- ld a, $90
- ld [hWY], a
- ld a, $1
- ld [wUpdateSpritesEnabled], a
- pop hl
- pop bc
- ld [hl], b
- dec hl
- ld [hl], c
- call LoadPlayerSpriteGraphics
- ld hl, wNumberOfWarps
- dec [hl]
- ret
-
-VermilionDock_AnimSmokePuffDriftRight:
- push bc
- push de
- ld hl, wOAMBuffer + $11
- ld a, [wSSAnneSmokeDriftAmount]
- swap a
- ld c, a
- ld de, 4
-.loop
- inc [hl]
- inc [hl]
- add hl, de
- dec c
- jr nz, .loop
- pop de
- pop bc
- ret
-
-VermilionDock_EmitSmokePuff:
-; new smoke puff above the S.S. Anne's front smokestack
- ld a, [wSSAnneSmokeX]
- sub 16
- ld [wSSAnneSmokeX], a
- ld c, a
- ld b, 100 ; Y
- ld a, [wSSAnneSmokeDriftAmount]
- inc a
- ld [wSSAnneSmokeDriftAmount], a
- ld a, $1
- ld de, VermilionDockOAMBlock
- call WriteOAMBlock
- ret
-
-VermilionDockOAMBlock:
- db $fc, $10
- db $fd, $10
- db $fe, $10
- db $ff, $10
-
-VermilionDock_1dc7c:
- ld h, d
- ld l, $50
- call .asm_1dc86
- ld h, $0
- ld l, $80
-.asm_1dc86
- ld a, [rLY]
- cp l
- jr nz, .asm_1dc86
- ld a, h
- ld [rSCX], a
-.asm_1dc8e
- ld a, [rLY]
- cp h
- jr z, .asm_1dc8e
- ret
-
-VermilionDock_EraseSSAnne:
-; Fill the area the S.S. Anne occupies in BG map 0 with water tiles.
- ld hl, wVermilionDockTileMapBuffer
- ld bc, (5 * BG_MAP_WIDTH) + SCREEN_WIDTH
- ld a, $14 ; water tile
- call FillMemory
- ld hl, vBGMap0 + 10 * BG_MAP_WIDTH
- ld de, wVermilionDockTileMapBuffer
- ld bc, (6 * BG_MAP_WIDTH) / 16
- call CopyVideoData
-
-; Replace the blocks of the lower half of the ship with water blocks. This
-; leaves the upper half alone, but that doesn't matter because replacing any of
-; the blocks is unnecessary because the blocks the ship occupies are south of
-; the player and won't be redrawn when the player automatically walks north and
-; exits the map. This code could be removed without affecting anything.
- overworldMapCoord hl, 5, 2, VERMILION_DOCK_WIDTH
- ld a, $d ; water block
- ld [hli], a
- ld [hli], a
- ld [hli], a
- ld [hl], a
-
- ld a, SFX_SS_ANNE_HORN
- call PlaySound
- ld c, 120
- call DelayFrames
- ret
-
-VermilionDockTextPointers:
- dw VermilionDockText1
-
-VermilionDockText1:
- TX_FAR _VermilionDockText1
- db "@"