More AnimatedBlock issues fixed

P3D/Entites/Enviroment/AnimatedBlock.vb

@@ -191,14 +191,16 @@
     End Sub
 
     Private Sub ChangeTexture(ByVal n As Integer)
+        If CurrentScreen.Identification = Screen.Identifications.OverworldScreen Then
             If BlockTexturesTemp.Count = 0 Then
                 ClearAnimationResources()
                 CreateBlockTextureTemp()
             End If
-        If Me.CurrentSeason <> P3D.World.CurrentSeason Then
+            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
             Dim j = Animations(n).CurrentColumn

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