Actually fixing aurora sky

This commit is contained in:
JappaWakka 2022-09-16 11:07:43 +02:00
parent 3f3836cb6f
commit 397ae27832
1 changed files with 8 additions and 10 deletions

View File

@ -1057,9 +1057,6 @@
If TagExists(Tags, "IsAurora") = True Then If TagExists(Tags, "IsAurora") = True Then
World.IsAurora = CBool(GetTag(Tags, "IsAurora")) World.IsAurora = CBool(GetTag(Tags, "IsAurora"))
Else Else
World.IsAurora = False
End If
If Screen.Level.DayTime = World.DayTimes.Night Then If Screen.Level.DayTime = World.DayTimes.Night Then
If World.IsAurora = False Then If World.IsAurora = False Then
Dim chance = Random.Next(0, 250) Dim chance = Random.Next(0, 250)
@ -1070,6 +1067,7 @@
Else Else
World.IsAurora = False World.IsAurora = False
End If End If
End If
If TagExists(Tags, "Terrain") = True Then If TagExists(Tags, "Terrain") = True Then
Screen.Level.Terrain.TerrainType = Terrain.FromString(CStr(GetTag(Tags, "Terrain"))) Screen.Level.Terrain.TerrainType = Terrain.FromString(CStr(GetTag(Tags, "Terrain")))