Transparent fix again, this time should work

2.5DHero/2.5DHero/Entites/Enviroment/Grass.vb

@@ -2,6 +2,10 @@
 
     Inherits Entity
 
+    Protected Overrides Function CalculateCameraDistance(CPosition As Vector3) as Single
+        Return MyBase.CalculateCameraDistance(CPosition) - 0.4f
+    End Function
+
     Public Overrides Sub UpdateEntity()
         If Me.Rotation.Y <> Screen.Camera.Yaw Then
             Me.Rotation.Y = Screen.Camera.Yaw

2.5DHero/2.5DHero/Entites/Enviroment/Water.vb

@@ -153,6 +153,10 @@
         End If
     End Sub
 
+    Protected Overrides Function CalculateCameraDistance(CPosition As Vector3) as Single
+        Return MyBase.CalculateCameraDistance(CPosition) - 0.2f
+    End Function
+
     Public Overrides Sub UpdateEntity()
         If Not WaterAnimation Is Nothing Then
             WaterAnimation.Update(0.01)

2.5DHero/2.5DHero/Entites/Other/NPC.vb

@@ -449,7 +449,7 @@
     End Sub
 
     Protected Overrides Function CalculateCameraDistance(CPosition As Vector3) as Single
-        Return MyBase.CalculateCameraDistance(CPosition)
+        Return MyBase.CalculateCameraDistance(CPosition) - 0.2f
     End Function
 
     Public Overrides Sub UpdateEntity()

2.5DHero/2.5DHero/Entites/Other/NetworkPlayer.vb

@@ -201,7 +201,7 @@
     End Sub
 
     Protected Overrides Function CalculateCameraDistance(CPosition As Vector3) as Single
-        Return MyBase.CalculateCameraDistance(CPosition) + 0.2f
+        Return MyBase.CalculateCameraDistance(CPosition) - 0.2f
     End Function
 
     Public Overrides Sub UpdateEntity()

2.5DHero/2.5DHero/Entites/Other/NetworkPokemon.vb

@@ -32,7 +32,7 @@
     End Sub
 
     Protected Overrides Function CalculateCameraDistance(CPosition As Vector3) as Single
-        Return MyBase.CalculateCameraDistance(CPosition) + 0.2f
+        Return MyBase.CalculateCameraDistance(CPosition) - 0.2f
     End Function
 
     Public Overrides Sub UpdateEntity()

2.5DHero/2.5DHero/Entites/Other/OverworldPokemon.vb

@@ -98,7 +98,7 @@ Public Class OverworldPokemon
     End Sub
 
     Protected Overrides Function CalculateCameraDistance(CPosition As Vector3) as Single
-        Return MyBase.CalculateCameraDistance(CPosition) + 0.2f
+        Return MyBase.CalculateCameraDistance(CPosition) - 0.2f
     End Function
 
     Public Overrides Sub UpdateEntity()
@@ -114,7 +114,7 @@ Public Class OverworldPokemon
     Public Overrides Sub Render()
         If Me.IsVisible() = True Then
             Dim state = GraphicsDevice.DepthStencilState
-            GraphicsDevice.DepthStencilState = DepthStencilState.None
+            GraphicsDevice.DepthStencilState = DepthStencilState.DepthRead
             Draw(Me.Model, {Me.Textures(0)}, False)
             GraphicsDevice.DepthStencilState = state
         End If

2.5DHero/2.5DHero/Entites/Other/OwnPlayer.vb

@@ -72,7 +72,7 @@
     End Sub
 
     Protected Overrides Function CalculateCameraDistance(CPosition As Vector3) as Single
-        Return MyBase.CalculateCameraDistance(CPosition) + 0.2f
+        Return MyBase.CalculateCameraDistance(CPosition) - 0.2f
     End Function
 
     Public Overrides Sub UpdateEntity()