pokered/scripts/MrFujisHouse.asm
vulcandth d001ced41b
Add macros, constants, and labels for map scripts and text (#367)
This introduces `def_script_pointers`, `def_text_pointers`, and `object_const_def` macros, and applies them to all maps. Most other map labels have also been identified.
2023-07-13 21:27:56 -04:00

113 lines
2.5 KiB
NASM

MrFujisHouse_Script:
call EnableAutoTextBoxDrawing
ret
MrFujisHouse_TextPointers:
def_text_pointers
dw_const MrFujisHouseSuperNerdText, TEXT_MRFUJISHOUSE_SUPER_NERD
dw_const MrFujisHouseLittleGirlText, TEXT_MRFUJISHOUSE_LITTLE_GIRL
dw_const MrFujisHousePsyduckText, TEXT_MRFUJISHOUSE_PSYDUCK
dw_const MrFujisHouseNidorinoText, TEXT_MRFUJISHOUSE_NIDORINO
dw_const MrFujisHouseMrFujiText, TEXT_MRFUJISHOUSE_MR_FUJI
dw_const MrFujisHouseMrFujiPokedexText, TEXT_MRFUJISHOUSE_POKEDEX
MrFujisHouseSuperNerdText:
text_asm
CheckEvent EVENT_RESCUED_MR_FUJI
jr nz, .rescued_mr_fuji
ld hl, .MrFujiIsntHereText
call PrintText
jr .done
.rescued_mr_fuji
ld hl, .MrFujiHadBeenPrayingText
call PrintText
.done
jp TextScriptEnd
.MrFujiIsntHereText:
text_far _MrFujisHouseSuperNerdMrFujiIsntHereText
text_end
.MrFujiHadBeenPrayingText:
text_far _MrFujisHouseSuperNerdMrFujiHadBeenPrayingText
text_end
MrFujisHouseLittleGirlText:
text_asm
CheckEvent EVENT_RESCUED_MR_FUJI
jr nz, .rescued_mr_fuji
ld hl, .ThisIsMrFujisHouseText
call PrintText
jr .done
.rescued_mr_fuji
ld hl, .PokemonAreNiceToHugText
call PrintText
.done
jp TextScriptEnd
.ThisIsMrFujisHouseText:
text_far _MrFujisHouseLittleGirlThisIsMrFujisHouseText
text_end
.PokemonAreNiceToHugText:
text_far _MrFujisHouseLittleGirlPokemonAreNiceToHugText
text_end
MrFujisHousePsyduckText:
text_far _MrFujisHousePsyduckText
text_asm
ld a, PSYDUCK
call PlayCry
jp TextScriptEnd
MrFujisHouseNidorinoText:
text_far _MrFujisHouseNidorinoText
text_asm
ld a, NIDORINO
call PlayCry
jp TextScriptEnd
MrFujisHouseMrFujiText:
text_asm
CheckEvent EVENT_GOT_POKE_FLUTE
jr nz, .got_item
ld hl, .IThinkThisMayHelpYourQuestText
call PrintText
lb bc, POKE_FLUTE, 1
call GiveItem
jr nc, .bag_full
ld hl, .ReceivedPokeFluteText
call PrintText
SetEvent EVENT_GOT_POKE_FLUTE
jr .done
.bag_full
ld hl, .PokeFluteNoRoomText
call PrintText
jr .done
.got_item
ld hl, .HasMyFluteHelpedYouText
call PrintText
.done
jp TextScriptEnd
.IThinkThisMayHelpYourQuestText:
text_far _MrFujisHouseMrFujiIThinkThisMayHelpYourQuestText
text_end
.ReceivedPokeFluteText:
text_far _MrFujisHouseMrFujiReceivedPokeFluteText
sound_get_key_item
text_far _MrFujisHouseMrFujiPokeFluteExplanationText
text_end
.PokeFluteNoRoomText:
text_far _MrFujisHouseMrFujiPokeFluteNoRoomText
text_end
.HasMyFluteHelpedYouText:
text_far _MrFujisHouseMrFujiHasMyFluteHelpedYouText
text_end
MrFujisHouseMrFujiPokedexText:
text_far _MrFujisHouseMrFujiPokedexText
text_end