tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-27 07:44:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

Make battle text affected by text speed setting

Browse Source
This commit is contained in:
JappaWakka 2025-04-25 09:47:25 +02:00
parent 8e55a7867b
commit 44da17fff8
1 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
P3D/Battle/BattleSystemV2/QueryObjects/TextQueryObject.vb
View File

@ -9,7 +9,7 @@
Dim _ready As Boolean = False Dim _ready As Boolean = False
Dim _textIndex As Integer = 0 Dim _textIndex As Integer = 0
Dim _textDelay As Single = 0.015F Dim _textDelay As Single = 0.02F
Private ReadOnly Property TextReady() As Boolean Private ReadOnly Property TextReady() As Boolean
Get Get
@ -50,9 +50,9 @@
Public Overrides Sub Update(BV2Screen As BattleScreen) Public Overrides Sub Update(BV2Screen As BattleScreen)
If Me.TextReady = False Then If Me.TextReady = False Then
Me._textDelay -= 0.01F Me._textDelay -= 0.1F
If Me._textDelay <= 0.0F Then If Me._textDelay <= 0.0F Then
Me._textDelay = 0.015F Me._textDelay = GetTextSpeed()
Me._textIndex += 1 Me._textIndex += 1
End If End If
If Controls.Accept(True, True) = True And Me._textIndex > 2 Then If Controls.Accept(True, True) = True And Me._textIndex > 2 Then
@ -67,7 +67,19 @@
End If End If
End If End If
End Sub End Sub
Private Function GetTextSpeed() As Single
Select Case TextBox.TextSpeed
Case 1
Return 0.3F
Case 2
Return 0.2F
Case 3
Return 0.1F
Case 4
Return 0.0F
End Select
Return 0.2F
End Function
Public Overrides Sub Draw(BV2Screen As BattleScreen) Public Overrides Sub Draw(BV2Screen As BattleScreen)
Dim rec As New Rectangle(100, Core.windowSize.Height - 250, Core.windowSize.Width - 200, 200) Dim rec As New Rectangle(100, Core.windowSize.Height - 250, Core.windowSize.Width - 200, 200)
Dim text As String = Me._text.Substring(0, _textIndex) Dim text As String = Me._text.Substring(0, _textIndex)