VERSION 5.00 Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX" Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX" Begin VB.Form frmGSettings Caption = " Game Settings" ClientHeight = 3120 ClientLeft = 60 ClientTop = 345 ClientWidth = 5115 Icon = "frmGSettings.frx":0000 LinkTopic = "Form1" ScaleHeight = 3120 ScaleWidth = 5115 StartUpPosition = 1 'CenterOwner Begin MSComDlg.CommonDialog cdfile Left = 2925 Top = 1500 _ExtentX = 847 _ExtentY = 847 _Version = 393216 CancelError = -1 'True DefaultExt = "exe" DialogTitle = "Locate Browser Executable" Filter = "Executable (*.exe)|*.exe" End Begin VB.CommandButton cbFile Caption = "..." BeginProperty Font Name = "Verdana" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 330 Left = 4710 TabIndex = 14 Top = 2325 Width = 345 End Begin VB.TextBox txtBrowserFilename BeginProperty Font Name = "Verdana" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 300 Left = 150 TabIndex = 12 Top = 2340 Width = 4530 End Begin VB.TextBox txtTabLength BeginProperty Font Name = "Verdana" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 300 Left = 1560 TabIndex = 11 Top = 1545 Width = 615 End Begin VB.TextBox txtColumns BeginProperty Font Name = "Verdana" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 300 Left = 1560 TabIndex = 10 Top = 1155 Width = 615 End Begin VB.CommandButton cbOK Caption = "OK" BeginProperty Font Name = "Verdana" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 3960 TabIndex = 7 Top = 600 Width = 1095 End Begin VB.CommandButton cmdOK Caption = "OK" BeginProperty Font Name = "Verdana" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 5925 TabIndex = 6 Top = 2610 Width = 1095 End Begin VB.CommandButton cbCancel Cancel = -1 'True Caption = "Cancel" BeginProperty Font Name = "Verdana" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 3960 TabIndex = 5 Top = 120 Width = 1095 End Begin MSComCtl2.UpDown udRelease Height = 495 Left = 1380 TabIndex = 4 Top = 60 Width = 240 _ExtentX = 423 _ExtentY = 873 _Version = 393216 Value = 1 AutoBuddy = -1 'True BuddyControl = "txtRelease" BuddyDispid = 196616 OrigLeft = 1590 OrigTop = 1020 OrigRight = 1830 OrigBottom = 1515 Max = 999 Min = 1 SyncBuddy = -1 'True BuddyProperty = 0 Enabled = -1 'True End Begin MSComCtl2.DTPicker dtSerial Height = 360 Left = 1050 TabIndex = 0 Top = 600 Width = 1140 _ExtentX = 2011 _ExtentY = 635 _Version = 393216 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Verdana" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty CustomFormat = "yyMMdd" Format = 57671683 CurrentDate = 36571 End Begin VB.Label Label4 Caption = "Browser Program" BeginProperty Font Name = "Verdana" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Left = 150 TabIndex = 13 Top = 2130 Width = 1860 End Begin VB.Label Label3 Caption = "Tab Length" BeginProperty Font Name = "Verdana" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Left = 150 TabIndex = 9 Top = 1605 Width = 1335 End Begin VB.Label Label2 Caption = "Wrap Column" BeginProperty Font Name = "Verdana" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Left = 150 TabIndex = 8 Top = 1200 Width = 1335 End Begin VB.Label txtRelease Alignment = 2 'Center Caption = "1" BeginProperty Font Name = "Verdana" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 270 Left = 1125 TabIndex = 3 Top = 165 Width = 90 End Begin VB.Label Label1 Caption = "Serial" BeginProperty Font Name = "Verdana" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Left = 150 TabIndex = 2 Top = 660 Width = 825 End Begin VB.Label lblSN1 Caption = "Release" BeginProperty Font Name = "Verdana" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Left = 150 TabIndex = 1 Top = 180 Width = 825 End End Attribute VB_Name = "frmGSettings" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub cbCancel_Click() Unload Me End Sub Private Sub cbFile_Click() On Error GoTo BFileError cdfile.ShowOpen inf.BrowserFilename = cdfile.FileName txtBrowserFilename.Text = inf.BrowserFilename BFileExit: Exit Sub BFileError: Resume BFileExit End Sub Private Sub cbOk_Click() inf.Modules("Main").Release = txtRelease.Caption inf.Modules("Main").Serial = dtSerial.Value inf.Columns = CLng(txtColumns.Text) inf.BrowserFilename = txtBrowserFilename.Text inf.TabLength = CLng(txtTabLength.Text) SetReg "", "Columns", inf.Columns SetReg "", "TabLength", inf.TabLength SetReg "", "BrowserFilename", inf.BrowserFilename Unload Me End Sub Private Sub Form_Load() txtRelease.Caption = inf.Modules("Main").Release dtSerial.Value = inf.Modules("Main").Serial txtBrowserFilename.Text = inf.BrowserFilename txtColumns.Text = inf.Columns txtTabLength.Text = inf.TabLength End Sub