mirror of
https://github.com/P3D-Legacy/P3D-Legacy.git
synced 2025-07-31 01:35:20 +02:00
Fixed shader entity daytime behaviour
This commit is contained in:
parent
f9c2b98c30
commit
9c611b9339
@ -1155,7 +1155,20 @@
|
|||||||
DayTime = CType(GetTag(Tags, "DayTime"), List(Of Integer))
|
DayTime = CType(GetTag(Tags, "DayTime"), List(Of Integer))
|
||||||
End If
|
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)
|
Dim NewShader As New Shader(Position, Size, Shader, StopOnContact)
|
||||||
Screen.Level.Shaders.Add(NewShader)
|
Screen.Level.Shaders.Add(NewShader)
|
||||||
End If
|
End If
|
||||||
|
Loading…
x
Reference in New Issue
Block a user