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

Fix Counter & Mirror Coat

Browse Source
This commit is contained in:
JappaWakka 2024-04-27 17:01:56 +02:00
parent d5d291bdda
commit 4717d097e7
2 changed files with 38 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
P3D/Pokemon/Attacks/Fighting/Counter.vb
View File

@ -53,12 +53,20 @@
End Sub End Sub
Public Overrides Function MoveFailBeforeAttack(Own As Boolean, BattleScreen As BattleScreen) As Boolean Public Overrides Function MoveFailBeforeAttack(Own As Boolean, BattleScreen As BattleScreen) As Boolean
Dim damagedLastTurn As Boolean = BattleScreen.FieldEffects.OppPokemonDamagedLastTurn Dim hasBeenDamaged As Boolean = BattleScreen.FieldEffects.OppPokemonDamagedLastTurn
If Own = False Then If Own = True Then
damagedLastTurn = BattleScreen.FieldEffects.OwnPokemonDamagedThisTurn hasBeenDamaged = BattleScreen.FieldEffects.OwnPokemonDamagedLastTurn
End If End If
If damagedLastTurn = True Then If BattleScreen.FieldEffects.OppTurnCounts = 0 OrElse BattleScreen.FieldEffects.OwnTurnCounts = 0 Then
If Own = False Then
hasBeenDamaged = BattleScreen.FieldEffects.OppPokemonDamagedThisTurn
Else
hasBeenDamaged = BattleScreen.FieldEffects.OwnPokemonDamagedThisTurn
End If
End If
If hasBeenDamaged = True Then
Dim damage As Integer = BattleScreen.FieldEffects.OwnLastDamage Dim damage As Integer = BattleScreen.FieldEffects.OwnLastDamage
If Own = True Then If Own = True Then
damage = BattleScreen.FieldEffects.OppLastDamage damage = BattleScreen.FieldEffects.OppLastDamage
@ -77,6 +85,7 @@
End If End If
End If End If
BattleScreen.BattleQuery.Add(New TextQueryObject(Me.Name & " failed!"))
Return True Return True
End Function End Function

16
P3D/Pokemon/Attacks/Psychic/MirrorCoat.vb
View File

@ -56,6 +56,20 @@
End Sub End Sub
Public Overrides Function MoveFailBeforeAttack(Own As Boolean, BattleScreen As BattleScreen) As Boolean Public Overrides Function MoveFailBeforeAttack(Own As Boolean, BattleScreen As BattleScreen) As Boolean
Dim hasBeenDamaged As Boolean = BattleScreen.FieldEffects.OppPokemonDamagedLastTurn
If Own = True Then
hasBeenDamaged = BattleScreen.FieldEffects.OwnPokemonDamagedLastTurn
End If
If BattleScreen.FieldEffects.OppTurnCounts = 0 OrElse BattleScreen.FieldEffects.OwnTurnCounts = 0 Then
If Own = False Then
hasBeenDamaged = BattleScreen.FieldEffects.OppPokemonDamagedThisTurn
Else
hasBeenDamaged = BattleScreen.FieldEffects.OwnPokemonDamagedThisTurn
End If
End If
If hasBeenDamaged = True Then
Dim damage As Integer = BattleScreen.FieldEffects.OwnLastDamage Dim damage As Integer = BattleScreen.FieldEffects.OwnLastDamage
If Own = True Then If Own = True Then
damage = BattleScreen.FieldEffects.OppLastDamage damage = BattleScreen.FieldEffects.OppLastDamage
@ -72,7 +86,9 @@
End If End If
End If End If
End If End If
End If
BattleScreen.BattleQuery.Add(New TextQueryObject(Me.Name & " failed!"))
Return True Return True
End Function End Function