Update BattleCalculation.vb

This commit is contained in:
Capt_Segis 2016-09-10 02:26:22 -05:00 committed by GitHub
parent a8ad4e5aa9
commit 0a88669457
1 changed files with 6 additions and 4 deletions

View File

@ -131,8 +131,10 @@
Dim speed As Integer = CInt(p.Speed * GetMultiplierFromStat(p.StatSpeed)) 'Calculate the speed's basic value from the speed and the speed stat Dim speed As Integer = CInt(p.Speed * GetMultiplierFromStat(p.StatSpeed)) 'Calculate the speed's basic value from the speed and the speed stat
If own = True Then If own = True Then
If BattleScreen.IsPVPBattle = False Then
If Core.Player.Badges.Contains(3) = True Then If Core.Player.Badges.Contains(3) = True Then
speed = CInt(speed + (speed * (1 / 8))) 'Add 1/8 of the speed if the player has the 3rd badge speed = CInt(speed + (speed * (1 / 8))) 'Add 1/8 of the speed if the player has the 3rd badge and it's not a PvP battle
End If
End If End If
End If End If