First Commit

Upload literally everything from the pokecrystal16 expand-move-ID branch

maps/HallOfFame.asm

@@ -0,0 +1,123 @@
+	object_const_def
+	const HALLOFFAME_LANCE
+
+HallOfFame_MapScripts:
+	def_scene_scripts
+	scene_script HallOfFameEnterScene, SCENE_HALLOFFAME_ENTER
+	scene_script HallOfFameNoopScene,  SCENE_HALLOFFAME_NOOP
+
+	def_callbacks
+
+HallOfFameEnterScene:
+	sdefer HallOfFameEnterScript
+	end
+
+HallOfFameNoopScene:
+	end
+
+HallOfFameEnterScript:
+	follow HALLOFFAME_LANCE, PLAYER
+	applymovement HALLOFFAME_LANCE, HallOfFame_WalkUpWithLance
+	stopfollow
+	turnobject PLAYER, RIGHT
+	opentext
+	writetext HallOfFame_LanceText
+	waitbutton
+	closetext
+	turnobject HALLOFFAME_LANCE, UP
+	applymovement PLAYER, HallOfFame_SlowlyApproachMachine
+	setscene SCENE_HALLOFFAME_NOOP
+	pause 15
+	setval HEALMACHINE_HALL_OF_FAME
+	special HealMachineAnim
+	setevent EVENT_BEAT_ELITE_FOUR
+	setevent EVENT_TELEPORT_GUY
+	setevent EVENT_RIVAL_SPROUT_TOWER
+	clearevent EVENT_RED_IN_MT_SILVER
+	setevent EVENT_OLIVINE_PORT_SPRITES_BEFORE_HALL_OF_FAME
+	clearevent EVENT_OLIVINE_PORT_SPRITES_AFTER_HALL_OF_FAME
+	setmapscene SPROUT_TOWER_3F, SCENE_SPROUTTOWER3F_NOOP
+	special HealParty
+	checkevent EVENT_GOT_SS_TICKET_FROM_ELM
+	iftrue .SkipPhoneCall
+	specialphonecall SPECIALCALL_SSTICKET
+.SkipPhoneCall:
+	halloffame
+	end
+
+HallOfFame_WalkUpWithLance:
+	step UP
+	step UP
+	step UP
+	step UP
+	step UP
+	step UP
+	step UP
+	step UP
+	step RIGHT
+	turn_head LEFT
+	step_end
+
+HallOfFame_SlowlyApproachMachine:
+	slow_step UP
+	step_end
+
+HallOfFame_LanceText:
+	text "LANCE: It's been a"
+	line "long time since I"
+	cont "last came here."
+
+	para "This is where we"
+	line "honor the LEAGUE"
+
+	para "CHAMPIONS for all"
+	line "eternity."
+
+	para "Their courageous"
+	line "#MON are also"
+	cont "inducted."
+
+	para "Here today, we"
+	line "witnessed the rise"
+
+	para "of a new LEAGUE"
+	line "CHAMPION--a"
+
+	para "trainer who feels"
+	line "compassion for,"
+
+	para "and trust toward,"
+	line "all #MON."
+
+	para "A trainer who"
+	line "succeeded through"
+
+	para "perseverance and"
+	line "determination."
+
+	para "The new LEAGUE"
+	line "CHAMPION who has"
+
+	para "all the makings"
+	line "of greatness!"
+
+	para "<PLAY_G>, allow me"
+	line "to register you"
+
+	para "and your partners"
+	line "as CHAMPIONS!"
+	done
+
+HallOfFame_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  4, 13, LANCES_ROOM, 3
+	warp_event  5, 13, LANCES_ROOM, 4
+
+	def_coord_events
+
+	def_bg_events
+
+	def_object_events
+	object_event  4, 12, SPRITE_LANCE, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, ObjectEvent, -1