tyler.durden
/
P3D-Legacy
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fixed the daytimes 

Instead of

Day = 0
Night = 1
Morning = 2
Evening = 3

it is now

Night = 0
Morning = 1
Day = 2
Evening = 3

this also affects the @environment.setdaytimeI(int) commands which have the same order but increased with 1
This commit is contained in:
JappaWakka 2022-06-11 10:46:51 +02:00
parent a8bc9f972f
commit 3d25b132bb
4 changed files with 22 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
P3D/Content/SkyDomeResource/FogColors.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 167 B

After

Width:  |  Height:  |  Size: 165 B

12
P3D/World/Level.vb
View File

@ -351,11 +351,11 @@ Public Class Level
Public Property DayTime As Integer Public Property DayTime As Integer
Get Get
Select Case Me._DayTime Select Case Me._DayTime
Case World.DayTimes.Day
Return 1
Case World.DayTimes.Night Case World.DayTimes.Night
Return 2 Return 1
Case World.DayTimes.Morning Case World.DayTimes.Morning
Return 2
Case World.DayTimes.Day
Return 3 Return 3
Case World.DayTimes.Evening Case World.DayTimes.Evening
Return 4 Return 4
@ -366,11 +366,11 @@ Public Class Level
Set(value As Integer) Set(value As Integer)
Select Case value Select Case value
Case 1 Case 1
Me._DayTime = World.DayTimes.Day
Case 2
Me._DayTime = World.DayTimes.Night Me._DayTime = World.DayTimes.Night
Case 3 Case 2
Me._DayTime = World.DayTimes.Morning Me._DayTime = World.DayTimes.Morning
Case 3
Me._DayTime = World.DayTimes.Day
Case 4 Case 4
Me._DayTime = World.DayTimes.Evening Me._DayTime = World.DayTimes.Evening
Case Else Case Else

26
P3D/World/SkyDome.vb
View File

@ -143,11 +143,11 @@
End If End If
Select Case Screen.Level.DayTime Select Case Screen.Level.DayTime
Case 1 Case 1
Return New Color(48, 200, 248)
Case 2
Return New Color(40, 88, 136) Return New Color(40, 88, 136)
Case 3 Case 2
Return New Color(168, 224, 248) Return New Color(168, 224, 248)
Case 3
Return New Color(48, 200, 248)
Case 4 Case 4
Return New Color(192, 152, 184) Return New Color(192, 152, 184)
End Select End Select
@ -183,9 +183,9 @@
If Screen.Level.World.EnvironmentType = World.EnvironmentTypes.Outside And World.IsAurora = False Then If Screen.Level.World.EnvironmentType = World.EnvironmentTypes.Outside And World.IsAurora = False Then
Select Case Screen.Level.DayTime Select Case Screen.Level.DayTime
Case 1 Case 1
Return 0.0F
Case 2
Return 1.0F Return 1.0F
Case 2
Return 0.0F
Case 3 Case 3
Return 0.0F Return 0.0F
Case 4 Case 4
@ -202,9 +202,9 @@
If Screen.Level.World.EnvironmentType = World.EnvironmentTypes.Outside And World.IsAurora = False Then If Screen.Level.World.EnvironmentType = World.EnvironmentTypes.Outside And World.IsAurora = False Then
Select Case Screen.Level.DayTime Select Case Screen.Level.DayTime
Case 1 Case 1
Return 1.0F
Case 2
Return 0.0F Return 0.0F
Case 2
Return 1.0F
Case 3 Case 3
Return 1.0F Return 1.0F
Case 4 Case 4
@ -226,11 +226,11 @@
Case World.Weathers.Clear Case World.Weathers.Clear
Select Case Screen.Level.DayTime Select Case Screen.Level.DayTime
Case 1 Case 1
Return TextureManager.GetTexture("SkyDomeResource\Clouds_Day")
Case 2
Return TextureManager.GetTexture("SkyDomeResource\Clouds_Night") Return TextureManager.GetTexture("SkyDomeResource\Clouds_Night")
Case 3 Case 2
Return TextureManager.GetTexture("SkyDomeResource\Clouds_Morning") Return TextureManager.GetTexture("SkyDomeResource\Clouds_Morning")
Case 3
Return TextureManager.GetTexture("SkyDomeResource\Clouds_Day")
Case 4 Case 4
Return TextureManager.GetTexture("SkyDomeResource\Clouds_Evening") Return TextureManager.GetTexture("SkyDomeResource\Clouds_Evening")
End Select End Select
@ -252,11 +252,11 @@
End If End If
Select Case Screen.Level.DayTime Select Case Screen.Level.DayTime
Case 1 Case 1
Return TextureManager.GetTexture("SkyDomeResource\Sky_Day")
Case 2
Return TextureManager.GetTexture("SkyDomeResource\Sky_Night") Return TextureManager.GetTexture("SkyDomeResource\Sky_Night")
Case 3 Case 2
Return TextureManager.GetTexture("SkyDomeResource\Sky_Morning") Return TextureManager.GetTexture("SkyDomeResource\Sky_Morning")
Case 3
Return TextureManager.GetTexture("SkyDomeResource\Sky_Day")
Case 4 Case 4
Return TextureManager.GetTexture("SkyDomeResource\Sky_Evening") Return TextureManager.GetTexture("SkyDomeResource\Sky_Evening")
End Select End Select

6
P3D/World/World.vb
View File

@ -40,9 +40,9 @@ Public Class World
End Enum End Enum
Public Enum DayTimes As Integer Public Enum DayTimes As Integer
Day = 0 Night = 0
Night = 1 Morning = 1
Morning = 2 Day = 2
Evening = 3 Evening = 3
End Enum End Enum