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

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
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 &
cameraInformation &
"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
Dim contentPackString As String = ""