redshouse1f.asm 1.1 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970
  1. RedsHouse1FScript:
  2. jp EnableAutoTextBoxDrawing
  3. RedsHouse1FTextPointers:
  4. dw RedsHouse1FText1
  5. dw RedsHouse1FText2
  6. RedsHouse1FText1: ; Mom
  7. TX_ASM
  8. ld a, [wd72e]
  9. bit 3, a
  10. jr nz, .heal ; if player has received a Pokémon from Oak, heal team
  11. ld hl, MomWakeUpText
  12. call PrintText
  13. jr .done
  14. .heal
  15. call MomHealPokemon
  16. .done
  17. jp TextScriptEnd
  18. MomWakeUpText:
  19. TX_FAR _MomWakeUpText
  20. db "@"
  21. MomHealPokemon:
  22. ld hl, MomHealText1
  23. call PrintText
  24. call GBFadeOutToWhite
  25. call ReloadMapData
  26. predef HealParty
  27. ld a, MUSIC_PKMN_HEALED
  28. ld [wNewSoundID], a
  29. call PlaySound
  30. .next
  31. ld a, [wChannelSoundIDs]
  32. cp MUSIC_PKMN_HEALED
  33. jr z, .next
  34. ld a, [wMapMusicSoundID]
  35. ld [wNewSoundID], a
  36. call PlaySound
  37. call GBFadeInFromWhite
  38. ld hl, MomHealText2
  39. jp PrintText
  40. MomHealText1:
  41. TX_FAR _MomHealText1
  42. db "@"
  43. MomHealText2:
  44. TX_FAR _MomHealText2
  45. db "@"
  46. RedsHouse1FText2: ; TV
  47. TX_ASM
  48. ld a, [wSpriteStateData1 + 9]
  49. cp SPRITE_FACING_UP
  50. ld hl, TVWrongSideText
  51. jr nz, .notUp
  52. ld hl, StandByMeText
  53. .notUp
  54. call PrintText
  55. jp TextScriptEnd
  56. StandByMeText:
  57. TX_FAR _StandByMeText
  58. db "@"
  59. TVWrongSideText:
  60. TX_FAR _TVWrongSideText
  61. db "@"