blob: ca3ff8a2474e345c376f30698f433544e21b971f (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
PrintSafariZoneBattleText:
ld hl, wSafariBaitFactor
ld a, [hl]
and a
jr z, .no_bait
dec [hl]
ld hl, SafariZoneEatingText
jr .done
.no_bait
dec hl
ld a, [hl]
and a
ret z
dec [hl]
ld hl, SafariZoneAngryText
jr nz, .done
push hl
ld a, [wEnemyMonSpecies]
ld [wCurSpecies], a
call GetMonHeader
ld a, [wMonHCatchRate]
ld [wEnemyMonActualCatchRate], a
pop hl
.done
push hl
call LoadScreenTilesFromBuffer1
pop hl
jp PrintText
SafariZoneEatingText:
text_far _SafariZoneEatingText
text_end
SafariZoneAngryText:
text_far _SafariZoneAngryText
text_end
|
