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

Merge pull request #5 from CaptainSegis/Exp-Bugfix

Browse Source 
Update Battle.vb
This commit is contained in:
Capt_Segis 2016-09-12 16:07:24 -05:00 committed by GitHub
commit 5266ae61db
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
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