fuchsiahouse2.asm 1.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114
  1. FuchsiaHouse2Script:
  2. jp EnableAutoTextBoxDrawing
  3. FuchsiaHouse2TextPointers:
  4. dw FuchsiaHouse2Text1
  5. dw PickUpItemText
  6. dw BoulderText
  7. dw FuchsiaHouse2Text4
  8. dw FuchsiaHouse2Text5
  9. FuchsiaHouse2Text1:
  10. TX_ASM
  11. CheckEvent EVENT_GOT_HM04
  12. jr nz, .subtract
  13. ld b, GOLD_TEETH
  14. call IsItemInBag
  15. jr nz, .asm_3f30f
  16. CheckEvent EVENT_GAVE_GOLD_TEETH
  17. jr nz, .asm_60cba
  18. ld hl, WardenGibberishText1
  19. call PrintText
  20. call YesNoChoice
  21. ld a, [wCurrentMenuItem]
  22. and a
  23. ld hl, WardenGibberishText3
  24. jr nz, .asm_61238
  25. ld hl, WardenGibberishText2
  26. .asm_61238
  27. call PrintText
  28. jr .asm_52039
  29. .asm_3f30f
  30. ld hl, WardenTeethText1
  31. call PrintText
  32. ld a, GOLD_TEETH
  33. ld [$ffdb], a
  34. callba RemoveItemByID
  35. SetEvent EVENT_GAVE_GOLD_TEETH
  36. .asm_60cba
  37. ld hl, WardenThankYouText
  38. call PrintText
  39. lb bc, HM_04, 1
  40. call GiveItem
  41. jr nc, .BagFull
  42. ld hl, ReceivedHM04Text
  43. call PrintText
  44. SetEvent EVENT_GOT_HM04
  45. jr .asm_52039
  46. .subtract
  47. ld hl, HM04ExplanationText
  48. call PrintText
  49. jr .asm_52039
  50. .BagFull
  51. ld hl, HM04NoRoomText
  52. call PrintText
  53. .asm_52039
  54. jp TextScriptEnd
  55. WardenGibberishText1:
  56. TX_FAR _WardenGibberishText1
  57. db "@"
  58. WardenGibberishText2:
  59. TX_FAR _WardenGibberishText2
  60. db "@"
  61. WardenGibberishText3:
  62. TX_FAR _WardenGibberishText3
  63. db "@"
  64. WardenTeethText1:
  65. TX_FAR _WardenTeethText1
  66. TX_SFX_ITEM_1
  67. WardenTeethText2:
  68. TX_FAR _WardenTeethText2
  69. db "@"
  70. WardenThankYouText:
  71. TX_FAR _WardenThankYouText
  72. db "@"
  73. ReceivedHM04Text:
  74. TX_FAR _ReceivedHM04Text
  75. TX_SFX_ITEM_1
  76. db "@"
  77. HM04ExplanationText:
  78. TX_FAR _HM04ExplanationText
  79. db "@"
  80. HM04NoRoomText:
  81. TX_FAR _HM04NoRoomText
  82. db "@"
  83. FuchsiaHouse2Text5:
  84. FuchsiaHouse2Text4:
  85. TX_ASM
  86. ld a, [H_SPRITEINDEX]
  87. cp $4
  88. ld hl, FuchsiaHouse2Text_7517b
  89. jr nz, .asm_4c9a2
  90. ld hl, FuchsiaHouse2Text_75176
  91. .asm_4c9a2
  92. call PrintText
  93. jp TextScriptEnd
  94. FuchsiaHouse2Text_75176:
  95. TX_FAR _FuchsiaHouse2Text_75176
  96. db "@"
  97. FuchsiaHouse2Text_7517b:
  98. TX_FAR _FuchsiaHouse2Text_7517b
  99. db "@"