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,111 @@
|
||||
VERSION 5.00
|
||||
Begin VB.Form frmTransferRequest
|
||||
BorderStyle = 3 'Fixed Dialog
|
||||
Caption = "Receiving a file transfer...."
|
||||
ClientHeight = 975
|
||||
ClientLeft = 45
|
||||
ClientTop = 330
|
||||
ClientWidth = 4680
|
||||
ControlBox = 0 'False
|
||||
LinkTopic = "Form1"
|
||||
MaxButton = 0 'False
|
||||
MinButton = 0 'False
|
||||
ScaleHeight = 975
|
||||
ScaleWidth = 4680
|
||||
StartUpPosition = 3 'Windows Default
|
||||
Begin VB.CommandButton cmdReject
|
||||
Cancel = -1 'True
|
||||
Caption = "Reject"
|
||||
Height = 315
|
||||
Left = 3420
|
||||
TabIndex = 3
|
||||
Top = 120
|
||||
Width = 1155
|
||||
End
|
||||
Begin VB.CommandButton cmdAccept
|
||||
Caption = "Accept"
|
||||
Default = -1 'True
|
||||
Height = 315
|
||||
Left = 3420
|
||||
TabIndex = 2
|
||||
Top = 540
|
||||
Width = 1155
|
||||
End
|
||||
Begin VB.Label lblFriend
|
||||
BackStyle = 0 'Transparent
|
||||
Height = 195
|
||||
Left = 720
|
||||
TabIndex = 1
|
||||
Top = 420
|
||||
Width = 2115
|
||||
End
|
||||
Begin VB.Label Label1
|
||||
BackStyle = 0 'Transparent
|
||||
Caption = "You are receiving a file transfer from"
|
||||
Height = 195
|
||||
Left = 720
|
||||
TabIndex = 0
|
||||
Top = 180
|
||||
Width = 2115
|
||||
End
|
||||
Begin VB.Image Image1
|
||||
Height = 480
|
||||
Left = 120
|
||||
Picture = "frmTransferReq.frx":0000
|
||||
Top = 180
|
||||
Width = 480
|
||||
End
|
||||
End
|
||||
Attribute VB_Name = "frmTransferRequest"
|
||||
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: frmTransferReq.frm
|
||||
'
|
||||
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
|
||||
Private msFile As String
|
||||
Private mlUnique As Long
|
||||
Private mlPlayerID As Long
|
||||
|
||||
Private moForm As frmNetwork
|
||||
|
||||
Public Sub SetupRequest(oForm As frmNetwork, ByVal sPlayerName As String, ByVal sFileName As String, ByVal lUniqueID As Long, ByVal lPlayer As Long)
|
||||
Set moForm = oForm
|
||||
msFile = sFileName
|
||||
mlUnique = lUniqueID
|
||||
mlPlayerID = lPlayer
|
||||
lblFriend.Caption = sPlayerName & " (" & sFileName & ")"
|
||||
End Sub
|
||||
|
||||
Private Sub cmdAccept_Click()
|
||||
Dim lMsg As Long, lOffset As Long
|
||||
Dim oBuf() As Byte
|
||||
|
||||
'Accept this connection
|
||||
lMsg = MsgSendFileAccept
|
||||
lOffset = NewBuffer(oBuf)
|
||||
AddDataToBuffer oBuf, lMsg, LenB(lMsg), lOffset
|
||||
AddDataToBuffer oBuf, mlUnique, LenB(mlUnique), lOffset
|
||||
dpp.SendTo mlPlayerID, oBuf, 0, DPNSEND_NOLOOPBACK
|
||||
Unload Me
|
||||
End Sub
|
||||
|
||||
Private Sub cmdReject_Click()
|
||||
Dim lMsg As Long, lOffset As Long
|
||||
Dim oBuf() As Byte
|
||||
|
||||
'Reject this connection
|
||||
lMsg = MsgSendFileDeny
|
||||
lOffset = NewBuffer(oBuf)
|
||||
AddDataToBuffer oBuf, lMsg, LenB(lMsg), lOffset
|
||||
AddDataToBuffer oBuf, mlUnique, LenB(mlUnique), lOffset
|
||||
dpp.SendTo mlPlayerID, oBuf, 0, DPNSEND_NOLOOPBACK
|
||||
moForm.EraseReceiveFile mlUnique
|
||||
Unload Me
|
||||
End Sub
|
||||
Reference in New Issue
Block a user