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:
2025-11-29 16:24:34 +09:00
commit e067522598
5135 changed files with 1745744 additions and 0 deletions

View File

@@ -0,0 +1,43 @@
VERSION 5.00
Begin VB.UserControl SubClasser
CanGetFocus = 0 'False
ClientHeight = 495
ClientLeft = 0
ClientTop = 0
ClientWidth = 510
HasDC = 0 'False
InvisibleAtRuntime= -1 'True
Picture = "SubClasser.ctx":0000
ScaleHeight = 495
ScaleWidth = 510
ToolboxBitmap = "SubClasser.ctx":0442
End
Attribute VB_Name = "SubClasser"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Private mlHwnd As Long
Private mfNeedUnhook As Boolean
Public Event WindowsMessage(ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
Public Sub Hook(ByVal hWnd As Long)
mlHwnd = hWnd
modWndProc.Hook mlHwnd, Me
mfNeedUnhook = True
End Sub
Public Sub UnHook()
modWndProc.UnHook mlHwnd
mfNeedUnhook = False
End Sub
Friend Sub GotMessage(ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
RaiseEvent WindowsMessage(uMsg, wParam, lParam)
End Sub
Private Sub UserControl_Terminate()
If mfNeedUnhook Then UnHook
End Sub

View File

@@ -0,0 +1,27 @@
Attribute VB_Name = "modWndProc"
Option Explicit
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Const GWL_WNDPROC = -4
Public lpPrevWndProc As Long
Private moControl As SubClasser
Public Sub Hook(ByVal lHwnd As Long, oCon As SubClasser)
lpPrevWndProc = SetWindowLong(lHwnd, GWL_WNDPROC, AddressOf WindowProc)
Set moControl = oCon
End Sub
Public Sub UnHook(ByVal lHwnd As Long)
Dim lngReturnValue As Long
lngReturnValue = SetWindowLong(lHwnd, GWL_WNDPROC, lpPrevWndProc)
End Sub
Function WindowProc(ByVal hw As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
moControl.GotMessage uMsg, wParam, lParam
WindowProc = CallWindowProc(lpPrevWndProc, hw, uMsg, wParam, lParam)
End Function

View File

@@ -0,0 +1,35 @@
Type=Control
UserControl=SubClasser.ctl
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#stdole2.tlb#OLE Automation
Module=modWndProc; modWndProc.bas
Startup="(None)"
HelpFile=""
ExeName32="vb_SubClass.ocx"
Command32=""
Name="vbSubClass"
HelpContextID="0"
CompatibleMode="2"
CompatibleEXE32="vb_SubClass.bcf"
VersionCompatible32="1"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
VersionCompanyName="Microsoft"
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=1
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1
ThreadingModel=1