VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Blitzia QuestionMaster 0.14"
   ClientHeight    =   7590
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   8865
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   7590
   ScaleWidth      =   8865
   StartUpPosition =   2  'CenterScreen
   Begin VB.Timer flashTimer 
      Interval        =   600
      Left            =   7080
      Top             =   3600
   End
   Begin VB.CheckBox chkNoReset 
      Appearance      =   0  'Flat
      Caption         =   "Check this to stop clearing lists - use for appending question DBs"
      ForeColor       =   &H80000008&
      Height          =   615
      Left            =   6480
      TabIndex        =   37
      Top             =   6840
      Width           =   2295
   End
   Begin VB.CheckBox chkBackup 
      Appearance      =   0  'Flat
      Caption         =   "Make backup copy of file before loading it - just in case"
      ForeColor       =   &H80000008&
      Height          =   495
      Left            =   6480
      TabIndex        =   36
      Top             =   6240
      Value           =   1  'Checked
      Width           =   2415
   End
   Begin VB.CheckBox chkSaveChanges 
      Appearance      =   0  'Flat
      Caption         =   "Autosave when I make major question changes"
      ForeColor       =   &H80000008&
      Height          =   495
      Left            =   6480
      TabIndex        =   35
      Top             =   5760
      Width           =   2295
   End
   Begin VB.CommandButton cmdWinSize 
      Caption         =   "<<"
      Height          =   330
      Left            =   5760
      TabIndex        =   34
      Top             =   7200
      Width           =   615
   End
   Begin VB.FileListBox File1 
      Appearance      =   0  'Flat
      Height          =   3345
      Left            =   6480
      Pattern         =   "*.db"
      TabIndex        =   33
      Tag             =   "t"
      Top             =   2400
      Width           =   2295
   End
   Begin VB.DirListBox Dir1 
      Appearance      =   0  'Flat
      Height          =   1890
      Left            =   6480
      TabIndex        =   32
      Tag             =   "t"
      Top             =   480
      Width           =   2295
   End
   Begin VB.DriveListBox Drive1 
      Appearance      =   0  'Flat
      Height          =   315
      Left            =   6480
      TabIndex        =   31
      Tag             =   "t"
      Top             =   120
      Width           =   2295
   End
   Begin VB.TextBox txtStatus 
      Appearance      =   0  'Flat
      BackColor       =   &H8000000F&
      BorderStyle     =   0  'None
      Height          =   285
      Left            =   120
      Locked          =   -1  'True
      MousePointer    =   1  'Arrow
      MultiLine       =   -1  'True
      TabIndex        =   21
      Top             =   7270
      Width           =   5535
   End
   Begin VB.Frame Frame2 
      Caption         =   "Answer Editor"
      Height          =   4095
      Left            =   120
      TabIndex        =   23
      Top             =   3000
      Width           =   6255
      Begin VB.CommandButton cmdClear 
         Caption         =   "&Clear Answers (!)"
         Height          =   375
         Left            =   120
         TabIndex        =   11
         Top             =   840
         Width           =   3495
      End
      Begin VB.CommandButton cmdDefault 
         Caption         =   "Use current settings as default"
         Height          =   375
         Left            =   120
         TabIndex        =   10
         Top             =   360
         Width           =   3495
      End
      Begin VB.CheckBox chkPhonetic 
         Appearance      =   0  'Flat
         Caption         =   "Use Phonetic"
         ForeColor       =   &H80000008&
         Height          =   255
         Left            =   4440
         TabIndex        =   20
         Top             =   3675
         Value           =   1  'Checked
         Width           =   1335
      End
      Begin VB.CommandButton cmdDown 
         Height          =   375
         Left            =   3840
         Picture         =   "Form1.frx":0E42
         Style           =   1  'Graphical
         TabIndex        =   19
         Top             =   3600
         Width           =   375
      End
      Begin VB.CommandButton cmdUp 
         Height          =   375
         Left            =   3480
         Picture         =   "Form1.frx":1154
         Style           =   1  'Graphical
         TabIndex        =   18
         Top             =   3600
         Width           =   375
      End
      Begin VB.CommandButton Command1 
         Caption         =   "Edit..."
         Height          =   375
         Left            =   2280
         TabIndex        =   17
         Top             =   3600
         Width           =   1095
      End
      Begin VB.Frame Frame4 
         Height          =   1335
         Left            =   3840
         TabIndex        =   27
         Top             =   0
         Width           =   2415
         Begin VB.CommandButton Command2 
            Caption         =   "About && License..."
            Height          =   495
            Left            =   120
            TabIndex        =   12
            Top             =   720
            Width           =   2175
         End
         Begin VB.Label Label1 
            Alignment       =   2  'Center
            BackStyle       =   0  'Transparent
            Caption         =   "Please read the license fully before using this software:"
            Height          =   495
            Left            =   120
            TabIndex        =   28
            Top             =   240
            Width           =   2175
         End
      End
      Begin VB.CommandButton cmdRemove 
         Caption         =   "Remove"
         Height          =   375
         Left            =   1200
         TabIndex        =   16
         Top             =   3600
         Width           =   1095
      End
      Begin VB.CommandButton cmdAdd 
         Caption         =   "Add..."
         Height          =   375
         Left            =   120
         TabIndex        =   15
         Top             =   3600
         Width           =   1095
      End
      Begin VB.ListBox lstAnswers 
         Appearance      =   0  'Flat
         Height          =   1395
         Left            =   120
         TabIndex        =   14
         Tag             =   "t"
         Top             =   2040
         Width           =   6015
      End
      Begin VB.TextBox txtNick 
         Appearance      =   0  'Flat
         Height          =   285
         Left            =   1200
         TabIndex        =   13
         Tag             =   "t"
         Top             =   1440
         Width           =   4935
      End
      Begin VB.Label Label3 
         BackStyle       =   0  'Transparent
         Caption         =   "Possible answers:"
         Height          =   255
         Left            =   120
         TabIndex        =   25
         Top             =   1800
         Width           =   3855
      End
      Begin VB.Label Label2 
         BackStyle       =   0  'Transparent
         Caption         =   "Submitted by:"
         Height          =   255
         Left            =   120
         TabIndex        =   24
         Top             =   1440
         Width           =   1095
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "Question Editor"
      ForeColor       =   &H00000000&
      Height          =   2775
      Left            =   120
      TabIndex        =   22
      Top             =   120
      Width           =   6255
      Begin VB.Frame Frame6 
         Caption         =   "Search"
         Height          =   615
         Left            =   120
         TabIndex        =   29
         Top             =   2060
         Width           =   3135
         Begin VB.CommandButton cmdSearch 
            Caption         =   ">>"
            Default         =   -1  'True
            Height          =   255
            Left            =   2640
            TabIndex        =   6
            Top             =   240
            Width           =   375
         End
         Begin VB.TextBox txtSearch 
            Appearance      =   0  'Flat
            Height          =   285
            Left            =   40
            TabIndex        =   5
            Tag             =   "t"
            Top             =   240
            Width           =   2535
         End
      End
      Begin VB.CommandButton cmdQDown 
         Height          =   495
         Left            =   4680
         Picture         =   "Form1.frx":1466
         Style           =   1  'Graphical
         TabIndex        =   9
         Top             =   2160
         Width           =   375
      End
      Begin VB.CommandButton cmdQUp 
         Height          =   495
         Left            =   4320
         Picture         =   "Form1.frx":1778
         Style           =   1  'Graphical
         TabIndex        =   8
         Top             =   2160
         Width           =   375
      End
      Begin VB.CommandButton cmdQEdit 
         Caption         =   "&Edit..."
         Height          =   495
         Left            =   3360
         TabIndex        =   7
         Top             =   2160
         Width           =   855
      End
      Begin VB.CommandButton cmdQDel 
         Caption         =   "&Del"
         Height          =   495
         Left            =   5160
         TabIndex        =   4
         Top             =   2160
         Width           =   975
      End
      Begin VB.CommandButton cmdQAdd 
         Caption         =   "&Add"
         Height          =   495
         Left            =   5160
         TabIndex        =   3
         Top             =   1680
         Width           =   975
      End
      Begin VB.CommandButton cmdSave 
         Caption         =   "&Save As..."
         Height          =   495
         Left            =   5160
         TabIndex        =   2
         Top             =   720
         Width           =   975
      End
      Begin VB.Frame Frame3 
         Height          =   455
         Left            =   5120
         TabIndex        =   26
         Top             =   1170
         Width           =   1045
         Begin VB.TextBox txtCount 
            Alignment       =   2  'Center
            Appearance      =   0  'Flat
            BackColor       =   &H8000000F&
            BorderStyle     =   0  'None
            Height          =   255
            Left            =   90
            Locked          =   -1  'True
            TabIndex        =   30
            Text            =   "0/0"
            Top             =   170
            Width           =   855
         End
      End
      Begin VB.CommandButton cmdLoad 
         Caption         =   "&Load..."
         Height          =   495
         Left            =   5160
         TabIndex        =   1
         Top             =   240
         Width           =   975
      End
      Begin VB.ListBox List1 
         Appearance      =   0  'Flat
         Height          =   1785
         Left            =   120
         TabIndex        =   0
         Tag             =   "t"
         Top             =   240
         Width           =   4935
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'    Copyright (C) 2001 Taras Young

