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

Restructured LowerStat

Browse Source 
To support stat change animations.
This commit is contained in:
Capt_Segis 2016-09-13 22:18:33 -05:00 committed by GitHub
parent 1b9c5c5972
commit 956b4b75ac
1 changed files with 36 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2716,6 +2716,8 @@ endthisround:
End If End If
End If End If
***SHOW STAT INCREASE ANIMATION HERE***
Dim printMessage As String = p.GetDisplayName() & "'s " & statString Dim printMessage As String = p.GetDisplayName() & "'s " & statString
Select Case val Select Case val
Case 2 Case 2
@ -2885,7 +2887,37 @@ endthisround:
End If End If
End If End If
Dim statString As String = Stat.ToLower() Dim statString As String = Stat.ToLower()
Select Case statString
Case "attack"
If p.Ability.Name.ToLower() = "hyper cutter" And from <> own Then
If BattleScreen.FieldEffects.CanUseAbility(own, BattleScreen) = True Then
Me.ChangeCameraAngel(1, own, BattleScreen)
BattleScreen.BattleQuery.Add(New TextQueryObject("Hyper Cutter prevented attack drop!"))
Return False
End If
End If
Case "defense"
If p.Ability.Name.ToLower() = "big pecks" And from <> own And BattleScreen.FieldEffects.CanUseAbility(own, BattleScreen) = True Then
Me.ChangeCameraAngel(1, own, BattleScreen)
BattleScreen.BattleQuery.Add(New TextQueryObject("Big Pecks prevented defense drop!"))
Return False
End If
Case "accuracy"
If p.Ability.Name.ToLower() = "keen eye" And from <> own Then
If BattleScreen.FieldEffects.CanUseAbility(own, BattleScreen) = True Then
Me.ChangeCameraAngel(1, own, BattleScreen)
BattleScreen.BattleQuery.Add(New TextQueryObject("Keen Eye prevented accuracy drop!"))
Return False
End If
End If
End Select
Select Case statString Select Case statString
Case "spdefense" Case "spdefense"
statString = "special defense" statString = "special defense"
@ -2932,6 +2964,8 @@ endthisround:
End If End If
End If End If
***SHOW STAT DECREASE ANIMATION HERE***
Dim printMessage As String = p.GetDisplayName() & "'s " & statString Dim printMessage As String = p.GetDisplayName() & "'s " & statString
Select Case val Select Case val
Case 2 Case 2
@ -2954,14 +2988,6 @@ endthisround:
Select Case statString Select Case statString
Case "attack" Case "attack"
If p.Ability.Name.ToLower() = "hyper cutter" And from <> own Then
If BattleScreen.FieldEffects.CanUseAbility(own, BattleScreen) = True Then
Me.ChangeCameraAngel(1, own, BattleScreen)
BattleScreen.BattleQuery.Add(New TextQueryObject("Hyper Cutter prevented attack drop!"))
Return False
End If
End If
p.StatAttack -= val p.StatAttack -= val
Me.ChangeCameraAngel(1, own, BattleScreen) Me.ChangeCameraAngel(1, own, BattleScreen)
@ -2977,12 +3003,6 @@ endthisround:
Return True Return True
Case "defense" Case "defense"
If p.Ability.Name.ToLower() = "big pecks" And from <> own And BattleScreen.FieldEffects.CanUseAbility(own, BattleScreen) = True Then
Me.ChangeCameraAngel(1, own, BattleScreen)
BattleScreen.BattleQuery.Add(New TextQueryObject("Big Pecks prevented defense drop!"))
Return False
End If
p.StatDefense -= val p.StatDefense -= val
Me.ChangeCameraAngel(1, own, BattleScreen) Me.ChangeCameraAngel(1, own, BattleScreen)
@ -3058,14 +3078,6 @@ endthisround:
Return True Return True
Case "accuracy" Case "accuracy"
If p.Ability.Name.ToLower() = "keen eye" And from <> own Then
If BattleScreen.FieldEffects.CanUseAbility(own, BattleScreen) = True Then
Me.ChangeCameraAngel(1, own, BattleScreen)
BattleScreen.BattleQuery.Add(New TextQueryObject("Keen Eye prevented accuracy drop!"))
Return False
End If
End If
p.Accuracy -= val p.Accuracy -= val
Me.ChangeCameraAngel(1, own, BattleScreen) Me.ChangeCameraAngel(1, own, BattleScreen)