diff --git a/P3D/Entites/Enviroment/AnimatedBlock.vb b/P3D/Entites/Enviroment/AnimatedBlock.vb
index c69769174..2a6891d43 100644
--- a/P3D/Entites/Enviroment/AnimatedBlock.vb
+++ b/P3D/Entites/Enviroment/AnimatedBlock.vb
@@ -4,7 +4,7 @@
 
     Shared BlockTexturesTemp As New Dictionary(Of String, Texture2D)
 
-
+    Dim CurrentSeason As World.Seasons
     Dim AnimationNames As List(Of String)
 
     Dim Animations As List(Of Animation)
@@ -70,6 +70,7 @@
                 For i = 0 To Me.rows(n) - 1
                     For j = 0 To Me.columns(n) - 1
                         If SeasonColorTexture <> "" Then
+                            CurrentSeason = P3D.World.CurrentSeason
                             BlockTexturesTemp.Add(AnimationNames(n) & "_" & (j + columns(n) * i).ToString, P3D.World.GetSeasonTexture(TextureManager.GetTexture("Textures\Seasons\" & Me.SeasonColorTexture), TextureManager.GetTexture(AdditionalValue, New Rectangle(r.X + r.Width * j, r.Y + r.Height * i, r.Width, r.Height))))
                         Else
                             BlockTexturesTemp.Add(AnimationNames(n) & "_" & (j + columns(n) * i).ToString, TextureManager.GetTexture(AdditionalValue, New Rectangle(r.X + r.Width * j, r.Y + r.Height * i, r.Width, r.Height)))
@@ -193,6 +194,10 @@
             ClearAnimationResources()
             CreateBlockTextureTemp()
         End If
+        If Me.CurrentSeason <> P3D.World.CurrentSeason Then
+            ClearAnimationResources()
+            CreateBlockTextureTemp()
+        End If
         If Not Animations Is Nothing Then
             Dim i = Animations(n).CurrentRow
             Dim j = Animations(n).CurrentColumn