Fixed Electro Ball and Gyro Ball moves damage output

This commit is contained in:
CaptainSegis 2017-01-19 16:58:58 -05:00
parent 591a698515
commit bd204cd026
2 changed files with 4 additions and 1 deletions

View File

@ -61,7 +61,10 @@
op = BattleScreen.OwnPokemon op = BattleScreen.OwnPokemon
End If End If
Dim basepower As Integer = CInt(Math.Ceiling(25 * (op.Speed / p.Speed))) Dim p_Speed As Integer = BattleCalculation.DetermineBattleSpeed(own, BattleScreen)
Dim op_Speed As Integer = BattleCalculation.DetermineBattleSpeed(Not own, BattleScreen)
Dim basepower As Integer = CInt(Math.Ceiling(25 * (op_Speed / p_Speed)))
basepower = basepower.Clamp(1, 150) basepower = basepower.Clamp(1, 150)