Groundwork

Letter is there, post-game warp is done, new post-game event where you receive the letter isn't working properly

scripts/HallOfFame.asm

@@ -43,7 +43,8 @@ HallofFameRoomScript2:
 	ResetEventRange INDIGO_PLATEAU_EVENTS_START, INDIGO_PLATEAU_EVENTS_END, 1
 	xor a
 	ld [wHallOfFameCurScript], a
-	ld a, PALLET_TOWN
+	ld hl, FirstMapSpec
+	ld a, [hli]
 	ld [wLastBlackoutMap], a
 	farcall SaveSAVtoSRAM
 	ld b, 5

scripts/RedsHouse1F.asm

@@ -1,9 +1,81 @@
 RedsHouse1F_Script:
-	jp EnableAutoTextBoxDrawing
+	call EnableAutoTextBoxDrawing
+	ld hl, RedsHouse1F_ScriptPointers
+	ld a, [wRedsHouse1FCurScript]
+	jp CallFunctionInTable
+
+RedsHouse1F_ScriptPointers:
+	dw ChiefLetter1
+	dw ChiefLetter2
+
+ChiefLetter1:
+	CheckEvent EVENT_POST_GAME_ATTAINED
+	jr z, .done
+	CheckEvent EVENT_LETTER_RECEIVED
+	jr nz, .done
+	; with the way this is being done, coords will be unnecessary.
+	; this will trigger the minute you enter the house.
+	call UpdateSprites
+	call PlayerSeeMom
+	
+	ld a, $ff
+	ld [wJoyIgnore], a
+	ld hl, wSimulatedJoypadStatesEnd
+	ld de, PlayerSeeMom_RLEMovement
+	call DecodeRLEList
+	dec a
+	ld [wSimulatedJoypadStatesIndex], a
+	call StartSimulatingJoypadStates
+	
+	ld a, $2
+	ld [wRedsHouse1FCurScript], a
+	ld [wCurMapScript], a
+.done
+	ret
+
+ChiefLetter2:
+	ld a, [wSimulatedJoypadStatesIndex]
+	and a
+	ret nz
+	call Delay3
+
+	ld a, $1
+	ldh [hSpriteIndex], a
+	
+	ld a, SPRITE_FACING_LEFT
+	ldh [hSpriteFacingDirection], a
+	call SetSpriteFacingDirectionAndDelay
+	
+	ld hl, MomGreeting
+	call PrintText
+	SetEvent EVENT_LETTER_RECEIVED
+	
+	ld a, $1
+	ld [wRedsHouse1FCurScript], a
+	ld [wCurMapScript], a
+	ret
+
+PlayerSeeMom:
+	ld c, 10
+	call DelayFrames
+	
+	ld [wEmotionBubbleSpriteIndex], a
+	xor a ; EXCLAMATION_BUBBLE
+	ld [wWhichEmotionBubble], a
+	predef EmotionBubble
+	ld c, 20
+	call DelayFrames
+	ret
+
+PlayerSeeMom_RLEMovement:
+	db D_LEFT, 1
+	db D_DOWN, 3
+	db -1 ; end
 
 RedsHouse1F_TextPointers:
 	dw RedsHouse1FMomText
 	dw RedsHouse1FTVText
+	dw MomGreeting
 
 RedsHouse1FMomText:
 	text_asm
@@ -70,3 +142,39 @@ StandByMeText:
 TVWrongSideText:
 	text_far _TVWrongSideText
 	text_end
+
+; Post-Game stuff here.
+
+MomGreeting:
+	text_asm
+	ld hl, MomYoureBack
+	call PrintText
+	lb bc, SILPHLETTER, 1
+	call GiveItem
+	ld hl, ReceivedChiefLetterText
+	call PrintText
+	ld a, [wSimulatedJoypadStatesEnd] ; ensuring that the text doesn't autoskip.
+	and a ; yep, here too.
+	call z, WaitForTextScrollButtonPress ; and here.
+	call EnableAutoTextBoxDrawing ; and here.
+	ld hl, ChiefLetterText
+	call PrintText
+	ld hl, MomAmazing
+	call PrintText
+	jp TextScriptEnd
+
+ChiefLetterText:
+	text_far _ChiefLetterText
+	text_end
+
+MomYoureBack:
+	text_far _MomYoureBack
+	text_end
+
+ReceivedChiefLetterText:
+	text_far _ReceivedChiefLetterText
+	text_end
+
+MomAmazing:
+	text_far _MomAmazing
+	text_end