1 files changed, 119 insertions, 0 deletions
diff --git a/maps/VictoryRoadGate.asm b/maps/VictoryRoadGate.asm
new file mode 100644
index 00000000..c596efe8
--- /dev/null
+++ b/maps/VictoryRoadGate.asm
@@ -0,0 +1,119 @@
+	const_def 2 ; object constants
+	const VICTORYROADGATE_OFFICER
+	const VICTORYROADGATE_BLACK_BELT1
+	const VICTORYROADGATE_BLACK_BELT2
+
+VictoryRoadGate_MapScripts:
+	db 2 ; scene scripts
+	scene_script .DummyScene0 ; SCENE_DEFAULT
+	scene_script .DummyScene1 ; SCENE_FINISHED
+
+	db 0 ; callbacks
+
+.DummyScene0:
+	end
+
+.DummyScene1:
+	end
+
+VictoryRoadGateBadgeCheckScene:
+	turnobject PLAYER, LEFT
+	jump VictoryRoadGateBadgeCheckScript
+
+VictoryRoadGateOfficerScript:
+	faceplayer
+VictoryRoadGateBadgeCheckScript:
+	opentext
+	writetext VictoryRoadGateOfficerText
+	buttonsound
+	checkcode VAR_BADGES
+	ifgreater NUM_JOHTO_BADGES - 1, .AllEightBadges
+	writetext VictoryRoadGateNotEnoughBadgesText
+	waitbutton
+	closetext
+	applymovement PLAYER, VictoryRoadGateStepDownMovement
+	end
+
+.AllEightBadges:
+	writetext VictoryRoadGateEightBadgesText
+	waitbutton
+	closetext
+	setscene SCENE_FINISHED
+	end
+
+VictoryRoadGateLeftBlackBeltScript:
+	jumptextfaceplayer VictoryRoadGateLeftBlackBeltText
+
+VictoryRoadGateRightBlackBeltScript:
+	jumptextfaceplayer VictoryRoadGateRightBlackBeltText
+
+VictoryRoadGateStepDownMovement:
+	step DOWN
+	step_end
+
+VictoryRoadGateOfficerText:
+	text "Only trainers who"
+	line "have proven them-"
+	cont "selves may pass."
+	done
+
+VictoryRoadGateNotEnoughBadgesText:
+	text "You don't have all"
+	line "the GYM BADGES of"
+	cont "JOHTO."
+
+	para "I'm sorry, but I"
+	line "can't let you go"
+	cont "through."
+	done
+
+VictoryRoadGateEightBadgesText:
+	text "Oh! The eight"
+	line "BADGES of JOHTO!"
+
+	para "Please, go right"
+	line "ahead, sir!"
+	done
+
+VictoryRoadGateLeftBlackBeltText:
+	text "This way leads to"
+	line "MT.SILVER."
+
+	para "You'll see scary-"
+	line "strong #MON out"
+	cont "there."
+	done
+
+VictoryRoadGateRightBlackBeltText:
+	text "Off to the #MON"
+	line "LEAGUE, are you?"
+
+	para "The ELITE FOUR are"
+	line "so strong it's"
+
+	para "scary, and they're"
+	line "ready for you!"
+	done
+
+VictoryRoadGate_MapEvents:
+	db 0, 0 ; filler
+
+	db 8 ; warp events
+	warp_event 17,  7, ROUTE_22, 1
+	warp_event 18,  7, ROUTE_22, 1
+	warp_event  9, 17, ROUTE_26, 1
+	warp_event 10, 17, ROUTE_26, 1
+	warp_event  9,  0, VICTORY_ROAD, 1
+	warp_event 10,  0, VICTORY_ROAD, 1
+	warp_event  1,  7, ROUTE_28, 2
+	warp_event  2,  7, ROUTE_28, 2
+
+	db 1 ; coord events
+	coord_event 10, 11, SCENE_DEFAULT, VictoryRoadGateBadgeCheckScene
+
+	db 0 ; bg events
+
+	db 3 ; object events
+	object_event  8, 11, SPRITE_OFFICER, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, VictoryRoadGateOfficerScript, -1
+	object_event  7,  5, SPRITE_BLACK_BELT, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, VictoryRoadGateLeftBlackBeltScript, EVENT_OPENED_MT_SILVER
+	object_event 12,  5, SPRITE_BLACK_BELT, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, VictoryRoadGateRightBlackBeltScript, EVENT_FOUGHT_SNORLAX