Moved Defiant and Competitive effects

To display the animations in the correct order
This commit is contained in:
Capt_Segis 2016-09-15 17:16:41 -05:00 committed by GitHub
parent 1d4b52180a
commit f097af5214
1 changed files with 10 additions and 8 deletions

View File

@ -2979,15 +2979,7 @@ endthisround:
printMessage &= " slightly fell."
End Select
If val > 0 Then
If p.Ability.Name.ToLower() = "defiant" And from <> own Then
RaiseStat(own, own, BattleScreen, "Attack", 2, p.GetDisplayName() & "'s Defiant raised its attack!", "defiant")
End If
If p.Ability.Name.ToLower() = "competitive" And from <> own Then
RaiseStat(own, own, BattleScreen, "Special Attack", 2, p.GetDisplayName() & "'s Competitive raised its Special Attack!", "competitive")
End If
End If
Select Case statString
Case "attack"
@ -3093,7 +3085,17 @@ endthisround:
BattleScreen.BattleQuery.Add(New TextQueryObject(message))
BattleScreen.BattleQuery.Add(New TextQueryObject(printMessage))
End Select
If val > 0 Then
If p.Ability.Name.ToLower() = "defiant" And from <> own Then
RaiseStat(own, own, BattleScreen, "Attack", 2, p.GetDisplayName() & "'s Defiant raised its attack!", "defiant")
End If
If p.Ability.Name.ToLower() = "competitive" And from <> own Then
RaiseStat(own, own, BattleScreen, "Special Attack", 2, p.GetDisplayName() & "'s Competitive raised its Special Attack!", "competitive")
End If
End If
Return True
End Select