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

298
Library/dxx8/samples/Multimedia/VBSamples/DirectShow/Builder/Selpin.frm Normal file
View File

@@ -0,0 +1,298 @@
VERSION 5.00
Begin VB.Form frmSelectPin
Caption = "Connect to Pin"
ClientHeight = 3210
ClientLeft = 4890
ClientTop = 4920
ClientWidth = 6270
LinkTopic = "Form2"
LockControls = -1 'True
PaletteMode = 1 'UseZOrder
ScaleHeight = 3210
ScaleWidth = 6270
StartUpPosition = 2 'CenterScreen
Begin VB.ListBox listPins
Height = 1425
ItemData = "Selpin.frx":0000
Left = 3360
List = "Selpin.frx":0002
TabIndex = 3
Top = 360
Width = 2655
End
Begin VB.ListBox listFilters
Height = 1425
ItemData = "Selpin.frx":0004
Left = 240
List = "Selpin.frx":0006
TabIndex = 2
Top = 360
Width = 2655
End
Begin VB.CommandButton Cancel
Cancel = -1 'True
Caption = "Cancel"
Height = 375
Left = 3360
TabIndex = 1
Top = 2640
Width = 975
End
Begin VB.CommandButton OK
Caption = "OK"
Default = -1 'True
Height = 375
Left = 1920
TabIndex = 0
Top = 2640
Width = 975
End
Begin VB.Label Label2
Caption = "Pins"
Height = 252
Left = 3240
TabIndex = 7
Top = 120
Width = 492
End
Begin VB.Label VendorInfoLabel
Caption = "Vendor Info:"
Height = 252
Left = 120
TabIndex = 6
Top = 2160
Width = 972
End
Begin VB.Label VendorInfo
Height = 252
Left = 1320
TabIndex = 5
Top = 2160
Visible = 0 'False
Width = 2772
End
Begin VB.Label Label1
Caption = "Filters"
Height = 255
Left = 120
TabIndex = 4
Top = 120
Width = 495
End
End
Attribute VB_Name = "frmSelectPin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*******************************************************************************
'* This is a part of the Microsoft DXSDK Code Samples.
'* Copyright (C) 1999-2001 Microsoft Corporation.
'* All rights reserved.
'* This source code is only intended as a supplement to
'* Microsoft Development Tools and/or SDK documentation.
'* See these sources for detailed information regarding the
'* Microsoft samples programs.
'*******************************************************************************
Option Explicit
Option Base 0
Option Compare Text
Public g_objFI As IFilterInfo
Public g_objPI As IPinInfo
Public g_objMC As IMediaControl
Public OtherDir As Long
Public bOK As Boolean
' **************************************************************************************************************************************
' * PRIVATE INTERFACE- INTRINSIC VBFORM EVENT HANDLERS
' *
' *
' ******************************************************************************************************************************
' * procedure name: Form_Load
' * procedure description: fills the filters listbox with all filters in the current filter graph
' *
' ******************************************************************************************************************************
Private Sub Form_Load()
On Local Error GoTo ErrLine
Call RefreshFilters
Exit Sub
ErrLine:
Err.Clear
Exit Sub
End Sub
' **************************************************************************************************************************************
' * PRIVATE INTERFACE- CONTROL EVENT HANDLERS
' *
' *
' ******************************************************************************************************************************
' * procedure name: Cancel_Click
' * procedure description: cancel command button click event- no pin connection is made
' *
' ******************************************************************************************************************************
Private Sub Cancel_Click()
On Local Error GoTo ErrLine
bOK = False: Call Hide
Exit Sub
ErrLine:
Err.Clear
Exit Sub
End Sub
' ******************************************************************************************************************************
' * procedure name: listFilters_Click
' * procedure description: when the user clicks on a specific filter in the filter graph, this creates the
' * list of pins for that filter in the pin listbox
' ******************************************************************************************************************************
Private Sub listFilters_Click()
Dim pin As IPinInfo
Dim pfilter As IFilterInfo
Dim pinOther As IPinInfo
On Local Error GoTo ErrLine
'enumerate through each filter in the filter collection
For Each pfilter In g_objMC.FilterCollection
If LCase(pfilter.Name) = LCase(listFilters.Text) Then
' display the information and pins for the selected filter
Set g_objFI = pfilter ' global FilterInfo object
VendorInfo.Caption = pfilter.VendorInfo
listPins.Clear
'enumerate through each pin in the filter
For Each pin In pfilter.Pins
Set pinOther = pin.ConnectedTo
If Err.Number <> 0 Then
If pin.Direction <> OtherDir Then
'append the pin's name to the listbox
listPins.AddItem pin.Name
End If
End If
Next
End If
Next
'reset the selected index
If listPins.ListCount > 0 Then
listPins.ListIndex = 0
End If
'clean-up & dereference local data
If Not pin Is Nothing Then Set pin = Nothing
If Not pfilter Is Nothing Then Set pfilter = Nothing
If Not pinOther Is Nothing Then Set pinOther = Nothing
Exit Sub
ErrLine:
Err.Clear
Resume Next
End Sub
' ******************************************************************************************************************************
' * procedure name: RefreshFilters
' * procedure description: fills the filters listbox with all filters in the current filter graph
' *
' ******************************************************************************************************************************
Public Sub RefreshFilters()
Dim pin As IPinInfo
Dim filter As IFilterInfo
Dim pinOther As IPinInfo
On Local Error GoTo ErrLine
'clear the filter listbox
listFilters.Clear
For Each filter In g_objMC.FilterCollection
For Each pin In filter.Pins
On Error Resume Next
Set pinOther = pin.ConnectedTo
If Err.Number <> 0 Then
If pin.Direction <> OtherDir Then
listFilters.AddItem filter.Name
Exit For
End If
End If
Next
Next
'reset the list index
If listFilters.ListCount > 0 Then
listFilters.ListIndex = 0
End If
'clean-up & dereference local data
If Not pin Is Nothing Then Set pin = Nothing
If Not filter Is Nothing Then Set filter = Nothing
If Not pinOther Is Nothing Then Set pinOther = Nothing
Exit Sub
ErrLine:
Err.Clear
Resume Next
End Sub
' ******************************************************************************************************************************
' * procedure name: OK_Click
' * procedure description: connect the selected pins, if possible. if no connection is possible, the pin
' * selection box closes and the program continues normally.
' ******************************************************************************************************************************
Private Sub OK_Click()
Dim objPinInfo As IPinInfo
On Local Error GoTo ErrLine
For Each objPinInfo In g_objFI.Pins
If objPinInfo.Name = listPins.Text Then
Set g_objPI = objPinInfo
bOK = True
Exit For
End If
Next
'unload form
Unload Me
'clean-up & dereference local data
If Not objPinInfo Is Nothing Then Set objPinInfo = Nothing
Exit Sub
ErrLine:
Err.Clear
Exit Sub
End Sub
' ******************************************************************************************************************************
' * procedure name: listPins_Click
' * procedure description: When a new pin is selected, store it in the module-level pin object
' *
' ******************************************************************************************************************************
Private Sub listPins_Click()
Dim objPinInfo As IPinInfo
On Local Error GoTo ErrLine
'enumerate the pins
For Each objPinInfo In g_objFI.Pins
If LCase(objPinInfo.Name) = LCase(listPins.Text) Then
Set g_objPI = objPinInfo 'reset the selected module-level pin
End If
Next
'clean-up & dereference local data
If Not objPinInfo Is Nothing Then Set objPinInfo = Nothing
Exit Sub
ErrLine:
Err.Clear
Exit Sub
End Sub

