VERSION 5.00
Begin VB.Form frmOptions 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Trivia: Keyword Options"
   ClientHeight    =   3795
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4725
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3795
   ScaleWidth      =   4725
   StartUpPosition =   1  'CenterOwner
   Begin VB.Frame Frame1 
      Height          =   3705
      Left            =   45
      TabIndex        =   0
      Top             =   45
      Width           =   4605
      Begin VB.CommandButton cmdSaveClose 
         Caption         =   "Save && Close"
         Height          =   330
         Left            =   90
         TabIndex        =   17
         Top             =   3285
         Width           =   4425
      End
      Begin VB.Frame frameKeys 
         Caption         =   "Keywords"
         Height          =   2445
         Left            =   90
         TabIndex        =   3
         Top             =   765
         Width           =   4425
         Begin VB.TextBox txtGPM 
            Height          =   285
            Left            =   2835
            TabIndex        =   9
            Text            =   "guypoint-"
            Top             =   1665
            Width           =   1500
         End
         Begin VB.TextBox txtAQ 
            Height          =   285
            Left            =   2835
            TabIndex        =   8
            Text            =   "???"
            Top             =   2025
            Width           =   1500
         End
         Begin VB.TextBox txtGPP 
            Height          =   285
            Left            =   2835
            TabIndex        =   7
            Text            =   "guypoint+"
            Top             =   1305
            Width           =   1500
         End
         Begin VB.TextBox txtAGPP 
            Height          =   285
            Left            =   2835
            TabIndex        =   6
            Text            =   "girlpoint+"
            Top             =   585
            Width           =   1500
         End
         Begin VB.TextBox txtAGPM 
            Height          =   285
            Left            =   2835
            TabIndex        =   5
            Text            =   "girlpoint-"
            Top             =   945
            Width           =   1500
         End
         Begin VB.TextBox txtAScores 
            Height          =   285
            Left            =   2835
            TabIndex        =   4
            Text            =   "scores.."
            Top             =   225
            Width           =   1500
         End
         Begin VB.Label lblQuestion 
            Caption         =   "Question:"
            Height          =   195
            Left            =   1935
            TabIndex        =   16
            Top             =   2070
            Width           =   870
         End
         Begin VB.Label lblGuyPointMinus 
            Caption         =   "Guy Point - :"
            Height          =   195
            Left            =   1935
            TabIndex        =   15
            Top             =   1710
            Width           =   870
         End
         Begin VB.Label lblGuyPointPlus 
            Caption         =   "Guy Point+ :"
            Height          =   195
            Left            =   1935
            TabIndex        =   14
            Top             =   1350
            Width           =   870
         End
         Begin VB.Label lblAutoDesc 
            Caption         =   $"frmOptions.frx":0000
            BeginProperty Font 
               Name            =   "Small Fonts"
               Size            =   6.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   2130
            Left            =   135
            TabIndex        =   13
            Top             =   225
            Width           =   1725
         End
         Begin VB.Label lblGirlPointMinus 
            Caption         =   "Girl Point - :"
            Height          =   195
            Left            =   1935
            TabIndex        =   12
            Top             =   990
            Width           =   870
         End
         Begin VB.Label lblGirlPointPlus 
            Caption         =   "Girl Point+ :"
            Height          =   195
            Left            =   1935
            TabIndex        =   11
            Top             =   630
            Width           =   870
         End
         Begin VB.Label lblAScores 
            Caption         =   "Scores:"
            Height          =   195
            Left            =   1935
            TabIndex        =   10
            Top             =   270
            Width           =   870
         End
      End
      Begin VB.Frame frameKWEnabled 
         Caption         =   "Alias Options"
         Height          =   600
         Left            =   90
         TabIndex        =   1
         Top             =   135
         Width           =   4425
         Begin VB.CheckBox chkKWEnabled 
            Caption         =   "Use Keyword Command Automation Procedure"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   240
            Left            =   90
            TabIndex        =   2
            Top             =   225
            Width           =   4290
         End
      End
   End
End
Attribute VB_Name = "frmOptions"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdSaveClose_Click()
'SaveSetting "TriviaBot", "Keywords", "chkKWEnabled", chkKWEnabled.Value
SaveSetting "TriviaBot", "Keywords", "chkKWEnabled", chkKWEnabled.Value

SaveSetting "TriviaBot", "Keywords", "txtGPP", txtGPP.text
SaveSetting "TriviaBot", "Keywords", "txtGPM", txtGPM.text
SaveSetting "TriviaBot", "Keywords", "txtAGPP", txtAGPP.text
SaveSetting "TriviaBot", "Keywords", "txtAGPM", txtAGPM.text
SaveSetting "TriviaBot", "Keywords", "txtAScores", txtAScores.text
SaveSetting "TriviaBot", "Keywords", "txtAQ", txtAQ.text

'SaveSetting "TriviaBot", "Keywords", "chkKWEnabled", chkKWEnabled.Value

End Sub

Private Sub Form_Load()
Dim X As String
'chkKWEnabled.Value = Val(GetSetting("TriviaBot", "Keywords", "chkKWEnabled"))
chkKWEnabled.Value = Val(GetSetting("TriviaBot", "Keywords", "chkKWEnabled"))

txtGPP.text = GetSetting("TriviaBot", "Keywords", "txtGPP")
txtGPM.text = GetSetting("TriviaBot", "Keywords", "txtGPM")
txtGPP.text = GetSetting("TriviaBot", "Keywords", "txtAGPP")
txtGPP.text = GetSetting("TriviaBot", "Keywords", "txtAGPM")
txtAQ.text = GetSetting("TriviaBot", "Keywords", "txtAQ")
txtAScores.text = GetSetting("TriviaBot", "Keywords", "txtAScores")

End Sub