pokehacks/pokecrystal-board
0
0
Fork 0
mirror of https://gitlab.com/xCrystal/pokecrystal-board.git synced 2025-04-09 05:44:44 -07:00
Code Issues Packages Projects Releases Wiki Activity

Use MAX_NEUTRAL_DAMAGE in BattleCommand_DamageCalc

Browse Source 
Also make .gitignore consistent with pokered
This commit is contained in:
Rangi
2020-07-05 15:09:12 -04:00
parent f5ac9b0eb7
commit 7eef66af3f
3 changed files with 35 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
engine/battle/effect_commands.asm
View File

@@ -3066,72 +3066,73 @@ BattleCommand_DamageCalc:
; Critical hits
call .CriticalMultiplier
; Update wCurDamage (capped at 997).
; Update wCurDamage.
; Capped at MAX_NEUTRAL_DAMAGE - MIN_NEUTRAL_DAMAGE: 999 - 2 = 997.
ld hl, wCurDamage
ld b, [hl]
ldh a, [hProduct + 3]
ldh a, [hQuotient + 3]
add b
ldh [hProduct + 3], a
ldh [hQuotient + 3], a
jr nc, .dont_cap_1
ldh a, [hProduct + 2]
ldh a, [hQuotient + 2]
inc a
ldh [hProduct + 2], a
ldh [hQuotient + 2], a
and a
jr z, .Cap
.dont_cap_1
ldh a, [hProduct]
ldh a, [hQuotient]
ld b, a
ldh a, [hProduct + 1]
ldh a, [hQuotient + 1]
or a
jr nz, .Cap
ldh a, [hProduct + 2]
cp HIGH(MAX_STAT_VALUE - MIN_NEUTRAL_DAMAGE + 1)
ldh a, [hQuotient + 2]
cp HIGH(MAX_NEUTRAL_DAMAGE - MIN_NEUTRAL_DAMAGE + 1)
jr c, .dont_cap_2
cp HIGH(MAX_STAT_VALUE - MIN_NEUTRAL_DAMAGE + 1) + 1
cp HIGH(MAX_NEUTRAL_DAMAGE - MIN_NEUTRAL_DAMAGE + 1) + 1
jr nc, .Cap
ldh a, [hProduct + 3]
cp LOW(MAX_STAT_VALUE - MIN_NEUTRAL_DAMAGE + 1)
ldh a, [hQuotient + 3]
cp LOW(MAX_NEUTRAL_DAMAGE - MIN_NEUTRAL_DAMAGE + 1)
jr nc, .Cap
.dont_cap_2
inc hl
ldh a, [hProduct + 3]
ldh a, [hQuotient + 3]
ld b, [hl]
add b
ld [hld], a
ldh a, [hProduct + 2]
ldh a, [hQuotient + 2]
ld b, [hl]
adc b
ld [hl], a
jr c, .Cap
ld a, [hl]
cp HIGH(MAX_STAT_VALUE - MIN_NEUTRAL_DAMAGE + 1)
cp HIGH(MAX_NEUTRAL_DAMAGE - MIN_NEUTRAL_DAMAGE + 1)
jr c, .dont_cap_3
cp HIGH(MAX_STAT_VALUE - MIN_NEUTRAL_DAMAGE + 1) + 1
cp HIGH(MAX_NEUTRAL_DAMAGE - MIN_NEUTRAL_DAMAGE + 1) + 1
jr nc, .Cap
inc hl
ld a, [hld]
cp LOW(MAX_STAT_VALUE - MIN_NEUTRAL_DAMAGE + 1)
cp LOW(MAX_NEUTRAL_DAMAGE - MIN_NEUTRAL_DAMAGE + 1)
jr c, .dont_cap_3
.Cap:
ld a, HIGH(MAX_STAT_VALUE - MIN_NEUTRAL_DAMAGE)
ld a, HIGH(MAX_NEUTRAL_DAMAGE - MIN_NEUTRAL_DAMAGE)
ld [hli], a
ld a, LOW(MAX_STAT_VALUE - MIN_NEUTRAL_DAMAGE)
ld a, LOW(MAX_NEUTRAL_DAMAGE - MIN_NEUTRAL_DAMAGE)
ld [hld], a
.dont_cap_3
; Minimum neutral damage is 2 (bringing the cap to 999).
; Add back MIN_NEUTRAL_DAMAGE (capping at 999).
inc hl
ld a, [hl]
add MIN_NEUTRAL_DAMAGE
@@ -3140,6 +3141,7 @@ BattleCommand_DamageCalc:
inc [hl]
.dont_floor
; Returns nz and nc.
ld a, 1
and a
ret
@@ -3152,18 +3154,18 @@ BattleCommand_DamageCalc:
; x2
ldh a, [hQuotient + 3]
add a
ldh [hProduct + 3], a
ldh [hQuotient + 3], a
ldh a, [hQuotient + 2]
rl a
ldh [hProduct + 2], a
ldh [hQuotient + 2], a
; Cap at $ffff.
ret nc
ld a, $ff
ldh [hProduct + 2], a
ldh [hProduct + 3], a
ldh [hQuotient + 2], a
ldh [hQuotient + 3], a
ret