First Commit

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

maps/LakeOfRageMagikarpHouse.asm

@@ -0,0 +1,224 @@
+	object_const_def
+	const LAKEOFRAGEMAGIKARPHOUSE_FISHING_GURU
+
+LakeOfRageMagikarpHouse_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+MagikarpLengthRaterScript:
+	faceplayer
+	opentext
+	checkevent EVENT_LAKE_OF_RAGE_ELIXIR_ON_STANDBY
+	iftrue .GetReward
+	checkevent EVENT_LAKE_OF_RAGE_ASKED_FOR_MAGIKARP
+	iftrue .AskedForMagikarp
+	checkevent EVENT_CLEARED_ROCKET_HIDEOUT
+	iftrue .ClearedRocketHideout
+	checkevent EVENT_LAKE_OF_RAGE_EXPLAINED_WEIRD_MAGIKARP
+	iftrue .ExplainedHistory
+	writetext MagikarpLengthRaterText_LakeOfRageHistory
+	waitbutton
+	closetext
+	setevent EVENT_LAKE_OF_RAGE_EXPLAINED_WEIRD_MAGIKARP
+	end
+
+.ExplainedHistory:
+	writetext MagikarpLengthRaterText_MenInBlack
+	waitbutton
+	closetext
+	end
+
+.ClearedRocketHideout:
+	writetext MagikarpLengthRaterText_WorldsLargestMagikarp
+	waitbutton
+	closetext
+	setevent EVENT_LAKE_OF_RAGE_ASKED_FOR_MAGIKARP
+	end
+
+.AskedForMagikarp:
+	loadmonindex 1, MAGIKARP
+	special FindPartyMonThatSpecies
+	iffalse .ClearedRocketHideout
+	writetext MagikarpLengthRaterText_YouHaveAMagikarp
+	waitbutton
+	special CheckMagikarpLength
+	ifequal MAGIKARPLENGTH_NOT_MAGIKARP, .NotMagikarp
+	ifequal MAGIKARPLENGTH_REFUSED, .Refused
+	ifequal MAGIKARPLENGTH_TOO_SHORT, .TooShort
+	; MAGIKARPLENGTH_BEAT_RECORD
+	sjump .GetReward
+
+.GetReward:
+	writetext MagikarpLengthRaterText_Memento
+	promptbutton
+	verbosegiveitem ELIXER
+	iffalse .NoRoom
+	writetext MagikarpLengthRaterText_Bonus
+	waitbutton
+	closetext
+	clearevent EVENT_LAKE_OF_RAGE_ELIXIR_ON_STANDBY
+	end
+
+.NoRoom:
+	closetext
+	setevent EVENT_LAKE_OF_RAGE_ELIXIR_ON_STANDBY
+	end
+
+.TooShort:
+	writetext MagikarpLengthRaterText_TooShort
+	waitbutton
+	closetext
+	end
+
+.NotMagikarp:
+	writetext MagikarpLengthRaterText_NotMagikarp
+	waitbutton
+	closetext
+	end
+
+.Refused:
+	writetext MagikarpLengthRaterText_Refused
+	waitbutton
+	closetext
+	end
+
+LakeOfRageMagikarpHouseUnusedRecordSign: ; unreferenced
+	jumptext LakeOfRageMagikarpHouseUnusedRecordText
+
+MagikarpHouseBookshelf:
+	jumpstd DifficultBookshelfScript
+
+MagikarpLengthRaterText_LakeOfRageHistory:
+	text "LAKE OF RAGE is"
+	line "actually a crater"
+
+	para "made by rampaging"
+	line "GYARADOS."
+
+	para "The crater filled"
+	line "up with rainwater"
+
+	para "and the LAKE was"
+	line "formed."
+
+	para "That's the story"
+	line "passed on from my"
+
+	para "Grandpa's great-"
+	line "great-grandpa."
+
+	para "It used to be that"
+	line "you could catch"
+
+	para "lively MAGIKARP"
+	line "there, but…"
+
+	para "I don't understand"
+	line "what's happening."
+	done
+
+MagikarpLengthRaterText_MenInBlack:
+	text "The LAKE hasn't"
+	line "been normal since"
+
+	para "those men wearing"
+	line "black arrived."
+	done
+
+MagikarpLengthRaterText_WorldsLargestMagikarp:
+	text "LAKE OF RAGE is"
+	line "back to normal."
+
+	para "The MAGIKARP have"
+	line "returned."
+
+	para "I may yet realize"
+	line "my dream of see-"
+	cont "ing the world's"
+	cont "largest MAGIKARP."
+
+	para "Do you have a ROD?"
+	line "Please help me if"
+	cont "you do."
+	done
+
+MagikarpLengthRaterText_YouHaveAMagikarp:
+	text "Ah, you have a"
+	line "MAGIKARP! Let's"
+
+	para "see how big that"
+	line "baby is."
+	done
+
+MagikarpLengthRaterText_Memento:
+	text "Wow! This one is"
+	line "outstanding!"
+
+	para "I tip my hat to"
+	line "you!"
+
+	para "Take this as a"
+	line "memento!"
+	done
+
+MagikarpLengthRaterText_Bonus:
+	text "The record is the"
+	line "important thing."
+
+	para "Think of that as"
+	line "a bonus!"
+	done
+
+MagikarpLengthRaterText_TooShort:
+	text "Wow! This one is"
+	line "outstanding!"
+
+	para "…I wish I could"
+	line "say that, but I've"
+
+	para "seen a bigger one"
+	line "before."
+	done
+
+MagikarpLengthRaterText_NotMagikarp:
+	text "What? That's not a"
+	line "MAGIKARP!"
+	done
+
+MagikarpLengthRaterText_Refused:
+	text "Oh… So you didn't"
+	line "get one good"
+
+	para "enough to show me?"
+	line "Maybe next time."
+	done
+
+LakeOfRageMagikarpHouseUnusedRecordText:
+	text "CURRENT RECORD"
+
+	para "@"
+	text_ram wStringBuffer3
+	text " caught by"
+	line "@"
+	text_ram wStringBuffer4
+	text_end
+
+LakeOfRageMagikarpHouseUnusedDummyText: ; unreferenced
+	text_end
+
+LakeOfRageMagikarpHouse_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  2,  7, LAKE_OF_RAGE, 2
+	warp_event  3,  7, LAKE_OF_RAGE, 2
+
+	def_coord_events
+
+	def_bg_events
+	bg_event  0,  1, BGEVENT_READ, MagikarpHouseBookshelf
+	bg_event  1,  1, BGEVENT_READ, MagikarpHouseBookshelf
+
+	def_object_events
+	object_event  2,  3, SPRITE_FISHING_GURU, SPRITEMOVEDATA_SPINRANDOM_SLOW, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, MagikarpLengthRaterScript, -1