pokered/engine/battle/safari_zone.asm

36 lines
579 B
NASM
Executable file

PrintSafariZoneBattleText:
ld hl, wSafariBaitFactor
ld a, [hl]
and a
jr z, .asm_4284
dec [hl]
ld hl, SafariZoneEatingText
jr .asm_429f
.asm_4284
dec hl
ld a, [hl]
and a
ret z
dec [hl]
ld hl, SafariZoneAngryText
jr nz, .asm_429f
push hl
ld a, [wEnemyMonSpecies]
ld [wd0b5], a
call GetMonHeader
ld a, [wMonHCatchRate]
ld [wEnemyMonActualCatchRate], a
pop hl
.asm_429f
push hl
call LoadScreenTilesFromBuffer1
pop hl
jp PrintText
SafariZoneEatingText:
text_far _SafariZoneEatingText
text_end
SafariZoneAngryText:
text_far _SafariZoneAngryText
text_end