Pull map scripts out of main.asm

1 files changed, 210 insertions, 0 deletions

diff --git a/scripts/vermiliondock.asm b/scripts/vermiliondock.asm
new file mode 100755
index 00000000..2e07e408
--- /dev/null
+++ b/scripts/vermiliondock.asm
@@ -0,0 +1,210 @@
+VermilionDockScript: ; 1db52 (7:5b52)
+	call EnableAutoTextBoxDrawing
+	ld hl, $d803
+	bit 4, [hl]
+	jr nz, .asm_1db8d ; 0x1db5a $31
+	bit 0, [hl]
+	ret z
+	ld a, [$d42f]
+	cp $1
+	ret nz
+	bit 2, [hl]
+	jp z, VermilionDock_1db9b
+	set 4, [hl]
+	call Delay3
+	ld hl, $d730
+	set 7, [hl]
+	ld hl, $ccd3
+	ld a, $40
+	ld [hli], a
+	ld [hli], a
+	ld [hl], a
+	ld a, $3
+	ld [$cd38], a
+	xor a
+	ld [$c206], a
+	ld [$cd3b], a
+	dec a
+	ld [wJoypadForbiddenButtonsMask], a
+	ret
+.asm_1db8d
+	bit 5, [hl]
+	ret nz
+	ld a, [$cd38]
+	and a
+	ret nz
+	ld [wJoypadForbiddenButtonsMask], a
+	set 5, [hl]
+	ret
+
+VermilionDock_1db9b: ; 1db9b (7:5b9b)
+	set 2, [hl]
+	ld a, $ff
+	ld [wJoypadForbiddenButtonsMask], a
+	ld [$c0ee], a
+	call PlaySound
+	ld c, BANK(Music_Surfing)
+	ld a, MUSIC_SURFING
+	call PlayMusic
+	ld b, BANK(LoadSmokeTileFourTimes)
+	ld hl, LoadSmokeTileFourTimes
+	call Bankswitch
+	xor a
+	ld [$c102], a
+	ld c, $78
+	call DelayFrames
+	ld b, $9c
+	call CopyScreenTileBufferToVRAM
+	FuncCoord 0, 10 ; $c468
+	ld hl, Coord
+	ld bc, $0078
+	ld a, $14
+	call FillMemory
+	ld a, $1
+	ld [$ffba], a
+	call Delay3
+	xor a
+	ld [$ffba], a
+	ld [$cd3d], a
+	ld [$ff49], a
+	ld a, $58
+	ld [$cd3e], a
+	ld hl, $d526
+	ld c, [hl]
+	inc hl
+	ld b, [hl]
+	push bc
+	push hl
+	ld a, (SFX_02_54 - SFX_Headers_02) / 3
+	call PlaySoundWaitForCurrent
+	ld a, $ff
+	ld [$cfcb], a
+	ld d, $0
+	ld e, $8
+.asm_1dbfa
+	ld hl, $0002
+	add hl, bc
+	ld a, l
+	ld [$d526], a
+	ld a, h
+	ld [$d527], a
+	push hl
+	push de
+	call ScheduleEastColumnRedraw
+	call VermilionDock_1dc59
+	pop de
+	ld b, $10
+.asm_1dc11
+	call VermilionDock_1dc42
+	ld c, $8
+.asm_1dc16
+	call VermilionDock_1dc7c
+	dec c
+	jr nz, .asm_1dc16 ; 0x1dc1a $fa
+	inc d
+	dec b
+	jr nz, .asm_1dc11 ; 0x1dc1e $f1
+	pop bc
+	dec e
+	jr nz, .asm_1dbfa ; 0x1dc22 $d6
+	xor a
+	ld [$ff4a], a
+	ld [$ffb0], a
+	call VermilionDock_1dc94
+	ld a, $90
+	ld [$ffb0], a
+	ld a, $1
+	ld [$cfcb], a
+	pop hl
+	pop bc
+	ld [hl], b
+	dec hl
+	ld [hl], c
+	call LoadPlayerSpriteGraphics
+	ld hl, $d3ae
+	dec [hl]
+	ret
+
+VermilionDock_1dc42: ; 1dc42 (7:5c42)
+	push bc
+	push de
+	ld hl, $c311
+	ld a, [$cd3d]
+	swap a
+	ld c, a
+	ld de, $0004
+.asm_1dc50
+	inc [hl]
+	inc [hl]
+	add hl, de
+	dec c
+	jr nz, .asm_1dc50 ; 0x1dc54 $fa
+	pop de
+	pop bc
+	ret
+
+VermilionDock_1dc59: ; 1dc59 (7:5c59)
+	ld a, [$cd3e]
+	sub $10
+	ld [$cd3e], a
+	ld c, a
+	ld b, $64
+	ld a, [$cd3d]
+	inc a
+	ld [$cd3d], a
+	ld a, $1
+	ld de, VermilionDockOAMBlock
+	call WriteOAMBlock
+	ret
+
+VermilionDockOAMBlock: ; 1dc74 (7:5c74)
+	db $fc, $10
+	db $fd, $10
+	db $fe, $10
+	db $ff, $10
+
+VermilionDock_1dc7c: ; 1dc7c (7:5c7c)
+	ld h, d
+	ld l, $50
+	call .asm_1dc86
+	ld h, $0
+	ld l, $80
+.asm_1dc86
+	ld a, [$ff44]
+	cp l
+	jr nz, .asm_1dc86 ; 0x1dc89 $fb
+	ld a, h
+	ld [$ff43], a
+.asm_1dc8e
+	ld a, [$ff44]
+	cp h
+	jr z, .asm_1dc8e ; 0x1dc91 $fb
+	ret
+
+VermilionDock_1dc94: ; 1dc94 (7:5c94)
+	ld hl, $cc5b
+	ld bc, $00b4
+	ld a, $14
+	call FillMemory
+	ld hl, $9940
+	ld de, $cc5b
+	ld bc, $000c
+	call CopyVideoData
+	ld hl, $c754
+	ld a, $d
+	ld [hli], a
+	ld [hli], a
+	ld [hli], a
+	ld [hl], a
+	ld a, (SFX_02_54 - SFX_Headers_02) / 3
+	call PlaySound
+	ld c, $78
+	call DelayFrames
+	ret
+
+VermilionDockTextPointers: ; 1dcbf (7:5cbf)
+	dw VermilionDockText1
+
+VermilionDockText1: ; 1dcc1 (7:5cc1)
+	TX_FAR _VermilionDockText1
+	db "@"