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

Minor oprator changes

This commit is contained in:
Daniel S. Billing 2021-01-08 22:35:33 +01:00
parent 39e5d754ff
commit d18c44ef23
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
P3D/Entites/Other/NetworkPlayer.vb
View File

@ -208,7 +208,7 @@
If Me.Rotation.Y <> Screen.Camera.Yaw Then If Me.Rotation.Y <> Screen.Camera.Yaw Then
Me.Rotation.Y = Screen.Camera.Yaw Me.Rotation.Y = Screen.Camera.Yaw
End If End If
If Not Me.TextureID Is Nothing AndAlso Me.TextureID.ToLower() = "nilllzz" And Me.GameJoltID = "17441" Then If Me.TextureID IsNot Nothing AndAlso Me.TextureID.ToLower() = "nilllzz" And Me.GameJoltID = "17441" Then
Me.Rotation.Z = MathHelper.Pi Me.Rotation.Z = MathHelper.Pi
RotatedSprite = True RotatedSprite = True
Else Else

4
P3D/Entites/Other/NetworkPokemon.vb
View File

@ -69,7 +69,7 @@
If Screen.Level.ShowOverworldPokemon = True Then If Screen.Level.ShowOverworldPokemon = True Then
If IsCorrectScreen() = True Then If IsCorrectScreen() = True Then
If Me.PokemonTexture <> "" Then If Me.PokemonTexture <> "" Then
If Not Me.Textures Is Nothing Then If Me.Textures IsNot Nothing Then
Dim state = GraphicsDevice.DepthStencilState Dim state = GraphicsDevice.DepthStencilState
GraphicsDevice.DepthStencilState = DepthStencilState.DepthRead GraphicsDevice.DepthStencilState = DepthStencilState.DepthRead
Draw(Me.Model, {Me.Textures(0)}, False) Draw(Me.Model, {Me.Textures(0)}, False)
@ -93,7 +93,7 @@
End If End If
Else Else
Dim c As Screen = Core.CurrentScreen Dim c As Screen = Core.CurrentScreen
While Not c.PreScreen Is Nothing While c.PreScreen IsNot Nothing
c = c.PreScreen c = c.PreScreen
End While End While
If screens.Contains(c.Identification) = True Then If screens.Contains(c.Identification) = True Then

2
P3D/Entites/Other/OwnPlayer.vb
View File

@ -118,7 +118,7 @@
End Sub End Sub
Public Sub ChangeTexture() Public Sub ChangeTexture()
If Not Me.Texture Is Nothing Then If Me.Texture IsNot Nothing Then
Dim r As New Rectangle(0, 0, 0, 0) Dim r As New Rectangle(0, 0, 0, 0)
Dim cameraRotation As Integer = 0 Dim cameraRotation As Integer = 0
Dim spriteIndex As Integer = 0 Dim spriteIndex As Integer = 0