Fix struggle naming the wrong pokémon

This commit is contained in:
JappaWakka 2023-03-18 20:50:34 +01:00
parent b9f6637365
commit 774125da9e

View File

@ -55,7 +55,11 @@
End Sub
Public Overrides Sub MoveSelected(own As Boolean, BattleScreen As BattleScreen)
BattleScreen.BattleQuery.Add(New TextQueryObject(BattleScreen.OwnPokemon.GetDisplayName() & " has no usable attacks left!"))
Dim p As Pokemon = BattleScreen.OwnPokemon
If own = False Then
p = BattleScreen.OppPokemon
End If
BattleScreen.BattleQuery.Add(New TextQueryObject(p.GetDisplayName() & " has no usable attacks left!"))
End Sub
Public Overrides Sub MoveHits(own As Boolean, BattleScreen As BattleScreen)