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

ContentPack menu mouse selection fixes

Browse Source
This commit is contained in:
Jasper "JappaWakka" Speelman 2021-11-06 12:05:15 +01:00
parent 6fb318e150
commit ee7aaa2e0e
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
P3D/Screens/NewOptionScreen.vb
View File

@ -355,9 +355,13 @@
End If End If
If GameInstance.IsMouseVisible = True Then If GameInstance.IsMouseVisible = True Then
For i = 0 To 3 For i = 0 To 3
If New Rectangle(CInt(windowSize.Width / 2) - 328, CInt(Core.windowSize.Height / 2 - 128 + i * 50), 500, 48).Contains(MouseHandler.MousePosition) = True Then If New Rectangle(CInt(windowSize.Width / 2 - 328), CInt(windowSize.Height / 2 - 128 + i * 50), 500, 48).Contains(MouseHandler.MousePosition) = True Then
If MouseHandler.ButtonPressed(MouseHandler.MouseButtons.LeftButton) = True Then If MouseHandler.ButtonPressed(MouseHandler.MouseButtons.LeftButton) = True Then
packsMenuIndex(0) = i + packsMenuIndex(2) packsMenuIndex(0) = i + packsMenuIndex(2)
If SelectPackNoiseDelay = 0 Then
SoundManager.PlaySound("select", 0.0F, 0.0F, 0.5F, False)
SelectPackNoiseDelay = 10
End If
End If End If
End If End If
Next Next
@ -571,7 +575,7 @@
For Each s As String In Core.GameOptions.ContentPackNames For Each s As String In Core.GameOptions.ContentPackNames
ContentPackManager.Load(GameController.GamePath & "\ContentPacks\" & s & "\exceptions.dat") ContentPackManager.Load(GameController.GamePath & "\ContentPacks\" & s & "\exceptions.dat")
Next Next
SoundManager.PlaySound("save") SoundManager.PlaySound("save", False)
Core.GameOptions.ChangedPack = True Core.GameOptions.ChangedPack = True
Core.OffsetMaps.Clear() Core.OffsetMaps.Clear()
MusicManager.Play("title") MusicManager.Play("title")