Fix no switching softlock

This commit is contained in:
JappaWakka 2023-01-23 11:31:21 +01:00
parent 72fceebcb0
commit 4f2513dac9
1 changed files with 6 additions and 0 deletions

View File

@ -8017,6 +8017,12 @@
CureStatusProblem(False, False, BattleScreen, "", "move:healingwish")
End If
End If
Dim cq1 As ScreenFadeQueryObject = New ScreenFadeQueryObject(ScreenFadeQueryObject.FadeTypes.Vertical, Color.Black, True, 16)
Dim cq2 As ScreenFadeQueryObject = New ScreenFadeQueryObject(ScreenFadeQueryObject.FadeTypes.Vertical, Color.Black, False, 16)
cq2.PassThis = True
BattleScreen.BattleQuery.AddRange({cq1, cq2})
BattleScreen.HasSwitchedOwn = False
BattleScreen.Battle.StartRound(BattleScreen)
End With
End Sub