1 files changed, 244 insertions, 0 deletions
diff --git a/scripts/VictoryRoad2F.asm b/scripts/VictoryRoad2F.asm
new file mode 100755
index 00000000..9dfb05ed
--- /dev/null
+++ b/scripts/VictoryRoad2F.asm
@@ -0,0 +1,244 @@
+VictoryRoad2F_Script:
+	ld hl, wCurrentMapScriptFlags
+	bit 6, [hl]
+	res 6, [hl]
+	call nz, VictoryRoad2Script_517c4
+	ld hl, wCurrentMapScriptFlags
+	bit 5, [hl]
+	res 5, [hl]
+	call nz, VictoryRoad2Script_517c9
+	call EnableAutoTextBoxDrawing
+	ld hl, VictoryRoad2TrainerHeader0
+	ld de, VictoryRoad2F_ScriptPointers
+	ld a, [wVictoryRoad2FCurScript]
+	call ExecuteCurMapScriptInTable
+	ld [wVictoryRoad2FCurScript], a
+	ret
+
+VictoryRoad2Script_517c4:
+	ResetEvent EVENT_VICTORY_ROAD_1_BOULDER_ON_SWITCH
+
+VictoryRoad2Script_517c9:
+	CheckEvent EVENT_VICTORY_ROAD_2_BOULDER_ON_SWITCH1
+	jr z, .asm_517da
+	push af
+	ld a, $15
+	lb bc, 4, 3
+	call VictoryRoad2Script_517e2
+	pop af
+.asm_517da
+	bit 7, a
+	ret z
+	ld a, $1d
+	lb bc, 7, 11
+
+VictoryRoad2Script_517e2:
+	ld [wNewTileBlockID], a
+	predef ReplaceTileBlock
+	ret
+
+VictoryRoad2F_ScriptPointers:
+	dw VictoryRoad2Script0
+	dw DisplayEnemyTrainerTextAndStartBattle
+	dw EndTrainerBattle
+
+VictoryRoad2Script0:
+	ld hl, CoordsData_51816
+	call CheckBoulderCoords
+	jp nc, CheckFightingMapTrainers
+	EventFlagAddress hl, EVENT_VICTORY_ROAD_2_BOULDER_ON_SWITCH1
+	ld a, [wCoordIndex]
+	cp $2
+	jr z, .asm_5180b
+	CheckEventReuseHL EVENT_VICTORY_ROAD_2_BOULDER_ON_SWITCH1
+	SetEventReuseHL EVENT_VICTORY_ROAD_2_BOULDER_ON_SWITCH1
+	ret nz
+	jr .asm_51810
+.asm_5180b
+	CheckEventAfterBranchReuseHL EVENT_VICTORY_ROAD_2_BOULDER_ON_SWITCH2, EVENT_VICTORY_ROAD_2_BOULDER_ON_SWITCH1
+	SetEventReuseHL EVENT_VICTORY_ROAD_2_BOULDER_ON_SWITCH2
+	ret nz
+.asm_51810
+	ld hl, wCurrentMapScriptFlags
+	set 5, [hl]
+	ret
+
+CoordsData_51816:
+	db $10,$01
+	db $10,$09
+	db $FF
+
+VictoryRoad2F_TextPointers:
+	dw VictoryRoad2Text1
+	dw VictoryRoad2Text2
+	dw VictoryRoad2Text3
+	dw VictoryRoad2Text4
+	dw VictoryRoad2Text5
+	dw MoltresText
+	dw PickUpItemText
+	dw PickUpItemText
+	dw PickUpItemText
+	dw PickUpItemText
+	dw BoulderText
+	dw BoulderText
+	dw BoulderText
+
+VictoryRoad2TrainerHeader0:
+	dbEventFlagBit EVENT_BEAT_VICTORY_ROAD_2_TRAINER_0
+	db ($4 << 4) ; trainer's view range
+	dwEventFlagAddress EVENT_BEAT_VICTORY_ROAD_2_TRAINER_0
+	dw VictoryRoad2BattleText1 ; TextBeforeBattle
+	dw VictoryRoad2AfterBattleText1 ; TextAfterBattle
+	dw VictoryRoad2EndBattleText1 ; TextEndBattle
+	dw VictoryRoad2EndBattleText1 ; TextEndBattle
+
+VictoryRoad2TrainerHeader1:
+	dbEventFlagBit EVENT_BEAT_VICTORY_ROAD_2_TRAINER_1
+	db ($3 << 4) ; trainer's view range
+	dwEventFlagAddress EVENT_BEAT_VICTORY_ROAD_2_TRAINER_1
+	dw VictoryRoad2BattleText2 ; TextBeforeBattle
+	dw VictoryRoad2AfterBattleText2 ; TextAfterBattle
+	dw VictoryRoad2EndBattleText2 ; TextEndBattle
+	dw VictoryRoad2EndBattleText2 ; TextEndBattle
+
+VictoryRoad2TrainerHeader2:
+	dbEventFlagBit EVENT_BEAT_VICTORY_ROAD_2_TRAINER_2
+	db ($3 << 4) ; trainer's view range
+	dwEventFlagAddress EVENT_BEAT_VICTORY_ROAD_2_TRAINER_2
+	dw VictoryRoad2BattleText3 ; TextBeforeBattle
+	dw VictoryRoad2AfterBattleText3 ; TextAfterBattle
+	dw VictoryRoad2EndBattleText3 ; TextEndBattle
+	dw VictoryRoad2EndBattleText3 ; TextEndBattle
+
+VictoryRoad2TrainerHeader3:
+	dbEventFlagBit EVENT_BEAT_VICTORY_ROAD_2_TRAINER_3
+	db ($1 << 4) ; trainer's view range
+	dwEventFlagAddress EVENT_BEAT_VICTORY_ROAD_2_TRAINER_3
+	dw VictoryRoad2BattleText4 ; TextBeforeBattle
+	dw VictoryRoad2AfterBattleText4 ; TextAfterBattle
+	dw VictoryRoad2EndBattleText4 ; TextEndBattle
+	dw VictoryRoad2EndBattleText4 ; TextEndBattle
+
+VictoryRoad2TrainerHeader4:
+	dbEventFlagBit EVENT_BEAT_VICTORY_ROAD_2_TRAINER_4
+	db ($3 << 4) ; trainer's view range
+	dwEventFlagAddress EVENT_BEAT_VICTORY_ROAD_2_TRAINER_4
+	dw VictoryRoad2BattleText5 ; TextBeforeBattle
+	dw VictoryRoad2AfterBattleText5 ; TextAfterBattle
+	dw VictoryRoad2EndBattleText5 ; TextEndBattle
+	dw VictoryRoad2EndBattleText5 ; TextEndBattle
+
+MoltresTrainerHeader:
+	dbEventFlagBit EVENT_BEAT_MOLTRES
+	db ($0 << 4) ; trainer's view range
+	dwEventFlagAddress EVENT_BEAT_MOLTRES
+	dw MoltresBattleText ; TextBeforeBattle
+	dw MoltresBattleText ; TextAfterBattle
+	dw MoltresBattleText ; TextEndBattle
+	dw MoltresBattleText ; TextEndBattle
+
+	db $ff
+
+VictoryRoad2Text1:
+	TX_ASM
+	ld hl, VictoryRoad2TrainerHeader0
+	call TalkToTrainer
+	jp TextScriptEnd
+
+VictoryRoad2Text2:
+	TX_ASM
+	ld hl, VictoryRoad2TrainerHeader1
+	call TalkToTrainer
+	jp TextScriptEnd
+
+VictoryRoad2Text3:
+	TX_ASM
+	ld hl, VictoryRoad2TrainerHeader2
+	call TalkToTrainer
+	jp TextScriptEnd
+
+VictoryRoad2Text4:
+	TX_ASM
+	ld hl, VictoryRoad2TrainerHeader3
+	call TalkToTrainer
+	jp TextScriptEnd
+
+VictoryRoad2Text5:
+	TX_ASM
+	ld hl, VictoryRoad2TrainerHeader4
+	call TalkToTrainer
+	jp TextScriptEnd
+
+MoltresText:
+	TX_ASM
+	ld hl, MoltresTrainerHeader
+	call TalkToTrainer
+	jp TextScriptEnd
+
+MoltresBattleText:
+	TX_FAR _MoltresBattleText
+	TX_ASM
+	ld a, MOLTRES
+	call PlayCry
+	call WaitForSoundToFinish
+	jp TextScriptEnd
+
+VictoryRoad2BattleText1:
+	TX_FAR _VictoryRoad2BattleText1
+	db "@"
+
+VictoryRoad2EndBattleText1:
+	TX_FAR _VictoryRoad2EndBattleText1
+	db "@"
+
+VictoryRoad2AfterBattleText1:
+	TX_FAR _VictoryRoad2AfterBattleText1
+	db "@"
+
+VictoryRoad2BattleText2:
+	TX_FAR _VictoryRoad2BattleText2
+	db "@"
+
+VictoryRoad2EndBattleText2:
+	TX_FAR _VictoryRoad2EndBattleText2
+	db "@"
+
+VictoryRoad2AfterBattleText2:
+	TX_FAR _VictoryRoad2AfterBattleText2
+	db "@"
+
+VictoryRoad2BattleText3:
+	TX_FAR _VictoryRoad2BattleText3
+	db "@"
+
+VictoryRoad2EndBattleText3:
+	TX_FAR _VictoryRoad2EndBattleText3
+	db "@"
+
+VictoryRoad2AfterBattleText3:
+	TX_FAR _VictoryRoad2AfterBattleText3
+	db "@"
+
+VictoryRoad2BattleText4:
+	TX_FAR _VictoryRoad2BattleText4
+	db "@"
+
+VictoryRoad2EndBattleText4:
+	TX_FAR _VictoryRoad2EndBattleText4
+	db "@"
+
+VictoryRoad2AfterBattleText4:
+	TX_FAR _VictoryRoad2AfterBattleText4
+	db "@"
+
+VictoryRoad2BattleText5:
+	TX_FAR _VictoryRoad2BattleText5
+	db "@"
+
+VictoryRoad2EndBattleText5:
+	TX_FAR _VictoryRoad2EndBattleText5
+	db "@"
+
+VictoryRoad2AfterBattleText5:
+	TX_FAR _VictoryRoad2AfterBattleText5
+	db "@"