LGram16
e067522598
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>
33 lines
1.3 KiB
QBasic
33 lines
1.3 KiB
QBasic
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
|