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

Maybe this'll prevent animatedblock crash

Browse Source
This commit is contained in:
JappaWakka 2022-07-24 10:45:18 +02:00
parent 2dd64aa7be
commit eb69a8ee5b
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -184,19 +184,17 @@
End Sub End Sub
Private Sub ChangeTexture(ByVal n As Integer) Private Sub ChangeTexture(ByVal n As Integer)
'If Core.GameOptions.GraphicStyle = 1 Then
If BlockTexturesTemp.Count = 0 Then If BlockTexturesTemp.Count = 0 Then
ClearAnimationResources() ClearAnimationResources()
CreateBlockTextureTemp() CreateBlockTextureTemp()
End If End If
Dim i = Animations(n).CurrentRow If Not Animations Is Nothing Then
Dim j = Animations(n).CurrentColumn Dim i = Animations(n).CurrentRow
If BlockTexturesTemp.ContainsKey(AnimationNames(n) & "_" & (j + columns(n) * i)) = True Then Dim j = Animations(n).CurrentColumn
Me.Textures(n) = BlockTexturesTemp(AnimationNames(n) & "_" & (j + columns(n) * i)) If BlockTexturesTemp.ContainsKey(AnimationNames(n) & "_" & (j + columns(n) * i)) = True Then
Me.Textures(n) = BlockTexturesTemp(AnimationNames(n) & "_" & (j + columns(n) * i))
End If
End If End If
'End If
End Sub End Sub
Public Overrides Sub ResultFunction(ByVal Result As Integer) Public Overrides Sub ResultFunction(ByVal Result As Integer)