Use macros to enforce "hidden object" constraints, and rename them to "hidden events" (#559)

1 files changed, 51 insertions, 0 deletions

diff --git a/engine/events/hidden_events/museum_fossils.asm b/engine/events/hidden_events/museum_fossils.asm
new file mode 100644
index 00000000..df74293f
--- /dev/null
+++ b/engine/events/hidden_events/museum_fossils.asm
@@ -0,0 +1,51 @@
+AerodactylFossil:
+	ld a, FOSSIL_AERODACTYL
+	ld [wCurPartySpecies], a
+	call DisplayMonFrontSpriteInBox
+	call EnableAutoTextBoxDrawing
+	tx_pre AerodactylFossilText
+	ret
+
+AerodactylFossilText::
+	text_far _AerodactylFossilText
+	text_end
+
+KabutopsFossil:
+	ld a, FOSSIL_KABUTOPS
+	ld [wCurPartySpecies], a
+	call DisplayMonFrontSpriteInBox
+	call EnableAutoTextBoxDrawing
+	tx_pre KabutopsFossilText
+	ret
+
+KabutopsFossilText::
+	text_far _KabutopsFossilText
+	text_end
+
+DisplayMonFrontSpriteInBox:
+; Displays a pokemon's front sprite in a pop-up window.
+	ld a, 1
+	ldh [hAutoBGTransferEnabled], a
+	call Delay3
+	xor a
+	ldh [hWY], a
+	call SaveScreenTilesToBuffer1
+	ld a, MON_SPRITE_POPUP
+	ld [wTextBoxID], a
+	call DisplayTextBoxID
+	call UpdateSprites
+	ld a, [wCurPartySpecies]
+	ld [wCurSpecies], a
+	call GetMonHeader
+	ld de, vChars1 tile $31
+	call LoadMonFrontSprite
+	ld a, $80
+	ldh [hStartTileID], a
+	hlcoord 10, 11
+	predef AnimateSendingOutMon
+	call WaitForTextScrollButtonPress
+	call LoadScreenTilesFromBuffer1
+	call Delay3
+	ld a, $90
+	ldh [hWY], a
+	ret