From 2620084c7615b9159b423489a112ec1ce0562585 Mon Sep 17 00:00:00 2001 From: JappaWakka Date: Sun, 20 Apr 2025 18:21:13 +0200 Subject: [PATCH] Add an even faster textbox speed --- P3D/Dialogues/TextBox.vb | 4 +++- P3D/Screens/NewOptionScreen.vb | 3 ++- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/P3D/Dialogues/TextBox.vb b/P3D/Dialogues/TextBox.vb index 754ed7fff..38a944dc3 100644 --- a/P3D/Dialogues/TextBox.vb +++ b/P3D/Dialogues/TextBox.vb @@ -3,7 +3,7 @@ Public Shared ReadOnly DefaultColor As Color = New Color(16, 24, 32) Public Shared ReadOnly PlayerColor As Color = New Color(0, 0, 180) - Public Shared TextSpeed As Integer = 1 + Public Shared TextSpeed As Integer = 2 Public Text As String Dim currentChar As Integer = 0 @@ -257,6 +257,8 @@ Return 0.2F Case 3 Return 0.1F + Case 4 + Return 0.0F End Select Return 0.2F End Function diff --git a/P3D/Screens/NewOptionScreen.vb b/P3D/Screens/NewOptionScreen.vb index 6514b8e6c..5bae825b7 100644 --- a/P3D/Screens/NewOptionScreen.vb +++ b/P3D/Screens/NewOptionScreen.vb @@ -941,7 +941,8 @@ Public Class NewOptionScreen Me.ControlList.Add(New CommandButton(New Vector2(Delta_X + 530 + 24, Delta_Y + 336), 1, 48, Localization.GetString("global_close", "Close"), AddressOf Close, 8)) Case 1 ' "Game" from the Options menu. - Me.ControlList.Add(New ScrollBar(New Vector2(Delta_X + 100, Delta_Y + 60), 400, Localization.GetString("option_screen_game_textspeed", "Text Speed"), Me.TextSpeed, 1, 3, AddressOf ChangeTextspeed, 1)) + Dim txtspeedD As New Dictionary(Of Integer,String) + Me.ControlList.Add(New ScrollBar(New Vector2(Delta_X + 100, Delta_Y + 60), 400, Localization.GetString("option_screen_game_textspeed", "Text Speed"), Me.TextSpeed, 1, 4, AddressOf ChangeTextspeed, 1)) If CBool(GameModeManager.GetGameRuleValue("LockDifficulty", "0")) = False Then Dim d As New Dictionary(Of Integer, String) d.Add(0, Localization.GetString("option_screen_game_difficulty_easy", "Easy"))