VERSION 5.00
Begin VB.Form frmSplash 
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   4245
   ClientLeft      =   3855
   ClientTop       =   2835
   ClientWidth     =   7380
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   Icon            =   "frmSplash.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4245
   ScaleWidth      =   7380
   ShowInTaskbar   =   0   'False
   Begin VB.Timer Timer1 
      Interval        =   5000
      Left            =   0
      Top             =   0
   End
   Begin VB.Frame Frame1 
      Height          =   4050
      Left            =   150
      TabIndex        =   0
      Top             =   60
      Width           =   7080
      Begin VB.Label Label1 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         Caption         =   "Release Info"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         Height          =   270
         Left            =   4200
         TabIndex        =   9
         Top             =   2160
         Visible         =   0   'False
         Width           =   1440
      End
      Begin VB.Label lblCompanyProduct 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         Caption         =   "Virtual"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   24
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   555
         Left            =   2640
         TabIndex        =   8
         Top             =   840
         Width           =   4410
      End
      Begin VB.Image imgLogo 
         Height          =   2280
         Left            =   240
         Picture         =   "frmSplash.frx":000C
         Stretch         =   -1  'True
         Top             =   360
         Width           =   2400
      End
      Begin VB.Label lblCopyright 
         Alignment       =   2  'Center
         Caption         =   "©2008 FollowTheWatch Software"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   4320
         TabIndex        =   4
         Top             =   3285
         Width           =   2655
      End
      Begin VB.Label lblCompany 
         Alignment       =   2  'Center
         Caption         =   "Portions by Michael Herbert, GD Software, DosFX and others"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   420
         Left            =   4560
         TabIndex        =   3
         Top             =   3525
         Width           =   2295
      End
      Begin VB.Label lblWarning 
         Caption         =   $"frmSplash.frx":3004E
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   1275
         Left            =   90
         TabIndex        =   2
         Top             =   2700
         Width           =   4245
      End
      Begin VB.Label lblVersion 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Version"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   6120
         TabIndex        =   5
         Top             =   2940
         Width           =   885
      End
      Begin VB.Label lblPlatform 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "for Windows"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Left            =   4920
         TabIndex        =   6
         Top             =   2580
         Width           =   1890
      End
      Begin VB.Label lblProductName 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         Caption         =   "Hypnotist"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   32.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         Height          =   735
         Left            =   3360
         TabIndex        =   7
         Top             =   1320
         Width           =   2955
      End
      Begin VB.Label lblLicenseTo 
         Alignment       =   1  'Right Justify
         Caption         =   "I like milk."
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   1
         Top             =   240
         Visible         =   0   'False
         Width           =   6855
      End
   End
End
Attribute VB_Name = "frmSplash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Virtual Hypnotist
'©2003-2008 FollowTheWatch Software
'http://vhypno.sourceforge.net
'http://sourceforge.net/projects/vhypno
'Contact - followthewatch55@yahoo.com

'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.

Option Explicit

Private Sub LoadMenu()
Timer1.Enabled = False

'if old settings.dat file exists, convert it to new vh.ini format
Dim booltemp As Boolean
Dim inttemp As Integer
Dim Temp As String
Dim singtemp As Single
Dim longtemp As Long

