Recoil now in MoveRecoil (ID=394)

Flare Blitz
This commit is contained in:
Capt_Segis 2016-09-14 15:21:23 -05:00 committed by GitHub
parent 64e5ed5ca4
commit 588f381584
1 changed files with 4 additions and 2 deletions

View File

@ -62,7 +62,9 @@
If Core.Random.Next(0, 100) < chance Then If Core.Random.Next(0, 100) < chance Then
BattleScreen.Battle.InflictBurn(Not own, own, BattleScreen, "", "move:flareblitz") BattleScreen.Battle.InflictBurn(Not own, own, BattleScreen, "", "move:flareblitz")
End If End If
End Sub
Public Overrides Sub MoveRecoil(own As Boolean, BattleScreen As BattleScreen)
Dim lastDamage As Integer = BattleScreen.FieldEffects.OwnLastDamage Dim lastDamage As Integer = BattleScreen.FieldEffects.OwnLastDamage
If own = False Then If own = False Then
lastDamage = BattleScreen.FieldEffects.OppLastDamage lastDamage = BattleScreen.FieldEffects.OppLastDamage