Fixed message related to whirlpool

This commit is contained in:
CaptainSegis 2018-09-03 02:10:48 -05:00
parent 92a1e180f5
commit 9e91ee9393
2 changed files with 1 additions and 1 deletions

View File

@ -5718,7 +5718,7 @@
If .FieldEffects.OppWhirlpool > 0 Then 'Whirlpool
.FieldEffects.OppWhirlpool -= 1
If .FieldEffects.OppWhirlpool = 0 Then
.BattleQuery.Add(New TextQueryObject(.OwnPokemon.GetDisplayName() & " was freed from Whirlpool!"))
.BattleQuery.Add(New TextQueryObject(.OppPokemon.GetDisplayName() & " was freed from Whirlpool!"))
Else
Dim multiHP As Integer = CInt(.OppPokemon.MaxHP / 8)
If Not .OwnPokemon.Item Is Nothing And .FieldEffects.CanUseItem(True) = True And BattleScreen.FieldEffects.CanUseOwnItem(True, BattleScreen) = True Then

Binary file not shown.