mirror of
https://github.com/thornAvery/kep-hack.git
synced 2025-09-16 18:30:50 +12:00
c4afafb9ac
Letter is there, post-game warp is done, new post-game event where you receive the letter isn't working properly
181 lines
3.1 KiB
NASM
181 lines
3.1 KiB
NASM
RedsHouse1F_Script:
|
|
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
|
|
ld a, [wd72e]
|
|
bit 3, a ; received a Pokémon from Oak?
|
|
jr nz, .heal
|
|
ld hl, MomWakeUpText
|
|
call PrintText
|
|
jr .done
|
|
.heal
|
|
call MomHealPokemon
|
|
.done
|
|
jp TextScriptEnd
|
|
|
|
MomWakeUpText:
|
|
text_far _MomWakeUpText
|
|
text_end
|
|
|
|
MomHealPokemon:
|
|
ld hl, MomHealText1
|
|
call PrintText
|
|
call GBFadeOutToWhite
|
|
call ReloadMapData
|
|
predef HealParty
|
|
ld a, MUSIC_PKMN_HEALED
|
|
; ld [wNewSoundID], a
|
|
call PlayMusic
|
|
|
|
call WaitForSongToFinish
|
|
;.next
|
|
; ld a, [wChannelSoundIDs]
|
|
; cp MUSIC_PKMN_HEALED
|
|
; jr z, .next
|
|
|
|
ld a, [wMapMusicSoundID]
|
|
; ld [wNewSoundID], a
|
|
call PlayMusic
|
|
call GBFadeInFromWhite
|
|
ld hl, MomHealText2
|
|
jp PrintText
|
|
|
|
MomHealText1:
|
|
text_far _MomHealText1
|
|
text_end
|
|
MomHealText2:
|
|
text_far _MomHealText2
|
|
text_end
|
|
|
|
RedsHouse1FTVText:
|
|
text_asm
|
|
ld a, [wSpritePlayerStateData1FacingDirection]
|
|
cp SPRITE_FACING_UP
|
|
ld hl, TVWrongSideText
|
|
jr nz, .got_text
|
|
ld hl, StandByMeText
|
|
.got_text
|
|
call PrintText
|
|
jp TextScriptEnd
|
|
|
|
StandByMeText:
|
|
text_far _StandByMeText
|
|
text_end
|
|
|
|
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
|