BIN
Library/dxx8/samples/Multimedia/VBSamples/DirectShow/Builder/Selpin.frx Normal file
View File

Binary file not shown.

1181
Library/dxx8/samples/Multimedia/VBSamples/DirectShow/Builder/builder.FRM Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
Library/dxx8/samples/Multimedia/VBSamples/DirectShow/Builder/builder.frx Normal file
View File

Binary file not shown.

45
Library/dxx8/samples/Multimedia/VBSamples/DirectShow/Builder/builder.vbp Normal file
View File

@@ -0,0 +1,45 @@
Type=Exe
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#c:\WINNT\System32\stdole2.tlb#Standard OLE Types
Reference=*\G{56A868B0-0AD4-11CE-B03A-0020AF0BA770}#1.0#0#c:\WINNT\System32\quartz.dll#Quartz control type library
Reference=*\G{4E6CDE29-C0C4-11D0-8FF1-00C04FD9189D}#1.0#0#c:\WINNT\System32\amstream.dll#DirectShowStream 1.0 Type Library
Reference=*\G{E1211242-8E94-11D1-8808-00C04FC2C602}#1.0#0#c:\WINNT\System32\dx7vb.dll#DirectX 7 for Visual Basic Type Library
Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; comdlg32.ocx
Form=builder.FRM
Form=Selpin.frm
IconForm="frmMain"
Startup="frmMain"
HelpFile=""
Title="Builder"
ExeName32="VB_Builder.exe"
Command32=""
Name="BuilderVB"
HelpContextID="0"
Description="Microsoft Directshow Graph Builder Sample Application"
CompatibleMode="0"
MajorVer=8
MinorVer=1
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
VersionCompanyName="Microsoft Corporation"
VersionFileDescription="Microsoft Directshow Graph Builder Sample Application"
VersionLegalCopyright="Copyright (C) 1999-2001 Microsoft Corporation."
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
DebugStartupOption=0
[MS Transaction Server]
AutoRefresh=1

9
Library/dxx8/samples/Multimedia/VBSamples/DirectShow/Builder/readme.txt Normal file
View File

@@ -0,0 +1,9 @@
DirectShow Sample -- Builder
----------------------------
Graph building application for Microsoft Visual Basic.
This sample application demonstrates how to build custom filter graphs
using Microsoft Visual Basic.