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>
51 lines
1.3 KiB
QBasic
51 lines
1.3 KiB
QBasic
Attribute VB_Name = "modDplay"
|
|
Option Explicit
|
|
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
|
|
'
|
|
' Copyright (C) 1999-2001 Microsoft Corporation. All Rights Reserved.
|
|
'
|
|
' File: modDplay.bas
|
|
'
|
|
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
|
|
'Sleep declare
|
|
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
|
|
|
|
Public Enum vbDplayDataRelayMsgType
|
|
MSG_GamePacket
|
|
MSG_PacketReceive
|
|
End Enum
|
|
|
|
'Constants
|
|
Public Const AppGuid = "{0A947595-45D1-48f0-AEE2-E7CF851A1EEE}"
|
|
|
|
Public dx As DirectX8
|
|
Public dpp As DirectPlay8Peer
|
|
|
|
'App specific variables
|
|
Public gsUserName As String
|
|
'Our connection form and message pump
|
|
Public DPlayEventsForm As DPlayConnect
|
|
|
|
Public Sub InitDPlay()
|
|
'Create our DX/DirectPlay objects
|
|
Set dx = New DirectX8
|
|
Set dpp = dx.DirectPlayPeerCreate
|
|
End Sub
|
|
|
|
Public Sub Cleanup()
|
|
If Not (DPlayEventsForm Is Nothing) Then
|
|
'Get rid of our message pump
|
|
DPlayEventsForm.GoUnload
|
|
dpp.UnRegisterMessageHandler
|
|
'Close down our session
|
|
DPlayEventsForm.DoSleep 50
|
|
If Not (dpp Is Nothing) Then dpp.Close
|
|
'Lose references to peer and dx objects
|
|
Set dpp = Nothing
|
|
Set dx = Nothing
|
|
End If
|
|
End Sub
|
|
|
|
|
|
|