More AnimatedBlock issues fixed

P3D/Entites/Enviroment/AnimatedBlock.vb

@@ -191,13 +191,15 @@
     End Sub
 
     Private Sub ChangeTexture(ByVal n As Integer)
-        If BlockTexturesTemp.Count = 0 Then
-            ClearAnimationResources()
-            CreateBlockTextureTemp()
-        End If
-        If Me.CurrentSeason <> P3D.World.CurrentSeason Then
-            ClearAnimationResources()
-            CreateBlockTextureTemp()
+        If CurrentScreen.Identification = Screen.Identifications.OverworldScreen Then
+            If BlockTexturesTemp.Count = 0 Then
+                ClearAnimationResources()
+                CreateBlockTextureTemp()
+            End If
+            If Me.CurrentSeason <> P3D.World.CurrentSeason AndAlso SeasonColorTexture <> "" Then
+                ClearAnimationResources()
+                CreateBlockTextureTemp()
+            End If
         End If
         If Not Animations Is Nothing Then
             Dim i = Animations(n).CurrentRow

P3D/Resources/ContentPackManager.vb

@@ -116,6 +116,7 @@
         Water.ClearAnimationResources()
         Whirlpool.LoadedWaterTemp = False
         Waterfall.ClearAnimationResources()
+        AnimatedBlock.ClearAnimationResources()
 
         Logger.Debug("---Cleared ContentPackManager---")
     End Sub

P3D/Screens/MainMenu/PressStartScreen.vb

@@ -1533,6 +1533,7 @@ Public Class NewMainMenuScreen
                             Waterfall.ClearAnimationResources()
                             Water.AddDefaultWaterAnimationResources()
                             Waterfall.AddDefaultWaterAnimationResources()
+                            AnimatedBlock.ClearAnimationResources()
 
                             World.IsMainMenu = False
                             If _isGameJolt Then