'    This program is free software; you can redistribute it and/or modify
'    it under the terms of the GNU General Public License as published by
'    the Free Software Foundation; either version 2 of the License, or
'    (at your option) any later version.

'    This program is distributed in the hope that it will be useful,
'    but WITHOUT ANY WARRANTY; without even the implied warranty of
'    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'    GNU General Public License for more details.

'    You should have received a copy of the GNU General Public License
'    along with this program; if not, write to the Free Software
'    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

Dim Nicks(), Phonetic(), Questions(), Possibilities()
Public DefaultPhonetic, DefaultNick, DefaultSave, DefaultBackup, DefaultAppend
Public QuestCount, Flashes, CurrentFile

Private Sub chkBackup_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Status "Makes automatic backups before editing files."

End Sub

Private Sub chkNoReset_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Status "Appends newly loaded questions to the current list."

End Sub

Private Sub chkPhonetic_Click()

Phonetic(List1.ListIndex + 1) = chkPhonetic.Value

End Sub

Private Sub chkPhonetic_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Status "Check this box if you want phonetic matching for this question."

End Sub

Private Sub chkSaveChanges_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Status "Saves changes to QUESTIONS automatically."

End Sub

Private Sub cmdAdd_Click()

ask = InputBox("Enter new answer:", "Add Answer")
If ask <> "" Then lstAnswers.AddItem ask

