RiskYourLife/Client
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial commit: ROW Client source code

Browse Source 
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:
tindevil
2025-11-29 16:24:34 +09:00
commit e067522598
5135 changed files with 1745744 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

129
Library/dxx8/samples/Multimedia/VBSamples/DirectSound/Tutorials/Tut1/audtut1.frm Normal file
View File

@@ -0,0 +1,129 @@
VERSION 5.00
Begin VB.Form frmAudTut1
Caption = "Audio Tutorial 1"
ClientHeight = 1320
ClientLeft = 60
ClientTop = 345
ClientWidth = 5460
Icon = "audtut1.frx":0000
LinkTopic = "Form1"
ScaleHeight = 1320
ScaleWidth = 5460
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton cmdClose
Caption = "Close"
Default = -1 'True
Height = 375
Left = 4260
TabIndex = 0
Top = 900
Width = 1035
End
Begin VB.Image Image1
Height = 480
Left = 120
Picture = "audtut1.frx":0442
Top = 120
Width = 480
End
Begin VB.Label lbl
BackStyle = 0 'Transparent
Caption = "Copyright (C) 1999-2001 Microsoft Corporation, All Rights Reserved."
Height = 255
Index = 2
Left = 600
TabIndex = 3
Top = 300
Width = 4800
End
Begin VB.Label lbl
BackStyle = 0 'Transparent
Caption = "GM/GS<47> Sound Set Copyright <20>1996, Roland Corporation U.S."
Height = 255
Index = 1
Left = 600
TabIndex = 2
Top = 540
Width = 4755
End
Begin VB.Label lbl
BackStyle = 0 'Transparent
Caption = "DirectMusic Segment Tutorial"
Height = 255
Index = 0
Left = 600
TabIndex = 1
Top = 60
Width = 2655
End
End
Attribute VB_Name = "frmAudTut1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' Copyright (C) 1999-2001 Microsoft Corporation. All Rights Reserved.
'
' File: audTut1.frm
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
' Our DX variables
Private dx As New DirectX8
'We need a loader variable
Private dml As DirectMusicLoader8
'We need our performance object
Private dmp As DirectMusicPerformance8
'We also need our DMusic segment
Private seg As DirectMusicSegment8
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub Form_Load()
Dim dmA As DMUS_AUDIOPARAMS
'Get our loader and performance
Set dml = dx.DirectMusicLoaderCreate
Set dmp = dx.DirectMusicPerformanceCreate
'We will put in error checking here in case we can't init DMusic
'ie, if there is no sound card
On Error GoTo FailedInit
'Initialize our DMusic Audio with a default environment
dmp.InitAudio Me.hWnd, DMUS_AUDIOF_ALL, dmA, Nothing, DMUS_APATH_SHARED_STEREOPLUSREVERB, 64
'Here we will load our audio file. We could load a wave file,
'a midi file, and rmi file, or a DMusic segment. For this
'tutorial we will load a segment.
'Before we load our segment, set our search directory
dml.SetSearchDirectory FindMediaDir("sample.sgt")
'Now we can load our segment
Set seg = dml.LoadSegment("sample.sgt")
'Download our segment to the default audio path (created during our call to InitAudio)
seg.Download dmp.GetDefaultAudioPath
'Play our segment from the beginning
dmp.PlaySegmentEx seg, 0, 0
Exit Sub
FailedInit:
MsgBox "Could not initialize DirectMusic." & vbCrLf & "This sample will exit.", vbOKOnly Or vbInformation, "Exiting..."
Unload Me
End Sub
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
'Stops everything playing on the audio path
dmp.StopEx dmp.GetDefaultAudioPath, 0, 0
'Destroy all of our objects
Set seg = Nothing
'Closedown the performance object (we should always do this).
dmp.CloseDown
'Destroy the rest of our objects
Set dmp = Nothing
Set dml = Nothing
Set dx = Nothing
End Sub

