LGram16
e067522598
Game client codebase including: - CharacterActionControl: Character and creature management - GlobalScript: Network, items, skills, quests, utilities - RYLClient: Main client application with GUI and event handlers - Engine: 3D rendering engine (RYLGL) - MemoryManager: Custom memory allocation - Library: Third-party dependencies (DirectX, boost, etc.) - Tools: Development utilities 🤖 Generated with [Claude Code](https://claude.com/claude-code) Co-Authored-By: Claude <noreply@anthropic.com>
510 lines
17 KiB
Plaintext
510 lines
17 KiB
Plaintext
VERSION 5.00
|
|
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
|
|
Begin VB.Form frmVoiceSettings
|
|
BorderStyle = 3 'Fixed Dialog
|
|
Caption = "Direct Play Voice Settings"
|
|
ClientHeight = 5010
|
|
ClientLeft = 45
|
|
ClientTop = 330
|
|
ClientWidth = 5835
|
|
Icon = "frmVoiceSettings.frx":0000
|
|
LinkTopic = "Form1"
|
|
MaxButton = 0 'False
|
|
MinButton = 0 'False
|
|
ScaleHeight = 5010
|
|
ScaleWidth = 5835
|
|
StartUpPosition = 3 'Windows Default
|
|
Begin VB.CommandButton cmdOk
|
|
Caption = "OK"
|
|
Default = -1 'True
|
|
Height = 375
|
|
Left = 4545
|
|
TabIndex = 36
|
|
Top = 4545
|
|
Width = 1215
|
|
End
|
|
Begin VB.CommandButton cmdCancel
|
|
Cancel = -1 'True
|
|
Caption = "Cancel"
|
|
Height = 375
|
|
Left = 3255
|
|
TabIndex = 35
|
|
Top = 4545
|
|
Width = 1215
|
|
End
|
|
Begin VB.Frame fraServer
|
|
Caption = "Server Options (set only when creating a new session) "
|
|
Height = 1020
|
|
Left = 60
|
|
TabIndex = 1
|
|
Top = 3420
|
|
Width = 5700
|
|
Begin VB.Frame fraCompression
|
|
Caption = " Compression Codec "
|
|
Height = 660
|
|
Left = 120
|
|
TabIndex = 33
|
|
Top = 240
|
|
Width = 5475
|
|
Begin VB.ComboBox cboCompressionTypes
|
|
Height = 315
|
|
Left = 135
|
|
Style = 2 'Dropdown List
|
|
TabIndex = 34
|
|
Top = 255
|
|
Width = 5220
|
|
End
|
|
End
|
|
End
|
|
Begin VB.Frame Frame1
|
|
Caption = "Client Options (may be adjusted at any time) "
|
|
Height = 3195
|
|
Left = 60
|
|
TabIndex = 0
|
|
Top = 60
|
|
Width = 5715
|
|
Begin VB.Frame Frame3
|
|
Caption = " Aggressiveness "
|
|
Height = 1335
|
|
Index = 4
|
|
Left = 3000
|
|
TabIndex = 27
|
|
Top = 1740
|
|
Width = 1755
|
|
Begin VB.OptionButton optAggressivenessSet
|
|
Caption = "Set"
|
|
Height = 255
|
|
Left = 1020
|
|
TabIndex = 29
|
|
Top = 300
|
|
Width = 675
|
|
End
|
|
Begin VB.OptionButton optAgressivenessDefault
|
|
Caption = "Default"
|
|
Height = 195
|
|
Left = 60
|
|
TabIndex = 28
|
|
Top = 300
|
|
Value = -1 'True
|
|
Width = 855
|
|
End
|
|
Begin MSComctlLib.Slider sldAggressiveness
|
|
Height = 195
|
|
Left = 60
|
|
TabIndex = 30
|
|
Top = 780
|
|
Width = 1635
|
|
_ExtentX = 2884
|
|
_ExtentY = 344
|
|
_Version = 393216
|
|
Min = 1
|
|
Max = 100
|
|
SelStart = 1
|
|
TickFrequency = 10
|
|
Value = 1
|
|
End
|
|
Begin VB.Label Label1
|
|
BackStyle = 0 'Transparent
|
|
Caption = "Max"
|
|
Height = 195
|
|
Index = 9
|
|
Left = 1320
|
|
TabIndex = 32
|
|
Top = 1080
|
|
Width = 315
|
|
End
|
|
Begin VB.Label Label1
|
|
BackStyle = 0 'Transparent
|
|
Caption = "Min"
|
|
Height = 195
|
|
Index = 8
|
|
Left = 60
|
|
TabIndex = 31
|
|
Top = 1080
|
|
Width = 315
|
|
End
|
|
End
|
|
Begin VB.Frame Frame3
|
|
Caption = " Quality "
|
|
Height = 1335
|
|
Index = 3
|
|
Left = 1020
|
|
TabIndex = 21
|
|
Top = 1740
|
|
Width = 1755
|
|
Begin VB.OptionButton optQualityDefault
|
|
Caption = "Default"
|
|
Height = 195
|
|
Left = 60
|
|
TabIndex = 24
|
|
Top = 300
|
|
Value = -1 'True
|
|
Width = 855
|
|
End
|
|
Begin VB.OptionButton OptQualitySet
|
|
Caption = "Set"
|
|
Height = 255
|
|
Left = 1020
|
|
TabIndex = 23
|
|
Top = 300
|
|
Width = 675
|
|
End
|
|
Begin MSComctlLib.Slider sldQuality
|
|
Height = 195
|
|
Left = 60
|
|
TabIndex = 22
|
|
Top = 780
|
|
Width = 1635
|
|
_ExtentX = 2884
|
|
_ExtentY = 344
|
|
_Version = 393216
|
|
Min = 1
|
|
Max = 100
|
|
SelStart = 1
|
|
TickFrequency = 10
|
|
Value = 1
|
|
End
|
|
Begin VB.Label Label1
|
|
BackStyle = 0 'Transparent
|
|
Caption = "Min"
|
|
Height = 195
|
|
Index = 7
|
|
Left = 60
|
|
TabIndex = 26
|
|
Top = 1080
|
|
Width = 315
|
|
End
|
|
Begin VB.Label Label1
|
|
BackStyle = 0 'Transparent
|
|
Caption = "Max"
|
|
Height = 195
|
|
Index = 6
|
|
Left = 1320
|
|
TabIndex = 25
|
|
Top = 1080
|
|
Width = 315
|
|
End
|
|
End
|
|
Begin VB.Frame Frame3
|
|
Caption = "Threshold"
|
|
Height = 1335
|
|
Index = 2
|
|
Left = 3840
|
|
TabIndex = 14
|
|
Top = 300
|
|
Width = 1755
|
|
Begin VB.OptionButton optSensitivityDefault
|
|
Caption = "Default"
|
|
Height = 255
|
|
Left = 840
|
|
TabIndex = 17
|
|
Top = 300
|
|
Width = 855
|
|
End
|
|
Begin VB.OptionButton optnSensitivityAuto
|
|
Caption = "Auto"
|
|
Height = 195
|
|
Left = 60
|
|
TabIndex = 16
|
|
Top = 300
|
|
Value = -1 'True
|
|
Width = 735
|
|
End
|
|
Begin VB.OptionButton optSensitivitySet
|
|
Caption = "Set"
|
|
Height = 255
|
|
Left = 420
|
|
TabIndex = 15
|
|
Top = 540
|
|
Width = 855
|
|
End
|
|
Begin MSComctlLib.Slider sldSensitivity
|
|
Height = 195
|
|
Left = 60
|
|
TabIndex = 18
|
|
Top = 780
|
|
Width = 1635
|
|
_ExtentX = 2884
|
|
_ExtentY = 344
|
|
_Version = 393216
|
|
Max = 99
|
|
TickFrequency = 10
|
|
End
|
|
Begin VB.Label Label1
|
|
BackStyle = 0 'Transparent
|
|
Caption = "Max"
|
|
Height = 195
|
|
Index = 5
|
|
Left = 1320
|
|
TabIndex = 20
|
|
Top = 1080
|
|
Width = 315
|
|
End
|
|
Begin VB.Label Label1
|
|
BackStyle = 0 'Transparent
|
|
Caption = "Min"
|
|
Height = 195
|
|
Index = 4
|
|
Left = 60
|
|
TabIndex = 19
|
|
Top = 1080
|
|
Width = 315
|
|
End
|
|
End
|
|
Begin VB.Frame Frame3
|
|
Caption = " Record Volume "
|
|
Height = 1335
|
|
Index = 1
|
|
Left = 1980
|
|
TabIndex = 7
|
|
Top = 300
|
|
Width = 1755
|
|
Begin VB.OptionButton optRecordSet
|
|
Caption = "Set"
|
|
Height = 255
|
|
Left = 420
|
|
TabIndex = 13
|
|
Top = 540
|
|
Width = 855
|
|
End
|
|
Begin VB.OptionButton optRecordAuto
|
|
Caption = "Auto"
|
|
Height = 195
|
|
Left = 60
|
|
TabIndex = 10
|
|
Top = 300
|
|
Value = -1 'True
|
|
Width = 735
|
|
End
|
|
Begin VB.OptionButton optRecordDefault
|
|
Caption = "Default"
|
|
Height = 255
|
|
Left = 840
|
|
TabIndex = 9
|
|
Top = 300
|
|
Width = 855
|
|
End
|
|
Begin MSComctlLib.Slider sldRecord
|
|
Height = 195
|
|
Left = 60
|
|
TabIndex = 8
|
|
Top = 780
|
|
Width = 1635
|
|
_ExtentX = 2884
|
|
_ExtentY = 344
|
|
_Version = 393216
|
|
LargeChange = 500
|
|
SmallChange = 100
|
|
Min = -10000
|
|
Max = 0
|
|
TickFrequency = 1000
|
|
End
|
|
Begin VB.Label Label1
|
|
BackStyle = 0 'Transparent
|
|
Caption = "Min"
|
|
Height = 195
|
|
Index = 3
|
|
Left = 60
|
|
TabIndex = 12
|
|
Top = 1080
|
|
Width = 315
|
|
End
|
|
Begin VB.Label Label1
|
|
BackStyle = 0 'Transparent
|
|
Caption = "Max"
|
|
Height = 195
|
|
Index = 2
|
|
Left = 1320
|
|
TabIndex = 11
|
|
Top = 1080
|
|
Width = 315
|
|
End
|
|
End
|
|
Begin VB.Frame Frame3
|
|
Caption = " Playback Volume "
|
|
Height = 1335
|
|
Index = 0
|
|
Left = 120
|
|
TabIndex = 2
|
|
Top = 300
|
|
Width = 1755
|
|
Begin VB.OptionButton optVolumeSet
|
|
Caption = "Set"
|
|
Height = 255
|
|
Left = 1020
|
|
TabIndex = 4
|
|
Top = 300
|
|
Width = 675
|
|
End
|
|
Begin VB.OptionButton optVolumeDefault
|
|
Caption = "Default"
|
|
Height = 195
|
|
Left = 60
|
|
TabIndex = 3
|
|
Top = 300
|
|
Value = -1 'True
|
|
Width = 855
|
|
End
|
|
Begin MSComctlLib.Slider sldVolume
|
|
Height = 195
|
|
Left = 60
|
|
TabIndex = 37
|
|
Top = 780
|
|
Width = 1635
|
|
_ExtentX = 2884
|
|
_ExtentY = 344
|
|
_Version = 393216
|
|
LargeChange = 500
|
|
SmallChange = 100
|
|
Min = -10000
|
|
Max = 0
|
|
TickFrequency = 1000
|
|
End
|
|
Begin VB.Label Label1
|
|
BackStyle = 0 'Transparent
|
|
Caption = "Max"
|
|
Height = 195
|
|
Index = 1
|
|
Left = 1320
|
|
TabIndex = 6
|
|
Top = 1080
|
|
Width = 315
|
|
End
|
|
Begin VB.Label Label1
|
|
BackStyle = 0 'Transparent
|
|
Caption = "Min"
|
|
Height = 195
|
|
Index = 0
|
|
Left = 60
|
|
TabIndex = 5
|
|
Top = 1080
|
|
Width = 315
|
|
End
|
|
End
|
|
End
|
|
End
|
|
Attribute VB_Name = "frmVoiceSettings"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
Option Explicit
|
|
Option Compare Text
|
|
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
|
|
'
|
|
' Copyright (C) 1999-2001 Microsoft Corporation. All Rights Reserved.
|
|
'
|
|
' File: frmVoiceSettings.frm
|
|
'
|
|
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
|
|
|
|
Private Sub cmdCancel_Click()
|
|
fGotSettings = False
|
|
Unload Me
|
|
End Sub
|
|
|
|
Private Sub cmdOk_Click()
|
|
fGotSettings = True
|
|
'Setup up the clients stuff
|
|
If optAgressivenessDefault.Value Then
|
|
oClient.lBufferAggressiveness = DVBUFFERAGGRESSIVENESS_DEFAULT
|
|
oSession.lBufferAggressiveness = DVBUFFERAGGRESSIVENESS_DEFAULT
|
|
Else
|
|
oClient.lBufferAggressiveness = sldAggressiveness.Value
|
|
oSession.lBufferAggressiveness = sldAggressiveness.Value
|
|
End If
|
|
If optQualityDefault Then
|
|
oClient.lBufferQuality = DVBUFFERQUALITY_DEFAULT
|
|
oSession.lBufferQuality = DVBUFFERQUALITY_DEFAULT
|
|
Else
|
|
oClient.lBufferQuality = sldQuality.Value
|
|
oSession.lBufferQuality = sldQuality.Value
|
|
End If
|
|
If optnSensitivityAuto.Value Then
|
|
oClient.lThreshold = DVTHRESHOLD_UNUSED
|
|
ElseIf optSensitivitySet Then
|
|
oClient.lThreshold = sldSensitivity.Value
|
|
oClient.lFlags = oClient.lFlags Or DVCLIENTCONFIG_MANUALVOICEACTIVATED
|
|
ElseIf optSensitivityDefault.Value Then
|
|
oClient.lThreshold = DVTHRESHOLD_DEFAULT
|
|
oClient.lFlags = oClient.lFlags Or DVCLIENTCONFIG_MANUALVOICEACTIVATED
|
|
End If
|
|
If optRecordAuto.Value Then
|
|
oClient.lFlags = oClient.lFlags Or DVCLIENTCONFIG_AUTOVOICEACTIVATED
|
|
ElseIf optRecordDefault.Value Then
|
|
oClient.lRecordVolume = 0
|
|
ElseIf optRecordSet.Value Then
|
|
oClient.lRecordVolume = sldRecord.Value
|
|
End If
|
|
If optVolumeDefault Then
|
|
oClient.lPlaybackVolume = DVPLAYBACKVOLUME_DEFAULT
|
|
ElseIf optVolumeSet Then
|
|
oClient.lPlaybackVolume = sldVolume.Value
|
|
End If
|
|
oClient.lNotifyPeriod = 0
|
|
'Now set up the server stuff
|
|
oSession.lSessionType = DVSESSIONTYPE_PEER
|
|
|
|
Dim oData As DVCOMPRESSIONINFO
|
|
dvServer.GetCompressionType cboCompressionTypes.ListIndex + 1, oData, 0
|
|
oSession.guidCT = oData.guidType
|
|
|
|
Unload Me
|
|
End Sub
|
|
|
|
Public Sub ClientOnly()
|
|
fraServer.Enabled = False
|
|
fraCompression.Enabled = False
|
|
End Sub
|
|
|
|
Private Sub Form_Load()
|
|
Dim lIndex As Long
|
|
|
|
'Set up the defaults
|
|
sldAggressiveness.Min = DVBUFFERAGGRESSIVENESS_MIN
|
|
sldAggressiveness.Max = DVBUFFERAGGRESSIVENESS_MAX
|
|
sldAggressiveness.LargeChange = (DVBUFFERAGGRESSIVENESS_MAX - DVBUFFERAGGRESSIVENESS_MIN) \ 10
|
|
sldAggressiveness.TickFrequency = sldAggressiveness.LargeChange
|
|
|
|
sldQuality.Min = DVBUFFERQUALITY_MIN
|
|
sldQuality.Max = DVBUFFERQUALITY_MAX
|
|
sldQuality.LargeChange = (DVBUFFERQUALITY_MAX - DVBUFFERQUALITY_MIN) \ 10
|
|
sldQuality.TickFrequency = sldQuality.LargeChange
|
|
|
|
sldSensitivity.Min = DVTHRESHOLD_MIN
|
|
sldSensitivity.Max = DVTHRESHOLD_MAX
|
|
sldSensitivity.LargeChange = (DVTHRESHOLD_MAX - DVTHRESHOLD_MIN) \ 10
|
|
sldSensitivity.TickFrequency = sldSensitivity.LargeChange
|
|
|
|
Dim lCount As Long, oData As DVCOMPRESSIONINFO
|
|
|
|
If (dvServer Is Nothing) Then Set dvServer = dx.DirectPlayVoiceServerCreate
|
|
For lCount = 1 To dvServer.GetCompressionTypeCount
|
|
dvServer.GetCompressionType lCount, oData, 0
|
|
cboCompressionTypes.AddItem oData.strName
|
|
If InStr(oData.strName, "sc03") Then
|
|
lIndex = lCount - 1
|
|
End If
|
|
Next
|
|
cboCompressionTypes.ListIndex = lIndex
|
|
|
|
End Sub
|
|
|
|
Private Sub optRecordAuto_Click()
|
|
If optRecordAuto.Value Then
|
|
If optSensitivityDefault.Value Then optnSensitivityAuto.Value = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub optSensitivityDefault_Click()
|
|
If optSensitivityDefault.Value Then
|
|
If optRecordAuto.Value Then optRecordSet.Value = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub optSensitivitySet_Click()
|
|
If optSensitivitySet.Value = True Then
|
|
optRecordDefault.Value = True
|
|
End If
|
|
End Sub
|