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

Possible fix for gj buttons mouse not working bug

Browse Source
This commit is contained in:
JappaWakka 2022-06-04 09:44:46 +02:00
parent 8d822e410e
commit caee81bc13
1 changed files with 14 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -389,18 +389,20 @@ Public Class NewMainMenuScreen
End If End If
Next Next
If _MainProfiles(_selectedProfile).IsGameJolt AndAlso _MainProfiles(_selectedProfile).Loaded Then If _MainProfiles(_selectedProfile).IsGameJolt AndAlso _MainProfiles(_selectedProfile).Loaded Then
' Click on gamejolt buttons For x = 0 To _MainProfiles.Count - 1
Dim xOffset As Single = _screenOrigin.X + _screenOffset.X + (100 * (1 - _fadeInMain)) ' Click on gamejolt buttons
Dim r As New Vector2(xOffset + 400, _screenOrigin.Y + _screenOffset.Y + 200) Dim xOffset As Single = _screenOrigin.X + _screenOffset.X + x * 180 + ((x + 1) * 100 * (1 - _fadeInMain))
If New Rectangle(CInt(r.X), CInt(r.Y), 32, 32).Contains(MouseHandler.MousePosition) Then Dim r As New Vector2(xOffset + 400, _screenOrigin.Y + _screenOffset.Y + 200)
ButtonChangeMale() If New Rectangle(CInt(r.X), CInt(r.Y), 32, 32).Contains(MouseHandler.MousePosition) Then
ElseIf New Rectangle(CInt(r.X), CInt(r.Y) + 48, 32, 32).Contains(MouseHandler.MousePosition) Then ButtonChangeMale()
ButtonChangeFemale() ElseIf New Rectangle(CInt(r.X), CInt(r.Y) + 48, 32, 32).Contains(MouseHandler.MousePosition) Then
ElseIf New Rectangle(CInt(r.X), CInt(r.Y) + 48 + 48, 32, 32).Contains(MouseHandler.MousePosition) Then ButtonChangeFemale()
ButtonChangeGenderless() ElseIf New Rectangle(CInt(r.X), CInt(r.Y) + 48 + 48, 32, 32).Contains(MouseHandler.MousePosition) Then
ElseIf New Rectangle(CInt(r.X), CInt(r.Y) + 48 + 48 + 48, 32, 32).Contains(MouseHandler.MousePosition) Then ButtonChangeGenderless()
ButtonResetSave() ElseIf New Rectangle(CInt(r.X), CInt(r.Y) + 48 + 48 + 48, 32, 32).Contains(MouseHandler.MousePosition) Then
End If ButtonResetSave()
End If
Next
End If End If
If Controls.Dismiss(True, False, False) Then If Controls.Dismiss(True, False, False) Then
' Click on profiles. ' Click on profiles.