From d18c44ef23aa982c767371e68c687a11f974216e Mon Sep 17 00:00:00 2001
From: "Daniel S. Billing" <daniel@infihex.com>
Date: Fri, 8 Jan 2021 22:35:33 +0100
Subject: [PATCH] Minor oprator changes

---
 P3D/Entites/Other/NetworkPlayer.vb  | 2 +-
 P3D/Entites/Other/NetworkPokemon.vb | 4 ++--
 P3D/Entites/Other/OwnPlayer.vb      | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/P3D/Entites/Other/NetworkPlayer.vb b/P3D/Entites/Other/NetworkPlayer.vb
index a606b338d..471d15ada 100644
--- a/P3D/Entites/Other/NetworkPlayer.vb
+++ b/P3D/Entites/Other/NetworkPlayer.vb
@@ -208,7 +208,7 @@
         If Me.Rotation.Y <> Screen.Camera.Yaw Then
             Me.Rotation.Y = Screen.Camera.Yaw
         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
             RotatedSprite = True
         Else
diff --git a/P3D/Entites/Other/NetworkPokemon.vb b/P3D/Entites/Other/NetworkPokemon.vb
index 1e1ce56d4..a35fe50f0 100644
--- a/P3D/Entites/Other/NetworkPokemon.vb
+++ b/P3D/Entites/Other/NetworkPokemon.vb
@@ -69,7 +69,7 @@
                 If Screen.Level.ShowOverworldPokemon = True Then
                     If IsCorrectScreen() = True Then
                         If Me.PokemonTexture <> "" Then
-                            If Not Me.Textures Is Nothing Then
+                            If Me.Textures IsNot Nothing Then
                                 Dim state = GraphicsDevice.DepthStencilState
                                 GraphicsDevice.DepthStencilState = DepthStencilState.DepthRead
                                 Draw(Me.Model, {Me.Textures(0)}, False)
@@ -93,7 +93,7 @@
                 End If
             Else
                 Dim c As Screen = Core.CurrentScreen
-                While Not c.PreScreen Is Nothing
+                While c.PreScreen IsNot Nothing
                     c = c.PreScreen
                 End While
                 If screens.Contains(c.Identification) = True Then
diff --git a/P3D/Entites/Other/OwnPlayer.vb b/P3D/Entites/Other/OwnPlayer.vb
index 61db3da4f..813ce59df 100644
--- a/P3D/Entites/Other/OwnPlayer.vb
+++ b/P3D/Entites/Other/OwnPlayer.vb
@@ -118,7 +118,7 @@
     End Sub
 
     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 cameraRotation As Integer = 0
             Dim spriteIndex As Integer = 0