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>
224 lines
6.7 KiB
Plaintext
224 lines
6.7 KiB
Plaintext
VERSION 5.00
|
|
Begin VB.Form frmBegin
|
|
AutoRedraw = -1 'True
|
|
BorderStyle = 3 'Fixed Dialog
|
|
Caption = "#"
|
|
ClientHeight = 3540
|
|
ClientLeft = 1740
|
|
ClientTop = 1410
|
|
ClientWidth = 7545
|
|
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 = "begin.frx":0000
|
|
LockControls = -1 'True
|
|
MaxButton = 0 'False
|
|
MinButton = 0 'False
|
|
NegotiateMenus = 0 'False
|
|
ScaleHeight = 3540
|
|
ScaleWidth = 7545
|
|
ShowInTaskbar = 0 'False
|
|
Begin VB.CommandButton cmdInstall
|
|
Default = -1 'True
|
|
Height = 1080
|
|
Left = 330
|
|
MaskColor = &H0000FF00&
|
|
Picture = "begin.frx":0442
|
|
Style = 1 'Graphical
|
|
TabIndex = 0
|
|
Top = 510
|
|
UseMaskColor = -1 'True
|
|
Width = 1170
|
|
End
|
|
Begin VB.Frame fraDir
|
|
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 = 660
|
|
Left = 135
|
|
TabIndex = 5
|
|
Top = 2010
|
|
Width = 7296
|
|
Begin VB.CommandButton cmdChDir
|
|
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 = 390
|
|
Left = 4890
|
|
MaskColor = &H00000000&
|
|
TabIndex = 1
|
|
Top = 195
|
|
Width = 2310
|
|
End
|
|
Begin VB.Label lblDestDir
|
|
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 = 240
|
|
Left = 135
|
|
TabIndex = 6
|
|
Top = 300
|
|
Width = 4440
|
|
End
|
|
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 = 2610
|
|
MaskColor = &H00000000&
|
|
TabIndex = 2
|
|
Top = 3030
|
|
Width = 2205
|
|
End
|
|
Begin VB.Line linTopOfExitButtonIfNoDestDir
|
|
Visible = 0 'False
|
|
X1 = 2670
|
|
X2 = 4725
|
|
Y1 = 2280
|
|
Y2 = 2280
|
|
End
|
|
Begin VB.Label lblInstallMsg
|
|
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 = 1725
|
|
TabIndex = 4
|
|
Top = 915
|
|
Width = 5565
|
|
WordWrap = -1 'True
|
|
End
|
|
Begin VB.Label lblBegin
|
|
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 = 192
|
|
Left = 288
|
|
TabIndex = 3
|
|
Top = 132
|
|
Width = 6456
|
|
WordWrap = -1 'True
|
|
End
|
|
End
|
|
Attribute VB_Name = "frmBegin"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
Option Explicit
|
|
|
|
Private Sub cmdChDir_Click()
|
|
ShowPathDialog
|
|
|
|
If gintRetVal = gintRET_CONT Then
|
|
lblDestDir.Caption = gstrDestDir
|
|
cmdInstall.SetFocus
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub cmdExit_Click()
|
|
ExitSetup Me, gintRET_EXIT
|
|
End Sub
|
|
|
|
Private Sub cmdInstall_Click()
|
|
If IsValidDestDir(gstrDestDir) Then
|
|
Unload Me
|
|
DoEvents
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Form_Load()
|
|
Dim intRes As Integer
|
|
Dim yAdjust As Integer
|
|
|
|
SetFormFont Me
|
|
fraDir.Caption = ResolveResString(resFRMDIRECTORY)
|
|
cmdChDir.Caption = ResolveResString(resBTNCHGDIR)
|
|
cmdExit.Caption = ResolveResString(resBTNEXIT)
|
|
lblBegin.Caption = ResolveResString(resLBLBEGIN)
|
|
cmdInstall.ToolTipText = ResolveResString(resBTNTOOLTIPBEGIN)
|
|
|
|
Caption = gstrTitle
|
|
If gfForceUseDefDest Then
|
|
intRes = resSPECNODEST
|
|
Else
|
|
intRes = resSPECDEST
|
|
End If
|
|
lblInstallMsg.Caption = ResolveResString(intRes, gstrPIPE1, gstrAppName)
|
|
lblDestDir.Caption = gstrDestDir
|
|
|
|
If gfForceUseDefDest Then
|
|
'We are forced to use the default destination directory, so the user
|
|
' will not be able to change it.
|
|
fraDir.Visible = False
|
|
|
|
'Close in the blank space on the form by moving the Exit button to where this frame
|
|
'currently is, and adjusting the size of the form respectively
|
|
yAdjust = cmdExit.Top - linTopOfExitButtonIfNoDestDir.Y1
|
|
cmdExit.Top = cmdExit.Top - yAdjust
|
|
Height = Height - yAdjust
|
|
End If
|
|
EtchedLine Me, fraDir.Left, cmdExit.Top - cmdExit.Height \ 2, fraDir.Width
|
|
|
|
CenterForm Me
|
|
End Sub
|
|
|
|
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
|
|
HandleFormQueryUnload UnloadMode, Cancel, Me
|
|
End Sub
|