UpdatePhonetic


End Sub

Public Sub ResetAll()

 List1.Clear
 lstAnswers.Clear
 
 Form1.txtCount = ""
 Form1.txtNick = ""
 
 ReDim Questions(0)
 ReDim Phonetic(0)
 ReDim Possibilities(0)
 ReDim Nicks(0)
 
 QuestCount = 0

End Sub

Private Sub cmdAdd_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Status "Adds an answer."

End Sub

Private Sub cmdClear_Click()

If MsgBox("Are you sure?", vbQuestion + vbYesNo, "Clear Phonetic") = vbYes Then
 lstAnswers.Clear
 UpdatePhonetic

End If

End Sub

Private Sub cmdDefault_Click()

DefaultPhonetic = chkPhonetic.Value
DefaultNick = txtNick.Text
DefaultSave = chkSaveChanges.Value
DefaultAppend = chkNoReset.Value
DefaultBackup = chkBackup.Value
SaveSetting "Blitzia", "Defaults", "Nick", DefaultNick
SaveSetting "Blitzia", "Defaults", "Phonetic", DefaultPhonetic
SaveSetting "Blitzia", "Defaults", "Save", DefaultSave
SaveSetting "Blitzia", "Defaults", "Append", DefaultAppend
SaveSetting "Blitzia", "Defaults", "Backup", DefaultBackup


End Sub

Private Sub cmdDown_Click()

If lstAnswers.ListIndex < lstAnswers.ListCount - 1 Then
 
 a = lstAnswers.List(lstAnswers.ListIndex)
 n = lstAnswers.ListIndex
 lstAnswers.RemoveItem lstAnswers.ListIndex
 lstAnswers.AddItem a, n + 1
 lstAnswers.Selected(n + 1) = True

UpdatePhonetic

End If

End Sub

Private Sub cmdDown_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Status "Moves the selected answer down in the list."

End Sub

Private Sub cmdLoad_Click()

Status "Getting filename..."

If Me.chkNoReset.Value = Unchecked Then ResetAll

WhatFile = CommonD("db", "Open Database", "question.db", "Trivia Questions DB (*.db)|*.db|All Files (*.*)|*.*", App.Path, True)
If WhatFile = "" Or Dir(WhatFile) = "" Then Exit Sub

Status "Loading..."

LoadFile WhatFile

Ready

PropogateList List1

Ready


End Sub

Public Sub LoadFile(WhatFile)

If chkBackup.Value = Checked And Dir(WhatFile) <> "backup.temp.db" Then FileCopy WhatFile, "backup.temp.db"

File1.Refresh
Dir1.Refresh
Drive1.Refresh

Open WhatFile For Input As #1
Do
  Line Input #1, Info
  Parse Info
Loop Until EOF(1)
Close #1

CurrentFile = WhatFile
Me.Caption = "[" + Dir(WhatFile) + "] - Blitzia QuestionMaster"

End Sub

Public Sub Status(WhatText)
 
 txtStatus.Text = WhatText

End Sub

Public Sub PropogateList(Where As ListBox)

Status "Propogating List..."

Where.Clear

For n = 1 To QuestCount

 Where.AddItem Questions(n)

Next

txtCount.Text = QuestCount

Ready


End Sub

Public Sub Parse(What)

Status "Parsing file..."

part = 0: total = "": ch = ""

 
 For n = 1 To Len(What)
 
  ch = Mid(What, n, 1)
  
   If ch = ";" Then
    part = part + 1
    
       If part = 1 Then
        
         QuestCount = QuestCount + 1
          
          ReDim Preserve Questions(QuestCount), Phonetic(QuestCount), Nicks(QuestCount), Possibilities(QuestCount)
          Nicks(QuestCount) = total
    
        ElseIf part = 2 Then Phonetic(QuestCount) = total
        ElseIf part = 3 Then Questions(QuestCount) = total: Exit For
       
        End If
        
        
        ch = "": total = ""
    

   End If
 
 
 total = total + ch
 
 
 Next


Possibilities(QuestCount) = Mid(What, n, Len(What))

Ready


End Sub

Public Sub ParsePhonetic(What)

Status "Parsing Phonetic...": DoEvents

If Left(What, 1) = ";" Then What = Mid(What, 2, Len(What))

total = "": ch = ""
lstAnswers.Clear

 
 For n = 1 To Len(What)
 
  ch = Mid(What, n, 1)
  
   If ch = ";" Then
    
     lstAnswers.AddItem total
     total = ""
     ch = ""
    
   End If
 
 
 total = total + ch
 
 
 Next


chkPhonetic.Value = Phonetic(List1.ListIndex + 1)

Ready


End Sub

Private Sub cmdLoad_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Status "Loads a database file into the program."

End Sub

Private Sub cmdQAdd_Click()

ask = InputBox("Add question:", "Add Question")
If ask <> "" Then
 List1.AddItem ask
 QuestCount = QuestCount + 1
 ReDim Preserve Questions(QuestCount), Phonetic(QuestCount), Nicks(QuestCount), Possibilities(QuestCount)
 Questions(QuestCount) = ask
 List1.Selected(List1.ListCount - 1) = True
 
 txtNick.Text = DefaultNick
 chkPhonetic.Value = DefaultPhonetic

 cmdAdd.SetFocus

 If chkSaveChanges.Value = Checked Then SaveChanges CurrentFile    'Save Changes

End If

End Sub

Private Sub cmdQAdd_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Status "Adds a question to the list."

End Sub

Private Sub cmdQDel_Click()

If List1.ListIndex = -1 Then Exit Sub


a = List1.ListIndex + 1
List1.RemoveItem List1.ListIndex


For n = a To QuestCount - 1
 
  Questions(n) = Questions(n + 1)
  Phonetic(n) = Phonetic(n + 1)
  Nicks(n) = Nicks(n + 1)
  Possibilities(n) = Possibilities(n + 1)
 
Next


 QuestCount = QuestCount - 1
 ReDim Preserve Questions(QuestCount), Phonetic(QuestCount), Nicks(QuestCount), Possibilities(QuestCount)

 PropogateList List1

If List1.ListCount > 0 Then List1.Selected(List1.ListCount - 1) = True
If chkSaveChanges.Value = Checked Then SaveChanges CurrentFile    'Save Changes


End Sub

Private Sub cmdQDel_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Status "Deletes the selected question."

End Sub

Private Sub cmdQDown_Click()

'quick swap


n = List1.ListIndex + 1
If n + 1 > QuestCount Then Exit Sub

qa = Questions(n)
aa = Phonetic(n)
pa = Possibilities(n)
na = Nicks(n)

qb = Questions(n + 1)
ab = Phonetic(n + 1)
pb = Possibilities(n + 1)
nb = Nicks(n + 1)

Questions(n + 1) = qa
Phonetic(n + 1) = aa
Possibilities(n + 1) = pa
Nicks(n + 1) = na

Questions(n) = qb
Phonetic(n) = ab
Possibilities(n) = pb
Nicks(n) = nb

PropogateList List1
If chkSaveChanges.Value = Checked Then SaveChanges CurrentFile    'Save Changes
List1.Selected(n) = True


End Sub

Private Sub cmdQDown_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Status "Moves the selected question down in the list."

End Sub

Private Sub cmdQEdit_Click()

If List1.ListIndex = -1 Then Exit Sub

ask = InputBox("Edit question:", "Edit Question", List1.List(List1.ListIndex))
If ask <> "" Then
 List1.List(List1.ListIndex) = ask
 List1.Selected(List1.ListIndex) = True
 Questions(List1.ListIndex + 1) = ask
 PropogateList List1
 If chkSaveChanges.Value = Checked Then SaveChanges CurrentFile    'Save Changes
End If


End Sub

Private Sub cmdQEdit_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Status "Edits the current question."

End Sub

Private Sub cmdQUp_Click()

'quick swap

n = List1.ListIndex + 1
If n < 2 Then Exit Sub

qa = Questions(n)
aa = Phonetic(n)
pa = Possibilities(n)
na = Nicks(n)

qb = Questions(n - 1)
ab = Phonetic(n - 1)
pb = Possibilities(n - 1)
nb = Nicks(n - 1)

Questions(n - 1) = qa
Phonetic(n - 1) = aa
Possibilities(n - 1) = pa
Nicks(n - 1) = na

Questions(n) = qb
Phonetic(n) = ab
Possibilities(n) = pb
Nicks(n) = nb

PropogateList List1
If chkSaveChanges.Value = Checked Then SaveChanges CurrentFile    'Save Changes
List1.Selected(n - 2) = True

End Sub

Private Sub cmdQUp_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Status "Moves the selected question up in the list."

End Sub

Private Sub cmdRemove_Click()

If lstAnswers.ListIndex > -1 Then

 a = ListIndex
 lstAnswers.RemoveItem lstAnswers.ListIndex

UpdatePhonetic


End If


End Sub

Private Sub cmdRemove_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Status "Removes the selected answer."

End Sub

Private Sub cmdSave_Click()

Status "Getting filename..."

WhatFile = CommonD("db", "Save Database As", "question.db", "Trivia Questions DB (*.db)|*.db|All Files (*.*)|*.*", App.Path, False)
If WhatFile = "" Then Exit Sub

If Dir(WhatFile) <> "" Then

 ask = MsgBox("This file already exists. Overwrite?", vbYesNo + vbExclamation, "File Exists")
 If ask = vbNo Then Exit Sub
 
End If



Status "Writing..."

SaveChanges WhatFile

PropogateList List1
Ready

End Sub

Public Sub SaveChanges(WhatFile)

Status "Saving Changes..."

Open WhatFile For Output As #1

 For n = 1 To QuestCount
 
  If Left(Possibilities(n), 1) <> ";" Then Possibilities(n) = ";" + Possibilities(n)
  Print #1, Nicks(n) + ";" + Trim(Str(Phonetic(n))) + ";" + Questions(n) + Possibilities(n)
 
 Next

Close #1

CurrentFile = WhatFile
Me.Caption = "[" + Dir(WhatFile) + "] - Blitzia QuestionMaster"

Ready

End Sub

Private Sub cmdSave_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Status "Creates a questions database from the current settings."

End Sub

Private Sub cmdSearch_Click()

For n = List1.ListIndex + 1 To List1.ListCount - 1

 If InStr(LCase(List1.List(n)), LCase(txtSearch.Text)) Then
  List1.Selected(n) = True
  Exit Sub
 End If

Next

For n = 0 To List1.ListIndex

 If InStr(LCase(List1.List(n)), LCase(txtSearch.Text)) Then
  List1.Selected(n) = True
  Exit Sub
 End If

Next


End Sub

Private Sub cmdUp_Click()

If lstAnswers.ListIndex > 0 Then
 
 a = lstAnswers.List(lstAnswers.ListIndex)
 n = lstAnswers.ListIndex
 lstAnswers.RemoveItem lstAnswers.ListIndex
 lstAnswers.AddItem a, n - 1
 lstAnswers.Selected(n - 1) = True

