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>
97 lines
2.8 KiB
QBasic
97 lines
2.8 KiB
QBasic
Attribute VB_Name = "DplayModule"
|
|
Option Explicit
|
|
|
|
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
|
|
'
|
|
' Copyright (C) 1999-2001 Microsoft Corporation. All Rights Reserved.
|
|
'
|
|
' File: dplay.bas
|
|
'
|
|
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
|
|
Public Enum DPLAY_MSGS
|
|
MSG_CHANGEGROUP
|
|
MSG_CHANGETALK
|
|
MSG_SERVERCHANGEGROUP
|
|
End Enum
|
|
|
|
'Constants
|
|
Public Const AppGuid = "{F5230441-9B71-88DA-998C-00207547A14D}"
|
|
|
|
'DirectX Variables
|
|
Public dvServer As DirectPlayVoiceServer8
|
|
Public dvClient As DirectPlayVoiceClient8
|
|
Public dx As DirectX8
|
|
Public dpp As DirectPlay8Peer
|
|
Public oSession As DVSESSIONDESC
|
|
Public oSound As DVSOUNDDEVICECONFIG
|
|
Public oClient As DVCLIENTCONFIG
|
|
|
|
Public glGroupID(1 To 5) As Long
|
|
|
|
'Misc Vars
|
|
Public glMyPlayerID As Long
|
|
Public fGotSettings As Boolean
|
|
|
|
Public DPlayEventsForm As DPlayConnect
|
|
|
|
Public Sub InitDPlay()
|
|
Set dx = New DirectX8
|
|
Set dpp = dx.DirectPlayPeerCreate
|
|
Set dvServer = dx.DirectPlayVoiceServerCreate
|
|
Set dvClient = dx.DirectPlayVoiceClientCreate
|
|
End Sub
|
|
|
|
Public Sub Cleanup()
|
|
|
|
On Error Resume Next
|
|
'Turn off our error handling
|
|
If Not (DPlayEventsForm Is Nothing) Then
|
|
If Not (dpp Is Nothing) Then dpp.UnRegisterMessageHandler
|
|
If Not (dvClient Is Nothing) Then dvClient.UnRegisterMessageHandler
|
|
If Not (dvServer Is Nothing) Then dvServer.UnRegisterMessageHandler
|
|
dvClient.Disconnect 0
|
|
DPlayEventsForm.DoSleep 50
|
|
If DPlayEventsForm.IsHost Then dvServer.StopSession 0
|
|
|
|
If Not dpp Is Nothing Then dpp.Close
|
|
DPlayEventsForm.GoUnload
|
|
'Destroy the objects
|
|
Set dvClient = Nothing
|
|
Set dvServer = Nothing
|
|
Set dpp = Nothing
|
|
Set dx = Nothing
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Main()
|
|
'Here is where we will start
|
|
InitDPlay
|
|
|
|
Set DPlayEventsForm = New DPlayConnect
|
|
If Not DPlayEventsForm.StartConnectWizard(dx, dpp, AppGuid, 20) Then
|
|
Cleanup
|
|
Else 'We did choose to play a game
|
|
If Not (DPlayEventsForm.IsHost) Then frmVoiceSettings.ClientOnly
|
|
frmVoiceSettings.Show vbModal
|
|
If Not fGotSettings Then 'We quit for some unknown reason.
|
|
Cleanup
|
|
Exit Sub
|
|
End If
|
|
frmVoice.Show vbModeless
|
|
If DPlayEventsForm.IsHost Then frmVoice.Caption = frmVoice.Caption & " (HOST)"
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Public Sub RemovePlayerFromAllGroups(lPlayerID As Long)
|
|
On Error Resume Next 'We don't care about any errors..
|
|
Dim lCount As Long
|
|
|
|
For lCount = 1 To 5
|
|
dpp.RemovePlayerFromGroup glGroupID(lCount), lPlayerID, 0
|
|
Next
|
|
Err.Clear
|
|
'Ignore the errors about Player not in group
|
|
End Sub
|
|
|