Probably fixing aurora sky

This commit is contained in:
JappaWakka 2022-09-16 11:06:20 +02:00
parent b9a7183166
commit 3f3836cb6f
1 changed files with 6 additions and 7 deletions

View File

@ -1054,6 +1054,12 @@
Screen.Level.IsDark = False
End If
If TagExists(Tags, "IsAurora") = True Then
World.IsAurora = CBool(GetTag(Tags, "IsAurora"))
Else
World.IsAurora = False
End If
If Screen.Level.DayTime = World.DayTimes.Night Then
If World.IsAurora = False Then
Dim chance = Random.Next(0, 250)
@ -1065,13 +1071,6 @@
World.IsAurora = False
End If
If TagExists(Tags, "IsAurora") = True Then
World.IsAurora = CBool(GetTag(Tags, "IsAurora"))
Else
World.IsAurora = False
End If
If TagExists(Tags, "Terrain") = True Then
Screen.Level.Terrain.TerrainType = Terrain.FromString(CStr(GetTag(Tags, "Terrain")))
Else