tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-25 23:05:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

Update VoltTackle.vb

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
2.5DHero/2.5DHero/Pokemon/Attacks/Electric/VoltTackle.vb
View File

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