diff --git a/P3D/World/SkyDome.vb b/P3D/World/SkyDome.vb
index 222be521f..d34c54193 100644
--- a/P3D/World/SkyDome.vb
+++ b/P3D/World/SkyDome.vb
@@ -182,7 +182,12 @@
 
     Private Function GetCloudAlpha() As Single
         If Screen.Level.World.EnvironmentType = World.EnvironmentTypes.Outside And World.IsAurora = False Then
-            Return 1.0F
+            Select Case World.GetWeatherFromWeatherType(Screen.Level.WeatherType)
+                Case World.Weathers.Blizzard, World.Weathers.Thunderstorm
+                    Return 0.25F
+                Case Else
+                    Return 1.0F
+            End Select
         Else
             Return 0.0F
         End If
diff --git a/P3D/World/World.vb b/P3D/World/World.vb
index e03cd0fd5..b482a9802 100644
--- a/P3D/World/World.vb
+++ b/P3D/World/World.vb
@@ -596,32 +596,38 @@ endsub:
             Case EnvironmentTypes.Outside
                 Dim multiplier As Vector3 = New Vector3(1.0F)
                 Select Case CurrentMapWeather
-                    Case World.Weathers.Clear, Weathers.Sunny
+                    Case World.Weathers.Clear, Weathers.Sunny, World.Weathers.Fog
                         multiplier = New Vector3(1.0F)
-                    Case World.Weathers.Rain, Weathers.Thunderstorm, World.Weathers.Fog
+                    Case World.Weathers.Rain, Weathers.Thunderstorm
                         multiplier = New Vector3(0.7F)
                     Case World.Weathers.Snow
                         multiplier = New Vector3(0.8F)
                 End Select
+                Core.BackgroundColor = (Lighting.GetEnvironmentColor(2) * multiplier).ToColor
                 Screen.Effect.FogColor = Lighting.GetEnvironmentColor(2) * multiplier
                 Screen.SkyDome.TextureDown = TextureManager.GetTexture("SkyDomeResource\Stars")
             Case EnvironmentTypes.Inside
+                Core.BackgroundColor = Lighting.GetEnvironmentColor(2).ToColor
                 Screen.Effect.FogColor = Lighting.GetEnvironmentColor(2)
                 Screen.SkyDome.TextureUp = TextureManager.GetTexture("SkyDomeResource\Inside")
                 Screen.SkyDome.TextureDown = Nothing
             Case EnvironmentTypes.Dark
+                Core.BackgroundColor = Lighting.GetEnvironmentColor(2).ToColor
                 Screen.Effect.FogColor = Lighting.GetEnvironmentColor(2)
                 Screen.SkyDome.TextureUp = TextureManager.GetTexture("SkyDomeResource\Dark")
                 Screen.SkyDome.TextureDown = Nothing
             Case EnvironmentTypes.Cave
+                Core.BackgroundColor = Lighting.GetEnvironmentColor(2).ToColor
                 Screen.Effect.FogColor = Lighting.GetEnvironmentColor(2)
                 Screen.SkyDome.TextureUp = TextureManager.GetTexture("SkyDomeResource\Cave")
                 Screen.SkyDome.TextureDown = Nothing
             Case EnvironmentTypes.Underwater
+                Core.BackgroundColor = Lighting.GetEnvironmentColor(2).ToColor
                 Screen.Effect.FogColor = Lighting.GetEnvironmentColor(2)
                 Screen.SkyDome.TextureUp = TextureManager.GetTexture("SkyDomeResource\Underwater")
                 Screen.SkyDome.TextureDown = Nothing
             Case EnvironmentTypes.Forest
+                Core.BackgroundColor = Lighting.GetEnvironmentColor(2).ToColor
                 Screen.Effect.FogColor = Lighting.GetEnvironmentColor(2)
                 Screen.SkyDome.TextureUp = TextureManager.GetTexture("SkyDomeResource\Forest")
                 Screen.SkyDome.TextureDown = Nothing