Pull map scripts out of main.asm

1 files changed, 321 insertions, 0 deletions

diff --git a/scripts/pewtercity.asm b/scripts/pewtercity.asm
new file mode 100755
index 00000000..e738dedf
--- /dev/null
+++ b/scripts/pewtercity.asm
@@ -0,0 +1,321 @@
+PewterCityScript: ; 19237 (6:5237)
+	call EnableAutoTextBoxDrawing
+	ld hl, PewterCityScriptPointers
+	ld a, [W_PEWTERCITYCURSCRIPT]
+	jp CallFunctionInTable
+
+PewterCityScriptPointers: ; 19243 (6:5243)
+	dw PewterCityScript0
+	dw PewterCityScript1
+	dw PewterCityScript2
+	dw PewterCityScript3
+	dw PewterCityScript4
+	dw PewterCityScript5
+	dw PewterCityScript6
+
+PewterCityScript0: ; 19251 (6:5251)
+	xor a
+	ld [W_MUSEUM1FCURSCRIPT], a
+	ld hl, $d754
+	res 0, [hl]
+	call PewterCityScript_1925e
+	ret
+
+PewterCityScript_1925e: ; 1925e (6:525e)
+	ld a, [$d755]
+	bit 7, a
+	ret nz
+	ld hl, CoordsData_19277
+	call ArePlayerCoordsInArray
+	ret nc
+	ld a, $f0
+	ld [wJoypadForbiddenButtonsMask], a
+	ld a, $5
+	ld [$ff8c], a
+	jp DisplayTextID
+
+CoordsData_19277: ; 19277 (6:5277)
+	db $11,$23
+	db $11,$24
+	db $12,$25
+	db $13,$25
+	db $ff
+
+PewterCityScript1: ; 19280 (6:5280)
+	ld a, [$cc57]
+	and a
+	ret nz
+	ld a, $3
+	ld [$ff8c], a
+	ld a, $4
+	ld [$ff8d], a
+	call Func_34a6
+	ld a, $34
+	ld [$ff8d], a
+	call Func_34b9
+	call Func_2307
+	ld hl, wFlags_0xcd60
+	set 4, [hl]
+	ld a, $d
+	ld [$ff8c], a
+	call DisplayTextID
+	ld a, $3c
+	ld [$ffeb], a
+	ld a, $30
+	ld [$ffec], a
+	ld a, $c
+	ld [$ffed], a
+	ld a, $11
+	ld [$ffee], a
+	ld a, $3
+	ld [$cf13], a
+	call Func_32f9
+	ld a, $3
+	ld [$ff8c], a
+	ld de, MovementData_PewterMuseumGuyExit ; $52ce
+	call MoveSprite
+	ld a, $2
+	ld [W_PEWTERCITYCURSCRIPT], a
+	ret
+
+MovementData_PewterMuseumGuyExit: ; 192ce (6:52ce)
+	db $00,$00,$00,$00,$FF
+
+PewterCityScript2: ; 192d3 (6:52d3)
+	ld a, [$d730]
+	bit 0, a
+	ret nz
+	ld a, $3
+	ld [$cc4d], a
+	ld a, $11
+	call Predef
+	ld a, $3
+	ld [W_PEWTERCITYCURSCRIPT], a
+	ret
+
+PewterCityScript3: ; 192e9 (6:52e9)
+	ld a, $3
+	ld [$cf13], a
+	call Func_32fe
+	ld a, $3
+	ld [$cc4d], a
+	ld a, $15
+	call Predef
+	xor a
+	ld [wJoypadForbiddenButtonsMask], a
+	ld a, $0
+	ld [W_PEWTERCITYCURSCRIPT], a
+	ret
+
+PewterCityScript4: ; 19305 (6:5305)
+	ld a, [$cc57]
+	and a
+	ret nz
+	ld a, $5
+	ld [$ff8c], a
+	ld a, $8
+	ld [$ff8d], a
+	call Func_34a6
+	ld a, $18
+	ld [$ff8d], a
+	call Func_34b9
+	call Func_2307
+	ld hl, wFlags_0xcd60
+	set 4, [hl]
+	ld a, $e
+	ld [$ff8c], a
+	call DisplayTextID
+	ld a, $3c
+	ld [$ffeb], a
+	ld a, $40
+	ld [$ffec], a
+	ld a, $16
+	ld [$ffed], a
+	ld a, $10
+	ld [$ffee], a
+	ld a, $5
+	ld [$cf13], a
+	call Func_32f9
+	ld a, $5
+	ld [$ff8c], a
+	ld de, MovementData_PewterGymGuyExit
+	call MoveSprite
+	ld a, $5
+	ld [W_PEWTERCITYCURSCRIPT], a
+	ret
+
+MovementData_PewterGymGuyExit: ; 19353 (6:5353)
+	db $C0,$C0,$C0,$C0,$C0,$FF
+
+PewterCityScript5: ; 19359 (6:5359)
+	ld a, [$d730]
+	bit 0, a
+	ret nz
+	ld a, $4
+	ld [$cc4d], a
+	ld a, $11
+	call Predef
+	ld a, $6
+	ld [W_PEWTERCITYCURSCRIPT], a
+	ret
+
+PewterCityScript6: ; 1936f (6:536f)
+	ld a, $5
+	ld [$cf13], a
+	call Func_32fe
+	ld a, $4
+	ld [$cc4d], a
+	ld a, $15
+	call Predef
+	xor a
+	ld [wJoypadForbiddenButtonsMask], a
+	ld a, $0
+	ld [W_PEWTERCITYCURSCRIPT], a
+	ret
+
+PewterCityTextPointers: ; 1938b (6:538b)
+	dw PewterCityText1
+	dw PewterCityText2
+	dw PewterCityText3
+	dw PewterCityText4
+	dw PewterCityText5
+	dw PewterCityText6
+	dw PewterCityText7
+	dw MartSignText
+	dw PokeCenterSignText
+	dw PewterCityText10
+	dw PewterCityText11
+	dw PewterCityText12
+	dw PewterCityText13
+	dw PewterCityText14
+
+PewterCityText1: ; 193a7 (6:53a7)
+	TX_FAR _PewterCityText1
+	db "@"
+
+PewterCityText2: ; 193ac (6:53ac)
+	TX_FAR _PewterCityText2
+	db "@"
+
+PewterCityText3: ; 193b1 (6:53b1)
+	db $08 ; asm
+	ld hl, PewterCityText_193f1
+	call PrintText
+	call YesNoChoice
+	ld a, [$cc26]
+	and a
+	jr nz, .asm_f46a9 ; 0x193bf
+	ld hl, PewterCityText_193f6
+	call PrintText
+	jr .asm_ac429 ; 0x193c7
+.asm_f46a9 ; 0x193c9
+	ld hl, PewterCityText_193fb
+	call PrintText
+	xor a
+	ldh [$b3], a
+	ldh [$b4], a
+	ld [$cf10], a
+	ld a, $2
+	ld [$cc57], a
+	ldh a, [$b8]
+	ld [$cc58], a
+	ld a, $3
+	ld [$cf13], a
+	call Func_32f4
+	ld a, $1
+	ld [W_PEWTERCITYCURSCRIPT], a
+.asm_ac429 ; 0x193ee
+	jp TextScriptEnd
+
+PewterCityText_193f1: ; 193f1 (6:53f1)
+	TX_FAR _PewterCityText_193f1
+	db "@"
+
+PewterCityText_193f6: ; 193f6 (6:53f6)
+	TX_FAR _PewterCityText_193f6
+	db "@"
+
+PewterCityText_193fb: ; 193fb (6:53fb)
+	TX_FAR _PewterCityText_193fb
+	db "@"
+
+PewterCityText13: ; 19400 (6:5400)
+	TX_FAR _PewterCityText13
+	db "@"
+
+PewterCityText4: ; 19405 (6:5405)
+	db $8
+	ld hl, PewterCityText_19427
+	call PrintText
+	call YesNoChoice
+	ld a, [$cc26]
+	cp $0
+	jr nz, .asm_e4603
+	ld hl, PewterCityText_1942c
+	call PrintText
+	jr .asm_e4604 ; 0x1941c $6
+.asm_e4603
+	ld hl, PewterCityText_19431
+	call PrintText
+.asm_e4604 ; 0x19424
+	jp TextScriptEnd
+
+PewterCityText_19427: ; 19427 (6:5427)
+	TX_FAR _PewterCityText_19427
+	db "@"
+
+PewterCityText_1942c: ; 1942c (6:542c)
+	TX_FAR _PewterCityText_1942c
+	db "@"
+
+PewterCityText_19431: ; 19431 (6:5431)
+	TX_FAR _PewterCityText_19431
+	db "@"
+
+PewterCityText5: ; 19436 (6:5436)
+	db $08 ; asm
+	ld hl, PewterCityText_1945d
+	call PrintText
+	xor a
+	ldh [$b4], a
+	ld [$cf10], a
+	ld a, $3
+	ld [$cc57], a
+	ldh a, [$b8]
+	ld [$cc58], a
+	ld a, $5
+	ld [$cf13], a
+	call Func_32f4
+	ld a, $4
+	ld [W_PEWTERCITYCURSCRIPT], a
+	jp TextScriptEnd
+
+PewterCityText_1945d: ; 1945d (6:545d)
+	TX_FAR _PewterCityText_1945d
+	db "@"
+
+PewterCityText14: ; 19462 (6:5462)
+
+PewterCityText_19462: ; 19462 (6:5462)
+	TX_FAR _PewterCityText_19462
+	db "@"
+
+PewterCityText6: ; 19467 (6:5467)
+	TX_FAR _PewterCityText6
+	db "@"
+
+PewterCityText7: ; 1946c (6:546c)
+	TX_FAR _PewterCityText7
+	db "@"
+
+PewterCityText10: ; 19471 (6:5471)
+	TX_FAR _PewterCityText10
+	db "@"
+
+PewterCityText11: ; 19476 (6:5476)
+	TX_FAR _PewterCityText11
+	db "@"
+
+PewterCityText12: ; 1947b (6:547b)
+	TX_FAR _PewterCityText12
+	db "@"