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

Fix gamemode splash again (forgot other menus)

This commit is contained in:
JappaWakka 2023-08-09 14:36:04 +02:00
parent f8c63948d4
commit 9ffd923e56
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -422,6 +422,7 @@ Public Class NewMainMenuScreen
Next Next
End If End If
Case 2 Case 2
GameModeSplash = Nothing
For x = 0 To _MainProfiles.Count - 1 For x = 0 To _MainProfiles.Count - 1
Dim xOffset As Single = _screenOrigin.X + _mainOffset.X + x * 180 + ((x + 1) * 100 * (1 - _fadeInMain)) Dim xOffset As Single = _screenOrigin.X + _mainOffset.X + x * 180 + ((x + 1) * 100 * (1 - _fadeInMain))
If New Rectangle(CInt(xOffset), CInt(_screenOrigin.Y + _screenOffsetTarget.Y), 160, 160).Contains(MouseHandler.MousePosition) Then If New Rectangle(CInt(xOffset), CInt(_screenOrigin.Y + _screenOffsetTarget.Y), 160, 160).Contains(MouseHandler.MousePosition) Then
@ -474,6 +475,7 @@ Public Class NewMainMenuScreen
SoundManager.PlaySound("select") SoundManager.PlaySound("select")
End If End If
Else Else
GameModeSplash = Nothing
If CurrentScreen.Identification = Identifications.MainMenuScreen Then If CurrentScreen.Identification = Identifications.MainMenuScreen Then
Dim diff As Integer = x - _selectedProfile Dim diff As Integer = x - _selectedProfile
_optionsOffsetTarget.X -= diff * 180 _optionsOffsetTarget.X -= diff * 180
@ -644,7 +646,7 @@ Public Class NewMainMenuScreen
UpdateScreenOffset() UpdateScreenOffset()
UpdateOptionsOffset() UpdateOptionsOffset()
If _MainProfiles(_selectedProfile).GameMode <> "Kolben" Then If _MainProfiles(_selectedProfile).GameMode <> "Kolben" AndAlso (_menuIndex = 0 OrElse _menuIndex = 1) Then
If GameModeSplash Is Nothing Then If GameModeSplash Is Nothing Then
Try Try
Dim fileName As String = GameController.GamePath & "\GameModes\" & _MainProfiles(_selectedProfile).GameMode & "\MainMenu.png" Dim fileName As String = GameController.GamePath & "\GameModes\" & _MainProfiles(_selectedProfile).GameMode & "\MainMenu.png"