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

373
Library/dxx8/samples/Multimedia/VBSamples/DirectShow/Editing/DexterVB/frmGroup.frm Normal file
View File

@@ -0,0 +1,373 @@
VERSION 5.00
Begin VB.Form frmGroup
Caption = "Group Menu"
ClientHeight = 3675
ClientLeft = 60
ClientTop = 345
ClientWidth = 5805
Icon = "frmGroup.frx":0000
LinkTopic = "Form2"
LockControls = -1 'True
ScaleHeight = 3675
ScaleWidth = 5805
StartUpPosition = 1 'CenterOwner
Begin VB.Frame fraFixture
Height = 3165
Left = 75
TabIndex = 8
Top = 0
Width = 5640
Begin VB.TextBox txtBuffering
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 1
EndProperty
Height = 375
Left = 1470
TabIndex = 5
Top = 2625
Width = 3975
End
Begin VB.TextBox txtPreviewMode
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 1
EndProperty
Height = 375
Left = 1470
TabIndex = 4
Top = 2145
Width = 3975
End
Begin VB.TextBox txtOutputFPS
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 1
EndProperty
Height = 375
Left = 1470
TabIndex = 3
Top = 1665
Width = 3975
End
Begin VB.TextBox txtPriority
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 1
EndProperty
Height = 375
Left = 1470
TabIndex = 2
Top = 1185
Width = 3975
End
Begin VB.TextBox txtMediaType
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 1
EndProperty
Height = 375
Left = 1470
TabIndex = 1
ToolTipText = "0 - Video / 1 - Audio"
Top = 705
Width = 3975
End
Begin VB.TextBox txtGroupName
Height = 375
Left = 1470
TabIndex = 0
Top = 225
Width = 3975
End
Begin VB.Label lblBuffering
Caption = "Buffering"
Height = 255
Left = 150
TabIndex = 14
Top = 2745
Width = 975
End
Begin VB.Label lblPreviewMode
Caption = "PreviewMode"
Height = 255
Left = 150
TabIndex = 13
Top = 2265
Width = 1215
End
Begin VB.Label lblOutputFPS
Caption = "OutputFPS"
Height = 255
Left = 150
TabIndex = 12
Top = 1785
Width = 1215
End
Begin VB.Label lblPriority
Caption = "Priority"
Height = 255
Left = 150
TabIndex = 11
Top = 1305
Width = 615
End
Begin VB.Label lblMediaType
Caption = "MediaType"
Height = 255
Left = 150
TabIndex = 10
ToolTipText = "0 - Video / 1 - Audio"
Top = 825
Width = 1095
End
Begin VB.Label lblGroupName
Caption = "GroupName"
Height = 255
Left = 150
TabIndex = 9
Top = 345
Width = 1095
End
End
Begin VB.CommandButton cmdCancel
Caption = "Cancel"
Height = 340
Left = 4500
TabIndex = 7
Top = 3255
Width = 1215
End
Begin VB.CommandButton cmdOk
Caption = "OK"
Default = -1 'True
Height = 340
Left = 3300
TabIndex = 6
Top = 3255
Width = 1095
End
End
Attribute VB_Name = "frmGroup"
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
Private m_intUnloadMode As Integer
Private Const DIALOG_TITLE = "Group Help"
' **************************************************************************************************************************************
' * PUBLIC INTERFACE- PROPERTIES
' *
' *
' ******************************************************************************************************************************
' * procedure name: UnloadMode
' * procedure description: Returns an integer specifying the method from which this dialog was last unloaded
' *
' ******************************************************************************************************************************
Public Property Get UnloadMode() As Integer
On Local Error GoTo ErrLine
'return the value to the client
UnloadMode = m_intUnloadMode
Exit Property
ErrLine:
Err.Clear
Exit Property
End Property
' **************************************************************************************************************************************
' * PRIVATE INTERFACE- FORM EVENT HANDLERS
' *
' *
' ******************************************************************************************************************************
' * procedure name: Form_Load
' * procedure description: Occurs when a form is loaded.
' *
' ******************************************************************************************************************************
Private Sub Form_Load()
On Local Error GoTo ErrLine
'set default value(s)
With Me
.txtGroupName.Text = vbNullString
.txtMediaType.Text = vbNullString
.txtPriority.Text = vbNullString
.txtOutputFPS.Text = vbNullString
.txtPreviewMode.Text = vbNullString
.txtBuffering.Text = vbNullString
End With
Exit Sub
ErrLine:
Err.Clear
Exit Sub
End Sub
' ******************************************************************************************************************************
' * procedure name: Form_QueryUnload
' * procedure description: Occurs before a form or application closes.
' *
' ******************************************************************************************************************************
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Local Error GoTo ErrLine
Select Case UnloadMode
Case vbFormControlMenu
'0 The user chose the Close command from the Control menu on the form.
Cancel = 1: Me.Visible = False
Case vbFormCode
'1 The Unload statement is invoked from code.
Case vbAppWindows
'2 The current Microsoft Windows operating environment session is ending.
Case vbAppTaskManager
'3 The Microsoft Windows Task Manager is closing the application.
End
Case vbFormMDIForm
'4 An MDI child form is closing because the MDI form is closing.
Case vbFormOwner
'5 A form is closing because its owner is closing
End Select
Exit Sub
ErrLine:
Err.Clear
Exit Sub
End Sub
' ******************************************************************************************************************************
' * procedure name: Form_Unload
' * procedure description: Occurs when a form is about to be removed from the screen.
' *
' ******************************************************************************************************************************
Private Sub Form_Unload(Cancel As Integer)
On Local Error GoTo ErrLine
With Me
.Move 0 - (Screen.Width * 8), 0 - (Screen.Height * 8): .Visible = False
End With
Exit Sub
ErrLine:
Err.Clear
Exit Sub
End Sub
' **************************************************************************************************************************************
' * PRIVATE INTERFACE- CONTROL EVENT HANDLERS
' *
' *
' ******************************************************************************************************************************
' * procedure name: cmdOk_Click
' * procedure description: occures when the user presses the "Ok" button
' *
' ******************************************************************************************************************************
Private Sub cmdOk_Click()
Dim nResultant As VbMsgBoxResult
On Local Error GoTo ErrLine
'validation code
If frmGroup.txtGroupName.Text = vbNullString Then
nResultant = MsgBox("You Must Set GroupName", , DIALOG_TITLE)
frmGroup.txtGroupName.SetFocus
Exit Sub
End If
If frmGroup.txtMediaType.Text = vbNullString Then
nResultant = MsgBox("You Must Set MediaType", , DIALOG_TITLE)
frmGroup.txtMediaType.SetFocus
Exit Sub
End If
If frmGroup.txtPriority.Text = vbNullString Then
nResultant = MsgBox("You Must Set Priority", , DIALOG_TITLE)
frmGroup.txtPriority.SetFocus
Exit Sub
End If
If frmGroup.txtOutputFPS.Text = vbNullString Then
nResultant = MsgBox("You Must Set OutputFPS", , DIALOG_TITLE)
frmGroup.txtOutputFPS.SetFocus
Exit Sub
End If
If frmGroup.txtPreviewMode.Text = vbNullString Then
nResultant = MsgBox("You Must Set PreviewMode", , DIALOG_TITLE)
frmGroup.txtPreviewMode.SetFocus
Exit Sub
End If
If frmGroup.txtBuffering.Text = vbNullString Then
nResultant = MsgBox("You Must Set Buffering", , DIALOG_TITLE)
frmGroup.txtBuffering.SetFocus
Exit Sub
End If
'hide the dialog
Me.Visible = False
Exit Sub
ErrLine:
Err.Clear
Exit Sub
End Sub
' ******************************************************************************************************************************
' * procedure name: cmdCancel_Click
' * procedure description: occures when the user presses the "Cancel" button
' *
' ******************************************************************************************************************************
Private Sub cmdCancel_Click()
On Local Error GoTo ErrLine
'hide the dialog
Me.Visible = False
m_intUnloadMode = 1
Exit Sub
ErrLine:
Err.Clear
Exit Sub
End Sub