pokecrystal-board/engine/battle_anims/pokeball_wobble.asm
2020-11-03 22:45:12 -05:00

63 lines
883 B
NASM

GetPokeBallWobble:
; Returns whether a Poke Ball will wobble in the catch animation.
; Whether a Pokemon is caught is determined beforehand.
push de
ldh a, [rSVBK]
ld d, a
push de
ld a, BANK(wThrownBallWobbleCount) ; aka BANK(wFinalCatchRate)
ldh [rSVBK], a
ld a, [wThrownBallWobbleCount]
inc a
ld [wThrownBallWobbleCount], a
; Wobble up to 3 times.
cp 3 + 1
jr z, .finished
ld a, [wWildMon]
and a
ld c, 0 ; next
jr nz, .done
ld hl, WobbleProbabilities
ld a, [wFinalCatchRate]
ld b, a
.loop
ld a, [hli]
cp b
jr nc, .checkwobble
inc hl
jr .loop
.checkwobble
ld b, [hl]
call Random
cp b
ld c, 0 ; next
jr c, .done
ld c, 2 ; escaped
jr .done
.finished
ld a, [wWildMon]
and a
ld c, 1 ; caught
jr nz, .done
ld c, 2 ; escaped
.done
pop de
ld e, a
ld a, d
ldh [rSVBK], a
ld a, e
pop de
ret
INCLUDE "data/battle/wobble_probabilities.asm"