From 9c611b933999762e0018b35a150741926c2fcd4d Mon Sep 17 00:00:00 2001 From: JappaWakka Date: Thu, 1 Sep 2022 22:21:33 +0200 Subject: [PATCH] Fixed shader entity daytime behaviour --- P3D/World/LevelLoader.vb | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) diff --git a/P3D/World/LevelLoader.vb b/P3D/World/LevelLoader.vb index fc7a13860..fdcf721f1 100644 --- a/P3D/World/LevelLoader.vb +++ b/P3D/World/LevelLoader.vb @@ -1155,7 +1155,20 @@ DayTime = CType(GetTag(Tags, "DayTime"), List(Of Integer)) End If - If DayTime.Contains(World.GetTime()) Or DayTime.Contains(-1) Or DayTime.Count = 0 Then + Dim CurrentTime As World.DayTimes = World.GetTime() + + Select Case Screen.Level.DayTime + Case 1 + CurrentTime = World.DayTimes.Night + Case 2 + CurrentTime = World.DayTimes.Morning + Case 3 + CurrentTime = World.DayTimes.Day + Case 4 + CurrentTime = World.DayTimes.Evening + End Select + + If DayTime.Contains(CurrentTime) Or DayTime.Contains(-1) Or DayTime.Count = 0 Then Dim NewShader As New Shader(Position, Size, Shader, StopOnContact) Screen.Level.Shaders.Add(NewShader) End If