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>
57 lines
2.4 KiB
QBasic
57 lines
2.4 KiB
QBasic
Attribute VB_Name = "modGlobalData"
|
|
'*******************************************************************************
|
|
'* 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
|
|
|
|
|
|
' **************************************************************************************************************************************
|
|
' * GLOBAL INTERFACE- DATA
|
|
' *
|
|
' *
|
|
Global gbl_objMediaControl As IMediaControl 'playback control
|
|
Global gbl_objTimeline As AMTimeline 'application timeline object
|
|
Global gbl_objRenderEngine As RenderEngine 'application render engine
|
|
Global gbl_objVideoWindow As IVideoWindow 'application video window for playback
|
|
|
|
|
|
|
|
' **************************************************************************************************************************************
|
|
' * GLOBAL INTERFACE- CONSTANTS
|
|
' *
|
|
' *
|
|
Global Const SLIDESHOWVB_CLIPLENGTH As Double = 4# 'how long each clip lasts on the timeline
|
|
Global Const SLIDESHOWVB_VIDEOTYPE As String = "{73646976-0000-0010-8000-00AA00389B71}"
|
|
Global Const SLIDESHOWVB_AUDIOTYPE As String = "{73647561-0000-0010-8000-00AA00389B71}"
|
|
|
|
|
|
' **************************************************************************************************************************************
|
|
' * GLOBAL INTERFACE- APPLICATION ENTRY POINT
|
|
' *
|
|
' *
|
|
' ******************************************************************************************************************************
|
|
' * procedure name: Main
|
|
' * procedure description: Application Entry Point.
|
|
' *
|
|
' ******************************************************************************************************************************
|
|
Public Sub Main()
|
|
On Local Error GoTo ErrLine
|
|
|
|
Load frmMain
|
|
frmMain.Move 0, 0
|
|
frmMain.Visible = True
|
|
Exit Sub
|
|
|
|
ErrLine:
|
|
Err.Clear
|
|
Exit Sub
|
|
End Sub
|