NPCs no longer walk or turn away when paused

This commit is contained in:
JappaWakka 2023-09-10 17:39:05 +02:00
parent 5b18669000
commit 8d2eb864c1

View File

@ -518,8 +518,12 @@
#Region "Movement and Camera" #Region "Movement and Camera"
Private Sub NPCMovement() Private Sub NPCMovement()
If Core.CurrentScreen.Identification = Screen.Identifications.OverworldScreen Then Dim s As Screen = CurrentScreen
If CType(Core.CurrentScreen, OverworldScreen).ActionScript.IsReady = False Then While Not s.PreScreen Is Nothing And s.Identification <> Screen.Identifications.OverworldScreen
s = s.PreScreen
End While
If s.Identification = Screen.Identifications.OverworldScreen Then
If CType(s, OverworldScreen).ActionScript.IsReady = False Then
Exit Sub Exit Sub
End If End If
End If End If