First Commit

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

maps/GoldenrodHappinessRater.asm

@@ -0,0 +1,154 @@
+	object_const_def
+	const GOLDENRODHAPPINESSRATER_TEACHER
+	const GOLDENRODHAPPINESSRATER_POKEFAN_M
+	const GOLDENRODHAPPINESSRATER_TWIN
+
+GoldenrodHappinessRater_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+GoldenrodHappinessRaterTeacherScript:
+	faceplayer
+	opentext
+	special GetFirstPokemonHappiness
+	writetext GoldenrodHappinessRaterTeacherText
+	promptbutton
+	ifgreater 250 - 1, .LovesYouALot
+	ifgreater 200 - 1, .ReallyTrustsYou
+	ifgreater 150 - 1, .SortOfHappy
+	ifgreater 100 - 1, .QuiteCute
+	ifgreater  50 - 1, .NotUsedToYou
+	sjump .LooksMean
+
+.LovesYouALot:
+	writetext GoldenrodHappinessRatingText_LovesYouALot
+	waitbutton
+	closetext
+	end
+
+.ReallyTrustsYou:
+	writetext GoldenrodHappinessRatingText_ReallyTrustsYou
+	waitbutton
+	closetext
+	end
+
+.SortOfHappy:
+	writetext GoldenrodHappinessRatingText_SortOfHappy
+	waitbutton
+	closetext
+	end
+
+.QuiteCute:
+	writetext GoldenrodHappinessRatingText_QuiteCute
+	waitbutton
+	closetext
+	end
+
+.NotUsedToYou:
+	writetext GoldenrodHappinessRatingText_NotUsedToYou
+	waitbutton
+	closetext
+	end
+
+.LooksMean:
+	writetext GoldenrodHappinessRatingText_LooksMean
+	waitbutton
+	closetext
+	end
+
+GoldenrodHappinessRaterPokefanMScript:
+	jumptextfaceplayer GoldenrodHappinessRaterPokefanMText
+
+GoldenrodHappinessRaterTwinScript:
+	jumptextfaceplayer GoldenrodHappinessRaterTwinText
+
+HappinessRatersHouseBookshelf:
+	jumpstd DifficultBookshelfScript
+
+HappinessRatersHouseRadio:
+	jumpstd Radio2Script
+
+GoldenrodHappinessRaterTeacherText:
+	text "If you treat your"
+	line "#MON nicely,"
+
+	para "they will love you"
+	line "in return."
+
+	para "Oh? Let me see"
+	line "your @"
+	text_ram wStringBuffer3
+	text "…"
+	done
+
+GoldenrodHappinessRatingText_LovesYouALot:
+	text "It looks really"
+	line "happy! It must"
+	cont "love you a lot."
+	done
+
+GoldenrodHappinessRatingText_ReallyTrustsYou:
+	text "I get the feeling"
+	line "that it really"
+	cont "trusts you."
+	done
+
+GoldenrodHappinessRatingText_SortOfHappy:
+	text "It's friendly to-"
+	line "ward you. It looks"
+	cont "sort of happy."
+	done
+
+GoldenrodHappinessRatingText_QuiteCute:
+	text "It's quite cute."
+	done
+
+GoldenrodHappinessRatingText_NotUsedToYou:
+	text "You should treat"
+	line "it better. It's"
+	cont "not used to you."
+	done
+
+GoldenrodHappinessRatingText_LooksMean:
+	text "It doesn't seem to"
+	line "like you at all."
+	cont "It looks mean."
+	done
+
+GoldenrodHappinessRaterPokefanMText:
+	text "I keep losing in"
+	line "battles, and my"
+
+	para "#MON end up"
+	line "fainting…"
+
+	para "Maybe that's why"
+	line "my #MON don't"
+	cont "like me much…"
+	done
+
+GoldenrodHappinessRaterTwinText:
+	text "When I use an item"
+	line "on my #MON, it"
+	cont "acts really glad!"
+	done
+
+GoldenrodHappinessRater_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  2,  7, GOLDENROD_CITY, 3
+	warp_event  3,  7, GOLDENROD_CITY, 3
+
+	def_coord_events
+
+	def_bg_events
+	bg_event  0,  1, BGEVENT_READ, HappinessRatersHouseBookshelf
+	bg_event  1,  1, BGEVENT_READ, HappinessRatersHouseBookshelf
+	bg_event  7,  1, BGEVENT_READ, HappinessRatersHouseRadio
+
+	def_object_events
+	object_event  2,  4, SPRITE_TEACHER, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, GoldenrodHappinessRaterTeacherScript, -1
+	object_event  5,  3, SPRITE_POKEFAN_M, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, GoldenrodHappinessRaterPokefanMScript, -1
+	object_event  5,  6, SPRITE_TWIN, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 1, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, GoldenrodHappinessRaterTwinScript, -1