mirror of
https://github.com/P3D-Legacy/P3D-Legacy.git
synced 2025-07-28 08:14:29 +02:00
Fix no switching softlock
This commit is contained in:
parent
72fceebcb0
commit
4f2513dac9
@ -8017,6 +8017,12 @@
|
|||||||
CureStatusProblem(False, False, BattleScreen, "", "move:healingwish")
|
CureStatusProblem(False, False, BattleScreen, "", "move:healingwish")
|
||||||
End If
|
End If
|
||||||
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 With
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user