Initial commit: ROW Client source code
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>
This commit is contained in:
@@ -0,0 +1,98 @@
|
||||
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
|
||||
Reference in New Issue
Block a user