safari_zone.asm 571 B

12345678910111213141516171819202122232425262728293031323334353637
  1. PrintSafariZoneBattleText:
  2. ld hl, wSafariBaitFactor
  3. ld a, [hl]
  4. and a
  5. jr z, .asm_4284
  6. dec [hl]
  7. ld hl, SafariZoneEatingText
  8. jr .asm_429f
  9. .asm_4284
  10. dec hl
  11. ld a, [hl]
  12. and a
  13. ret z
  14. dec [hl]
  15. ld hl, SafariZoneAngryText
  16. jr nz, .asm_429f
  17. push hl
  18. ld a, [wEnemyMonSpecies]
  19. ld [wd0b5], a
  20. call GetMonHeader
  21. ld a, [wMonHCatchRate]
  22. ld [wEnemyMonActualCatchRate], a
  23. pop hl
  24. .asm_429f
  25. push hl
  26. call LoadScreenTilesFromBuffer1
  27. pop hl
  28. jp PrintText
  29. SafariZoneEatingText:
  30. TX_FAR _SafariZoneEatingText
  31. db "@"
  32. SafariZoneAngryText:
  33. TX_FAR _SafariZoneAngryText
  34. db "@"