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_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
|
||||||
|
|
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue