tyler.durden
/
P3D-Legacy
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Update Battle.vb

This commit is contained in:
Capt_Segis 2016-09-12 05:20:46 -05:00 committed by GitHub
parent 4b149a9da6
commit 2e95d14f87
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
2.5DHero/2.5DHero/Battle/BattleSystemV2/Battle.vb
View File

@ -2659,7 +2659,9 @@ endthisround:
End If
If p.Ability.Name.ToLower() = "contrary" And BattleScreen.FieldEffects.CanUseAbility(own, BattleScreen) = True Then
Return LowerStat(own, own, BattleScreen, Stat, val, message & vbNewLine & "Contrary reverted the stat change!", "contrary")
Dim val_aux As Integer = val
val = 0
Return LowerStat(own, own, BattleScreen, Stat, val_aux, message & vbNewLine & "Contrary reverted the stat change!", "contrary")
End If
If p.Ability.Name.ToLower() = "simple" Then
@ -2862,7 +2864,9 @@ endthisround:
End If
If p.Ability.Name.ToLower() = "contrary" And BattleScreen.FieldEffects.CanUseAbility(own, BattleScreen) = True Then
Return RaiseStat(own, own, BattleScreen, Stat, val, message & vbNewLine & "Contrary reverted the stat change!", "contrary")
Dim val_aux2 As Integer = val
val = 0
Return RaiseStat(own, own, BattleScreen, Stat, val_aux2, message & vbNewLine & "Contrary reverted the stat change!", "contrary")
End If
If p.Ability.Name.ToLower() = "simple" Then
@ -6276,4 +6280,4 @@ endthisround:
End Class
End Namespace
End Namespace