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,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
|
||||
Binary file not shown.
@@ -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
|
||||
|
||||
|
||||
Binary file not shown.
@@ -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
|
||||
Reference in New Issue
Block a user