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

Added Map Path to DebugDisplay

This commit is contained in:
Jasper "JappaWakka" Speelman 2022-04-11 16:33:05 +02:00
parent a9a03bae69
commit a55549465d
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
P3D/Debug/DebugDisplay.vb
View File

@ -31,11 +31,16 @@ Public Class DebugDisplay
cameraInformation = Screen.Camera.Position.ToString() & thirdPersonString & Environment.NewLine & Screen.Camera.Yaw & "; " & Screen.Camera.Pitch & Environment.NewLine cameraInformation = Screen.Camera.Position.ToString() & thirdPersonString & Environment.NewLine & Screen.Camera.Yaw & "; " & Screen.Camera.Pitch & Environment.NewLine
End If End If
Dim MapPath As String = ""
If Screen.Level IsNot Nothing Then
MapPath = Environment.NewLine & "MapPath: " & Screen.Level.LevelFile.ToString
End If
Dim s As String = GameController.GAMENAME & " " & GameController.GAMEDEVELOPMENTSTAGE & " " & GameController.GAMEVERSION & " / FPS: " & Math.Round(Core.GameInstance.FPSMonitor.Value, 0) & isDebugString & Environment.NewLine & Dim s As String = GameController.GAMENAME & " " & GameController.GAMEDEVELOPMENTSTAGE & " " & GameController.GAMEVERSION & " / FPS: " & Math.Round(Core.GameInstance.FPSMonitor.Value, 0) & isDebugString & Environment.NewLine &
cameraInformation & cameraInformation &
"E: " & _drawnVertices.ToString() & "/" & _maxVertices.ToString() & Environment.NewLine & "E: " & _drawnVertices.ToString() & "/" & _maxVertices.ToString() & Environment.NewLine &
"C: " & _maxDistance.ToString() & " A: " & ActionscriptActive.ToString() "C: " & _maxDistance.ToString() & " A: " & ActionscriptActive.ToString() &
MapPath
If Core.GameOptions.ContentPackNames.Count() > 0 Then If Core.GameOptions.ContentPackNames.Count() > 0 Then
Dim contentPackString As String = "" Dim contentPackString As String = ""