copycatshouse2f.asm 1.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103
  1. CopycatsHouse2FScript:
  2. jp EnableAutoTextBoxDrawing
  3. CopycatsHouse2FTextPointers:
  4. dw CopycatsHouse2FText1
  5. dw CopycatsHouse2FText2
  6. dw CopycatsHouse2FText3
  7. dw CopycatsHouse2FText4
  8. dw CopycatsHouse2FText5
  9. dw CopycatsHouse2FText6
  10. dw CopycatsHouse2FText7
  11. CopycatsHouse2FText1:
  12. TX_ASM
  13. CheckEvent EVENT_GOT_TM31
  14. jr nz, .asm_7ccf3
  15. ld a, $1
  16. ld [wDoNotWaitForButtonPressAfterDisplayingText], a
  17. ld hl, CopycatsHouse2FText_5ccd4
  18. call PrintText
  19. ld b, POKE_DOLL
  20. call IsItemInBag
  21. jr z, .asm_62ecd
  22. ld hl, TM31PreReceiveText
  23. call PrintText
  24. lb bc, TM_31, 1
  25. call GiveItem
  26. jr nc, .BagFull
  27. ld hl, ReceivedTM31Text
  28. call PrintText
  29. ld a, POKE_DOLL
  30. ld [$ffdb], a
  31. callba RemoveItemByID
  32. SetEvent EVENT_GOT_TM31
  33. jr .asm_62ecd
  34. .BagFull
  35. ld hl, TM31NoRoomText
  36. call PrintText
  37. jr .asm_62ecd
  38. .asm_7ccf3
  39. ld hl, TM31ExplanationText2
  40. call PrintText
  41. .asm_62ecd
  42. jp TextScriptEnd
  43. CopycatsHouse2FText_5ccd4:
  44. TX_FAR _CopycatsHouse2FText_5ccd4
  45. db "@"
  46. TM31PreReceiveText:
  47. TX_FAR _TM31PreReceiveText
  48. db "@"
  49. ReceivedTM31Text:
  50. TX_FAR _ReceivedTM31Text
  51. TX_SFX_ITEM_1
  52. TM31ExplanationText1:
  53. TX_FAR _TM31ExplanationText1
  54. TX_WAIT
  55. db "@"
  56. TM31ExplanationText2:
  57. TX_FAR _TM31ExplanationText2
  58. db "@"
  59. TM31NoRoomText:
  60. TX_FAR _TM31NoRoomText
  61. TX_WAIT
  62. db "@"
  63. CopycatsHouse2FText2:
  64. TX_FAR _CopycatsHouse2FText2
  65. db "@"
  66. CopycatsHouse2FText5:
  67. CopycatsHouse2FText4:
  68. CopycatsHouse2FText3:
  69. TX_FAR _CopycatsHouse2FText3
  70. db "@"
  71. CopycatsHouse2FText6:
  72. TX_FAR _CopycatsHouse2FText6
  73. db "@"
  74. CopycatsHouse2FText7:
  75. TX_ASM
  76. ld a, [wSpriteStateData1 + 9]
  77. cp SPRITE_FACING_UP
  78. ld hl, CopycatsHouse2FText_5cd1c
  79. jr nz, .notUp
  80. ld hl, CopycatsHouse2FText_5cd17
  81. .notUp
  82. call PrintText
  83. jp TextScriptEnd
  84. CopycatsHouse2FText_5cd17:
  85. TX_FAR _CopycatsHouse2FText_5cd17
  86. db "@"
  87. CopycatsHouse2FText_5cd1c:
  88. TX_FAR _CopycatsHouse2FText_5cd1c
  89. db "@"