route16house.asm 901 B

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556
  1. Route16HouseScript:
  2. jp EnableAutoTextBoxDrawing
  3. Route16HouseTextPointers:
  4. dw Route16HouseText1
  5. dw Route16HouseText2
  6. Route16HouseText1:
  7. TX_ASM
  8. CheckEvent EVENT_GOT_HM02
  9. ld hl, HM02ExplanationText
  10. jr nz, .asm_13616
  11. ld hl, Route16HouseText3
  12. call PrintText
  13. lb bc, HM_02, 1
  14. call GiveItem
  15. jr nc, .BagFull
  16. SetEvent EVENT_GOT_HM02
  17. ld hl, ReceivedHM02Text
  18. jr .asm_13616
  19. .BagFull
  20. ld hl, HM02NoRoomText
  21. .asm_13616
  22. call PrintText
  23. jp TextScriptEnd
  24. Route16HouseText3:
  25. TX_FAR _Route16HouseText3
  26. db "@"
  27. ReceivedHM02Text:
  28. TX_FAR _ReceivedHM02Text
  29. TX_SFX_KEY_ITEM
  30. db "@"
  31. HM02ExplanationText:
  32. TX_FAR _HM02ExplanationText
  33. db "@"
  34. HM02NoRoomText:
  35. TX_FAR _HM02NoRoomText
  36. db "@"
  37. Route16HouseText2:
  38. TX_ASM
  39. ld hl, Route16HouseText_1e652
  40. call PrintText
  41. ld a, FEAROW
  42. call PlayCry
  43. call WaitForSoundToFinish
  44. jp TextScriptEnd
  45. Route16HouseText_1e652:
  46. TX_FAR _Route16HouseText_1e652
  47. db "@"