mirror of
https://github.com/P3D-Legacy/P3D-Legacy.git
synced 2025-04-08 18:35:09 +02:00
Content Pack Menu tweaks
whenever you scroll (or press up/down) on the buttons at the bottom, the select sound plays (with a delay so you can't spam it) so the player knows it does something I also renamed Up and Down to Move Up and Move Down to avoid confusion
This commit is contained in:
parent
0e8b60cfc4
commit
cf56508ed0
@ -112,8 +112,8 @@ LanguageScreen:
|
||||
language_menu_apply,Apply
|
||||
language_menu_back,Back
|
||||
PacksScreen:
|
||||
pack_menu_up,Up
|
||||
pack_menu_down,Down
|
||||
pack_menu_up,Move Up
|
||||
pack_menu_down,Move Down
|
||||
pack_menu_toggle_on,Enabled
|
||||
pack_menu_toggle_off,Disabled
|
||||
pack_menu_information,Information
|
||||
|
@ -23,6 +23,8 @@
|
||||
Private _screenSize As Size = New Size(CInt(ScreenSize.Width), CInt(ScreenSize.Height))
|
||||
Private LastControl As Integer = 0
|
||||
|
||||
Private Property SelectPackNoiseDelay As Integer = 10
|
||||
|
||||
Private Languages As New List(Of String)
|
||||
Private LanguageNames As New List(Of String)
|
||||
Private currentLanguage As String = "en"
|
||||
@ -334,6 +336,10 @@
|
||||
If packsMenuIndex(0) - packsMenuIndex(2) < 0 Then
|
||||
packsMenuIndex(2) -= 1
|
||||
End If
|
||||
If SelectPackNoiseDelay = 0 Then
|
||||
SoundManager.PlaySound("select", 0.0F, 0.0F, 0.5F, False)
|
||||
SelectPackNoiseDelay = 10
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
If Controls.Down(True, True, True) = True Then
|
||||
@ -342,6 +348,10 @@
|
||||
If packsMenuIndex(0) + packsMenuIndex(2) > 3 Then
|
||||
packsMenuIndex(2) += 1
|
||||
End If
|
||||
If SelectPackNoiseDelay = 0 Then
|
||||
SoundManager.PlaySound("select", 0.0F, 0.0F, 0.5F, False)
|
||||
SelectPackNoiseDelay = 10
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
If GameInstance.IsMouseVisible = True Then
|
||||
@ -356,6 +366,10 @@
|
||||
packsMenuIndex(0) = CInt(MathHelper.Clamp(packsMenuIndex(0), 0, PackNames.Count - 1))
|
||||
packsMenuIndex(2) = CInt(MathHelper.Clamp(packsMenuIndex(2), 0, PackNames.Count - 4))
|
||||
|
||||
If SelectPackNoiseDelay > 0 Then
|
||||
SelectPackNoiseDelay -= 1
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ButtonPackInformation()
|
||||
@ -859,14 +873,14 @@
|
||||
If Math.Abs(R2.Y - R1.Y) <= (R2.X - R1.X) And R2.Y >= R1.Y Then
|
||||
EligibleControls.Add(control)
|
||||
End If
|
||||
Else
|
||||
If ScreenIndex = 7 And currentControl.ID = 6 Then
|
||||
If control.ID = 4 Then
|
||||
EligibleControls.Add(control)
|
||||
End If
|
||||
ElseIf control.ID = currentControl.ID + 1 Then
|
||||
ElseIf ScreenIndex = 7 Then
|
||||
If currentControl.ID = 5 And control.ID = 6 Then
|
||||
EligibleControls.Add(control)
|
||||
ElseIf currentControl.ID = 6 And control.ID = 4 Then
|
||||
EligibleControls.Add(control)
|
||||
End If
|
||||
ElseIf control.ID = currentControl.ID + 1 Then
|
||||
EligibleControls.Add(control)
|
||||
End If
|
||||
Case "left"
|
||||
If ScreenIndex = 0 And currentControl.ID > 6 Then
|
||||
@ -874,8 +888,10 @@
|
||||
EligibleControls.Add(control)
|
||||
End If
|
||||
Else
|
||||
If ScreenIndex = 7 And currentControl.ID = 4 Then
|
||||
If control.ID = 6 Then
|
||||
If ScreenIndex = 7 Then
|
||||
If currentControl.ID <= 4 And control.ID = 6 Then
|
||||
EligibleControls.Add(control)
|
||||
ElseIf currentControl.ID = 6 And control.ID = 5 Then
|
||||
EligibleControls.Add(control)
|
||||
End If
|
||||
ElseIf control.ID = currentControl.ID - 1 Then
|
||||
|
Loading…
x
Reference in New Issue
Block a user