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
|
||||
Reference in New Issue
Block a user