If ExceptionHandlers = True Then On Error GoTo FileError
If FileExists(App.path + "\settings.dat") = True And FileExists(App.path + "\vh.ini") = False Then
    MsgBox "Old settings file found. Moving settings over to new vh.ini file...", vbOKOnly + vbInformation, "Virtual Hypnotist"
    Open App.path + "\settings.dat" For Random As #1
    Get #1, 1, Temp
    If Temp = "" Then Close #1: GoTo SkipFile
    WriteINIString 1, "script maker", "fontname", Temp
    Get #1, 2, singtemp
    WriteINIString 1, "script maker", "fontsize", LTrim$(Str$(singtemp))
    Get #1, 3, booltemp
    WriteINIString 1, "script maker", "fontbold", LTrim$(Str$(Abs(Int(booltemp))))
    Get #1, 4, booltemp
    WriteINIString 1, "script maker", "fontitalic", LTrim$(Str$(Abs(Int(booltemp))))
    Get #1, 5, booltemp
    WriteINIString 1, "script maker", "fontunderline", LTrim$(Str$(Abs(Int(booltemp))))
    Get #1, 6, booltemp
    WriteINIString 1, "script maker", "fontstrike", LTrim$(Str$(Abs(Int(booltemp))))
    Get #1, 7, longtemp
    WriteINIString 1, "script maker", "textcolor", LTrim$(Str$(longtemp))
    Get #1, 8, inttemp
    WriteINIString 1, "script maker", "messageboxes", LTrim$(Str$(inttemp))
    Close #1
End If

SkipFile:
On Error Resume Next
If FileExists(App.path + "\settings.dat") = True Then
    'erase old settings file
    Kill App.path + "\settings.dat"
End If

If ExceptionHandlers = True Then On Error GoTo ErrorHandler

Dim SkipModeBox As Boolean

Temp = GetINIString(1, "settings", "skipmodebox", "0")
If Trim2(Temp) = "1" Then SkipModeBox = True Else SkipModeBox = False

If SkipModeBox = True Then
    If GetINIString(1, "settings", "name") = "" Or GetINIString(1, "settings", "age", "2") = "2" Then frmUser.Show Else frmMain.Show
End If
If SkipModeBox = False Then frmMode.Show
frmSplash.Hide
Exit Sub

FileError:
MsgBox "The settings.dat file is corrupted. Skipping conversion", vbExclamation
Resume SkipFile

ErrorHandler:
err.Source = "Splash Screen - LoadMenu"
Call ErrorReport("An error occurred while starting Virtual Hypnotist.", vbCritical)
End
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
Call LoadMenu
End Sub

Private Sub Form_Load()
'VH application entry point
If ExceptionHandlers = True Then On Error GoTo ErrorHandler

Call GetCurrentRes

'These 2 lines get the original screen values, because the width changes to weird values later on
ScreenX = Screen.Width
ScreenY = Screen.Height

If InStr(Command$, "/go") <> 0 Then Call LoadMenu
frmSplash.Left = (Screen.Width / 2) - (frmSplash.Width / 2)
frmSplash.Top = (Screen.Height / 2) - (frmSplash.Height / 2)
    lblVersion.Caption = "Version " & App.Major & "." & App.Minor & " - Build " & App.Revision
If ReleaseType = 1 Then Label1.Caption = "Alpha"
If ReleaseType = 2 Then Label1.Caption = "Beta"
If (ReleaseType = 1 Or ReleaseType = 2) And BetaVersion > 0 Then Label1.Caption = Label1.Caption + " Release " + LTrim$(Str$(BetaVersion))
If ReleaseType = 3 Then Label1.Caption = "Release Candidate " + LTrim$(Str$(BetaVersion))
If ReleaseType = 4 Then Label1.Caption = SpecialEditionTag
Label1.Visible = True
Exit Sub

ErrorHandler:
err.Source = "Splash Screen - Loader"
Call ErrorReport("An error occurred while starting Virtual Hypnotist.", vbCritical)
End

End Sub

Private Sub Frame1_Click()
Call LoadMenu
End Sub


Private Sub imgLogo_Click()
Call LoadMenu
End Sub

Private Sub lblCompany_Click()
Call LoadMenu
End Sub

Private Sub lblCompanyProduct_Click()
Call LoadMenu
End Sub

Private Sub lblCopyright_Click()
Call LoadMenu
End Sub

Private Sub lblPlatform_Click()
Call LoadMenu
End Sub

Private Sub lblProductName_Click()
Call LoadMenu
End Sub

Private Sub lblVersion_Click()
Call LoadMenu
End Sub

Private Sub lblWarning_Click()
Call LoadMenu
End Sub

Private Sub Timer1_Timer()
Call LoadMenu
End Sub
