Initial commit: ROW Client source code
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>
This commit is contained in:
@@ -0,0 +1,165 @@
|
||||
VERSION 5.00
|
||||
Begin VB.Form frmEnum
|
||||
BorderStyle = 3 'Fixed Dialog
|
||||
Caption = "EnumDevices"
|
||||
ClientHeight = 1740
|
||||
ClientLeft = 45
|
||||
ClientTop = 330
|
||||
ClientWidth = 3960
|
||||
Icon = "frmEnum.frx":0000
|
||||
LinkTopic = "Form1"
|
||||
MaxButton = 0 'False
|
||||
MinButton = 0 'False
|
||||
ScaleHeight = 1740
|
||||
ScaleWidth = 3960
|
||||
StartUpPosition = 3 'Windows Default
|
||||
Begin VB.ComboBox cboCapture
|
||||
Height = 315
|
||||
Left = 1320
|
||||
Style = 2 'Dropdown List
|
||||
TabIndex = 6
|
||||
Top = 840
|
||||
Width = 2535
|
||||
End
|
||||
Begin VB.ComboBox cboSound
|
||||
Height = 315
|
||||
Left = 1320
|
||||
Style = 2 'Dropdown List
|
||||
TabIndex = 5
|
||||
Top = 420
|
||||
Width = 2535
|
||||
End
|
||||
Begin VB.CommandButton cmdExit
|
||||
Cancel = -1 'True
|
||||
Caption = "E&xit"
|
||||
Height = 315
|
||||
Left = 2880
|
||||
TabIndex = 4
|
||||
Top = 1260
|
||||
Width = 975
|
||||
End
|
||||
Begin VB.CommandButton cmdCreate
|
||||
Caption = "&Create"
|
||||
Default = -1 'True
|
||||
Height = 315
|
||||
Left = 120
|
||||
TabIndex = 3
|
||||
Top = 1260
|
||||
Width = 975
|
||||
End
|
||||
Begin VB.Label Label1
|
||||
BackStyle = 0 'Transparent
|
||||
Caption = "Capture Device:"
|
||||
Height = 255
|
||||
Index = 2
|
||||
Left = 120
|
||||
TabIndex = 2
|
||||
Top = 900
|
||||
Width = 1215
|
||||
End
|
||||
Begin VB.Label Label1
|
||||
BackStyle = 0 'Transparent
|
||||
Caption = "Sound Device:"
|
||||
Height = 255
|
||||
Index = 1
|
||||
Left = 120
|
||||
TabIndex = 1
|
||||
Top = 480
|
||||
Width = 1215
|
||||
End
|
||||
Begin VB.Label Label1
|
||||
BackStyle = 0 'Transparent
|
||||
Caption = "This sample shows how to enumerate devices."
|
||||
Height = 255
|
||||
Index = 0
|
||||
Left = 120
|
||||
TabIndex = 0
|
||||
Top = 60
|
||||
Width = 4455
|
||||
End
|
||||
End
|
||||
Attribute VB_Name = "frmEnum"
|
||||
Attribute VB_GlobalNameSpace = False
|
||||
Attribute VB_Creatable = False
|
||||
Attribute VB_PredeclaredId = True
|
||||
Attribute VB_Exposed = False
|
||||
Option Explicit
|
||||
|
||||
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
|
||||
'
|
||||
' Copyright (C) 1999-2001 Microsoft Corporation. All Rights Reserved.
|
||||
'
|
||||
' File: frmEnum.frm
|
||||
'
|
||||
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
|
||||
Private dx As New DirectX8
|
||||
Private dsEnum As DirectSoundEnum8
|
||||
Private dscEnum As DirectSoundEnum8
|
||||
Private ds As DirectSound8
|
||||
Private dsc As DirectSoundCapture8
|
||||
|
||||
Private Sub cmdCreate_Click()
|
||||
On Error GoTo FailedCreate
|
||||
|
||||
'Create a DirectSound object
|
||||
Set ds = dx.DirectSoundCreate(dsEnum.GetGuid(cboSound.ListIndex + 1))
|
||||
Set ds = Nothing 'We should get rid of it now, since we don't want to fail
|
||||
'If the machine doesn't support full duplex
|
||||
|
||||
'Create a Capture Buffer
|
||||
Set dsc = dx.DirectSoundCaptureCreate(dscEnum.GetGuid(cboCapture.ListIndex + 1))
|
||||
Set dsc = Nothing 'Release it
|
||||
'Notify the user we succeeded
|
||||
MsgBox "DirectSound8 and DirectSoundCapture8 object creation succeeded.", vbOKOnly Or vbInformation, "Success"
|
||||
Exit Sub
|
||||
|
||||
FailedCreate:
|
||||
'Notify the user we failed
|
||||
MsgBox "DirectSound8 and DirectSoundCapture8 object creation failed.", vbOKOnly Or vbInformation, "Failure"
|
||||
End Sub
|
||||
|
||||
Private Sub cmdExit_Click()
|
||||
'We're done exit
|
||||
Unload Me
|
||||
End Sub
|
||||
|
||||
Private Sub CleanUp()
|
||||
Set dscEnum = Nothing
|
||||
Set dsEnum = Nothing
|
||||
Set dx = Nothing
|
||||
End Sub
|
||||
|
||||
Private Sub Form_Load()
|
||||
'Enum the devices and load them into the box
|
||||
LoadEnum
|
||||
End Sub
|
||||
|
||||
Private Sub LoadEnum()
|
||||
Dim lCount As Long
|
||||
|
||||
On Error GoTo FailedEnum
|
||||
Set dsEnum = dx.GetDSEnum
|
||||
Set dscEnum = dx.GetDSCaptureEnum
|
||||
|
||||
'Add each description to the combo box
|
||||
For lCount = 1 To dsEnum.GetCount
|
||||
cboSound.AddItem dsEnum.GetDescription(lCount)
|
||||
Next
|
||||
'Add each description to the combo box
|
||||
For lCount = 1 To dscEnum.GetCount
|
||||
cboCapture.AddItem dscEnum.GetDescription(lCount)
|
||||
Next
|
||||
On Error Resume Next
|
||||
'Select the first item in each combo box
|
||||
cboCapture.ListIndex = 0
|
||||
cboSound.ListIndex = 0
|
||||
Exit Sub
|
||||
|
||||
FailedEnum:
|
||||
MsgBox "Error enumerating DirectSound devices. " & vbCrLf & "Sample will now exit.", vbOKOnly Or vbInformation, "DirectSound Sample"
|
||||
Unload Me
|
||||
End Sub
|
||||
|
||||
Private Sub Form_Unload(Cancel As Integer)
|
||||
CleanUp
|
||||
End Sub
|
||||
Binary file not shown.
@@ -0,0 +1,33 @@
|
||||
//-----------------------------------------------------------------------------
|
||||
//
|
||||
// Sample Name: VB EnumDevices Sample
|
||||
//
|
||||
// Copyright (C) 1999-2001 Microsoft Corporation. All rights reserved.
|
||||
//
|
||||
//-----------------------------------------------------------------------------
|
||||
|
||||
|
||||
Description
|
||||
===========
|
||||
The EnumDevices sample shows how to enumerate and create playback
|
||||
and capture devices.
|
||||
|
||||
Path
|
||||
====
|
||||
Source: DXSDK\Samples\Multimedia\VBSamples\DirectSound\EnumDevices
|
||||
|
||||
Executable: DXSDK\Samples\Multimedia\VBSamples\DirectSound\Bin
|
||||
|
||||
User's Guide
|
||||
============
|
||||
Select a playback and capture device from the dropdown lists. Click Create.
|
||||
|
||||
Programming Notes
|
||||
=================
|
||||
This sample was intended to be very simple, showing the basics how to
|
||||
enumerate the DirectSound and DirectSoundCapture devices.
|
||||
|
||||
To enumerate DirectSound devices call GetDSEnum.
|
||||
|
||||
To enumerate DirectSoundCapture devices call GetDSCaptureEnum.
|
||||
|
||||
@@ -0,0 +1,30 @@
|
||||
Type=Exe
|
||||
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#stdole2.tlb#OLE Automation
|
||||
Reference=*\G{E1211242-8E94-11D1-8808-00C04FC2C603}#1.0#0#dx8vb.dll#DirectX 8 for Visual Basic Type Library
|
||||
Form=frmEnum.frm
|
||||
Startup="frmEnum"
|
||||
Command32=""
|
||||
Name="vbEnumDevices"
|
||||
HelpContextID="0"
|
||||
CompatibleMode="0"
|
||||
MajorVer=1
|
||||
MinorVer=0
|
||||
RevisionVer=0
|
||||
AutoIncrementVer=0
|
||||
ServerSupportFiles=0
|
||||
VersionCompanyName="Microsoft"
|
||||
CompilationType=0
|
||||
OptimizationType=0
|
||||
FavorPentiumPro(tm)=0
|
||||
CodeViewDebugInfo=0
|
||||
NoAliasing=0
|
||||
BoundsCheck=0
|
||||
OverflowCheck=0
|
||||
FlPointCheck=0
|
||||
FDIVCheck=0
|
||||
UnroundedFP=0
|
||||
StartMode=0
|
||||
Unattended=0
|
||||
Retained=0
|
||||
ThreadPerObject=0
|
||||
MaxNumberOfThreads=1
|
||||
Reference in New Issue
Block a user