tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-27 15:54:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fixed "No Texture" bug when using Fly

Browse Source
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 places As New List(Of Place)
Dim RoamingPoke As New List(Of Roaming) Dim RoamingPoke As New List(Of Roaming)
Dim PlayerSkinTexture As Texture2D
Dim objectsTexture As Texture2D Dim objectsTexture As Texture2D
Dim mapTexture As Texture2D Dim mapTexture As Texture2D
Dim texture As Texture2D Dim texture As Texture2D
@ -40,7 +41,17 @@
Me.regionPointer = startIndex Me.regionPointer = startIndex
Me.drawObjects = Player.Temp.MapSwitch 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.MouseVisible = False
Me.objectsTexture = TextureManager.GetTexture("GUI\Map\map_objects") Me.objectsTexture = TextureManager.GetTexture("GUI\Map\map_objects")
@ -480,19 +491,6 @@
Next Next
End If 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 PlayerSkinWidth As Integer = CInt(PlayerSkinTexture.Width / 3)
Dim PlayerSkinHeight As Integer = CInt(PlayerSkinTexture.Height / 4) Dim PlayerSkinHeight As Integer = CInt(PlayerSkinTexture.Height / 4)
Dim PlayerSkinScale As Single = 1.0F Dim PlayerSkinScale As Single = 1.0F