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,32 @@
|
||||
Attribute VB_Name = "Globals"
|
||||
'*******************************************************************************
|
||||
'* This is a part of the Microsoft Platform SDK 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.
|
||||
'*******************************************************************************
|
||||
|
||||
'Microsoft Video Control - Sample Visual Basic Application
|
||||
Option Explicit
|
||||
|
||||
Public Const NTSC_GUID As String = "{8A674B4D-1F63-11D3-B64C-00C04F79498E}"
|
||||
Public Const ATSC_GUID As String = "{A2E30750-6C3D-11D3-B653-00C04F79498E}"
|
||||
Public Const DVBS_GUID As String = "{B64016F3-C9A2-4066-96F0-BD9563314726}"
|
||||
Public Const CC_GUID As String = "{7F9CB14D-48E4-43B6-9346-1AEBC39C64D3}"
|
||||
Public Const DATASVC_GUID As String = "{334125C0-77E5-11D3-B653-00C04F79498E}"
|
||||
|
||||
Sub Main()
|
||||
frmMain.Show
|
||||
End Sub
|
||||
|
||||
'Use this for error reporting
|
||||
Public Function CheckError(ErrorMsg As String)
|
||||
Dim Msg As Variant
|
||||
If Err.Number <> 0 Then
|
||||
Msg = ErrorMsg & vbCrLf & vbCrLf & "The error returned was:" & vbCrLf & Hex(Err.Number) & ": " & Err.Description
|
||||
MsgBox Msg, , "Error"
|
||||
End If
|
||||
'Reset the error so we don't get the same message over and over
|
||||
Err.Number = 0
|
||||
End Function
|
||||
Reference in New Issue
Block a user