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,446 @@
|
||||
VERSION 5.00
|
||||
Object = "{38EE5CE1-4B62-11D3-854F-00A0C9C898E7}#1.0#0"; "mswebdvd.dll"
|
||||
Begin VB.Form frmWebDVDSample
|
||||
BorderStyle = 1 'Fixed Single
|
||||
Caption = "WebDVD Sample"
|
||||
ClientHeight = 3930
|
||||
ClientLeft = -19140
|
||||
ClientTop = 345
|
||||
ClientWidth = 6255
|
||||
Icon = "WebDVDSample.frx":0000
|
||||
LinkTopic = "Form1"
|
||||
LockControls = -1 'True
|
||||
MaxButton = 0 'False
|
||||
ScaleHeight = 3930
|
||||
ScaleWidth = 6255
|
||||
StartUpPosition = 2 'CenterScreen
|
||||
Begin VB.Frame fraMenus
|
||||
Height = 3855
|
||||
Left = 60
|
||||
TabIndex = 10
|
||||
Top = 0
|
||||
Width = 6135
|
||||
Begin VB.CommandButton cmdResume
|
||||
Caption = "Resume"
|
||||
Height = 315
|
||||
Left = 4545
|
||||
TabIndex = 9
|
||||
ToolTipText = "Resume Playback"
|
||||
Top = 3420
|
||||
Width = 1470
|
||||
End
|
||||
Begin VB.CommandButton cmdShowMenu
|
||||
Caption = "Show Menu"
|
||||
Height = 315
|
||||
Left = 4545
|
||||
TabIndex = 8
|
||||
ToolTipText = "Show Menu"
|
||||
Top = 3120
|
||||
Width = 1470
|
||||
End
|
||||
Begin VB.ListBox lstMenus
|
||||
Height = 1230
|
||||
ItemData = "WebDVDSample.frx":0442
|
||||
Left = 3840
|
||||
List = "WebDVDSample.frx":0444
|
||||
TabIndex = 0
|
||||
ToolTipText = "Select a Menu"
|
||||
Top = 1440
|
||||
Width = 2175
|
||||
End
|
||||
Begin VB.CommandButton cmdPlay
|
||||
Caption = "Play"
|
||||
Height = 315
|
||||
Left = 120
|
||||
TabIndex = 1
|
||||
ToolTipText = "Play"
|
||||
Top = 3120
|
||||
Width = 975
|
||||
End
|
||||
Begin VB.CommandButton cmdStop
|
||||
Caption = "Stop"
|
||||
Height = 315
|
||||
Left = 1080
|
||||
TabIndex = 2
|
||||
ToolTipText = "Stop"
|
||||
Top = 3120
|
||||
Width = 975
|
||||
End
|
||||
Begin VB.CommandButton cmdPause
|
||||
Caption = "Pause"
|
||||
Height = 315
|
||||
Left = 2040
|
||||
TabIndex = 3
|
||||
ToolTipText = "Pause"
|
||||
Top = 3120
|
||||
Width = 975
|
||||
End
|
||||
Begin VB.CommandButton cmdEject
|
||||
Caption = "Eject"
|
||||
Height = 315
|
||||
Left = 3000
|
||||
TabIndex = 4
|
||||
ToolTipText = "Eject"
|
||||
Top = 3120
|
||||
Width = 1095
|
||||
End
|
||||
Begin VB.CommandButton cmdActivateButton
|
||||
Caption = "Activate Button"
|
||||
Height = 315
|
||||
Left = 120
|
||||
TabIndex = 5
|
||||
ToolTipText = "Activate button"
|
||||
Top = 3420
|
||||
Width = 1335
|
||||
End
|
||||
Begin VB.CommandButton cmdPlayPrevChapter
|
||||
Caption = "Last Chapter"
|
||||
Height = 315
|
||||
Left = 1425
|
||||
TabIndex = 6
|
||||
ToolTipText = "Play previous chapter"
|
||||
Top = 3420
|
||||
Width = 1345
|
||||
End
|
||||
Begin VB.CommandButton cmdPlayNextChapter
|
||||
Caption = "Next Chapter"
|
||||
Height = 315
|
||||
Left = 2775
|
||||
TabIndex = 7
|
||||
ToolTipText = "Play next chapter"
|
||||
Top = 3420
|
||||
Width = 1325
|
||||
End
|
||||
Begin MSWEBDVDLibCtl.MSWebDVD MSWebDVD1
|
||||
Height = 2495
|
||||
Left = 120
|
||||
TabIndex = 11
|
||||
Top = 180
|
||||
Width = 3615
|
||||
_cx = 6376
|
||||
_cy = 4401
|
||||
DisableAutoMouseProcessing= 0 'False
|
||||
BackColor = 1048592
|
||||
EnableResetOnStop= 0 'False
|
||||
ColorKey = 1048592
|
||||
WindowlessActivation= 0 'False
|
||||
End
|
||||
Begin VB.Line Line1
|
||||
X1 = 3840
|
||||
X2 = 6000
|
||||
Y1 = 1080
|
||||
Y2 = 1080
|
||||
End
|
||||
Begin VB.Label lblDescriptor
|
||||
Caption = "This sample demonstrates the use of the Microsoft WebDVD control within a Visual Basic playback application."
|
||||
Height = 795
|
||||
Left = 3840
|
||||
TabIndex = 15
|
||||
Top = 180
|
||||
Width = 2175
|
||||
End
|
||||
Begin VB.Label lblChoices
|
||||
Caption = "Menu Choices:"
|
||||
Height = 195
|
||||
Left = 3840
|
||||
TabIndex = 14
|
||||
Top = 1200
|
||||
Width = 2115
|
||||
End
|
||||
Begin VB.Label lblTimeTracker
|
||||
Caption = "Time Tracker:"
|
||||
Height = 195
|
||||
Left = 120
|
||||
TabIndex = 13
|
||||
Top = 2820
|
||||
Width = 1335
|
||||
End
|
||||
Begin VB.Label lblTimeTrackerValue
|
||||
Height = 195
|
||||
Left = 1560
|
||||
TabIndex = 12
|
||||
Top = 2820
|
||||
Width = 2160
|
||||
End
|
||||
End
|
||||
End
|
||||
|
||||
Attribute VB_Name = "frmWebDVDSample"
|
||||
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 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
|
||||
|
||||
With lstMenus
|
||||
.AddItem "RootMenu", 0
|
||||
.AddItem "TitleMenu", 1
|
||||
.AddItem "AudioMenu", 2
|
||||
.AddItem "AngleMenu", 3
|
||||
.AddItem "ChapterMenu", 4
|
||||
.AddItem "SubpictureMenu", 5
|
||||
End With
|
||||
|
||||
'set the root menu selected
|
||||
lstMenus.Selected(0) = True
|
||||
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 0 'vbFormControlMenu
|
||||
Me.Move Screen.Width * 8, Screen.Height * 8
|
||||
Me.Visible = False: Call MSWebDVD1.Stop
|
||||
Case 1 'vbFormCode
|
||||
Me.Move Screen.Width * 8, Screen.Height * 8
|
||||
Me.Visible = False: Call MSWebDVD1.Stop
|
||||
Case 2 'vbAppWindows
|
||||
Me.Move Screen.Width * 8, Screen.Height * 8
|
||||
Me.Visible = False: Call MSWebDVD1.Stop
|
||||
Case 3 'vbAppTaskManager
|
||||
Me.Move Screen.Width * 8, Screen.Height * 8
|
||||
Me.Visible = False: Call MSWebDVD1.Stop
|
||||
Case 4 'vbFormMDIForm
|
||||
Exit Sub
|
||||
Case 5 'vbFormOwner
|
||||
Exit Sub
|
||||
End Select
|
||||
Exit Sub
|
||||
|
||||
ErrLine:
|
||||
Err.Clear
|
||||
Exit Sub
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
' **************************************************************************************************************************************
|
||||
' * PRIVATE INTERFACE- CONTROL EVENT HANDLERS
|
||||
' *
|
||||
' *
|
||||
' ******************************************************************************************************************************
|
||||
' * procedure name: cmdPlay_Click
|
||||
' * procedure description: Occurs when the user clicks the "Play" command button
|
||||
' *
|
||||
' ******************************************************************************************************************************
|
||||
Private Sub cmdPlay_Click()
|
||||
On Local Error GoTo ErrLine
|
||||
|
||||
'Start playback
|
||||
Call MSWebDVD1.Play
|
||||
Exit Sub
|
||||
|
||||
ErrLine:
|
||||
Call MsgBox(Err.Description, vbOKOnly + vbExclamation + vbApplicationModal, App.Title): Err.Clear
|
||||
Exit Sub
|
||||
End Sub
|
||||
|
||||
|
||||
' ******************************************************************************************************************************
|
||||
' * procedure name: cmdStop_Click
|
||||
' * procedure description: Occurs when the user clicks the "Stop" command button
|
||||
' *
|
||||
' ******************************************************************************************************************************
|
||||
Private Sub cmdStop_Click()
|
||||
On Local Error GoTo ErrLine
|
||||
|
||||
'stop playback
|
||||
Call MSWebDVD1.Stop
|
||||
Exit Sub
|
||||
|
||||
ErrLine:
|
||||
Call MsgBox(Err.Description, vbOKOnly + vbExclamation + vbApplicationModal, App.Title): Err.Clear
|
||||
Exit Sub
|
||||
End Sub
|
||||
|
||||
|
||||
' ******************************************************************************************************************************
|
||||
' * procedure name: cmdPause_Click
|
||||
' * procedure description: Occurs when the user clicks the "Pause" command button
|
||||
' *
|
||||
' ******************************************************************************************************************************
|
||||
Private Sub cmdPause_Click()
|
||||
On Local Error GoTo ErrLine
|
||||
|
||||
'pause playback
|
||||
Call MSWebDVD1.Pause
|
||||
Exit Sub
|
||||
|
||||
ErrLine:
|
||||
Call MsgBox(Err.Description, vbOKOnly + vbExclamation + vbApplicationModal, App.Title): Err.Clear
|
||||
Exit Sub
|
||||
End Sub
|
||||
|
||||
|
||||
' ******************************************************************************************************************************
|
||||
' * procedure name: cmdEject_Click
|
||||
' * procedure description: Occurs when the user clicks the "Eject" command button
|
||||
' *
|
||||
' ******************************************************************************************************************************
|
||||
Private Sub cmdEject_Click()
|
||||
On Local Error GoTo ErrLine
|
||||
|
||||
'Eject disc from the drive
|
||||
Call MSWebDVD1.Eject
|
||||
Exit Sub
|
||||
|
||||
ErrLine:
|
||||
Call MsgBox(Err.Description, vbOKOnly + vbExclamation + vbApplicationModal, App.Title): Err.Clear
|
||||
Exit Sub
|
||||
End Sub
|
||||
|
||||
|
||||
' ******************************************************************************************************************************
|
||||
' * procedure name: cmdActivateButton_Click
|
||||
' * procedure description: Occurs when the user clicks the "ActivateButton" command button
|
||||
' *
|
||||
' ******************************************************************************************************************************
|
||||
Private Sub cmdActivateButton_Click()
|
||||
On Local Error GoTo ErrLine
|
||||
|
||||
'activates the currently selected button (selected button is highlighted)
|
||||
Call MSWebDVD1.ActivateButton
|
||||
Exit Sub
|
||||
|
||||
ErrLine:
|
||||
Call MsgBox(Err.Description, vbOKOnly + vbExclamation + vbApplicationModal, App.Title): Err.Clear
|
||||
Exit Sub
|
||||
End Sub
|
||||
|
||||
|
||||
' ******************************************************************************************************************************
|
||||
' * procedure name: cmdPlayNextChapter_Click
|
||||
' * procedure description: Occurs when the user clicks the "PlayNextChapter" command button
|
||||
' *
|
||||
' ******************************************************************************************************************************
|
||||
Private Sub cmdPlayNextChapter_Click()
|
||||
On Local Error GoTo ErrLine
|
||||
|
||||
'takes playback to next chapter within current title
|
||||
Call MSWebDVD1.PlayNextChapter
|
||||
Exit Sub
|
||||
|
||||
ErrLine:
|
||||
Call MsgBox(Err.Description, vbOKOnly + vbExclamation + vbApplicationModal, App.Title): Err.Clear
|
||||
Exit Sub
|
||||
End Sub
|
||||
|
||||
|
||||
' ******************************************************************************************************************************
|
||||
' * procedure name: cmdPlayPrevChapter_Click
|
||||
' * procedure description: Occurs when the user clicks the "PlayPrevChapter" command button
|
||||
' *
|
||||
' ******************************************************************************************************************************
|
||||
Private Sub cmdPlayPrevChapter_Click()
|
||||
On Local Error GoTo ErrLine
|
||||
|
||||
'takes playback to previous chapter within current title
|
||||
Call MSWebDVD1.PlayPrevChapter
|
||||
Exit Sub
|
||||
|
||||
ErrLine:
|
||||
Call MsgBox(Err.Description, vbOKOnly + vbExclamation + vbApplicationModal, App.Title): Err.Clear
|
||||
Exit Sub
|
||||
End Sub
|
||||
|
||||
|
||||
' ******************************************************************************************************************************
|
||||
' * procedure name: cmdShowMenu_Click
|
||||
' * procedure description: Occurs when the user clicks the "ShowMenu" command button
|
||||
' *
|
||||
' ******************************************************************************************************************************
|
||||
Private Sub cmdShowMenu_Click()
|
||||
On Local Error GoTo ErrLine
|
||||
|
||||
Select Case lstMenus.ListIndex
|
||||
Case 0: Call MSWebDVD1.ShowMenu(3) 'Root
|
||||
Case 1: Call MSWebDVD1.ShowMenu(2) 'Title
|
||||
Case 2: Call MSWebDVD1.ShowMenu(5) 'Audio
|
||||
Case 3: Call MSWebDVD1.ShowMenu(6) 'Angle
|
||||
Case 4: Call MSWebDVD1.ShowMenu(7) 'Chapter
|
||||
Case 5: Call MSWebDVD1.ShowMenu(4) 'Subpicture
|
||||
End Select
|
||||
Exit Sub
|
||||
|
||||
ErrLine:
|
||||
Call MsgBox(Err.Description, vbOKOnly + vbExclamation + vbApplicationModal, App.Title): Err.Clear
|
||||
Exit Sub
|
||||
End Sub
|
||||
|
||||
|
||||
' ******************************************************************************************************************************
|
||||
' * procedure name: cmdResume_Click
|
||||
' * procedure description: Occurs when the user clicks the "Resume" command button
|
||||
' *
|
||||
' ******************************************************************************************************************************
|
||||
Private Sub cmdResume_Click()
|
||||
On Local Error GoTo ErrLine
|
||||
|
||||
' Resume playback
|
||||
Call MSWebDVD1.Resume
|
||||
Exit Sub
|
||||
|
||||
ErrLine:
|
||||
Call MsgBox(Err.Description, vbOKOnly + vbExclamation + vbApplicationModal, App.Title): Err.Clear
|
||||
Exit Sub
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
' ******************************************************************************************************************************
|
||||
' * procedure name: MSWebDVD1_DVDNotify
|
||||
' * procedure description: DVD notification event- occurs when a notification arrives from the dvd control
|
||||
' *
|
||||
' ******************************************************************************************************************************
|
||||
Private Sub MSWebDVD1_DVDNotify(ByVal lEventCode As Long, ByVal lParam1 As Variant, ByVal lParam2 As Variant)
|
||||
On Local Error GoTo ErrLine
|
||||
|
||||
If 282 = lEventCode Then '282 is the event code for the time event
|
||||
'pass in param1 to get you the current time-convert to hh:mm:ss:ff format with DVDTimeCode2BSTR API
|
||||
If lblTimeTrackerValue.Caption <> CStr(MSWebDVD1.DVDTimeCode2bstr(lParam1)) Then _
|
||||
lblTimeTrackerValue.Caption = CStr(MSWebDVD1.DVDTimeCode2bstr(lParam1))
|
||||
End If
|
||||
Exit Sub
|
||||
|
||||
ErrLine:
|
||||
Err.Clear
|
||||
Exit Sub
|
||||
End Sub
|
||||
Binary file not shown.
@@ -0,0 +1,42 @@
|
||||
Type=Exe
|
||||
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#c:\WINNT\System32\stdole2.tlb#OLE Automation
|
||||
Object={38EE5CE1-4B62-11D3-854F-00A0C9C898E7}#1.0#0; mswebdvd.dll
|
||||
Form=WebDVDSample.frm
|
||||
IconForm="frmWebDVDSample"
|
||||
Startup="frmWebDVDSample"
|
||||
HelpFile=""
|
||||
Title="WebDVD Sample"
|
||||
ExeName32="VB_WebDVDSample.exe"
|
||||
Command32=""
|
||||
Name="WebDVDSample"
|
||||
HelpContextID="0"
|
||||
Description="Microsoft Directshow WebDVD Sample Application"
|
||||
CompatibleMode="0"
|
||||
MajorVer=8
|
||||
MinorVer=1
|
||||
RevisionVer=0
|
||||
AutoIncrementVer=0
|
||||
ServerSupportFiles=0
|
||||
VersionCompanyName="Microsoft Corporation"
|
||||
VersionFileDescription="Microsoft Directshow WebDVD Sample Application"
|
||||
VersionLegalCopyright="Copyright (C) 1999-2001 Microsoft Corporation."
|
||||
VersionProductName="WebDVDSample"
|
||||
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
|
||||
@@ -0,0 +1,51 @@
|
||||
DirectShow Sample -- WebDVD
|
||||
---------------------------
|
||||
|
||||
The WebDVD sample shows how to use the MSWebDVD Microsoft ActiveX control
|
||||
to perform many aspects of DVD-Video playback and navigation.
|
||||
|
||||
You can initiate playback by calling the Play method. Once the DVD is playing,
|
||||
you can alter the path or behavior of playback through the following methods:
|
||||
|
||||
- Stop: Stops playback.
|
||||
|
||||
- Eject: Ejects the DVD disc from the drive.
|
||||
|
||||
- Pause: Pauses playback for as long as you wish.
|
||||
|
||||
- ActivateButton: Activates the currently selected button.
|
||||
You can select a button by:
|
||||
|
||||
- Hovering over the button to highlight it.
|
||||
The DisableAutoMouseProcessing property must be false (the default value)
|
||||
for this to have an effect.
|
||||
|
||||
- Calling SelectAtPosition, SelectLeftButton, SelectRightButton,
|
||||
SelectLowerButton, or SelectUpperButton.
|
||||
|
||||
- PlayNextChapter: Plays the next chapter within the current title.
|
||||
|
||||
- PlayPrevChapter: Plays the previous chapter within the same title.
|
||||
|
||||
You can show six possible menus that may exist on a disc with the ShowMenu method:
|
||||
|
||||
Title
|
||||
Root
|
||||
Subpicture
|
||||
Audio
|
||||
Angle
|
||||
Chapter
|
||||
|
||||
If the menu does not exist, you will get an error indicating that the specified
|
||||
menu does not exist. If video was playing when you selected a menu, then
|
||||
pressing the Resume button will return you to your previous position.
|
||||
|
||||
|
||||
Video Resolutions
|
||||
-----------------
|
||||
|
||||
WARNING: If your display resolution is set too high, you may receive an error when
|
||||
attempting to play a DVD title. For example, when you click Play, you may see an
|
||||
error message box which indicates "Unable to play DVD video." In that case, lower
|
||||
your video resolution by reducing the "Screen Area" slider on the Display Properties
|
||||
control panel application. Different video cards will have different results.
|
||||
Reference in New Issue
Block a user