Pull map scripts out of main.asm

1 files changed, 263 insertions, 0 deletions

diff --git a/scripts/vermilioncity.asm b/scripts/vermilioncity.asm
new file mode 100755
index 00000000..3f582dba
--- /dev/null
+++ b/scripts/vermilioncity.asm
@@ -0,0 +1,263 @@
+VermilionCityScript: ; 197a1 (6:57a1)
+	call EnableAutoTextBoxDrawing
+	ld hl, $d126
+	bit 6, [hl]
+	res 6, [hl]
+	push hl
+	call nz, VermilionCityScript_197cb
+	pop hl
+	bit 5, [hl]
+	res 5, [hl]
+	call nz, VermilionCityScript_197c0
+	ld hl, VermilionCityScriptPointers
+	ld a, [W_VERMILIONCITYCURSCRIPT]
+	jp CallFunctionInTable
+
+VermilionCityScript_197c0: ; 197c0 (6:57c0)
+	call GenRandom
+	ld a, [$ffd4]
+	and $e
+	ld [$d743], a
+	ret
+
+VermilionCityScript_197cb: ; 197cb (6:57cb)
+	ld hl, $d803
+	bit 2, [hl]
+	ret z
+	bit 3, [hl]
+	set 3, [hl]
+	ret nz
+	ld a, $2
+	ld [W_VERMILIONCITYCURSCRIPT], a
+	ret
+
+VermilionCityScriptPointers: ; 197dc (6:57dc)
+	dw VermilionCityScript0
+	dw VermilionCityScript1
+	dw VermilionCityScript2
+	dw VermilionCityScript3
+	dw VermilionCityScript4
+
+VermilionCityScript0: ; 197e6 (6:57e6)
+	ld a, [$c109]
+	and a
+	ret nz
+	ld hl, CoordsData_19823
+	call ArePlayerCoordsInArray
+	ret nc
+	xor a
+	ld [H_CURRENTPRESSEDBUTTONS], a
+	ld [$cf0d], a
+	ld a, $3
+	ld [$ff8c], a
+	call DisplayTextID
+	ld a, [$d803]
+	bit 2, a
+	jr nz, .asm_19810 ; 0x19804 $a
+	ld b, $3f
+	ld a, $1c
+	call Predef
+	ld a, b
+	and a
+	ret nz
+.asm_19810
+	ld a, $40
+	ld [$ccd3], a
+	ld a, $1
+	ld [$cd38], a
+	call Func_3486
+	ld a, $1
+	ld [W_VERMILIONCITYCURSCRIPT], a
+	ret
+
+CoordsData_19823: ; 19823 (6:5823)
+	db $1e,$12
+	db $ff
+
+VermilionCityScript4: ; 19826 (6:5826)
+	ld hl, CoordsData_19823
+	call ArePlayerCoordsInArray
+	ret c
+	ld a, $0
+	ld [W_VERMILIONCITYCURSCRIPT], a
+	ret
+
+VermilionCityScript2: ; 19833 (6:5833)
+	ld a, $ff
+	ld [wJoypadForbiddenButtonsMask], a
+	ld a, $40
+	ld [$ccd3], a
+	ld [$ccd4], a
+	ld a, $2
+	ld [$cd38], a
+	call Func_3486
+	ld a, $3
+	ld [W_VERMILIONCITYCURSCRIPT], a
+	ret
+
+VermilionCityScript3: ; 1984e (6:584e)
+	ld a, [$cd38]
+	and a
+	ret nz
+	xor a
+	ld [wJoypadForbiddenButtonsMask], a
+	ld [H_CURRENTPRESSEDBUTTONS], a
+	ld a, $0
+	ld [W_VERMILIONCITYCURSCRIPT], a
+	ret
+
+VermilionCityScript1: ; 1985f (6:585f)
+	ld a, [$cd38]
+	and a
+	ret nz
+	ld c, $a
+	call DelayFrames
+	ld a, $0
+	ld [W_VERMILIONCITYCURSCRIPT], a
+	ret
+
+VermilionCityTextPointers: ; 1986f (6:586f)
+	dw VermilionCityText1
+	dw VermilionCityText2
+	dw VermilionCityText3
+	dw VermilionCityText4
+	dw VermilionCityText5
+	dw VermilionCityText6
+	dw VermilionCityText7
+	dw VermilionCityText8
+	dw MartSignText
+	dw PokeCenterSignText
+	dw VermilionCityText11
+	dw VermilionCityText12
+	dw VermilionCityText13
+
+VermilionCityText1: ; 19889 (6:5889)
+	TX_FAR _VermilionCityText1
+	db "@"
+
+VermilionCityText2: ; 1988e (6:588e)
+	db $08 ; asm
+	ld a, [$d803]
+	bit 2, a
+	jr nz, .asm_359bd ; 0x19894
+	ld hl, VermilionCityText_198a7
+	call PrintText
+	jr .asm_735d9 ; 0x1989c
+.asm_359bd ; 0x1989e
+	ld hl, VermilionCityText_198ac
+	call PrintText
+.asm_735d9 ; 0x198a4
+	jp TextScriptEnd
+
+VermilionCityText_198a7: ; 198a7 (6:58a7)
+	TX_FAR _VermilionCityText_198a7
+	db "@"
+
+VermilionCityText_198ac: ; 198ac (6:58ac)
+	TX_FAR _VermilionCityText_198ac
+	db "@"
+
+VermilionCityText3: ; 198b1 (6:58b1)
+	db $08 ; asm
+	ld a, [$d803]
+	bit 2, a
+	jr nz, .asm_3e0e9 ; 0x198b7
+	ld a, [$c109]
+	cp $c
+	jr z, .asm_07af3 ; 0x198be
+	ld hl, VermilionCityCoords1
+	call ArePlayerCoordsInArray
+	jr nc, .asm_57b73 ; 0x198c6
+.asm_07af3 ; 0x198c8
+	ld hl, SSAnneWelcomeText4
+	call PrintText
+	jr .asm_79bd1 ; 0x198ce
+.asm_57b73 ; 0x198d0
+	ld hl, SSAnneWelcomeText9
+	call PrintText
+	ld b, S_S__TICKET
+	ld a, $1c
+	call Predef
+	ld a, b
+	and a
+	jr nz, .asm_0419b ; 0x198df
+	ld hl, SSAnneNoTicketText
+	call PrintText
+	jr .asm_79bd1 ; 0x198e7
+.asm_0419b ; 0x198e9
+	ld hl, SSAnneFlashedTicketText
+	call PrintText
+	ld a, $4
+	ld [W_VERMILIONCITYCURSCRIPT], a
+	jr .asm_79bd1 ; 0x198f4
+.asm_3e0e9 ; 0x198f6
+	ld hl, SSAnneNotHereText
+	call PrintText
+.asm_79bd1 ; 0x198fc
+	jp TextScriptEnd
+
+VermilionCityCoords1: ; 198ff (6:58ff)
+	db $1d,$13
+	db $1f,$13
+	db $ff
+
+SSAnneWelcomeText4: ; 19904 (6:5904)
+	TX_FAR _SSAnneWelcomeText4
+	db "@"
+
+SSAnneWelcomeText9: ; 19909 (6:5909)
+	TX_FAR _SSAnneWelcomeText9
+	db "@"
+
+SSAnneFlashedTicketText: ; 1990e (6:590e)
+	TX_FAR _SSAnneFlashedTicketText
+	db "@"
+
+SSAnneNoTicketText: ; 19913 (6:5913)
+	TX_FAR _SSAnneNoTicketText
+	db "@"
+
+SSAnneNotHereText: ; 19918 (6:5918)
+	TX_FAR _SSAnneNotHereText
+	db "@"
+
+VermilionCityText4: ; 1991d (6:591d)
+	TX_FAR _VermilionCityText4
+	db "@"
+
+VermilionCityText5: ; 19922 (6:5922)
+	TX_FAR _VermilionCityText5
+	db $08 ; asm
+	ld a, MACHOP
+	call PlayCry
+	call WaitForSoundToFinish
+	ld hl, VermilionCityText14 ; $5933
+	ret
+
+VermilionCityText14: ; 19933 (6:5933)
+	TX_FAR _VermilionCityText14
+	db "@"
+
+VermilionCityText6: ; 19938 (6:5938)
+	TX_FAR _VermilionCityText6
+	db "@"
+
+VermilionCityText7: ; 1993d (6:593d)
+	TX_FAR _VermilionCityText7
+	db "@"
+
+VermilionCityText8: ; 19942 (6:5942)
+	TX_FAR _VermilionCityText8
+	db "@"
+
+VermilionCityText11: ; 19947 (6:5947)
+	TX_FAR _VermilionCityText11
+	db "@"
+
+VermilionCityText12: ; 1994c (6:594c)
+	TX_FAR _VermilionCityText12
+	db "@"
+
+VermilionCityText13: ; 19951 (6:5951)
+	TX_FAR _VermilionCityText13
+	db "@"