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

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:
JappaWakka 2021-09-29 16:29:49 +02:00
parent 0e8b60cfc4
commit cf56508ed0
2 changed files with 26 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
P3D/Content/Localization/Tokens_en.dat
View File

@ -112,8 +112,8 @@ LanguageScreen:
language_menu_apply,Apply language_menu_apply,Apply
language_menu_back,Back language_menu_back,Back
PacksScreen: PacksScreen:
pack_menu_up,Up pack_menu_up,Move Up
pack_menu_down,Down pack_menu_down,Move Down
pack_menu_toggle_on,Enabled pack_menu_toggle_on,Enabled
pack_menu_toggle_off,Disabled pack_menu_toggle_off,Disabled
pack_menu_information,Information pack_menu_information,Information

32
P3D/Screens/NewOptionScreen.vb
View File

@ -23,6 +23,8 @@
Private _screenSize As Size = New Size(CInt(ScreenSize.Width), CInt(ScreenSize.Height)) Private _screenSize As Size = New Size(CInt(ScreenSize.Width), CInt(ScreenSize.Height))
Private LastControl As Integer = 0 Private LastControl As Integer = 0
Private Property SelectPackNoiseDelay As Integer = 10
Private Languages As New List(Of String) Private Languages As New List(Of String)
Private LanguageNames As New List(Of String) Private LanguageNames As New List(Of String)
Private currentLanguage As String = "en" Private currentLanguage As String = "en"
@ -334,6 +336,10 @@
If packsMenuIndex(0) - packsMenuIndex(2) < 0 Then If packsMenuIndex(0) - packsMenuIndex(2) < 0 Then
packsMenuIndex(2) -= 1 packsMenuIndex(2) -= 1
End If End If
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
If Controls.Down(True, True, True) = True Then If Controls.Down(True, True, True) = True Then
@ -342,6 +348,10 @@
If packsMenuIndex(0) + packsMenuIndex(2) > 3 Then If packsMenuIndex(0) + packsMenuIndex(2) > 3 Then
packsMenuIndex(2) += 1 packsMenuIndex(2) += 1
End If End If
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
If GameInstance.IsMouseVisible = True Then If GameInstance.IsMouseVisible = True Then
@ -356,6 +366,10 @@
packsMenuIndex(0) = CInt(MathHelper.Clamp(packsMenuIndex(0), 0, PackNames.Count - 1)) packsMenuIndex(0) = CInt(MathHelper.Clamp(packsMenuIndex(0), 0, PackNames.Count - 1))
packsMenuIndex(2) = CInt(MathHelper.Clamp(packsMenuIndex(2), 0, PackNames.Count - 4)) packsMenuIndex(2) = CInt(MathHelper.Clamp(packsMenuIndex(2), 0, PackNames.Count - 4))
If SelectPackNoiseDelay > 0 Then
SelectPackNoiseDelay -= 1
End If
End Sub End Sub
Private Sub ButtonPackInformation() Private Sub ButtonPackInformation()
@ -859,14 +873,14 @@
If Math.Abs(R2.Y - R1.Y) <= (R2.X - R1.X) And R2.Y >= R1.Y Then If Math.Abs(R2.Y - R1.Y) <= (R2.X - R1.X) And R2.Y >= R1.Y Then
EligibleControls.Add(control) EligibleControls.Add(control)
End If End If
Else ElseIf ScreenIndex = 7 Then
If ScreenIndex = 7 And currentControl.ID = 6 Then If currentControl.ID = 5 And control.ID = 6 Then
If control.ID = 4 Then EligibleControls.Add(control)
EligibleControls.Add(control) ElseIf currentControl.ID = 6 And control.ID = 4 Then
End If
ElseIf control.ID = currentControl.ID + 1 Then
EligibleControls.Add(control) EligibleControls.Add(control)
End If End If
ElseIf control.ID = currentControl.ID + 1 Then
EligibleControls.Add(control)
End If End If
Case "left" Case "left"
If ScreenIndex = 0 And currentControl.ID > 6 Then If ScreenIndex = 0 And currentControl.ID > 6 Then
@ -874,8 +888,10 @@
EligibleControls.Add(control) EligibleControls.Add(control)
End If End If
Else Else
If ScreenIndex = 7 And currentControl.ID = 4 Then If ScreenIndex = 7 Then
If control.ID = 6 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) EligibleControls.Add(control)
End If End If
ElseIf control.ID = currentControl.ID - 1 Then ElseIf control.ID = currentControl.ID - 1 Then