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

Flash Fire now activates properly

Browse Source
This commit is contained in:
TheOmegaGhost 2020-04-19 02:20:42 -03:00
parent 11913fb146
commit 000d45be6d
3 changed files with 44 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
P3D/Battle/BattleSystemV2/Battle.vb
View File

@ -1700,7 +1700,19 @@
If op.StatAttack = 6 Then If op.StatAttack = 6 Then
BattleScreen.BattleQuery.Add(New TextQueryObject(op.GetDisplayName() & "'s Sap Sipper made " & moveUsed.Name & " useless!")) BattleScreen.BattleQuery.Add(New TextQueryObject(op.GetDisplayName() & "'s Sap Sipper made " & moveUsed.Name & " useless!"))
Else Else
RaiseStat(Not own, Not own, BattleScreen, "Attack", 1, op.GetDisplayName() & "'s Sap Sipper absorbed the attack!", "sapsnipper") RaiseStat(Not own, Not own, BattleScreen, "Attack", 1, op.GetDisplayName() & "'s Sap Sipper absorbed the attack!", "sapsipper")
End If
End If
End If
If op.Ability.Name.ToLower() = "flash fire" AndAlso moveUsed.GetAttackType(own, BattleScreen).Type = Element.Types.Fire AndAlso moveWorks = True Then
If BattleScreen.FieldEffects.CanUseAbility(Not own, BattleScreen) = True Then
moveWorks = False
ChangeCameraAngel(2, own, BattleScreen)
BattleScreen.BattleQuery.Add(New TextQueryObject(op.GetDisplayName() & "'s Flash Fire made " & moveUsed.Name & " useless!"))
If own = True Then
BattleScreen.FieldEffects.OppFlashFire = 1
Else
BattleScreen.FieldEffects.OwnFlashFire = 1
End If End If
End If End If
End If End If
@ -3153,7 +3165,7 @@
'Do nothing 'Do nothing
Case Else 'Print message given in 'message' Case Else 'Print message given in 'message'
BattleScreen.BattleQuery.Add(New TextQueryObject(message)) BattleScreen.BattleQuery.Add(New TextQueryObject(message))
BattleScreen.BattleQuery.Add(New TextQueryObject(p.GetDisplayName() & " is poisoned")) BattleScreen.BattleQuery.Add(New TextQueryObject(p.GetDisplayName() & " is poisoned!"))
End Select End Select
End If End If
If p.Ability.Name.ToLower() = "synchronize" AndAlso from <> own Then If p.Ability.Name.ToLower() = "synchronize" AndAlso from <> own Then
@ -6457,6 +6469,7 @@
.OwnTruantRound = 0 .OwnTruantRound = 0
.OwnTaunt = 0 .OwnTaunt = 0
.OwnSmacked = 0 .OwnSmacked = 0
.OwnFlashFire = 0
.OwnRageCounter = 0 .OwnRageCounter = 0
.OwnUproar = 0 .OwnUproar = 0
If .OwnUsedBatonPass = False Then .OwnFocusEnergy = 0 If .OwnUsedBatonPass = False Then .OwnFocusEnergy = 0
@ -6783,6 +6796,7 @@
.OppTruantRound = 0 .OppTruantRound = 0
.OppTaunt = 0 .OppTaunt = 0
.OppSmacked = 0 .OppSmacked = 0
.OppFlashFire = 0
.OppRageCounter = 0 .OppRageCounter = 0
.OppUproar = 0 .OppUproar = 0
If .OppUsedBatonPass = False Then .OppFocusEnergy = 0 If .OppUsedBatonPass = False Then .OppFocusEnergy = 0

30
P3D/Battle/BattleSystemV2/BattleCalculation.vb
View File

@ -1961,23 +1961,35 @@
End If End If
End Select End Select
If p.Ability.Name.ToLower() = "flash fire" Then 'If p.Ability.Name.ToLower() = "flash fire" Then
If BattleScreen.FieldEffects.CanUseAbility(Own, BattleScreen) = True Then ' If BattleScreen.FieldEffects.CanUseAbility(Own, BattleScreen) = True Then
' If Own = True Then
' If Not BattleScreen.FieldEffects.OppLastMove Is Nothing Then
' If BattleScreen.FieldEffects.OppLastMove.Type.Type = Element.Types.Fire And Attack.Type.Type = Element.Types.Fire Then
' FF = 1.5F
' End If
' End If
' Else
' If Not BattleScreen.FieldEffects.OwnLastMove Is Nothing Then
' If BattleScreen.FieldEffects.OwnLastMove.Type.Type = Element.Types.Fire And Attack.Type.Type = Element.Types.Fire Then
' FF = 1.5F
' End If
' End If
' End If
' End If
'End If
If Attack.Type.Type = Element.Types.Fire Then
If Own = True Then If Own = True Then
If Not BattleScreen.FieldEffects.OppLastMove Is Nothing Then If BattleScreen.FieldEffects.OwnFlashFire = 1 Then
If BattleScreen.FieldEffects.OppLastMove.Type.Type = Element.Types.Fire And Attack.Type.Type = Element.Types.Fire Then
FF = 1.5F FF = 1.5F
End If End If
End If
Else Else
If Not BattleScreen.FieldEffects.OwnLastMove Is Nothing Then If BattleScreen.FieldEffects.OppFlashFire = 1 Then
If BattleScreen.FieldEffects.OwnLastMove.Type.Type = Element.Types.Fire And Attack.Type.Type = Element.Types.Fire Then
FF = 1.5F FF = 1.5F
End If End If
End If End If
End If End If
End If
End If
Mod1 = BRN * RL * TVT * SR * FF Mod1 = BRN * RL * TVT * SR * FF

2
P3D/Battle/BattleSystemV2/FieldEffects.vb
View File

@ -14,6 +14,7 @@
Public OwnRageCounter As Integer = 0 'Rage move counter Public OwnRageCounter As Integer = 0 'Rage move counter
Public OwnUproar As Integer = 0 'Uproar move counter Public OwnUproar As Integer = 0 'Uproar move counter
Public OwnFocusEnergy As Integer = 0 'Focus energy move counter Public OwnFocusEnergy As Integer = 0 'Focus energy move counter
Public OwnFlashFire As Integer = 0 'Flash Fire move counter
Public OwnEndure As Integer = 0 'Endure move counter Public OwnEndure As Integer = 0 'Endure move counter
Public OwnProtectCounter As Integer = 0 'Protect move counter Public OwnProtectCounter As Integer = 0 'Protect move counter
Public OwnKingsShieldCounter As Integer = 0 'Kings Shield move counter Public OwnKingsShieldCounter As Integer = 0 'Kings Shield move counter
@ -146,6 +147,7 @@
Public OppRageCounter As Integer = 0 Public OppRageCounter As Integer = 0
Public OppUproar As Integer = 0 Public OppUproar As Integer = 0
Public OppFocusEnergy As Integer = 0 Public OppFocusEnergy As Integer = 0
Public OppFlashFire As Integer = 0
Public OppEndure As Integer = 0 Public OppEndure As Integer = 0
Public OppProtectCounter As Integer = 0 Public OppProtectCounter As Integer = 0
Public OppKingsShieldCounter As Integer = 0 Public OppKingsShieldCounter As Integer = 0