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

Binary file not shown.

Before

Width:  |  Height:  |  Size: 167 B

After

Width:  |  Height:  |  Size: 165 B

View File

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

View File

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

View File

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