LGram16
e067522598
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>
112 lines
3.4 KiB
Plaintext
112 lines
3.4 KiB
Plaintext
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
|