VERSION 5.00
Begin VB.Form MainWindow 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "SFC:OP Mod Chooser 6.0"
   ClientHeight    =   4470
   ClientLeft      =   10575
   ClientTop       =   5685
   ClientWidth     =   5190
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4470
   ScaleWidth      =   5190
   StartUpPosition =   2  'CenterScreen
   Begin VB.OptionButton CustomMod3 
      Caption         =   "Custom Mod #3"
      Enabled         =   0   'False
      Height          =   255
      Left            =   1680
      TabIndex        =   10
      Top             =   2880
      Width           =   1935
   End
   Begin VB.CommandButton Quit 
      Caption         =   "Exit"
      Height          =   375
      Left            =   3360
      TabIndex        =   8
      Top             =   3840
      Width           =   1215
   End
   Begin VB.CommandButton Change 
      Caption         =   "Change!"
      Height          =   375
      Left            =   600
      TabIndex        =   7
      Top             =   3840
      Width           =   1215
   End
   Begin VB.OptionButton CustomMod4 
      Caption         =   "Custom Mod #4"
      Enabled         =   0   'False
      Height          =   255
      Left            =   1680
      TabIndex        =   3
      Top             =   3120
      Width           =   1695
   End
   Begin VB.OptionButton CustomMod2 
      Caption         =   "Custom Mod #2"
      Enabled         =   0   'False
      Height          =   255
      Left            =   1680
      TabIndex        =   2
      Top             =   2640
      Width           =   1935
   End
   Begin VB.OptionButton CustomMod1 
      Caption         =   "Custom Mod #1"
      Enabled         =   0   'False
      Height          =   255
      Left            =   1680
      TabIndex        =   1
      Top             =   2400
      Width           =   1815
   End
   Begin VB.OptionButton Taldren 
      Caption         =   "Taldren's Original"
      Height          =   255
      Left            =   1680
      TabIndex        =   0
      Top             =   2160
      Width           =   1695
   End
   Begin VB.Frame Frame1 
      Caption         =   "SFC:OP Mod Chooser 6.0"
      Height          =   1335
      Left            =   360
      TabIndex        =   5
      Top             =   120
      Width           =   4455
      Begin VB.TextBox Text1 
         Height          =   975
         Left            =   120
         Locked          =   -1  'True
         MultiLine       =   -1  'True
         TabIndex        =   6
         Text            =   "specschooserform65.frx":0000
         Top             =   240
         Width           =   4215
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "Mods:"
      Height          =   1575
      Left            =   1440
      TabIndex        =   4
      Top             =   1920
      Width           =   2295
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Height          =   255
      Left            =   360
      TabIndex        =   9
      Top             =   1560
      Width           =   4335
   End
End
Attribute VB_Name = "MainWindow"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'VERSION 6.0

Private Sub Form_Load()
' Detect if any files for the Custom Mods option are avialible for use. If not, option is disabled.
If FileExists(OPDir & "\SFCOP Mod Chooser\Bin\Cmod1\Specs\shiplist.txt") Then
    If FileExists(OPDir & "\SFCOP Mod Chooser\Bin\Cmod1\Specs\ftrlist.txt") Then
        CustomMod1.Enabled = True
    End If
End If
If FileExists(OPDir & "\SFCOP Mod Chooser\Bin\Cmod2\Specs\shiplist.txt") Then
    If FileExists(OPDir & "\SFCOP Mod Chooser\Bin\Cmod2\Specs\ftrlist.txt") Then
        CustomMod2.Enabled = True
    End If
End If
If FileExists(OPDir & "\SFCOP Mod Chooser\Bin\Cmod3\Specs\shiplist.txt") Then
    If FileExists(OPDir & "\SFCOP Mod Chooser\Bin\Cmod3\Specs\ftrlist.txt") Then
        CustomMod3.Enabled = True
    End If
End If
If FileExists(OPDir & "\SFCOP Mod Chooser\Bin\Cmod4\Specs\shiplist.txt") Then
    If FileExists(OPDir & "\SFCOP Mod Chooser\Bin\Cmod4\Specs\ftrlist.txt") Then
        CustomMod4.Enabled = True
    End If
End If

' Determines what ship specs are loaded and disable radio button if it's specs are already in use, and displays
' in text above selcetion box what specs are laoded.
If Current_Loaded_Specs = "Taldren" Then
     stringCurrentSpecs = "Taldren's 2552"
     Taldren.Enabled = False
End If
If Current_Loaded_Specs = "CMod1" Then
     stringCurrentSpecs = CMod1_Name
     CustomMod1.Enabled = False
End If
If Current_Loaded_Specs = "CMod2" Then
     stringCurrentSpecs = CMod2_Name
     CustomMod2.Enabled = False
End If
If Current_Loaded_Specs = "CMod3" Then
     stringCurrentSpecs = CMod3_Name
     CustomMod3.Enabled = False
End If
If Current_Loaded_Specs = "CMod4" Then
     stringCurrentSpecs = CMod4_Name
     CustomMod4.Enabled = False
End If

CustomMod1.Caption = CMod1_Name
CustomMod2.Caption = CMod2_Name
CustomMod3.Caption = CMod3_Name
CustomMod4.Caption = CMod4_Name

'  Displays to user what ship specs are loaded.  Variable stringCurrentSpecs is derived from above if statements
Label1.Caption = "The Current Ship Specs Loaded: " & stringCurrentSpecs

End Sub
Private Sub Change_Click()
' Commands for Change! button.  Determins what radio button is selected when Change! button is hit, and runs
' appropriate function
If Taldren = True Then
    Call Conversion("Taldren", "Taldren's 2552", False, False, False, False, False)
    Exit Sub
End If
If CustomMod1 = True Then
    Call Conversion("CMod1", CMod1_Name, CMod1_Sounds, CMod1_Cursors, CMod1_Textures, CMod1_GFs, CMod1_Strings)
    Exit Sub
End If
If CustomMod2 = True Then
    Call Conversion("CMod2", CMod2_Name, CMod2_Sounds, CMod2_Cursors, CMod2_Textures, CMod2_GFs, CMod2_Strings)
    Exit Sub
End If
If CustomMod3 = True Then
    Call Conversion("CMod3", CMod3_Name, CMod3_Sounds, CMod3_Cursors, CMod3_Textures, CMod3_GFs, CMod3_Strings)
    Exit Sub
End If
If CustomMod4 = True Then
    Call Conversion("CMod4", CMod4_Name, CMod4_Sounds, CMod4_Cursors, CMod4_Textures, CMod4_GFs, CMod4_Strings)
    Exit Sub
End If
End Sub


Private Sub Quit_Click()
'  Button, Closes the Program
End
End Sub






