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

Fixed "No Texture" bug when using Fly

This commit is contained in:
JappaWakka 2022-05-23 17:20:27 +02:00
parent 15aa587cdf
commit 455ff447d2
1 changed files with 12 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
P3D/Screens/MapScreen.vb
View File

@ -18,6 +18,7 @@
Dim places As New List(Of Place)
Dim RoamingPoke As New List(Of Roaming)
Dim PlayerSkinTexture As Texture2D
Dim objectsTexture As Texture2D
Dim mapTexture As Texture2D
Dim texture As Texture2D
@ -40,7 +41,17 @@
Me.regionPointer = startIndex
Me.drawObjects = Player.Temp.MapSwitch
If Core.Player.IsGameJoltSave And GameJolt.API.LoggedIn Then
PlayerSkinTexture = GameJolt.Emblem.GetOnlineSprite(Core.GameJoltSave.GameJoltID)
Else
If Screen.Level.Surfing = True Then
PlayerSkinTexture = TextureManager.GetTexture("Textures\NPC\" & Core.Player.TempSurfSkin)
ElseIf Screen.Level.Riding = True Then
PlayerSkinTexture = TextureManager.GetTexture("Textures\NPC\" & Core.Player.TempRideSkin)
Else
PlayerSkinTexture = TextureManager.GetTexture("Textures\NPC\" & Core.Player.Skin)
End If
End If
Me.MouseVisible = False
Me.objectsTexture = TextureManager.GetTexture("GUI\Map\map_objects")
@ -480,19 +491,6 @@
Next
End If
Dim PlayerSkinTexture As Texture2D
If Core.Player.IsGameJoltSave And GameJolt.API.LoggedIn Then
PlayerSkinTexture = GameJolt.Emblem.GetOnlineSprite(Core.GameJoltSave.GameJoltID)
Else
If Screen.Level.Surfing = True Then
PlayerSkinTexture = TextureManager.GetTexture("Textures\NPC\" & Core.Player.TempSurfSkin)
ElseIf Screen.Level.Riding = True Then
PlayerSkinTexture = TextureManager.GetTexture("Textures\NPC\" & Core.Player.TempRideSkin)
Else
PlayerSkinTexture = TextureManager.GetTexture("Textures\NPC\" & Core.Player.Skin)
End If
End If
Dim PlayerSkinWidth As Integer = CInt(PlayerSkinTexture.Width / 3)
Dim PlayerSkinHeight As Integer = CInt(PlayerSkinTexture.Height / 4)
Dim PlayerSkinScale As Single = 1.0F