tyler.durden
/
P3D-Legacy
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix Animatedblock not updating with seasons

This commit is contained in:
JappaWakka 2023-10-10 11:33:01 +02:00
parent f7fd221ce9
commit 3d44bf61f3
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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