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>
407 lines
12 KiB
Plaintext
407 lines
12 KiB
Plaintext
VERSION 5.00
|
|
Begin VB.Form frmDskSpace
|
|
AutoRedraw = -1 'True
|
|
BorderStyle = 3 'Fixed Dialog
|
|
Caption = "#"
|
|
ClientHeight = 2550
|
|
ClientLeft = 870
|
|
ClientTop = 1530
|
|
ClientWidth = 5355
|
|
ClipControls = 0 'False
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
HasDC = 0 'False
|
|
Icon = "dskspace.frx":0000
|
|
MaxButton = 0 'False
|
|
MinButton = 0 'False
|
|
NegotiateMenus = 0 'False
|
|
ScaleHeight = 2550
|
|
ScaleWidth = 5355
|
|
ShowInTaskbar = 0 'False
|
|
Begin VB.CommandButton cmdChgDrv
|
|
Caption = "#"
|
|
Default = -1 'True
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 420
|
|
Left = 195
|
|
MaskColor = &H00000000&
|
|
TabIndex = 2
|
|
Top = 1965
|
|
Width = 1560
|
|
End
|
|
Begin VB.CommandButton cmdInstall
|
|
Caption = "#"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 420
|
|
Left = 1875
|
|
MaskColor = &H00000000&
|
|
TabIndex = 1
|
|
Top = 1965
|
|
Width = 1560
|
|
End
|
|
Begin VB.CommandButton cmdExit
|
|
Cancel = -1 'True
|
|
Caption = "#"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 420
|
|
Left = 3570
|
|
MaskColor = &H00000000&
|
|
TabIndex = 0
|
|
Top = 1965
|
|
Width = 1560
|
|
End
|
|
Begin VB.Label lblNoSpace
|
|
AutoSize = -1 'True
|
|
Caption = "#"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 195
|
|
Left = 195
|
|
TabIndex = 11
|
|
Top = 150
|
|
Width = 105
|
|
End
|
|
Begin VB.Shape shpHeading
|
|
BorderColor = &H00000000&
|
|
Height = 480
|
|
Left = 195
|
|
Top = 750
|
|
Width = 4980
|
|
End
|
|
Begin VB.Label lblReqH
|
|
Alignment = 1 'Right Justify
|
|
Caption = "#"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 405
|
|
Left = 810
|
|
TabIndex = 10
|
|
Top = 810
|
|
Width = 1260
|
|
WordWrap = -1 'True
|
|
End
|
|
Begin VB.Label lblNeedH
|
|
Alignment = 1 'Right Justify
|
|
Caption = "#"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 405
|
|
Left = 3885
|
|
TabIndex = 9
|
|
Top = 810
|
|
Width = 1260
|
|
WordWrap = -1 'True
|
|
End
|
|
Begin VB.Label lblAvailH
|
|
Alignment = 1 'Right Justify
|
|
Caption = "#"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 405
|
|
Left = 2355
|
|
TabIndex = 8
|
|
Top = 810
|
|
Width = 1260
|
|
WordWrap = -1 'True
|
|
End
|
|
Begin VB.Label lblDiskH
|
|
AutoSize = -1 'True
|
|
Caption = "#"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 195
|
|
Left = 240
|
|
TabIndex = 7
|
|
Top = 1005
|
|
Width = 105
|
|
End
|
|
Begin VB.Shape shpSpace
|
|
BorderColor = &H00000000&
|
|
Height = 390
|
|
Left = 195
|
|
Top = 1230
|
|
Width = 4980
|
|
End
|
|
Begin VB.Label lblReq
|
|
Alignment = 1 'Right Justify
|
|
BorderStyle = 1 'Fixed Single
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 210
|
|
Index = 0
|
|
Left = 810
|
|
TabIndex = 6
|
|
Top = 1305
|
|
Visible = 0 'False
|
|
Width = 1260
|
|
End
|
|
Begin VB.Label lblNeed
|
|
Alignment = 1 'Right Justify
|
|
BorderStyle = 1 'Fixed Single
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 210
|
|
Index = 0
|
|
Left = 3885
|
|
TabIndex = 5
|
|
Top = 1305
|
|
Visible = 0 'False
|
|
Width = 1260
|
|
End
|
|
Begin VB.Label lblAvail
|
|
Alignment = 1 'Right Justify
|
|
BorderStyle = 1 'Fixed Single
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 210
|
|
Index = 0
|
|
Left = 2340
|
|
TabIndex = 4
|
|
Top = 1305
|
|
Visible = 0 'False
|
|
Width = 1260
|
|
End
|
|
Begin VB.Label lblDisk
|
|
AutoSize = -1 'True
|
|
BorderStyle = 1 'Fixed Single
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 210
|
|
Index = 0
|
|
Left = 240
|
|
TabIndex = 3
|
|
Top = 1305
|
|
Visible = 0 'False
|
|
Width = 510
|
|
End
|
|
End
|
|
Attribute VB_Name = "frmDskSpace"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
Option Explicit
|
|
|
|
Private Const mstrFMT$ = "######0 K"
|
|
|
|
Private Sub cmdChgDrv_Click()
|
|
gintRetVal = gintRET_CANCEL
|
|
Unload Me
|
|
End Sub
|
|
|
|
Private Sub cmdExit_Click()
|
|
ExitSetup Me, gintRET_EXIT
|
|
End Sub
|
|
|
|
Private Sub cmdInstall_Click()
|
|
gintRetVal = gintRET_CONT
|
|
Unload Me
|
|
End Sub
|
|
|
|
Private Sub Form_Load()
|
|
Const ONE_K& = 1024
|
|
|
|
Dim intIdx As Integer
|
|
Dim lAvail As Long
|
|
Dim lReq As Long
|
|
Dim lTmp As Long
|
|
Dim intHeight As Integer
|
|
Dim intTop As Integer
|
|
Dim sDrive As String
|
|
|
|
Dim nCurrentWidth As Single
|
|
Dim nMaxWidth As Single
|
|
|
|
nCurrentWidth = lblDisk(0).Width
|
|
nMaxWidth = nCurrentWidth
|
|
|
|
SetFormFont Me
|
|
cmdExit.Caption = ResolveResString(resBTNEXIT)
|
|
cmdInstall.Caption = ResolveResString(resBTNINSTALLNOW)
|
|
cmdChgDrv.Caption = ResolveResString(resBTNCHGDRV)
|
|
lblDiskH.Caption = ResolveResString(resLBLDRIVE)
|
|
lblAvailH.Caption = ResolveResString(resLBLAVAIL)
|
|
lblNeedH.Caption = ResolveResString(resLBLNEEDED)
|
|
lblReqH.Caption = ResolveResString(resLBLREQUIRED)
|
|
lblNoSpace.Caption = ResolveResString(resLBLNOSPACE)
|
|
frmDskSpace.Caption = gstrTitle
|
|
|
|
intHeight = lblDisk(0).Height * 1.6
|
|
intTop = lblDisk(0).Top
|
|
|
|
'
|
|
'borders are for design mode only...
|
|
'
|
|
lblDisk(0).BorderStyle = vbTransparent
|
|
lblReq(0).BorderStyle = vbTransparent
|
|
lblAvail(0).BorderStyle = vbTransparent
|
|
lblNeed(0).BorderStyle = vbTransparent
|
|
|
|
For intIdx = 1 To DriveCount
|
|
Load lblDisk(intIdx)
|
|
Load lblReq(intIdx)
|
|
Load lblAvail(intIdx)
|
|
Load lblNeed(intIdx)
|
|
|
|
lAvail = gsDiskSpace(intIdx).lAvail
|
|
lReq = gsDiskSpace(intIdx).lReq
|
|
|
|
sDrive = DriveFromDriveIndex(intIdx)
|
|
RemoveDirSep sDrive
|
|
lblDisk(intIdx).Caption = sDrive
|
|
If lblDisk(intIdx).Width > nMaxWidth Then
|
|
nMaxWidth = lblDisk(intIdx).Width
|
|
End If
|
|
lblReq(intIdx).Caption = Format$(lReq / ONE_K, mstrFMT)
|
|
lblAvail(intIdx).Caption = Format$(lAvail / ONE_K, mstrFMT)
|
|
If lReq > lAvail Then
|
|
lTmp = lReq - lAvail
|
|
Else
|
|
lTmp = 0
|
|
End If
|
|
lblNeed(intIdx).Caption = Format$(lTmp / ONE_K, mstrFMT)
|
|
|
|
lblDisk(intIdx).Top = intTop
|
|
lblReq(intIdx).Top = intTop
|
|
lblAvail(intIdx).Top = intTop
|
|
lblNeed(intIdx).Top = intTop
|
|
|
|
intTop = intTop + intHeight
|
|
|
|
lblDisk(intIdx).Visible = True
|
|
lblReq(intIdx).Visible = True
|
|
lblAvail(intIdx).Visible = True
|
|
lblNeed(intIdx).Visible = True
|
|
Next intIdx
|
|
If nMaxWidth <> nCurrentWidth Then
|
|
nMaxWidth = nMaxWidth - nCurrentWidth
|
|
For intIdx = 1 To DriveCount
|
|
lblReq(intIdx).Left = lblReq(intIdx).Left + nMaxWidth
|
|
lblAvail(intIdx).Left = lblAvail(intIdx).Left + nMaxWidth
|
|
lblNeed(intIdx).Left = lblNeed(intIdx).Left + nMaxWidth
|
|
Next intIdx
|
|
lblReqH.Left = lblReqH.Left + nMaxWidth
|
|
lblAvailH.Left = lblAvailH.Left + nMaxWidth
|
|
lblNeedH.Left = lblNeedH.Left + nMaxWidth
|
|
shpHeading.Width = shpHeading.Width + nMaxWidth
|
|
shpSpace.Width = shpSpace.Width + nMaxWidth
|
|
Width = Width + nMaxWidth
|
|
nMaxWidth = nMaxWidth / 3
|
|
cmdChgDrv.Width = cmdChgDrv.Width + nMaxWidth
|
|
cmdInstall.Left = cmdInstall.Left + nMaxWidth
|
|
cmdInstall.Width = cmdInstall.Width + nMaxWidth
|
|
cmdExit.Left = cmdExit.Left + (2 * nMaxWidth)
|
|
cmdExit.Width = cmdExit.Width + nMaxWidth
|
|
End If
|
|
|
|
shpSpace.Height = intHeight * (intIdx - 1)
|
|
|
|
cmdChgDrv.Top = shpSpace.Top + shpSpace.Height + cmdChgDrv.Height
|
|
cmdInstall.Top = cmdChgDrv.Top
|
|
cmdExit.Top = cmdChgDrv.Top
|
|
|
|
frmDskSpace.Height = cmdChgDrv.Top + cmdChgDrv.Height * 2.5
|
|
|
|
EtchedLine Me, 100, cmdChgDrv.Top - cmdChgDrv.Height * 0.5, ScaleWidth - 200
|
|
|
|
CenterForm Me
|
|
End Sub
|
|
|
|
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
|
|
HandleFormQueryUnload UnloadMode, Cancel, Me
|
|
End Sub
|