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,290 @@
|
||||
VERSION 5.00
|
||||
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
|
||||
Begin VB.Form frmSplash
|
||||
BorderStyle = 3 'Fixed Dialog
|
||||
Caption = "vb Air Hockey"
|
||||
ClientHeight = 5400
|
||||
ClientLeft = 45
|
||||
ClientTop = 330
|
||||
ClientWidth = 7200
|
||||
Icon = "frmSplash.frx":0000
|
||||
LinkTopic = "Form1"
|
||||
MaxButton = 0 'False
|
||||
MinButton = 0 'False
|
||||
ScaleHeight = 5400
|
||||
ScaleWidth = 7200
|
||||
StartUpPosition = 3 'Windows Default
|
||||
Begin VB.Frame Frame1
|
||||
Caption = "Options"
|
||||
Height = 2115
|
||||
Left = 60
|
||||
TabIndex = 5
|
||||
Top = 720
|
||||
Width = 7095
|
||||
Begin VB.CommandButton cmdAudio
|
||||
Caption = "&Audio Options..."
|
||||
Height = 375
|
||||
Left = 5040
|
||||
TabIndex = 15
|
||||
Top = 1560
|
||||
Width = 1815
|
||||
End
|
||||
Begin VB.CommandButton cmdInput
|
||||
Caption = "&Input Options..."
|
||||
Height = 375
|
||||
Left = 5040
|
||||
TabIndex = 14
|
||||
Top = 1080
|
||||
Width = 1815
|
||||
End
|
||||
Begin VB.CommandButton cmdGraphicsOptions
|
||||
Caption = "&Graphics Options..."
|
||||
Height = 375
|
||||
Left = 5040
|
||||
TabIndex = 13
|
||||
Top = 600
|
||||
Width = 1815
|
||||
End
|
||||
Begin MSComctlLib.Slider sldSpeed
|
||||
Height = 255
|
||||
Left = 150
|
||||
TabIndex = 7
|
||||
Top = 870
|
||||
Width = 2055
|
||||
_ExtentX = 3625
|
||||
_ExtentY = 450
|
||||
_Version = 393216
|
||||
LargeChange = 50
|
||||
SmallChange = 5
|
||||
Min = 10
|
||||
Max = 1000
|
||||
SelStart = 10
|
||||
TickFrequency = 100
|
||||
Value = 10
|
||||
End
|
||||
Begin MSComctlLib.Slider sldScore
|
||||
Height = 255
|
||||
Left = 150
|
||||
TabIndex = 8
|
||||
Top = 1470
|
||||
Width = 2055
|
||||
_ExtentX = 3625
|
||||
_ExtentY = 450
|
||||
_Version = 393216
|
||||
LargeChange = 3
|
||||
Min = 2
|
||||
Max = 20
|
||||
SelStart = 10
|
||||
TickFrequency = 2
|
||||
Value = 10
|
||||
End
|
||||
Begin MSComctlLib.Slider sldPaddleMass
|
||||
Height = 255
|
||||
Left = 2310
|
||||
TabIndex = 10
|
||||
Top = 870
|
||||
Width = 2055
|
||||
_ExtentX = 3625
|
||||
_ExtentY = 450
|
||||
_Version = 393216
|
||||
LargeChange = 50
|
||||
SmallChange = 5
|
||||
Min = 50
|
||||
Max = 300
|
||||
SelStart = 50
|
||||
TickFrequency = 20
|
||||
Value = 50
|
||||
End
|
||||
Begin VB.Label Label3
|
||||
BackStyle = 0 'Transparent
|
||||
Caption = $"frmSplash.frx":000C
|
||||
Height = 435
|
||||
Left = 60
|
||||
TabIndex = 12
|
||||
Top = 180
|
||||
Width = 6930
|
||||
End
|
||||
Begin VB.Label Label2
|
||||
BackStyle = 0 'Transparent
|
||||
Caption = "Paddle Mass"
|
||||
Height = 255
|
||||
Index = 2
|
||||
Left = 2430
|
||||
TabIndex = 11
|
||||
Top = 630
|
||||
Width = 3615
|
||||
End
|
||||
Begin VB.Label Label2
|
||||
BackStyle = 0 'Transparent
|
||||
Caption = "Winning Score"
|
||||
Height = 255
|
||||
Index = 1
|
||||
Left = 270
|
||||
TabIndex = 9
|
||||
Top = 1230
|
||||
Width = 1215
|
||||
End
|
||||
Begin VB.Label Label2
|
||||
BackStyle = 0 'Transparent
|
||||
Caption = "Game Speed"
|
||||
Height = 255
|
||||
Index = 0
|
||||
Left = 270
|
||||
TabIndex = 6
|
||||
Top = 630
|
||||
Width = 1215
|
||||
End
|
||||
End
|
||||
Begin VB.CommandButton cmdExit
|
||||
Cancel = -1 'True
|
||||
Caption = "Exit Game"
|
||||
Height = 375
|
||||
Left = 5220
|
||||
TabIndex = 2
|
||||
Top = 4860
|
||||
Width = 1815
|
||||
End
|
||||
Begin VB.CommandButton cmdSingle
|
||||
Caption = "&Single Player Game..."
|
||||
Height = 375
|
||||
Left = 5220
|
||||
TabIndex = 0
|
||||
Top = 4020
|
||||
Width = 1815
|
||||
End
|
||||
Begin VB.CommandButton cmdMulti
|
||||
Caption = "&Multiplayer Game..."
|
||||
Height = 375
|
||||
Left = 5220
|
||||
TabIndex = 1
|
||||
Top = 4440
|
||||
Width = 1815
|
||||
End
|
||||
Begin VB.Label lblText
|
||||
BackStyle = 0 'Transparent
|
||||
Caption = "Label2"
|
||||
ForeColor = &H80000008&
|
||||
Height = 2340
|
||||
Left = 180
|
||||
TabIndex = 4
|
||||
Top = 2895
|
||||
Width = 4920
|
||||
End
|
||||
Begin VB.Label Label1
|
||||
Alignment = 2 'Center
|
||||
BackStyle = 0 'Transparent
|
||||
Caption = "Visual Basic Air Hockey"
|
||||
BeginProperty Font
|
||||
Name = "Comic Sans MS"
|
||||
Size = 21.75
|
||||
Charset = 0
|
||||
Weight = 700
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
ForeColor = &H000000FF&
|
||||
Height = 675
|
||||
Left = 120
|
||||
TabIndex = 3
|
||||
Top = 0
|
||||
Width = 6915
|
||||
End
|
||||
End
|
||||
Attribute VB_Name = "frmSplash"
|
||||
Attribute VB_GlobalNameSpace = False
|
||||
Attribute VB_Creatable = False
|
||||
Attribute VB_PredeclaredId = True
|
||||
Attribute VB_Exposed = False
|
||||
Option Explicit
|
||||
Dim fStartingGame As Boolean
|
||||
|
||||
Private Sub cmdAudio_Click()
|
||||
'Here we will allow the changing of the audio options.
|
||||
'Load the options screen
|
||||
frmAudio.Show vbModal, Me
|
||||
End Sub
|
||||
|
||||
Private Sub cmdExit_Click()
|
||||
'Quit the game
|
||||
Unload Me
|
||||
End Sub
|
||||
|
||||
Private Sub cmdGraphicsOptions_Click()
|
||||
'Here we will allow the changing of the graphics options.
|
||||
'Load the options screen
|
||||
frmGraphics.Show vbModal, Me
|
||||
End Sub
|
||||
|
||||
Private Sub cmdInput_Click()
|
||||
'Here we will allow the changing of the input options.
|
||||
'Load the options screen
|
||||
frmInput.Show vbModal, Me
|
||||
End Sub
|
||||
|
||||
Private Sub cmdMulti_Click()
|
||||
fStartingGame = True
|
||||
SaveAll
|
||||
gfMultiplayer = True
|
||||
gfGameCanBeStarted = False
|
||||
'Go ahead and load the game
|
||||
frmAir.Show vbModeless
|
||||
End Sub
|
||||
|
||||
Private Sub cmdSingle_Click()
|
||||
fStartingGame = True
|
||||
SaveAll
|
||||
gfMultiplayer = False
|
||||
gfGameCanBeStarted = True
|
||||
'Go ahead and load the game
|
||||
frmAir.Show vbModeless
|
||||
End Sub
|
||||
|
||||
Private Sub Form_Load()
|
||||
gfScored = True
|
||||
|
||||
sldSpeed.Value = CLng(GetSetting(gsKeyName, gsSubKey, "Speed", 780))
|
||||
sldScore.Value = CLng(GetSetting(gsKeyName, gsSubKey, "WinningScore", glDefaultWinningScore))
|
||||
sldPaddleMass.Value = CLng(GetSetting(gsKeyName, gsSubKey, "PaddleMass", 100))
|
||||
|
||||
lblText.Caption = "Options during gameplay:" & vbCrLf & vbCrLf & _
|
||||
"<Space> Start game (launch puck from center)" & vbCrLf & _
|
||||
"<F1> Toggle showing the game room" & vbCrLf & _
|
||||
"<F3> Restart the game after someone has won" & vbCrLf & _
|
||||
"<F4> Toggle the game tables transparency" & vbCrLf & _
|
||||
"<F5> Toggle showing the game table" & vbCrLf & _
|
||||
"<F6> Toggle the paddles transparency" & vbCrLf & _
|
||||
"<V> Scroll through default views" & vbCrLf & _
|
||||
"<W> Toggle wireframe mode" & vbCrLf & vbCrLf & _
|
||||
"Use the right mouse button to get a different view."
|
||||
|
||||
'Init objects and load values
|
||||
LoadObjects
|
||||
End Sub
|
||||
|
||||
Private Sub Form_Unload(Cancel As Integer)
|
||||
If Not fStartingGame Then 'We're not starting, cleanup
|
||||
Set goPuck = Nothing
|
||||
Set goPaddle(0) = Nothing
|
||||
Set goPaddle(1) = Nothing
|
||||
Set goCamera = Nothing
|
||||
Set goTable = Nothing
|
||||
Set goRoom = Nothing
|
||||
Set goInput = Nothing
|
||||
Set goAudio = New cAudio
|
||||
Set goDev = Nothing
|
||||
End
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub SaveAll()
|
||||
gnVelocityDamp = sldSpeed.Value / 1000
|
||||
glUserWinningScore = sldScore.Value
|
||||
gnPaddleMass = sldPaddleMass.Value / 100
|
||||
goPuck.MaximumPuckVelocity = gnVelocityDamp * glMaxPuckSpeedConstant
|
||||
|
||||
SaveSetting gsKeyName, gsSubKey, "Speed", CStr(sldSpeed.Value)
|
||||
SaveSetting gsKeyName, gsSubKey, "WinningScore", CStr(sldScore.Value)
|
||||
SaveSetting gsKeyName, gsSubKey, "PaddleMass", CStr(sldPaddleMass.Value)
|
||||
End Sub
|
||||
|
||||
Reference in New Issue
Block a user