ssanne7.asm 1.5 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394
  1. SSAnne7Script:
  2. call SSAnne7Script_6189b
  3. jp EnableAutoTextBoxDrawing
  4. SSAnne7Script_6189b:
  5. CheckEvent EVENT_RUBBED_CAPTAINS_BACK
  6. ret nz
  7. ld hl, wd72d
  8. set 5, [hl]
  9. ret
  10. SSAnne7TextPointers:
  11. dw SSAnne7Text1
  12. dw SSAnne7Text2
  13. dw SSAnne7Text3
  14. SSAnne7Text1:
  15. TX_ASM
  16. CheckEvent EVENT_GOT_HM01
  17. jr nz, .asm_797c4
  18. ld hl, SSAnne7RubText
  19. call PrintText
  20. ld hl, ReceivingHM01Text
  21. call PrintText
  22. lb bc, HM_01, 1
  23. call GiveItem
  24. jr nc, .BagFull
  25. ld hl, ReceivedHM01Text
  26. call PrintText
  27. SetEvent EVENT_GOT_HM01
  28. jr .asm_0faf5
  29. .BagFull
  30. ld hl, HM01NoRoomText
  31. call PrintText
  32. ld hl, wd72d
  33. set 5, [hl]
  34. jr .asm_0faf5
  35. .asm_797c4
  36. ld hl, SSAnne7Text_61932
  37. call PrintText
  38. .asm_0faf5
  39. jp TextScriptEnd
  40. SSAnne7RubText:
  41. TX_FAR _SSAnne7RubText
  42. TX_ASM
  43. ld a, [wAudioROMBank]
  44. cp BANK(Audio3_UpdateMusic)
  45. ld [wAudioSavedROMBank], a
  46. jr nz, .asm_61908
  47. ld a, $ff
  48. ld [wNewSoundID], a
  49. call PlaySound
  50. ld a, Bank(Music_PkmnHealed)
  51. ld [wAudioROMBank], a
  52. .asm_61908
  53. ld a, MUSIC_PKMN_HEALED
  54. ld [wNewSoundID], a
  55. call PlaySound
  56. .asm_61910
  57. ld a, [wChannelSoundIDs]
  58. cp MUSIC_PKMN_HEALED
  59. jr z, .asm_61910
  60. call PlayDefaultMusic
  61. SetEvent EVENT_RUBBED_CAPTAINS_BACK
  62. ld hl, wd72d
  63. res 5, [hl]
  64. jp TextScriptEnd
  65. ReceivingHM01Text:
  66. TX_FAR _ReceivingHM01Text
  67. db "@"
  68. ReceivedHM01Text:
  69. TX_FAR _ReceivedHM01Text
  70. TX_SFX_KEY_ITEM
  71. db "@"
  72. SSAnne7Text_61932:
  73. TX_FAR _SSAnne7Text_61932
  74. db "@"
  75. HM01NoRoomText:
  76. TX_FAR _HM01NoRoomText
  77. db "@"
  78. SSAnne7Text2:
  79. TX_FAR _SSAnne7Text2
  80. db "@"
  81. SSAnne7Text3:
  82. TX_FAR _SSAnne7Text3
  83. db "@"