Add files via upload

maps/PewterMuseumOfScience2F.asm

@@ -0,0 +1,178 @@
+PewterMuseumOfScience2F_MapScriptHeader:
+	def_scene_scripts
+
+	def_callbacks
+
+	def_warp_events
+	warp_event  7,  7, PEWTER_MUSEUM_OF_SCIENCE_1F, 5
+
+	def_coord_events
+
+	def_bg_events
+	bg_event  3,  6, BGEVENT_READ, Museum2FMoonStoneSignpostScript
+	bg_event 11,  2, BGEVENT_JUMPTEXT, Museum2FSpaceShuttleSignpostText
+
+	def_object_events
+	object_event  7,  5, SPRITE_SCIENTIST, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_COMMAND, jumptextfaceplayer, Museum2FScientistText, -1
+	object_event  1,  7, SPRITE_CHILD, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_COMMAND, jumptextfaceplayer, Museum2FChildText, -1
+	object_event  2,  7, SPRITE_POKEFAN_F, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_COMMAND, jumptextfaceplayer, Museum2FTeacherText, -1
+	object_event  2,  1, SPRITE_CUTE_GIRL, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_COMMAND, jumptextfaceplayer, Museum2FLassText, -1
+	object_event 12,  5, SPRITE_HIKER, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, Museum2FPokefanMScript, -1
+
+Museum2FPokefanMScript:
+	faceplayer
+	opentext
+	checkevent EVENT_LISTENED_TO_SEISMIC_TOSS_INTRO
+	iftrue Museum2FTutorSeismicTossScript
+	checkunits
+	iftrue .metric
+	writetext Museum2FPokefanMImperialText
+	sjump .ok
+.metric
+	writetext Museum2FPokefanMMetricText
+.ok
+	waitbutton
+	setevent EVENT_LISTENED_TO_SEISMIC_TOSS_INTRO
+Museum2FTutorSeismicTossScript:
+	writetext Text_Museum2FTutorSeismicToss
+	waitbutton
+	checkitem SILVER_LEAF
+	iffalse .NoSilverLeaf
+	writetext Text_Museum2FTutorQuestion
+	yesorno
+	iffalse .TutorRefused
+	setval SEISMIC_TOSS
+	writetext ClearText
+	special Special_MoveTutor
+	ifequal $0, .TeachMove
+.TutorRefused
+	jumpopenedtext Text_Museum2FTutorRefused
+
+.NoSilverLeaf
+	jumpopenedtext Text_Museum2FTutorNoSilverLeaf
+
+.TeachMove
+	takeitem SILVER_LEAF
+	jumpopenedtext Text_Museum2FTutorTaught
+
+Museum2FMoonStoneSignpostScript:
+	refreshscreen
+	trainerpic METEORITE
+	waitbutton
+	closepokepic
+	jumptext Museum2FMoonStoneSignpostText
+
+Museum2FScientistText:
+	text "Meteorites struck"
+	line "Mt.Moon near"
+	cont "Pewter City."
+
+	para "We have one"
+	line "on display."
+
+	para "It seems to emit"
+	line "strange energy…"
+	done
+
+
+Museum2FLassText:
+	text "#mon revived"
+	line "from fossils are"
+
+	para "all part Rock-"
+	line "type."
+
+	para "Were they always"
+	line "that way, or is it"
+
+	para "a result of the"
+	line "fossilization"
+	cont "process?"
+	done
+
+Museum2FPokefanMImperialText:
+	text "This space shuttle"
+	line "used to fly 160"
+
+	para "miles above the"
+	line "earth, defying"
+	cont "gravity!"
+
+	para "You know what else"
+	line "can defy gravity?"
+
+	para "Seismic Toss,"
+	line "of course!"
+	done
+
+Museum2FChildText:
+	text "Stuff and rocks"
+	line "and rocks and"
+
+	para "stuff. Can we go"
+	line "already?"
+	done
+
+Museum2FTeacherText:
+	text "Sigh… My son isn't"
+	line "enjoying the mu-"
+
+	para "seum as much as I"
+	line "hoped he would."
+
+	para "Kids, huh?"
+	done
+
+Museum2FPokefanMMetricText:
+	text "This space shuttle"
+	line "used to fly 250"
+
+	para "kilometers above"
+	line "the earth, defy-"
+	cont "ing gravity!"
+
+	para "You know what else"
+	line "can defy gravity?"
+
+	para "Seismic Toss,"
+	line "of course!"
+	done
+
+Text_Museum2FTutorSeismicToss:
+	text "I can teach your"
+	line "#mon to use"
+
+	para "Seismic Toss for"
+	line "one Silver Leaf."
+	done
+
+Text_Museum2FTutorNoSilverLeaf:
+	text "You don't have a"
+	line "Silver Leaf!"
+	done
+
+Text_Museum2FTutorQuestion:
+	text "Should I teach"
+	line "your #mon"
+	cont "Seismic Toss?"
+	done
+
+Text_Museum2FTutorRefused:
+	text "If you say so."
+	done
+
+Text_Museum2FTutorTaught:
+	text "Now your #mon"
+	line "knows how to use"
+	cont "Seismic Toss!"
+	done
+
+Museum2FMoonStoneSignpostText:
+	text "Meteorite that"
+	line "fell on Mt.Moon."
+	cont "(Moon Stone)"
+	done
+
+Museum2FSpaceShuttleSignpostText:
+	text "Space Shuttle"
+	done