Advertisement
wolfboyft

crash 1

Jan 15th, 2016
142
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.18 KB | None | 0 0
  1. .doTheThings
  2. ld a, [MenuSelection2]
  3. cp 0
  4. jr z, .OK0
  5. cp 1
  6. jr z, .OK1
  7. cp 2
  8. jr z, .OK2
  9. cp 3
  10. jr z, .OK3
  11. cp 4
  12. jr z, .OK4
  13. ret ; how the hell is the program counter supposed to get HERE? regardless, i'll put a ret in to stop any funny ideas.
  14.  
  15. .OK0
  16. ld hl, Examine
  17. ld a, BANK(Examine)
  18. jp CallScript
  19.  
  20. .OK1
  21. ld hl, Talk
  22. ld a, BANK(Talk)
  23. jp CallScript
  24.  
  25. .OK2
  26. ld hl, Take
  27. ld a, BANK(Take)
  28. jp CallScript
  29.  
  30. .OK3
  31. ld hl, Attack
  32. ld a, BANK(Attack)
  33. jp CallScript
  34.  
  35. .OK4
  36. ld hl, Use
  37. ld a, BANK(Use)
  38. jp CallScript
  39.  
  40. .script ; 96a04
  41. call LoadFont
  42. ld hl, .DoWhat
  43. call PrintText
  44. ld hl, .MenuDataHeader_Actions
  45. call LoadMenuDataHeader
  46. call InterpretMenu2
  47. call LoadMoveSprites
  48. ret c
  49. call .doTheThings
  50. ld hl, testScript
  51. call CallScript
  52. ld hl, MAPOBJECT_SCRIPT_POINTER
  53. add hl, bc
  54. ld a, [hli]
  55. ld h, [hl]
  56. ld l, a
  57. call GetMapScriptHeaderBank
  58. jp CallScript
  59.  
  60. .DoWhat
  61. text "Do what?"
  62. prompt
  63.  
  64. .MenuDataHeader_Actions:
  65. db $40 ; flags
  66. db 00, 00 ; start coords
  67. db 12, 08 ; end coords
  68. dw .menudata2
  69. db 1 ; default option
  70.  
  71. .menudata2:
  72. db $80 ; strings
  73. db 5 ; items
  74. db "Look@"
  75. db "Talk@"
  76. db "Take@"
  77. db "Attack@"
  78. db "Use@"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement