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

Attempt2 to Contrary on Battle.vb

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