End If

UpdatePhonetic


End Sub

Public Sub UpdatePhonetic()

n = List1.ListIndex + 1
 
Possibilities(n) = ""
 
 For k = 0 To lstAnswers.ListCount - 1
  Possibilities(n) = Possibilities(n) + lstAnswers.List(k) + ";"
 Next



End Sub

Private Sub cmdUp_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Status "Moves the selected answer up in the list."
End Sub

Private Sub cmdWinSize_Click()

If Me.Width = 8955 Then
 Me.Width = 6555: cmdWinSize.Caption = ">>"
Else
 Me.Width = 8955: cmdWinSize.Caption = "<<"
End If

End Sub

Private Sub cmdWinSize_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Status "Click here to hide/show further tools."

End Sub

Private Sub Command1_Click()

If lstAnswers.ListIndex > -1 Then
    ask = InputBox("Edit answer entry:", "Edit Answer", lstAnswers.List(lstAnswers.ListIndex))
    If ask <> "" Then lstAnswers.List(lstAnswers.ListIndex) = ask
    
    UpdatePhonetic
End If

End Sub

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Status "Edits the selected answer."
End Sub

Private Sub Command2_Click()

frmAbout.Show vbModal, Me

End Sub

Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Status "Shows about and license information."

End Sub

Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub

Private Sub Drive1_Change()

On Error Resume Next
Dir1.Path = Drive1.Drive


End Sub

Private Sub File1_DblClick()



If Me.chkNoReset.Value = Unchecked Then ResetAll

LoadFile Dir1.Path & "\" + File1.FileName

Ready

PropogateList List1

Ready



End Sub

Private Sub File1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Status "Double click a file to load it. Right click to edit filter."

End Sub

Private Sub flashTimer_Timer()

If Command2.Caption = "About && License..." Then
 Command2.Caption = ""
Else
 Command2.Caption = "About && License..."
End If

Flashes = Flashes + 1
If Flashes = 4 Then flashTimer.Enabled = False

End Sub

Private Sub Form_Load()

On Error Resume Next

ReDim Questions(0), Phonetic(0), Nicks(0), Possibilities(0)
QuestCount = 0

If GetSetting("Blitzia", "Defaults", "Phonetic") <> Empty Then
 DefaultPhonetic = GetSetting("Blitzia", "Defaults", "Phonetic")
 DefaultNick = GetSetting("Blitzia", "Defaults", "Nick")
 DefaultSave = GetSetting("Blitzia", "Defaults", "Save")
 DefaultAppend = GetSetting("Blitzia", "Defaults", "Append")
 DefaultBackup = GetSetting("Blitzia", "Defaults", "Backup")

 txtNick.Text = DefaultNick
 chkPhonetic.Value = DefaultPhonetic
 chkSaveChanges.Value = DefaultSave
 chkBackup.Value = DefaultBackup
 chkNoReset.Value = DefaultAppend

End If


Status "{ver = blitzed-qmaster-win32-0-14 : 12:51am 2001.03.07}"



End Sub

Public Sub Ready()
 Status "Ready."
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Ready

End Sub

Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Ready

End Sub

Private Sub Frame2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Ready

End Sub

Private Sub Frame4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Ready

End Sub

Private Sub Label1_Click()

GoToWeb Label1.Caption

End Sub

Private Sub Label9_Click()

GoToWeb Label9.Caption

End Sub

Private Sub List1_Click()

 n = List1.ListIndex + 1
 txtNick.Text = Nicks(n)
 Me.txtCount.Text = Trim(Str(n)) + "/" + Trim(Str(List1.ListCount))
 ParsePhonetic Possibilities(n)

End Sub

Private Sub List1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Status "This list contains all the questions in the question DB."

End Sub

Private Sub lstanswers_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Status "Top answer is the 'display answer', the rest are possibilities."

End Sub

Private Sub txtCount_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Status "Question index and count."

End Sub

Private Sub txtIndex_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Status "Shows the index of this question in the list."

End Sub

Private Sub txtNick_Change()

Nicks(List1.ListIndex + 1) = txtNick.Text

End Sub

Private Sub txtNick_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Status "Changes who submitted this question."

End Sub

Private Sub txtStatus_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Status "Get orf my status bar!"

End Sub