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

GameModes in Saves use directory name for check

Browse Source
This commit is contained in:
JappaWakka 2024-01-24 12:58:54 +01:00
parent e8da25f6bd
commit 8ab0da3f38
6 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
P3D/Debug/Logger.vb
View File

@ -113,7 +113,7 @@ Public Class Logger
Dim GameMode As String = "[No GameMode loaded]" Dim GameMode As String = "[No GameMode loaded]"
If Not GameModeManager.ActiveGameMode Is Nothing Then If Not GameModeManager.ActiveGameMode Is Nothing Then
GameMode = GameModeManager.ActiveGameMode.Name GameMode = GameModeManager.ActiveGameMode.DirectoryName
End If End If
Dim OnlineInformation As String = "GameJolt Account: FALSE" Dim OnlineInformation As String = "GameJolt Account: FALSE"

2
P3D/Network/Servers/PlayerManager.vb
View File

@ -275,7 +275,7 @@ Namespace Servers
GameJoltID = Core.GameJoltSave.GameJoltID GameJoltID = Core.GameJoltSave.GameJoltID
End If End If
AddToDataItems(dataItems, GameModeManager.ActiveGameMode.Name.ToLower(), 0) AddToDataItems(dataItems, GameModeManager.ActiveGameMode.DirectoryName.ToLower(), 0)
AddToDataItems(dataItems, Core.Player.IsGamejoltSave.ToNumberString(), 1) AddToDataItems(dataItems, Core.Player.IsGamejoltSave.ToNumberString(), 1)
AddToDataItems(dataItems, GameJoltID, 2) AddToDataItems(dataItems, GameJoltID, 2)
AddToDataItems(dataItems, GameController.DecSeparator, 3) AddToDataItems(dataItems, GameController.DecSeparator, 3)

2
P3D/Resources/FontManager.vb
View File

@ -34,7 +34,7 @@ Public Class FontManager
End If End If
Next Next
'if there's a game mode loaded, look in that too for additional fonts 'if there's a game mode loaded, look in that too for additional fonts
If Not GameModeManager.ActiveGameMode.Name = "Kolben" Then If Not GameModeManager.ActiveGameMode.DirectoryName = "Kolben" Then
If Not GameModeManager.ActiveGameMode.ContentPath = "\Content\" Then If Not GameModeManager.ActiveGameMode.ContentPath = "\Content\" Then
If System.IO.Directory.Exists(GameController.GamePath & GameModeManager.ActiveGameMode.ContentPath & "\Fonts\BMP") = True Then If System.IO.Directory.Exists(GameController.GamePath & GameModeManager.ActiveGameMode.ContentPath & "\Fonts\BMP") = True Then
For Each s As String In System.IO.Directory.GetFiles(GameController.GamePath & GameModeManager.ActiveGameMode.ContentPath & "\Fonts\BMP") For Each s As String In System.IO.Directory.GetFiles(GameController.GamePath & GameModeManager.ActiveGameMode.ContentPath & "\Fonts\BMP")

2
P3D/Resources/ModelManager.vb
View File

@ -32,7 +32,7 @@ Public Class ModelManager
Public Shared Function ModelExist(ByVal Path As String) As Boolean Public Shared Function ModelExist(ByVal Path As String) As Boolean
Dim cContent As ContentManager = ContentPackManager.GetContentManager(Path, ".xnb") Dim cContent As ContentManager = ContentPackManager.GetContentManager(Path, ".xnb")
If cContent.RootDirectory = "Content" Then If cContent.RootDirectory = "Content" Then
If GameModeManager.ActiveGameMode.Name <> "Kolben" Then If GameModeManager.ActiveGameMode.DirectoryName <> "Kolben" Then
Return False Return False
End If End If
End If End If

2
P3D/Screens/MainMenu/NewNewGameScreen.vb
View File

@ -160,7 +160,7 @@
Core.Player.filePrefix = folderPath Core.Player.filePrefix = folderPath
Core.Player.GameStart = Date.Now Core.Player.GameStart = Date.Now
Core.Player.GameMode = GameModeManager.ActiveGameMode.Name Core.Player.GameMode = GameModeManager.ActiveGameMode.DirectoryName
Core.Player.startFOV = 60 Core.Player.startFOV = 60
Core.Player.startFreeCameraMode = True Core.Player.startFreeCameraMode = True
Core.Player.startPosition = New Vector3(x, y, z) Core.Player.startPosition = New Vector3(x, y, z)

4
P3D/Screens/MainMenu/PressStartScreen.vb
View File

@ -1631,7 +1631,7 @@ Public Class GameModeSelectionScreen
Dim displayText = _gameModes(i).Name.CropStringToWidth(FontManager.InGameFont, WIDTH - 32) Dim displayText = _gameModes(i).Name.CropStringToWidth(FontManager.InGameFont, WIDTH - 32)
If displayText = "Kolben" Then If displayText = "Kolben" Then
displayText = "Pokemon 3D" displayText = "Pokémon 3D"
End If End If
For x = 0 To CInt(WIDTH / 16) For x = 0 To CInt(WIDTH / 16)
For y = 0 To CInt(HEIGHT / 16) For y = 0 To CInt(HEIGHT / 16)
@ -1652,7 +1652,7 @@ Public Class GameModeSelectionScreen
Dim dispName As String = GameMode.Name Dim dispName As String = GameMode.Name
If dispName = "Kolben" Then If dispName = "Kolben" Then
dispName = "Pokemon 3D" dispName = "Pokémon 3D"
End If End If
Dim dispDescription As String = GameMode.Description.Replace("~", Environment.NewLine).Replace("*", Environment.NewLine) Dim dispDescription As String = GameMode.Description.Replace("~", Environment.NewLine).Replace("*", Environment.NewLine)
Dim dispVersion As String = GameMode.Version Dim dispVersion As String = GameMode.Version