1 files changed, 103 insertions, 0 deletions
diff --git a/scripts/VictoryRoad1F.asm b/scripts/VictoryRoad1F.asm
new file mode 100755
index 00000000..0a2588a7
--- /dev/null
+++ b/scripts/VictoryRoad1F.asm
@@ -0,0 +1,103 @@
+VictoryRoad1F_Script:
+	ld hl, wCurrentMapScriptFlags
+	bit 5, [hl]
+	res 5, [hl]
+	call nz, .next
+	call EnableAutoTextBoxDrawing
+	ld hl, VictoryRoad1TrainerHeader0
+	ld de, VictoryRoad1F_ScriptPointers
+	ld a, [wVictoryRoad1FCurScript]
+	call ExecuteCurMapScriptInTable
+	ld [wVictoryRoad1FCurScript], a
+	ret
+.next
+	CheckEvent EVENT_VICTORY_ROAD_1_BOULDER_ON_SWITCH
+	ret z
+	ld a, $1d
+	ld [wNewTileBlockID], a
+	lb bc, 6, 4
+	predef_jump ReplaceTileBlock
+
+VictoryRoad1F_ScriptPointers:
+	dw VictoryRoad1Script0
+	dw DisplayEnemyTrainerTextAndStartBattle
+	dw EndTrainerBattle
+
+VictoryRoad1Script0:
+	CheckEvent EVENT_VICTORY_ROAD_1_BOULDER_ON_SWITCH
+	jp nz, CheckFightingMapTrainers
+	ld hl, CoordsData_5da5c
+	call CheckBoulderCoords
+	jp nc, CheckFightingMapTrainers
+	ld hl, wCurrentMapScriptFlags
+	set 5, [hl]
+	SetEvent EVENT_VICTORY_ROAD_1_BOULDER_ON_SWITCH
+	ret
+
+CoordsData_5da5c:
+	db $0D,$11,$FF
+
+VictoryRoad1F_TextPointers:
+	dw VictoryRoad1Text1
+	dw VictoryRoad1Text2
+	dw PickUpItemText
+	dw PickUpItemText
+	dw BoulderText
+	dw BoulderText
+	dw BoulderText
+
+VictoryRoad1TrainerHeader0:
+	dbEventFlagBit EVENT_BEAT_VICTORY_ROAD_1_TRAINER_0
+	db ($2 << 4) ; trainer's view range
+	dwEventFlagAddress EVENT_BEAT_VICTORY_ROAD_1_TRAINER_0
+	dw VictoryRoad1BattleText1 ; TextBeforeBattle
+	dw VictoryRoad1AfterBattleText1 ; TextAfterBattle
+	dw VictoryRoad1EndBattleText1 ; TextEndBattle
+	dw VictoryRoad1EndBattleText1 ; TextEndBattle
+
+VictoryRoad1TrainerHeader1:
+	dbEventFlagBit EVENT_BEAT_VICTORY_ROAD_1_TRAINER_1
+	db ($2 << 4) ; trainer's view range
+	dwEventFlagAddress EVENT_BEAT_VICTORY_ROAD_1_TRAINER_1
+	dw VictoryRoad1BattleText2 ; TextBeforeBattle
+	dw VictoryRoad1AfterBattleText2 ; TextAfterBattle
+	dw VictoryRoad1EndBattleText2 ; TextEndBattle
+	dw VictoryRoad1EndBattleText2 ; TextEndBattle
+
+	db $ff
+
+VictoryRoad1Text1:
+	TX_ASM
+	ld hl, VictoryRoad1TrainerHeader0
+	call TalkToTrainer
+	jp TextScriptEnd
+
+VictoryRoad1Text2:
+	TX_ASM
+	ld hl, VictoryRoad1TrainerHeader1
+	call TalkToTrainer
+	jp TextScriptEnd
+
+VictoryRoad1BattleText1:
+	TX_FAR _VictoryRoad1BattleText1
+	db "@"
+
+VictoryRoad1EndBattleText1:
+	TX_FAR _VictoryRoad1EndBattleText1
+	db "@"
+
+VictoryRoad1AfterBattleText1:
+	TX_FAR _VictoryRoad1AfterBattleText1
+	db "@"
+
+VictoryRoad1BattleText2:
+	TX_FAR _VictoryRoad1BattleText2
+	db "@"
+
+VictoryRoad1EndBattleText2:
+	TX_FAR _VictoryRoad1EndBattleText2
+	db "@"
+
+VictoryRoad1AfterBattleText2:
+	TX_FAR _VictoryRoad1AfterBattleText2
+	db "@"