mirror of
https://github.com/pret/pokered.git
synced 2024-10-23 06:58:24 +00:00
63 lines
943 B
NASM
63 lines
943 B
NASM
|
; does nothing since no stats are ever selected (barring glitches)
|
||
|
|
DoubleSelectedStats: ; 39680 (e:5680)
|
||
|
|
ld a, [H_WHOSETURN]
|
||
|
|
and a
|
||
|
|
ld a, [wPlayerStatsToDouble]
|
||
|
|
ld hl, wBattleMonAttack + 1
|
||
|
|
jr z, .notEnemyTurn
|
||
|
|
ld a, [wEnemyStatsToDouble]
|
||
|
|
ld hl, wEnemyMonAttack + 1
|
||
|
|
.notEnemyTurn
|
||
|
|
ld c, 4
|
||
|
|
ld b, a
|
||
|
|
.loop
|
||
|
|
srl b
|
||
|
|
call c, .doubleStat
|
||
|
|
inc hl
|
||
|
|
inc hl
|
||
|
|
dec c
|
||
|
|
ret z
|
||
|
|
jr .loop
|
||
|
|
|
||
|
|
.doubleStat
|
||
|
|
ld a, [hl]
|
||
|
|
add a
|
||
|
|
ld [hld], a
|
||
|
|
ld a, [hl]
|
||
|
|
rl a
|
||
|
|
ld [hli], a
|
||
|
|
ret
|
||
|
|
|
||
|
|
; does nothing since no stats are ever selected (barring glitches)
|
||
|
|
HalveSelectedStats: ; 396a7 (e:56a7)
|
||
|
|
ld a, [H_WHOSETURN]
|
||
|
|
and a
|
||
|
|
ld a, [wPlayerStatsToHalve]
|
||
|
|
ld hl, wBattleMonAttack
|
||
|
|
jr z, .notEnemyTurn
|
||
|
|
ld a, [wEnemyStatsToHalve]
|
||
|
|
ld hl, wEnemyMonAttack
|
||
|
|
.notEnemyTurn
|
||
|
|
ld c, 4
|
||
|
|
ld b, a
|
||
|
|
.loop
|
||
|
|
srl b
|
||
|
|
call c, .halveStat
|
||
|
|
inc hl
|
||
|
|
inc hl
|
||
|
|
dec c
|
||
|
|
ret z
|
||
|
|
jr .loop
|
||
|
|
|
||
|
|
.halveStat
|
||
|
|
ld a, [hl]
|
||
|
|
srl a
|
||
|
|
ld [hli], a
|
||
|
|
rr [hl]
|
||
|
|
or [hl]
|
||
|
|
jr nz, .nonzeroStat
|
||
|
|
ld [hl], 1
|
||
|
|
.nonzeroStat
|
||
|
|
dec hl
|
||
|
|
ret
|