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>
99 lines
2.9 KiB
Plaintext
99 lines
2.9 KiB
Plaintext
VERSION 5.00
|
|
Begin VB.Form frmIntro
|
|
BorderStyle = 3 'Fixed Dialog
|
|
Caption = "VB Memory - A DirectPlay Sample"
|
|
ClientHeight = 1515
|
|
ClientLeft = 45
|
|
ClientTop = 330
|
|
ClientWidth = 2745
|
|
Icon = "frmIntro.frx":0000
|
|
LinkTopic = "Form1"
|
|
MaxButton = 0 'False
|
|
MinButton = 0 'False
|
|
ScaleHeight = 1515
|
|
ScaleWidth = 2745
|
|
StartUpPosition = 3 'Windows Default
|
|
Begin VB.CommandButton cmdSingle
|
|
Caption = "Solitaire"
|
|
Height = 375
|
|
Left = 315
|
|
TabIndex = 2
|
|
Top = 1020
|
|
Width = 975
|
|
End
|
|
Begin VB.CommandButton cmdMulti
|
|
Caption = "Multiplayer"
|
|
Default = -1 'True
|
|
Height = 375
|
|
Left = 1455
|
|
TabIndex = 0
|
|
Top = 1020
|
|
Width = 975
|
|
End
|
|
Begin VB.Label lbl
|
|
BackStyle = 0 'Transparent
|
|
Caption = "This sample will show a developer a simplistic game (Memory). Please choose how you would like to play this game."
|
|
Height = 1035
|
|
Left = 60
|
|
TabIndex = 1
|
|
Top = 60
|
|
Width = 2475
|
|
End
|
|
End
|
|
Attribute VB_Name = "frmIntro"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
Option Explicit
|
|
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
|
|
'
|
|
' Copyright (C) 1999-2001 Microsoft Corporation. All Rights Reserved.
|
|
'
|
|
' File: frmIntro.frm
|
|
'
|
|
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
|
|
|
|
Private Sub cmdMulti_Click()
|
|
|
|
Dim StagingArea As New frmStage
|
|
'Oh good, we want to play a multiplayer game.
|
|
'First lets get the dplay connection started
|
|
|
|
'Here we will init our DPlay objects
|
|
InitDPlay
|
|
Set DPlayEventsForm = New DPlayConnect
|
|
Load StagingArea
|
|
EnableButtons False
|
|
'We only want to have a maximum of 4 players
|
|
If Not DPlayEventsForm.StartConnectWizard(dx, dpp, AppGuid, 4, StagingArea) Then
|
|
Cleanup
|
|
EnableButtons True
|
|
Else 'We did choose to play a game
|
|
gsUserName = DPlayEventsForm.UserName
|
|
Me.Hide
|
|
StagingArea.Show vbModeless
|
|
gfHost = DPlayEventsForm.IsHost
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub cmdSingle_Click()
|
|
'We don't want to use DPlay, close down our objects
|
|
Cleanup
|
|
gbNumPlayers = 1
|
|
EnableButtons False
|
|
Me.Hide
|
|
frmGameBoard.Show
|
|
End Sub
|
|
|
|
Private Sub Form_Unload(Cancel As Integer)
|
|
Cleanup
|
|
End
|
|
End Sub
|
|
|
|
Public Sub EnableButtons(ByVal fEnable As Boolean)
|
|
cmdMulti.Enabled = fEnable
|
|
cmdSingle.Enabled = fEnable
|
|
End Sub
|