First Commit

Upload literally everything from the pokecrystal16 expand-move-ID branch

engine/battle_anims/pokeball_wobble.asm

@@ -0,0 +1,62 @@
+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"