pokehacks/pokecrystal-board
0
0
Fork 0
mirror of https://gitlab.com/xCrystal/pokecrystal-board.git synced 2024-11-16 11:27:33 -08:00
Code Issues Packages Projects Releases Wiki Activity

pokeball wobbling

Browse Source
This commit is contained in:
yenatch 2013-12-13 01:07:16 -05:00
parent 1b7e44c729
commit 5708d855e5
1 changed files with 73 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

103
main.asm
View File

@ -14283,56 +14283,95 @@ Function7969: ; 7969
; no known jump sources ; no known jump sources
Functionf971: ; f971 (3:7971) GetPokeBallWobble: ; f971 (3:7971)
; Returns whether a Poke Ball will wobble in the catch animation.
; Whether a Pokemon is caught is determined beforehand.
push de push de
ld a, [rSVBK] ; $ff00+$70
ld a, [rSVBK]
ld d, a ld d, a
push de push de
ld a, $1
ld [rSVBK], a ; $ff00+$70 ld a, 1 ; BANK(Buffer2)
ld a, [Buffer2] ; $d1eb (aliases: MovementType) ld [rSVBK], a
ld a, [Buffer2]
inc a inc a
ld [Buffer2], a ; $d1eb (aliases: MovementType) ld [Buffer2], a
cp $4
jr z, .asm_f9a8 ; Wobble up to 3 times.
cp 3 + 1
jr z, .finished
ld a, [$c64e] ld a, [$c64e]
and a and a
ld c, $0 ld c, 0 ; next
jr nz, .asm_f9b2 jr nz, .done
ld hl, $79ba
ld a, [Buffer1] ; $d1ea (aliases: MagikarpLength) ld hl, WobbleChances
ld a, [Buffer1]
ld b, a ld b, a
.asm_f994 .loop
ld a, [hli] ld a, [hli]
cp b cp b
jr nc, .asm_f99b jr nc, .checkwobble
inc hl inc hl
jr .asm_f994 jr .loop
.asm_f99b
.checkwobble
ld b, [hl] ld b, [hl]
call Random call Random
cp b cp b
ld c, $0 ld c, 0 ; next
jr c, .asm_f9b2 jr c, .done
ld c, $2 ld c, 2 ; escaped
jr .asm_f9b2 jr .done
.asm_f9a8
.finished
ld a, [$c64e] ld a, [$c64e]
and a and a
ld c, $1 ld c, 1 ; caught
jr nz, .asm_f9b2 jr nz, .done
ld c, $2 ld c, 2 ; escaped
.asm_f9b2
.done
pop de pop de
ld e, a ld e, a
ld a, d ld a, d
ld [rSVBK], a ; $ff00+$70 ld [rSVBK], a
ld a, e ld a, e
pop de pop de
ret ret
; f9ba (3:79ba) ; f9ba (3:79ba)
INCBIN "baserom.gbc",$f9ba,$f9ea - $f9ba WobbleChances: ; f9ba
; catch rate, chance of wobbling / 255
db 1, 63
db 2, 75
db 3, 84
db 4, 90
db 5, 95
db 7, 103
db 10, 113
db 15, 126
db 20, 134
db 30, 149
db 40, 160
db 50, 169
db 60, 177
db 80, 191
db 100, 201
db 120, 211
db 140, 220
db 160, 227
db 180, 234
db 200, 240
db 220, 246
db 240, 251
db 254, 253
db 255, 255
; f9ea
Functionf9ea: ; f9ea Functionf9ea: ; f9ea
@ -14351,13 +14390,17 @@ Functionf9ea: ; f9ea
ret ret
.asm_f9fe .asm_f9fe
ld hl, $7a06 ld hl, UnknownText_0xfa06
call PrintText call PrintText
scf scf
ret ret
; fa06 ; fa06
INCBIN "baserom.gbc",$fa06,$fa0b - $fa06 UnknownText_0xfa06: ; 0xfa06
; knows @ .
text_jump UnknownText_0x1c5ea8
db "@"
; 0xfa0b
SECTION "bank4", ROMX, BANK[$4] SECTION "bank4", ROMX, BANK[$4]
@ -87809,7 +87852,7 @@ Functioncc5b3: ; cc5b3 (33:45b3)
; no known jump sources ; no known jump sources
BattleAnimCmd_DB: ; cc5d0 (33:45d0) BattleAnimCmd_DB: ; cc5d0 (33:45d0)
callab Functionf971 callab GetPokeBallWobble
ld a, c ld a, c
ld [$d416], a ld [$d416], a
ret ret