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>
2025-11-29 16:24:34 +09:00
commit e067522598
5135 changed files with 1745744 additions and 0 deletions
--- a/Library/dxx8/samples/Multimedia/VBSamples/Demos/AirHockey/frmGraphics.frm
+++ b/Library/dxx8/samples/Multimedia/VBSamples/Demos/AirHockey/frmGraphics.frm
@@ -0,0 +1,177 @@
+VERSION 5.00
+Begin VB.Form frmGraphics 
+   BorderStyle     =   4  'Fixed ToolWindow
+   Caption         =   "Graphic Options"
+   ClientHeight    =   3360
+   ClientLeft      =   45
+   ClientTop       =   285
+   ClientWidth     =   6405
+   LinkTopic       =   "Form1"
+   MaxButton       =   0   'False
+   MinButton       =   0   'False
+   ScaleHeight     =   3360
+   ScaleWidth      =   6405
+   ShowInTaskbar   =   0   'False
+   StartUpPosition =   1  'CenterOwner
+   Begin VB.CommandButton cmdOk 
+      Caption         =   "OK"
+      Default         =   -1  'True
+      Height          =   375
+      Left            =   5340
+      TabIndex        =   0
+      Top             =   2880
+      Width           =   975
+   End
+   Begin VB.CommandButton cmdCancel 
+      Cancel          =   -1  'True
+      Caption         =   "Cancel"
+      Height          =   375
+      Left            =   4260
+      TabIndex        =   5
+      Top             =   2880
+      Width           =   975
+   End
+   Begin VB.Frame Frame1 
+      Caption         =   "Options"
+      Height          =   2655
+      Left            =   60
+      TabIndex        =   6
+      Top             =   120
+      Width           =   6255
+      Begin VB.CommandButton cmdChgMode 
+         Caption         =   "Change..."
+         Height          =   315
+         Left            =   180
+         TabIndex        =   1
+         Top             =   900
+         Width           =   1575
+      End
+      Begin VB.OptionButton optOffice 
+         Caption         =   "Office Lobby (Less detailed, higher performance)"
+         Height          =   255
+         Left            =   120
+         TabIndex        =   4
+         Top             =   2280
+         Width           =   4935
+      End
+      Begin VB.OptionButton optGame 
+         Caption         =   "Game Room (More detailed, lower performance)"
+         Height          =   255
+         Left            =   120
+         TabIndex        =   3
+         Top             =   1980
+         Value           =   -1  'True
+         Width           =   4935
+      End
+      Begin VB.CheckBox chkDrawRoom 
+         Caption         =   "Display the room where the game is taking place."
+         Height          =   315
+         Left            =   120
+         TabIndex        =   2
+         Top             =   1260
+         Width           =   4095
+      End
+      Begin VB.Label lblMode 
+         BackStyle       =   0  'Transparent
+         BorderStyle     =   1  'Fixed Single
+         Caption         =   "Label1"
+         Height          =   255
+         Left            =   1245
+         TabIndex        =   10
+         Top             =   570
+         Width           =   4815
+      End
+      Begin VB.Label Label2 
+         BackStyle       =   0  'Transparent
+         Caption         =   "Display Mode"
+         Height          =   255
+         Index           =   2
+         Left            =   180
+         TabIndex        =   9
+         Top             =   600
+         Width           =   1095
+      End
+      Begin VB.Label lblRoom 
+         BackStyle       =   0  'Transparent
+         Caption         =   "If the room is displayed, what type of room should be displayed?"
+         Height          =   255
+         Left            =   120
+         TabIndex        =   8
+         Top             =   1680
+         Width           =   4635
+      End
+      Begin VB.Label Label2 
+         BackStyle       =   0  'Transparent
+         Caption         =   "You can control different options here to improve graphic quality, or performance"
+         Height          =   255
+         Index           =   0
+         Left            =   120
+         TabIndex        =   7
+         Top             =   240
+         Width           =   6015
+      End
+   End
+End
+Attribute VB_Name = "frmGraphics"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+Option Explicit
+
+Private Sub chkDrawRoom_Click()
+    EnableRoomInfo (chkDrawRoom.Value = vbChecked)
+End Sub
+
+Private Sub cmdCancel_Click()
+    Unload Me
+End Sub
+
+Private Sub cmdChgMode_Click()
+    goDev.Show vbModal
+    'Now that we've potentially changed modes, update them
+    If goDev.Windowed Then
+        lblMode.Caption = "Windowed mode"
+    Else
+        lblMode.Caption = goDev.ModeString
+    End If
+End Sub
+
+Private Sub cmdOk_Click()
+    SaveAudioSettings
+    Unload Me
+End Sub
+
+Private Sub Form_Load()
+    'Now update the display
+    chkDrawRoom.Value = Abs(goRoom.DrawRoom)
+    optGame.Value = goRoom.BarRoom
+    optOffice.Value = Not goRoom.BarRoom
+    If goDev.Windowed Then
+        lblMode.Caption = "Windowed mode"
+    Else
+        lblMode.Caption = goDev.ModeString
+    End If
+    EnableRoomInfo (chkDrawRoom.Value = vbChecked)
+End Sub
+
+Private Sub SaveAudioSettings()
+    goRoom.DrawRoom = (chkDrawRoom.Value = vbChecked)
+    goRoom.BarRoom = optGame.Value
+End Sub
+
+Private Sub Form_Unload(Cancel As Integer)
+    'We're leaving the form, save the settings
+    SaveSetting gsKeyName, gsSubKey, "DrawRoom", goRoom.DrawRoom
+    SaveSetting gsKeyName, gsSubKey, "RoomIsBarRoom", goRoom.BarRoom
+    SaveSetting gsKeyName, gsSubKeyGraphics, "Windowed", goDev.Windowed
+    SaveSetting gsKeyName, gsSubKeyGraphics, "AdapterID", goDev.Adapter
+    SaveSetting gsKeyName, gsSubKeyGraphics, "Mode", goDev.Mode
+    
+End Sub
+
+Private Sub EnableRoomInfo(ByVal fEnable As Boolean)
+    lblRoom.Enabled = fEnable
+    optGame.Enabled = fEnable
+    optOffice.Enabled = fEnable
+End Sub