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

272
Library/dxx8/samples/Multimedia/VBSamples/DirectShow/Editing/DexterVB/frmEffect.frm Normal file
View File

@@ -0,0 +1,272 @@
VERSION 5.00
Begin VB.Form frmEffect
Caption = "Effect Form"
ClientHeight = 2640
ClientLeft = 60
ClientTop = 345
ClientWidth = 6045
Icon = "frmEffect.frx":0000
LinkTopic = "Form2"
LockControls = -1 'True
ScaleHeight = 2640
ScaleWidth = 6045
StartUpPosition = 1 'CenterOwner
Begin VB.Frame fraFixture
Height = 2115
Left = 75
TabIndex = 7
Top = 0
Width = 5865
Begin VB.TextBox txtStartTime
Height = 375
Left = 1710
TabIndex = 1
Top = 695
Width = 3975
End
Begin VB.TextBox txtStopTime
Height = 375
Left = 1710
TabIndex = 2
Top = 1140
Width = 3975
End
Begin VB.ComboBox cmbEffect
Height = 315
Left = 1710
Sorted = -1 'True
TabIndex = 0
Top = 300
Width = 3975
End
Begin VB.TextBox txtPriority
Height = 375
Left = 1710
TabIndex = 3
ToolTipText = "-1"
Top = 1600
Width = 3975
End
Begin VB.Label lblEffect
Caption = "Effect"
Height = 255
Left = 150
TabIndex = 11
Top = 300
Width = 1695
End
Begin VB.Label lblStart
Caption = "Start"
Height = 255
Left = 150
TabIndex = 10
Top = 780
Width = 1095
End
Begin VB.Label lblStop
Caption = "Stop"
Height = 255
Left = 150
TabIndex = 9
Top = 1260
Width = 615
End
Begin VB.Label lblPriority
Caption = "Priority"
Height = 255
Left = 150
TabIndex = 8
Top = 1740
Width = 615
End
End
Begin VB.CommandButton cmdOk
Caption = "OK"
Default = -1 'True
Height = 340
Left = 3540
TabIndex = 4
Top = 2220
Width = 1095
End
Begin VB.CommandButton cmdCancel
Caption = "Cancel"
Height = 340
Left = 4740
TabIndex = 5
Top = 2220
Width = 1215
End
Begin VB.TextBox GetSubObjectGUIDB
Height = 375
Left = 4650
TabIndex = 6
Top = 2775
Visible = 0 'False
Width = 1335
End
End
Attribute VB_Name = "frmEffect"
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 = "Effect 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 cmbEffect
.AddItem "BasicImage"
.AddItem "Blur"
.AddItem "Chroma"
.AddItem "DropShadow"
.AddItem "Emboss"
.AddItem "Engrave"
.AddItem "Fade"
.AddItem "Pixelate"
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 'Ok' command button is pressed
' *
' ******************************************************************************************************************************
Private Sub cmdOk_Click()
On Local Error GoTo ErrLine
'hide the dialog
Me.Visible = False
Exit Sub
ErrLine:
Err.Clear
Exit Sub
End Sub
' ******************************************************************************************************************************
' * procedure name: cmdCancel_Click
' * procedure description: occures when the 'Cancel' command button is pressed
' *
' ******************************************************************************************************************************
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