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,18 +1057,16 @@
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)
If chance = 0 Then
World.IsAurora = True
If Screen.Level.DayTime = World.DayTimes.Night Then
If World.IsAurora = False Then
Dim chance = Random.Next(0, 250)
If chance = 0 Then
World.IsAurora = True
End If
End If
Else
World.IsAurora = False
End If
Else
World.IsAurora = False
End If
If TagExists(Tags, "Terrain") = True Then