245
Library/dxx8/samples/Multimedia/VBSamples/DirectSound/Tutorials/Tut1/frmCapture.frm Normal file
View File

@@ -0,0 +1,245 @@
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Begin VB.Form frmCapture
BorderStyle = 3 'Fixed Dialog
Caption = "Audio Capture Tutorial"
ClientHeight = 1395
ClientLeft = 45
ClientTop = 330
ClientWidth = 4305
Icon = "frmCapture.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1395
ScaleWidth = 4305
StartUpPosition = 3 'Windows Default
Begin MSComDlg.CommonDialog cdlSave
Left = 4140
Top = 0
_ExtentX = 847
_ExtentY = 847
_Version = 393216
CancelError = -1 'True
End
Begin VB.CommandButton cmdSave
Caption = "Sa&ve"
Enabled = 0 'False
Height = 375
Left = 3038
TabIndex = 2
Top = 840
Width = 975
End
Begin VB.CommandButton cmdStop
Caption = "&Stop"
Enabled = 0 'False
Height = 375
Left = 1898
TabIndex = 1
Top = 840
Width = 975
End
Begin VB.CommandButton cmdStart
Caption = "&Record"
Height = 375
Left = 638
TabIndex = 0
Top = 840
Width = 975
End
Begin VB.Label lbl
BackStyle = 0 'Transparent
Caption = "Audio Capture Tutorial"
Height = 255
Index = 0
Left = 660
TabIndex = 4
Top = 120
Width = 2655
End
Begin VB.Label lbl
BackStyle = 0 'Transparent
Caption = "Copyright (C) 1999-2001 Microsoft Corporation, All Rights Reserved."
Height = 435
Index = 2
Left = 660
TabIndex = 3
Top = 360
Width = 3510
End
Begin VB.Image Image1
Height = 480
Left = 120
Picture = "frmCapture.frx":0442
Top = 120
Width = 480
End
End
Attribute VB_Name = "frmCapture"
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: frmCapture.frm
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'This tutorial will show basic functionality. You will capture a buffer to memory,
'and then write it out to a file.
'Variable declarations for our app
Private dx As New DirectX8
Private dsc As DirectSoundCapture8
Private dscb As DirectSoundCaptureBuffer8
Private dscd As DSCBUFFERDESC
Private capFormat As WAVEFORMATEX
Private ds As DirectSound8
Private Sub InitCapture()
Dim cCaps As DSCCAPS
On Local Error Resume Next
'We need to create a direct sound object before the capture object
If ds Is Nothing Then Set ds = dx.DirectSoundCreate(vbNullString)
If Err Then
MsgBox "Unable to create a DirectSound object", vbOKOnly Or vbCritical, "Cannot continue"
Cleanup
End
End If
'First we need to create our capture buffer on the default object
Set dsc = dx.DirectSoundCaptureCreate(vbNullString)
If Err Then
MsgBox "Unable to create a Capture object", vbOKOnly Or vbCritical, "Cannot continue"
Cleanup
End
End If
'Lets get the caps for our object
dsc.GetCaps cCaps
'Check for a capture format we will support in the sample
If cCaps.lFormats And WAVE_FORMAT_4M08 Then
capFormat = CreateWaveFormatEx(44100, 1, 8)
ElseIf cCaps.lFormats And WAVE_FORMAT_2M08 Then
capFormat = CreateWaveFormatEx(22050, 1, 8)
ElseIf cCaps.lFormats And WAVE_FORMAT_1M08 Then
capFormat = CreateWaveFormatEx(11025, 1, 8)
Else
MsgBox "Could not get the caps we need on this card.", vbOKOnly Or vbCritical, "Exiting."
Cleanup
End
End If
End Sub
Private Sub CreateCaptureBuffer()
dscd.fxFormat = capFormat
dscd.lBufferBytes = capFormat.lAvgBytesPerSec * 20
dscd.lFlags = DSCBCAPS_WAVEMAPPED
Set dscb = dsc.CreateCaptureBuffer(dscd)
End Sub
Private Sub Cleanup()
Set ds = Nothing
Set dscb = Nothing
Set dsc = Nothing
Set dx = Nothing
End Sub
Private Function CreateWaveFormatEx(Hz As Long, Channels As Integer, BITS As Integer) As WAVEFORMATEX
'Create a WaveFormatEX structure using the vars we provide
With CreateWaveFormatEx
.nFormatTag = WAVE_FORMAT_PCM
.nChannels = Channels
.lSamplesPerSec = Hz
.nBitsPerSample = BITS
.nBlockAlign = Channels * BITS / 8
.lAvgBytesPerSec = .lSamplesPerSec * .nBlockAlign
.nSize = 0
End With
End Function
Private Sub cmdSave_Click()
On Local Error Resume Next
With cdlSave
'Set our initial properties
.FileName = vbNullString
.flags = cdlOFNHideReadOnly
.Filter = "Wave files(*.WAV)|*.wav"
.ShowOpen
If Err Then Exit Sub 'We clicked cancel
If .FileName = vbNullString Then Exit Sub 'No file
'Save the file to disk
GetSoundBufferFromCapture(dscb).SaveToFile .FileName
End With
End Sub
Private Sub cmdStart_Click()
'We want to record sound now.
'First we need to get rid of any sound we may have
Set dscb = Nothing
'Now get our capture buffer once more
CreateCaptureBuffer
'Now start recording
dscb.Start DSCBSTART_DEFAULT
'Disable/Enable our buttons accordingly
cmdStop.Enabled = True
cmdStart.Enabled = False
cmdSave.Enabled = False
End Sub
Private Sub cmdStop_Click()
Dim lbufferStatus As Long
'Stop the buffer
dscb.Stop
'Disable/Enable our buttons accordingly
cmdStop.Enabled = False
cmdStart.Enabled = True
cmdSave.Enabled = True
End Sub
Private Sub Form_Load()
'Lets init our capture device
InitCapture
End Sub
Private Sub Form_Unload(Cancel As Integer)
Cleanup
End Sub
Private Function GetSoundBufferFromCapture(ByVal oCaptureBuffer As DirectSoundCaptureBuffer8) As DirectSoundSecondaryBuffer8
Dim lbufferStatus As Long
Dim capCURS As DSCURSORS
Dim dsd As DSBUFFERDESC
Dim ByteBuffer() As Integer 'Our digital data from our capture buffer
'Are we still capturing? If so, stop
oCaptureBuffer.Stop
'Get the capture info
oCaptureBuffer.GetCurrentPosition capCURS
dsd.lBufferBytes = capCURS.lWrite + 1
dsd.fxFormat = dscd.fxFormat
'If there is nothing to write, then exit
If capCURS.lWrite = 0 Then Exit Function
Set GetSoundBufferFromCapture = ds.CreateSoundBuffer(dsd)
'Set the size for our new Data
ReDim ByteBuffer(capCURS.lWrite)
'Read the data from our capture buffer
oCaptureBuffer.ReadBuffer 0, capCURS.lWrite, ByteBuffer(0), DSCBLOCK_DEFAULT
'Write the data to our sound buffer
GetSoundBufferFromCapture.WriteBuffer 0, capCURS.lWrite, ByteBuffer(0), DSBLOCK_DEFAULT
End Function

BIN
Library/dxx8/samples/Multimedia/VBSamples/DirectSound/Tutorials/Tut1/frmCapture.frx Normal file
View File

Binary file not shown.

31
Library/dxx8/samples/Multimedia/VBSamples/DirectSound/Tutorials/Tut1/vb_AudTut3.vbp Normal file
View File

@@ -0,0 +1,31 @@
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=frmCapture.frm
Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; comdlg32.ocx
Startup="frmCapture"
Command32=""
ExeName32="vb_AudTut3.exe"
Name="vbAudTut3"
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
ThreadPerObject=0
MaxNumberOfThreads=1