victoryroad1.asm 2.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104
  1. VictoryRoad1Script:
  2. ld hl, wCurrentMapScriptFlags
  3. bit 5, [hl]
  4. res 5, [hl]
  5. call nz, .next
  6. call EnableAutoTextBoxDrawing
  7. ld hl, VictoryRoad1TrainerHeader0
  8. ld de, VictoryRoad1ScriptPointers
  9. ld a, [wVictoryRoad1CurScript]
  10. call ExecuteCurMapScriptInTable
  11. ld [wVictoryRoad1CurScript], a
  12. ret
  13. .next
  14. CheckEvent EVENT_VICTORY_ROAD_1_BOULDER_ON_SWITCH
  15. ret z
  16. ld a, $1d
  17. ld [wNewTileBlockID], a
  18. lb bc, 6, 4
  19. predef_jump ReplaceTileBlock
  20. VictoryRoad1ScriptPointers:
  21. dw VictoryRoad1Script0
  22. dw DisplayEnemyTrainerTextAndStartBattle
  23. dw EndTrainerBattle
  24. VictoryRoad1Script0:
  25. CheckEvent EVENT_VICTORY_ROAD_1_BOULDER_ON_SWITCH
  26. jp nz, CheckFightingMapTrainers
  27. ld hl, CoordsData_5da5c
  28. call CheckBoulderCoords
  29. jp nc, CheckFightingMapTrainers
  30. ld hl, wCurrentMapScriptFlags
  31. set 5, [hl]
  32. SetEvent EVENT_VICTORY_ROAD_1_BOULDER_ON_SWITCH
  33. ret
  34. CoordsData_5da5c:
  35. db $0D,$11,$FF
  36. VictoryRoad1TextPointers:
  37. dw VictoryRoad1Text1
  38. dw VictoryRoad1Text2
  39. dw PickUpItemText
  40. dw PickUpItemText
  41. dw BoulderText
  42. dw BoulderText
  43. dw BoulderText
  44. VictoryRoad1TrainerHeader0:
  45. dbEventFlagBit EVENT_BEAT_VICTORY_ROAD_1_TRAINER_0
  46. db ($2 << 4) ; trainer's view range
  47. dwEventFlagAddress EVENT_BEAT_VICTORY_ROAD_1_TRAINER_0
  48. dw VictoryRoad1BattleText1 ; TextBeforeBattle
  49. dw VictoryRoad1AfterBattleText1 ; TextAfterBattle
  50. dw VictoryRoad1EndBattleText1 ; TextEndBattle
  51. dw VictoryRoad1EndBattleText1 ; TextEndBattle
  52. VictoryRoad1TrainerHeader1:
  53. dbEventFlagBit EVENT_BEAT_VICTORY_ROAD_1_TRAINER_1
  54. db ($2 << 4) ; trainer's view range
  55. dwEventFlagAddress EVENT_BEAT_VICTORY_ROAD_1_TRAINER_1
  56. dw VictoryRoad1BattleText2 ; TextBeforeBattle
  57. dw VictoryRoad1AfterBattleText2 ; TextAfterBattle
  58. dw VictoryRoad1EndBattleText2 ; TextEndBattle
  59. dw VictoryRoad1EndBattleText2 ; TextEndBattle
  60. db $ff
  61. VictoryRoad1Text1:
  62. TX_ASM
  63. ld hl, VictoryRoad1TrainerHeader0
  64. call TalkToTrainer
  65. jp TextScriptEnd
  66. VictoryRoad1Text2:
  67. TX_ASM
  68. ld hl, VictoryRoad1TrainerHeader1
  69. call TalkToTrainer
  70. jp TextScriptEnd
  71. VictoryRoad1BattleText1:
  72. TX_FAR _VictoryRoad1BattleText1
  73. db "@"
  74. VictoryRoad1EndBattleText1:
  75. TX_FAR _VictoryRoad1EndBattleText1
  76. db "@"
  77. VictoryRoad1AfterBattleText1:
  78. TX_FAR _VictoryRoad1AfterBattleText1
  79. db "@"
  80. VictoryRoad1BattleText2:
  81. TX_FAR _VictoryRoad1BattleText2
  82. db "@"
  83. VictoryRoad1EndBattleText2:
  84. TX_FAR _VictoryRoad1EndBattleText2
  85. db "@"
  86. VictoryRoad1AfterBattleText2:
  87. TX_FAR _VictoryRoad1AfterBattleText2
  88. db "@"