Fix no switching softlock
This commit is contained in:
parent
72fceebcb0
commit
4f2513dac9
|
@ -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
|
||||
|
||||
|
|
Loading…
Reference in New Issue