blob: a61f402fd29149e02889a1cf7e4f5d6e0c076af8 (
plain)
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 [wd0b5], 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
|
