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

Add an even faster textbox speed

Browse Source
This commit is contained in:
JappaWakka 2025-04-20 18:21:13 +02:00
parent 63f998bc4d
commit 2620084c76
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
P3D/Dialogues/TextBox.vb
View File

@ -3,7 +3,7 @@
Public Shared ReadOnly DefaultColor As Color = New Color(16, 24, 32) Public Shared ReadOnly DefaultColor As Color = New Color(16, 24, 32)
Public Shared ReadOnly PlayerColor As Color = New Color(0, 0, 180) 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 Public Text As String
Dim currentChar As Integer = 0 Dim currentChar As Integer = 0
@ -257,6 +257,8 @@
Return 0.2F Return 0.2F
Case 3 Case 3
Return 0.1F Return 0.1F
Case 4
Return 0.0F
End Select End Select
Return 0.2F Return 0.2F
End Function End Function

3
P3D/Screens/NewOptionScreen.vb
View File

@ -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)) 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. 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 If CBool(GameModeManager.GetGameRuleValue("LockDifficulty", "0")) = False Then
Dim d As New Dictionary(Of Integer, String) Dim d As New Dictionary(Of Integer, String)
d.Add(0, Localization.GetString("option_screen_game_difficulty_easy", "Easy")) d.Add(0, Localization.GetString("option_screen_game_difficulty_easy", "Easy"))