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>
40 lines
990 B
QBasic
40 lines
990 B
QBasic
Attribute VB_Name = "modDplayClient"
|
|
Option Explicit
|
|
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
|
|
'
|
|
' Copyright (C) 1999-2001 Microsoft Corporation. All Rights Reserved.
|
|
'
|
|
' File: modDPlayClient.bas
|
|
'
|
|
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
|
|
|
|
Public Const AppGuid = "{5726CF1F-702B-4008-98BC-BF9C95F9E288}"
|
|
|
|
Public dx As New DirectX8
|
|
Public dpc As DirectPlay8Client
|
|
|
|
Public DPlayEventsForm As DPlayConnect
|
|
|
|
Public Sub Main()
|
|
InitDPlay
|
|
frmClient.Show
|
|
End Sub
|
|
|
|
Public Sub InitDPlay()
|
|
Set dpc = dx.DirectPlayClientCreate
|
|
End Sub
|
|
|
|
Public Sub Cleanup()
|
|
|
|
'Stop our message handler
|
|
If Not dpc Is Nothing Then dpc.UnRegisterMessageHandler
|
|
'Close down our session
|
|
If Not dpc Is Nothing Then dpc.Close
|
|
Set dpc = Nothing
|
|
Set dx = Nothing
|
|
'Get rid of our message pump
|
|
DPlayEventsForm.GoUnload
|
|
|
|
End Sub
|
|
|