tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-28 08:14:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

More AnimatedBlock issues fixed

Browse Source
This commit is contained in:
JappaWakka 2023-10-17 20:30:22 +02:00
parent bc4e42d1f3
commit fce1309183
3 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
P3D/Entites/Enviroment/AnimatedBlock.vb
View File

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

1
P3D/Resources/ContentPackManager.vb
View File

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

1
P3D/Screens/MainMenu/PressStartScreen.vb
View File

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