diff --git a/P3D/Entites/Enviroment/AnimatedBlock.vb b/P3D/Entites/Enviroment/AnimatedBlock.vb index f3b37d1c7..5f125f903 100644 --- a/P3D/Entites/Enviroment/AnimatedBlock.vb +++ b/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 diff --git a/P3D/Resources/ContentPackManager.vb b/P3D/Resources/ContentPackManager.vb index 7377c9fcb..e383b8b82 100644 --- a/P3D/Resources/ContentPackManager.vb +++ b/P3D/Resources/ContentPackManager.vb @@ -116,6 +116,7 @@ Water.ClearAnimationResources() Whirlpool.LoadedWaterTemp = False Waterfall.ClearAnimationResources() + AnimatedBlock.ClearAnimationResources() Logger.Debug("---Cleared ContentPackManager---") End Sub diff --git a/P3D/Screens/MainMenu/PressStartScreen.vb b/P3D/Screens/MainMenu/PressStartScreen.vb index cc35c39e0..35dc89cd4 100644 --- a/P3D/Screens/MainMenu/PressStartScreen.vb +++ b/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