Update VoltTackle.vb

This commit is contained in:
Capt_Segis 2016-09-14 16:56:09 -05:00 committed by GitHub
parent 291174470e
commit 81a6bf6371
1 changed files with 5 additions and 3 deletions

View File

@ -59,13 +59,15 @@ Namespace BattleSystem.Moves.Electric
End Sub
Public Overrides Sub MoveHits(own As Boolean, BattleScreen As BattleScreen)
Dim lastDamage As Integer = BattleScreen.FieldEffects.OwnLastDamage
Dim chance As Integer = GetEffectChance(0, own, BattleScreen)
If Core.Random.Next(0, 100) < chance Then
BattleScreen.Battle.InflictParalysis(Not own, own, BattleScreen, "", "move:volttackle")
End If
End Sub
Public Overrides Sub MoveRecoil(own As Boolean, BattleScreen As BattleScreen)
Dim lastDamage As Integer = BattleScreen.FieldEffects.OwnLastDamage
If own = False Then
lastDamage = BattleScreen.FieldEffects.OppLastDamage
End If
@ -79,4 +81,4 @@ Namespace BattleSystem.Moves.Electric
End Class
End Namespace
End Namespace