Fix for custom water bug with GraphicsStyle

This commit is contained in:
JappaWakka 2023-09-30 19:07:47 +02:00
parent f0a9a9359b
commit d08b472b35
2 changed files with 122 additions and 126 deletions

View File

@ -38,7 +38,6 @@
Water.WaterTexturesTemp.Add("_11", TextureManager.GetTexture("Routes", New Rectangle(220, 220, 20, 20))) Water.WaterTexturesTemp.Add("_11", TextureManager.GetTexture("Routes", New Rectangle(220, 220, 20, 20)))
End Sub End Sub
Private Sub CreateWaterTextureTemp() Private Sub CreateWaterTextureTemp()
If Core.GameOptions.GraphicStyle = 1 Then
Dim textureData As List(Of String) = Me.AdditionalValue.Split(CChar(",")).ToList() Dim textureData As List(Of String) = Me.AdditionalValue.Split(CChar(",")).ToList()
If textureData.Count >= 5 Then If textureData.Count >= 5 Then
Dim RotationOffsetVertical As Boolean = False '''False = Horizontal, True = Vertical Dim RotationOffsetVertical As Boolean = False '''False = Horizontal, True = Vertical
@ -95,7 +94,6 @@
Water.WaterTexturesTemp.Add("_11", TextureManager.GetTexture("Routes", New Rectangle(220, 220, 20, 20))) Water.WaterTexturesTemp.Add("_11", TextureManager.GetTexture("Routes", New Rectangle(220, 220, 20, 20)))
End If End If
End If End If
End If
End Sub End Sub
Public Overrides Sub ClickFunction() Public Overrides Sub ClickFunction()

View File

@ -38,7 +38,6 @@
End Sub End Sub
Private Sub CreateWaterTextureTemp() Private Sub CreateWaterTextureTemp()
If Core.GameOptions.GraphicStyle = 1 Then
Dim textureData As List(Of String) = Me.AdditionalValue.Split(CChar(",")).ToList() Dim textureData As List(Of String) = Me.AdditionalValue.Split(CChar(",")).ToList()
Dim RotationOffsetVertical As Boolean = False '''False = Horizontal, True = Vertical Dim RotationOffsetVertical As Boolean = False '''False = Horizontal, True = Vertical
@ -114,7 +113,6 @@
End If End If
End If End If
End If
End Sub End Sub
Public Overrides Sub UpdateEntity() Public Overrides Sub UpdateEntity()