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
1 changed files with 6 additions and 2 deletions

View File

@ -518,8 +518,12 @@
#Region "Movement and Camera"
Private Sub NPCMovement()
If Core.CurrentScreen.Identification = Screen.Identifications.OverworldScreen Then
If CType(Core.CurrentScreen, OverworldScreen).ActionScript.IsReady = False Then
Dim s As Screen = CurrentScreen
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
End If
End If