Pull map scripts out of main.asm

1 files changed, 275 insertions, 0 deletions

diff --git a/scripts/vermiliongym.asm b/scripts/vermiliongym.asm
new file mode 100755
index 00000000..de3678dd
--- /dev/null
+++ b/scripts/vermiliongym.asm
@@ -0,0 +1,275 @@
+VermilionGymScript: ; 5ca26 (17:4a26)
+	ld hl, $d126
+	bit 5, [hl]
+	res 5, [hl]
+	push hl
+	call nz, VermilionGymScript_5ca4c
+	pop hl
+	bit 6, [hl]
+	res 6, [hl]
+	call nz, VermilionGymScript_5ca6d
+	call EnableAutoTextBoxDrawing
+	ld hl, VermilionGymTrainerHeader0
+	ld de, VermilionGymScriptPointers
+	ld a, [W_VERMILIONGYMCURSCRIPT]
+	call ExecuteCurMapScriptInTable
+	ld [W_VERMILIONGYMCURSCRIPT], a
+	ret
+
+VermilionGymScript_5ca4c: ; 5ca4c (17:4a4c)
+	ld hl, Gym3CityName ; $4a55
+	ld de, Gym3LeaderName ; $4a64
+	jp LoadGymLeaderAndCityName
+
+Gym3CityName: ; 5ca55 (17:4a55)
+	db "VERMILION CITY@"
+
+Gym3LeaderName: ; 5ca64 (17:4a64)
+	db "LT.SURGE@"
+
+VermilionGymScript_5ca6d: ; 5ca6d (17:4a6d)
+	ld a, [$d773]
+	bit 0, a
+	jr nz, .asm_5ca78
+	ld a, $24
+	jr .asm_5ca7f
+.asm_5ca78
+	ld a, (SFX_02_57 - SFX_Headers_02) / 3
+	call PlaySound
+	ld a, $5
+.asm_5ca7f
+	ld [$d09f], a
+	ld bc, $202
+	ld a, $17
+	jp Predef ; indirect jump to Func_ee9e (ee9e (3:6e9e))
+
+VermilionGymScript_5ca8a: ; 5ca8a (17:4a8a)
+	xor a
+	ld [wJoypadForbiddenButtonsMask], a
+	ld [W_VERMILIONGYMCURSCRIPT], a
+	ld [W_CURMAPSCRIPT], a
+	ret
+
+VermilionGymScriptPointers: ; 5ca95 (17:4a95)
+	dw CheckFightingMapTrainers
+	dw Func_324c
+	dw EndTrainerBattle
+	dw VermilionGymScript3
+
+VermilionGymScript3: ; 5ca9d (17:4a9d)
+	ld a, [W_ISINBATTLE] ; $d057
+	cp $ff
+	jp z, VermilionGymScript_5ca8a
+	ld a, $f0
+	ld [wJoypadForbiddenButtonsMask], a
+
+VermilionGymScript_5caaa: ; 5caaa (17:4aaa)
+	ld a, $6
+	ld [H_DOWNARROWBLINKCNT2], a ; $ff8c
+	call DisplayTextID
+	ld hl, $d773
+	set 7, [hl]
+	ld bc, (TM_24 << 8) | 1
+	call GiveItem
+	jr nc, .BagFull
+	ld a, $7
+	ld [H_DOWNARROWBLINKCNT2], a ; $ff8c
+	call DisplayTextID
+	ld hl, $d773
+	set 6, [hl]
+	jr .asm_5cad3
+.BagFull
+	ld a, $8
+	ld [H_DOWNARROWBLINKCNT2], a ; $ff8c
+	call DisplayTextID
+.asm_5cad3
+	ld hl, W_OBTAINEDBADGES
+	set 2, [hl]
+	ld hl, $d72a
+	set 2, [hl]
+
+	; deactivate gym trainers
+	ld a, [$d773]
+	or %00011100
+	ld [$d773], a
+
+	jp VermilionGymScript_5ca8a
+
+VermilionGymTextPointers: ; 5cae8 (17:4ae8)
+	dw VermilionGymText1
+	dw VermilionGymText2
+	dw VermilionGymText3
+	dw VermilionGymText4
+	dw VermilionGymText5
+	dw VermilionGymText6
+	dw VermilionGymText7
+	dw VermilionGymText8
+
+VermilionGymTrainerHeaders: ; 5caf8 (17:4af8)
+VermilionGymTrainerHeader0: ; 5caf8 (17:4af8)
+	db $2 ; flag's bit
+	db ($3 << 4) ; trainer's view range
+	dw $d773 ; flag's byte
+	dw VermilionGymBattleText1 ; 0x4b9a TextBeforeBattle
+	dw VermilionGymAfterBattleText1 ; 0x4ba4 TextAfterBattle
+	dw VermilionGymEndBattleText1 ; 0x4b9f TextEndBattle
+	dw VermilionGymEndBattleText1 ; 0x4b9f TextEndBattle
+
+VermilionGymTrainerHeader1: ; 5cb04 (17:4b04)
+	db $3 ; flag's bit
+	db ($2 << 4) ; trainer's view range
+	dw $d773 ; flag's byte
+	dw VermilionGymBattleText2 ; 0x4bb3 TextBeforeBattle
+	dw VermilionGymAfterBattleText2 ; 0x4bbd TextAfterBattle
+	dw VermilionGymEndBattleText2 ; 0x4bb8 TextEndBattle
+	dw VermilionGymEndBattleText2 ; 0x4bb8 TextEndBattle
+
+VermilionGymTrainerHeader2: ; 5cb10 (17:4b10)
+	db $4 ; flag's bit
+	db ($3 << 4) ; trainer's view range
+	dw $d773 ; flag's byte
+	dw VermilionGymBattleText3 ; 0x4bcc TextBeforeBattle
+	dw VermilionGymAfterBattleText3 ; 0x4bd6 TextAfterBattle
+	dw VermilionGymEndBattleText3 ; 0x4bd1 TextEndBattle
+	dw VermilionGymEndBattleText3 ; 0x4bd1 TextEndBattle
+
+	db $ff
+
+VermilionGymText1: ; 5cb1d (17:4b1d)
+	db $08 ; asm
+	ld a, [$d773]
+	bit 7, a
+	jr z, .asm_7cc29 ; 0x5cb23
+	bit 6, a
+	jr nz, .asm_41203 ; 0x5cb27
+	call z, VermilionGymScript_5caaa
+	call DisableWaitingAfterTextDisplay
+	jr .asm_23621 ; 0x5cb2f
+.asm_41203 ; 0x5cb31
+	ld hl, VermilionGymText_5cb72
+	call PrintText
+	jr .asm_23621 ; 0x5cb37
+.asm_7cc29 ; 0x5cb39
+	ld hl, VermilionGymText_5cb6d
+	call PrintText
+	ld hl, $d72d
+	set 6, [hl]
+	set 7, [hl]
+	ld hl, ReceivedThunderbadgeText
+	ld de, ReceivedThunderbadgeText
+	call PreBattleSaveRegisters
+	ldh a, [$8c]
+	ld [$cf13], a
+	call EngageMapTrainer
+	call InitBattleEnemyParameters
+	ld a, $3
+	ld [$d05c], a
+	xor a
+	ldh [$b4], a
+	ld a, $3
+	ld [W_VERMILIONGYMCURSCRIPT], a
+	ld [W_CURMAPSCRIPT], a
+.asm_23621 ; 0x5cb6a
+	jp TextScriptEnd
+
+VermilionGymText_5cb6d: ; 5cb6d (17:4b6d)
+	TX_FAR _VermilionGymText_5cb6d
+	db "@"
+
+VermilionGymText_5cb72: ; 5cb72 (17:4b72)
+	TX_FAR _VermilionGymText_5cb72
+	db "@"
+
+VermilionGymText6: ; 5cb77 (17:4b77)
+	TX_FAR _VermilionGymText_5cb77
+	db "@"
+
+VermilionGymText7: ; 5cb7c (17:4b7c)
+	TX_FAR _ReceivedTM24Text
+	db $11
+	TX_FAR _TM24ExplanationText
+	db "@"
+
+VermilionGymText8: ; 5cb86 (17:4b86)
+	TX_FAR _TM24NoRoomText
+	db "@"
+
+ReceivedThunderbadgeText: ; 5cb8b (17:4b8b)
+	TX_FAR _ReceivedThunderbadgeText
+	db "@"
+
+VermilionGymText2: ; 5cb90 (17:4b90)
+	db $08 ; asm
+	ld hl, VermilionGymTrainerHeader0
+	call TalkToTrainer
+	jp TextScriptEnd
+
+VermilionGymBattleText1: ; 5cb9a (17:4b9a)
+	TX_FAR _VermilionGymBattleText1
+	db "@"
+
+VermilionGymEndBattleText1: ; 5cb9f (17:4b9f)
+	TX_FAR _VermilionGymEndBattleText1
+	db "@"
+
+VermilionGymAfterBattleText1: ; 5cba4 (17:4ba4)
+	TX_FAR _VermilionGymAfterBattleText1
+	db "@"
+
+VermilionGymText3: ; 5cba9 (17:4ba9)
+	db $08 ; asm
+	ld hl, VermilionGymTrainerHeader1
+	call TalkToTrainer
+	jp TextScriptEnd
+
+VermilionGymBattleText2: ; 5cbb3 (17:4bb3)
+	TX_FAR _VermilionGymBattleText2
+	db "@"
+
+VermilionGymEndBattleText2: ; 5cbb8 (17:4bb8)
+	TX_FAR _VermilionGymEndBattleText2
+	db "@"
+
+VermilionGymAfterBattleText2: ; 5cbbd (17:4bbd)
+	TX_FAR _VermilionGymAfterBattleText2
+	db "@"
+
+VermilionGymText4: ; 5cbc2 (17:4bc2)
+	db $08 ; asm
+	ld hl, VermilionGymTrainerHeader2
+	call TalkToTrainer
+	jp TextScriptEnd
+
+VermilionGymBattleText3: ; 5cbcc (17:4bcc)
+	TX_FAR _VermilionGymBattleText3
+	db "@"
+
+VermilionGymEndBattleText3: ; 5cbd1 (17:4bd1)
+	TX_FAR _VermilionGymEndBattleText3
+	db "@"
+
+VermilionGymAfterBattleText3: ; 5cbd6 (17:4bd6)
+	TX_FAR _VermilionGymAfterBattleText3
+	db "@"
+
+VermilionGymText5: ; 5cbdb (17:4bdb)
+	db $08 ; asm
+	ld a, [$d72a]
+	bit 2, a
+	jr nz, .asm_13b67 ; 0x5cbe1
+	ld hl, VermilionGymText_5cbf4
+	call PrintText
+	jr .asm_c2b38 ; 0x5cbe9
+.asm_13b67 ; 0x5cbeb
+	ld hl, VermilionGymText_5cbf9
+	call PrintText
+.asm_c2b38 ; 0x5cbf1
+	jp TextScriptEnd
+
+VermilionGymText_5cbf4: ; 5cbf4 (17:4bf4)
+	TX_FAR _VermilionGymText_5cbf4
+	db "@"
+
+VermilionGymText_5cbf9: ; 5cbf9 (17:4bf9)
+	TX_FAR _VermilionGymText_5cbf9
+	db "@"