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

Attempt2 to Contrary on Battle.vb 

Added extra "If" structure intending to prevent creating a "contrary" loop.
This commit is contained in:
Capt_Segis 2016-09-12 22:10:52 -05:00 committed by GitHub
parent 7bd7a5f773
commit aa33dfccbb
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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