tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-31 01:35:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

Debug compass tweak

Browse Source
This commit is contained in:
JappaWakka 2023-10-09 19:20:00 +02:00
parent de2c6c829e
commit d2673ed435
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/Debug/DebugDisplay.vb
View File

@ -30,6 +30,17 @@ Public Class DebugDisplay
Dim CompassText As String = "" Dim CompassText As String = ""
If Screen.Camera IsNot Nothing Then If Screen.Camera IsNot Nothing Then
Dim CameraCompass As String = ""
Select Case Screen.Camera.GetFacingDirection()
Case 0
CameraCompass = "C: 0/n"
Case 1
CameraCompass = "C: 1/w"
Case 2
CameraCompass = "C: 2/s"
Case 3
CameraCompass = "C: 3/e"
End Select
Dim PlayerCompass As String = "" Dim PlayerCompass As String = ""
If thirdPersonString <> "" Then If thirdPersonString <> "" Then
Select Case Screen.Camera.GetPlayerFacingDirection Select Case Screen.Camera.GetPlayerFacingDirection
@ -42,20 +53,7 @@ Public Class DebugDisplay
Case 3 Case 3
PlayerCompass = "P: 3/e" PlayerCompass = "P: 3/e"
End Select End Select
End If CompassText = "Compass: " & CameraCompass & " " & PlayerCompass
Dim CameraCompass As String = ""
Select Case Screen.Camera.GetFacingDirection()
Case 0
CameraCompass = "C: 0/n"
Case 1
CameraCompass = "C: 1/w"
Case 2
CameraCompass = "C: 2/s"
Case 3
CameraCompass = "C: 3/e"
End Select
If thirdPersonString <> "" Then
CompassText = "Compass: " & PlayerCompass & ", " & CameraCompass
Else Else
CompassText = "Compass: " & CameraCompass CompassText = "Compass: " & CameraCompass
End If End If