VERSION 5.00
Begin VB.Form frmPresets 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "Session Presets"
   ClientHeight    =   7005
   ClientLeft      =   5790
   ClientTop       =   3600
   ClientWidth     =   3150
   Icon            =   "frmPresets.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   7005
   ScaleWidth      =   3150
   Begin VB.Frame Frame2 
      Caption         =   "Professional Presets"
      Height          =   1935
      Left            =   0
      TabIndex        =   20
      Top             =   4920
      Visible         =   0   'False
      Width           =   3135
      Begin VB.CommandButton Command34 
         Caption         =   "Success Loop"
         Height          =   375
         Left            =   840
         TabIndex        =   17
         ToolTipText     =   "Success Loop preset"
         Top             =   1200
         Width           =   1455
      End
      Begin VB.CommandButton Command32 
         Caption         =   "Number Press"
         Height          =   375
         Left            =   1560
         TabIndex        =   16
         ToolTipText     =   "Number Press preset"
         Top             =   840
         Width           =   1455
      End
      Begin VB.CommandButton Command31 
         Caption         =   "Hand Drop"
         Height          =   375
         Left            =   120
         TabIndex        =   15
         ToolTipText     =   "Hand Drop preset"
         Top             =   840
         Width           =   1455
      End
      Begin VB.CommandButton Command30 
         Caption         =   "Trigger Induction"
         Height          =   375
         Left            =   1560
         TabIndex        =   14
         ToolTipText     =   "Trigger Induction preset"
         Top             =   480
         Width           =   1455
      End
      Begin VB.CommandButton Command29 
         Caption         =   "Reinduction"
         Height          =   375
         Left            =   120
         TabIndex        =   13
         ToolTipText     =   "Reinduction preset"
         Top             =   480
         Width           =   1455
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "Recreational Presets"
      Height          =   1935
      Left            =   0
      TabIndex        =   19
      Top             =   2160
      Visible         =   0   'False
      Width           =   3135
      Begin VB.CommandButton Command13 
         Caption         =   "Eyes"
         Height          =   375
         Left            =   840
         TabIndex        =   12
         ToolTipText     =   "Eyes preset"
         Top             =   1200
         Width           =   1455
      End
      Begin VB.CommandButton Command8 
         Caption         =   "Cartoonish"
         Height          =   375
         Left            =   1560
         TabIndex        =   11
         ToolTipText     =   "Cartoonish preset"
         Top             =   840
         Width           =   1455
      End
      Begin VB.CommandButton Command21 
         Caption         =   "Brainwash II"
         Height          =   375
         Left            =   1560
         TabIndex        =   9
         ToolTipText     =   "Brainwash II preset"
         Top             =   480
         Width           =   1455
      End
      Begin VB.CommandButton Command22 
         Caption         =   "Obey"
         Height          =   375
         Left            =   120
         TabIndex        =   10
         ToolTipText     =   "Obey preset"
         Top             =   840
         Width           =   1455
      End
      Begin VB.CommandButton Command6 
         Caption         =   "Brainwash"
         Height          =   375
         Left            =   120
         TabIndex        =   8
         ToolTipText     =   "Brainwash preset"
         Top             =   480
         Width           =   1455
      End
   End
   Begin VB.CommandButton Command14 
      Caption         =   "Feature Test"
      Height          =   375
      Left            =   840
      TabIndex        =   7
      ToolTipText     =   "Feature Test preset"
      Top             =   1560
      Width           =   1455
   End
   Begin VB.CommandButton Command19 
      Caption         =   "Deep Sleep"
      Height          =   375
      Left            =   1560
      TabIndex        =   6
      ToolTipText     =   "Deep Sleep preset"
      Top             =   1200
      Width           =   1455
   End
   Begin VB.CommandButton Command18 
      Caption         =   "Kaleidoscope"
      Height          =   375
      Left            =   120
      TabIndex        =   5
      ToolTipText     =   "Kaleidoscope preset"
      Top             =   1200
      Width           =   1455
   End
   Begin VB.CommandButton Command12 
      Caption         =   "Pendant"
      Height          =   375
      Left            =   1560
      TabIndex        =   4
      ToolTipText     =   "Pendant preset"
      Top             =   840
      Width           =   1455
   End
   Begin VB.CommandButton Command10 
      Caption         =   "Swinging Watch"
      Height          =   375
      Left            =   120
      TabIndex        =   3
      ToolTipText     =   "Swinging Watch preset"
      Top             =   840
      Width           =   1455
   End
   Begin VB.CommandButton Command9 
      Caption         =   "Hypnotherapist 2"
      Height          =   375
      Left            =   1560
      TabIndex        =   2
      ToolTipText     =   "Hypnotherapist 2 preset"
      Top             =   480
      Width           =   1455
   End
   Begin VB.CommandButton Command5 
      Caption         =   "Hypnotherapist"
      Height          =   375
      Left            =   120
      TabIndex        =   1
      ToolTipText     =   "Hypnotherapist preset"
      Top             =   480
      Width           =   1455
   End
   Begin VB.CommandButton Command1 
      Caption         =   "OK"
      Height          =   375
      Left            =   960
      TabIndex        =   0
      Top             =   4320
      Width           =   1215
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Caption         =   "General Presets"
      Height          =   255
      Left            =   120
      TabIndex        =   18
      Top             =   120
      Width           =   2895
   End
End
Attribute VB_Name = "frmPresets"
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 Command1_Click()
Me.Hide
End Sub

Public Sub Command10_Click()
Call frmSession.LoadDefaults(3, True)
With frmSession
Call .SelectFile("defaultinduct.txt", 1)
Call .SelectFile("defaultdeep.txt", 2)
Call .SelectFile("defaultsuggest.txt", 3)
Call .SelectFile("defaultwake.txt", 4)
Call .SelectFile("2.mp3", 5)
Call .SelectFile("watch.gif", 6)
Call .SelectFile("woo.acs", 7)
Call .SelectFile("defaultsub.txt", 8)
If UseSAPI5 = False Then Call .SelectFile("sam", 9) Else Call .SelectFile("microsoft sam", 9)
.SliderCharHoriz.value = 84
.SliderCharVert.value = 82
.chkEnableBinaural.value = 0
.chkEnableFlashers.value = 0
.chkEnableSubliminals.value = 1
.chkEnableVisuals.value = 0
.chkMonotone.value = 0
.chkWhisper.value = 0
.chkEnableVideo.value = 1
If UseSAPI5 = False And SynthSpeech = True Then .chkEnableChar.value = ModeVal - 1
.chkEnableInduction.value = 1
.chkEnableDeepener.value = 1
.chkEnableSuggestions.value = 1
.chkEnableWakener.value = 1
.chkEnableAudio.value = 1
.sliderVoicePitch.value = 160
If UseSAPI5 = False And SynthSpeech = True Then .sliderVoiceSpeed.value = 100
If UseSAPI5 = True And SynthSpeech = True Then .sliderVoiceSpeed.value = -5
If UseSAPI5 = False And SynthSpeech = True Then .sliderVoiceVolume.value = 32767
If UseSAPI5 = True And SynthSpeech = True Then .sliderVoiceVolume.value = 50
.SliderCharZoom.value = 500
.SliderVideoZoom.value = 50
.optSessionStandard.value = True
.optFlashLow.value = True
End With
Call PresetGlobals
End Sub

Public Sub Command12_Click()
Call frmSession.LoadDefaults(3, True)
With frmSession
Call .SelectFile("defaultinduct.txt", 1)
Call .SelectFile("defaultdeep.txt", 2)
Call .SelectFile("defaultsuggest.txt", 3)
Call .SelectFile("defaultwake.txt", 4)
Call .SelectFile("2.mp3", 5)
Call .SelectFile("pendulum1.gif", 6)
Call .SelectFile("angie.acs", 7)
Call .SelectFile("defaultsub.txt", 8)
If UseSAPI5 = False Then Call .SelectFile("mary", 9) Else Call .SelectFile("microsoft mary", 9)
.SliderCharHoriz.value = 84
.SliderCharVert.value = 50
.chkEnableBinaural.value = 0
.chkEnableFlashers.value = 0
.chkEnableSubliminals.value = 1
.chkEnableVisuals.value = 0
.chkMonotone.value = 0
.chkWhisper.value = 0
.chkEnableVideo.value = 1
.chkEnableChar.value = 0
.chkEnableInduction.value = 1
.chkEnableDeepener.value = 1
.chkEnableSuggestions.value = 1
.chkEnableWakener.value = 1
.chkEnableAudio.value = 1
.sliderVoicePitch.value = 200
If UseSAPI5 = False And SynthSpeech = True Then .sliderVoiceSpeed.value = 100
If UseSAPI5 = True And SynthSpeech = True Then .sliderVoiceSpeed.value = -5
If UseSAPI5 = False And SynthSpeech = True Then .sliderVoiceVolume.value = 32767
If UseSAPI5 = True And SynthSpeech = True Then .sliderVoiceVolume.value = 50
.SliderCharZoom.value = 200
.SliderVideoZoom.value = 75
.optSessionStandard.value = True
End With
Call PresetGlobals
End Sub

Public Sub Command13_Click()
Call frmSession.LoadDefaults(3, True)
With frmSession
Call .SelectFile("defaultinduct.txt", 1)
Call .SelectFile("defaultdeep.txt", 2)
Call .SelectFile("defaultsuggest.txt", 3)
Call .SelectFile("defaultwake.txt", 4)
Call .SelectFile("3.mp3", 5)
Call .SelectFile("hypnospiral.m1v", 6)
Call .SelectFile("woo.acs", 7)
Call .SelectFile("defaultsub.txt", 8)
If UseSAPI5 = False Then Call .SelectFile("mike in space", 9) Else Call .SelectFile("microsoft mike", 9)
.SliderCharHoriz.value = 50
.SliderCharVert.value = 102
.chkEnableBinaural.value = 1
.chkEnableFlashers.value = 1
.chkEnableSubliminals.value = 1
.chkEnableVisuals.value = 0
.chkMonotone.value = 0
.chkWhisper.value = 0
.chkEnableVideo.value = 1
If UseSAPI5 = False And SynthSpeech = True Then .chkEnableChar.value = 1
.chkEnableInduction.value = 1
.chkEnableDeepener.value = 1
.chkEnableSuggestions.value = 1
.chkEnableWakener.value = 1
.chkEnableAudio.value = 1
.sliderVoicePitch.value = 100
If UseSAPI5 = False And SynthSpeech = True Then .sliderVoiceSpeed.value = 100
If UseSAPI5 = True And SynthSpeech = True Then .sliderVoiceSpeed.value = -5
If UseSAPI5 = False And SynthSpeech = True Then .sliderVoiceVolume.value = 32767
If UseSAPI5 = True And SynthSpeech = True Then .sliderVoiceVolume.value = 50
.SliderCharZoom.value = 700
.SliderVideoZoom.value = 80
.optSessionStandard.value = True
End With
Call PresetGlobals
End Sub

Public Sub Command14_Click()
Call frmSession.LoadDefaults(3, True)
With frmSession
Call .SelectFile("featuretest.txt", 1)
Call .SelectFile("defaultdeep.txt", 2)
Call .SelectFile("defaultsuggest.txt", 3)
Call .SelectFile("defaultwake.txt", 4)
Call .SelectFile("6.mp3", 5)
Call .SelectFile("colors.m1v", 6)
Call .SelectFile("angie.acs", 7)
Call .SelectFile("defaultsub.txt", 8)
If UseSAPI5 = False Then Call .SelectFile("mary", 9) Else Call .SelectFile("microsoft mary", 9)
.SliderCharHoriz.value = 50
.SliderCharVert.value = 50
.chkEnableBinaural.value = 0
.chkEnableFlashers.value = 0
.chkEnableSubliminals.value = 0
.chkEnableVisuals.value = 0
.chkMonotone.value = 0
.chkWhisper.value = 0
.chkEnableVideo.value = 1
If UseSAPI5 = False And SynthSpeech = True Then .chkEnableChar.value = 1
.chkEnableInduction.value = 1
.chkEnableDeepener.value = 0
.chkEnableSuggestions.value = 0
.chkEnableWakener.value = 0
.chkEnableAudio.value = 1
.chkEnableAudio_Click
.sliderVoicePitch.value = 200
If UseSAPI5 = False And SynthSpeech = True Then .sliderVoiceSpeed.value = 100
If UseSAPI5 = True And SynthSpeech = True Then .sliderVoiceSpeed.value = -5
If UseSAPI5 = False And SynthSpeech = True Then .sliderVoiceVolume.value = 32767
If UseSAPI5 = True And SynthSpeech = True Then .sliderVoiceVolume.value = 50
.SliderCharZoom.value = 100
.SliderVideoZoom.value = 100
.optSessionStandard.value = True
End With
Call PresetGlobals
End Sub

Public Sub Command18_Click()
Call frmSession.LoadDefaults(3, True)
With frmSession
Call .SelectFile("defaultinduct.txt", 1)
Call .SelectFile("defaultdeep.txt", 2)
Call .SelectFile("defaultsuggest.txt", 3)
Call .SelectFile("defaultwake.txt", 4)
Call .SelectFile("6.mp3", 5)
Call .SelectFile("kscope.gif", 6)
Call .SelectFile("angie.acs", 7)
Call .SelectFile("defaultsub.txt", 8)
If UseSAPI5 = False Then Call .SelectFile("mary", 9) Else Call .SelectFile("microsoft mary", 9)
.SliderCharHoriz.value = 50
.SliderCharVert.value = 50
.chkEnableBinaural.value = 0
.chkEnableFlashers.value = 0
.chkEnableSubliminals.value = 1
.chkEnableVisuals.value = 0
.chkMonotone.value = 0
.chkWhisper.value = 0
.chkEnableVideo.value = 1
.chkEnableChar.value = 0
.chkEnableInduction.value = 1
.chkEnableDeepener.value = 1
.chkEnableSuggestions.value = 1
.chkEnableWakener.value = 1
.chkEnableAudio.value = 1
.sliderVoicePitch.value = 200
If UseSAPI5 = False And SynthSpeech = True Then .sliderVoiceSpeed.value = 100
If UseSAPI5 = True And SynthSpeech = True Then .sliderVoiceSpeed.value = -5
If UseSAPI5 = False And SynthSpeech = True Then .sliderVoiceVolume.value = 32767
If UseSAPI5 = True And SynthSpeech = True Then .sliderVoiceVolume.value = 50
.SliderCharZoom.value = 100
.SliderVideoZoom.value = 90
.optSessionStandard.value = True
End With
Call PresetGlobals
End Sub

Public Sub Command19_Click()
Call frmSession.LoadDefaults(3, True)
With frmSession
Call .SelectFile("defaultinduct.txt", 1)
Call .SelectFile("defaultdeep.txt", 2)
Call .SelectFile("defaultsuggest.txt", 3)
Call .SelectFile("defaultwake.txt", 4)
Call .SelectFile("8.mp3", 5)
Call .SelectFile("spurt.gif", 6)
Call .SelectFile("angie.acs", 7)
Call .SelectFile("defaultsub.txt", 8)
If UseSAPI5 = False Then Call .SelectFile("mary", 9) Else Call .SelectFile("microsoft mary", 9)
.SliderCharHoriz.value = 50
.SliderCharVert.value = 50
.chkEnableBinaural.value = 0
.chkEnableFlashers.value = 0
.chkEnableSubliminals.value = 1
.chkEnableVisuals.value = 0
.chkMonotone.value = 0
.chkWhisper.value = 0
.chkEnableVideo.value = 1
.chkEnableChar.value = 0
.chkEnableInduction.value = 1
.chkEnableDeepener.value = 1
.chkEnableSuggestions.value = 1
.chkEnableWakener.value = 1
.chkEnableAudio.value = 1
.sliderVoicePitch.value = 200
If UseSAPI5 = False And SynthSpeech = True Then .sliderVoiceSpeed.value = 100
If UseSAPI5 = True And SynthSpeech = True Then .sliderVoiceSpeed.value = -5
If UseSAPI5 = False And SynthSpeech = True Then .sliderVoiceVolume.value = 32767
If UseSAPI5 = True And SynthSpeech = True Then .sliderVoiceVolume.value = 50
.SliderCharZoom.value = 100
.SliderVideoZoom.value = 90
.optSessionStandard.value = True
End With
Call PresetGlobals
End Sub

Public Sub Command21_Click()
Call frmSession.LoadDefaults(3, True)
With frmSession
Call .SelectFile("defaultinduct.txt", 1)
Call .SelectFile("defaultdeep.txt", 2)
Call .SelectFile("trigrobot.txt", 3)
Call .SelectFile("defaultwake.txt", 4)
Call .SelectFile("5.mp3", 5)
Call .SelectFile("hypnospiral.m1v", 6)
Call .SelectFile("eye.acs", 7)
Call .SelectFile("defaultsub.txt", 8)
If UseSAPI5 = False Then Call .SelectFile("mike in space", 9) Else Call .SelectFile("microsoft mike", 9)
.SliderCharHoriz.value = 50
.SliderCharVert.value = 57
.chkEnableBinaural.value = 0
.chkEnableFlashers.value = 0
.chkEnableSubliminals.value = 1
.chkEnableVisuals.value = 0
.chkMonotone.value = 1
.chkWhisper.value = 0
.chkEnableVideo.value = 1
If UseSAPI5 = False And SynthSpeech = True Then .chkEnableChar.value = 1
.chkEnableInduction.value = 1
.chkEnableDeepener.value = 1
.chkEnableSuggestions.value = 1
.chkEnableWakener.value = 1
.chkEnableAudio.value = 1
.sliderVoicePitch.value = 60
If UseSAPI5 = False And SynthSpeech = True Then .sliderVoiceSpeed.value = 100
If UseSAPI5 = True And SynthSpeech = True Then .sliderVoiceSpeed.value = -5
If UseSAPI5 = False And SynthSpeech = True Then .sliderVoiceVolume.value = 32767
If UseSAPI5 = True And SynthSpeech = True Then .sliderVoiceVolume.value = 50
.SliderCharZoom.value = 150
.SliderVideoZoom.value = 90
.optSessionStandard.value = True
.optFlashHigh.value = True
End With
Call PresetGlobals
End Sub

Public Sub Command22_Click()
Call frmSession.LoadDefaults(3, True)
With frmSession
Call .SelectFile("defaultinduct.txt", 1)
Call .SelectFile("defaultdeep.txt", 2)
Call .SelectFile("triggersugg.txt", 3)
Call .SelectFile("defaultwake.txt", 4)
Call .SelectFile("5.mp3", 5)
Call .SelectFile("illusion.avi", 6)
Call .SelectFile("mouth.acs", 7)
Call .SelectFile("defaultsub.txt", 8)
If UseSAPI5 = False Then Call .SelectFile("freddy", 9) Else Call .SelectFile("microsoft mike", 9)
.SliderCharHoriz.value = 50
.SliderCharVert.value = 50
.chkEnableBinaural.value = 0
.chkEnableFlashers.value = 0
.chkEnableSubliminals.value = 1
.chkEnableVisuals.value = 0
.chkMonotone.value = 1
.chkWhisper.value = 0
.chkEnableVideo.value = 1
If UseSAPI5 = False And SynthSpeech = True Then .chkEnableChar.value = 1
.chkEnableInduction.value = 1
.chkEnableDeepener.value = 1
.chkEnableSuggestions.value = 1
.chkEnableWakener.value = 1
.chkEnableAudio.value = 1
.sliderVoicePitch.value = 108
If UseSAPI5 = False And SynthSpeech = True Then .sliderVoiceSpeed.value = 100
If UseSAPI5 = True And SynthSpeech = True Then .sliderVoiceSpeed.value = -5
If UseSAPI5 = False And SynthSpeech = True Then .sliderVoiceVolume.value = 32767
If UseSAPI5 = True And SynthSpeech = True Then .sliderVoiceVolume.value = 50
.SliderCharZoom.value = 85
.SliderVideoZoom.value = 125
.optSessionStandard.value = True
.optFlashHigh.value = True
End With
Call PresetGlobals
End Sub

Public Sub Command29_Click()
Call frmSession.LoadDefaults(3, True)
With frmSession
Call .SelectFile("longinduction.txt", 1)
Call .SelectFile("anesthesia.txt", 2)
Call .SelectFile("triggersugg.txt", 3)
Call .SelectFile("defaultwake.txt", 4)
Call .SelectFile("6.mp3", 5)
Call .SelectFile("hypnospiral.m1v", 6)
Call .SelectFile("angie.acs", 7)
Call .SelectFile("defaultsub.txt", 8)
If UseSAPI5 = False Then Call .SelectFile("mary", 9) Else Call .SelectFile("microsoft mary", 9)
.SliderCharHoriz.value = 50
.SliderCharVert.value = 50
.chkEnableBinaural.value = 0
.chkEnableFlashers.value = 0
.chkEnableSubliminals.value = 1
.chkEnableVisuals.value = 0
.chkMonotone.value = 0
.chkWhisper.value = 0
.chkEnableVideo.value = 1
If UseSAPI5 = False And SynthSpeech = True Then .chkEnableChar.value = 1
.chkEnableInduction.value = 1
.chkEnableDeepener.value = 1
.chkEnableSuggestions.value = 1
.chkEnableWakener.value = 1
.chkEnableAudio.value = 1
.sliderVoicePitch.value = 200
If UseSAPI5 = False And SynthSpeech = True Then .sliderVoiceSpeed.value = 100
If UseSAPI5 = True And SynthSpeech = True Then .sliderVoiceSpeed.value = -5
If UseSAPI5 = False And SynthSpeech = True Then .sliderVoiceVolume.value = 32767
If UseSAPI5 = True And SynthSpeech = True Then .sliderVoiceVolume.value = 50
.SliderCharZoom.value = 100
.SliderVideoZoom.value = 100
.optSessionStandard.value = True
End With
Call PresetGlobals
End Sub

Public Sub Command30_Click()
Call frmSession.LoadDefaults(3, True)
With frmSession
Call .SelectFile("trigger.txt", 1)
Call .SelectFile("defaultdeep.txt", 2)
Call .SelectFile("triggersugg.txt", 3)
Call .SelectFile("defaultwake.txt", 4)
Call .SelectFile("1.mp3", 5)
Call .SelectFile("blackwhite.gif", 6)
Call .SelectFile("angie.acs", 7)
Call .SelectFile("defaultsub.txt", 8)
If UseSAPI5 = False Then Call .SelectFile("mary", 9) Else Call .SelectFile("microsoft mary", 9)
.SliderCharHoriz.value = 50
.SliderCharVert.value = 50
.chkEnableBinaural.value = 0
.chkEnableFlashers.value = 0
.chkEnableSubliminals.value = 1
.chkEnableVisuals.value = 0
.chkMonotone.value = 0
.chkWhisper.value = 0
.chkEnableVideo.value = 1
If UseSAPI5 = False And SynthSpeech = True Then .chkEnableChar.value = 1
.chkEnableInduction.value = 1
.chkEnableDeepener.value = 1
.chkEnableSuggestions.value = 1
.chkEnableWakener.value = 1
.chkEnableAudio.value = 1
.sliderVoicePitch.value = 200
If UseSAPI5 = False And SynthSpeech = True Then .sliderVoiceSpeed.value = 100
If UseSAPI5 = True And SynthSpeech = True Then .sliderVoiceSpeed.value = -5
If UseSAPI5 = False And SynthSpeech = True Then .sliderVoiceVolume.value = 32767
If UseSAPI5 = True And SynthSpeech = True Then .sliderVoiceVolume.value = 50
.SliderCharZoom.value = 100
.SliderVideoZoom.value = 100
.optSessionStandard.value = True
End With
Call PresetGlobals
End Sub

Public Sub Command31_Click()
Call frmSession.LoadDefaults(3, True)
With frmSession
Call .SelectFile("eyeballs up.txt", 1)
Call .SelectFile("defaultdeep.txt", 2)
Call .SelectFile("hand drop.txt", 3)
Call .SelectFile("defaultwake.txt", 4)
Call .SelectFile("3.mp3", 5)
Call .SelectFile("amazing.gif", 6)
Call .SelectFile("angie.acs", 7)
Call .SelectFile("defaultsub.txt", 8)
If UseSAPI5 = False Then Call .SelectFile("mary", 9) Else Call .SelectFile("microsoft mary", 9)
.SliderCharHoriz.value = 50
.SliderCharVert.value = 50
.chkEnableBinaural.value = 0
.chkEnableFlashers.value = 0
.chkEnableSubliminals.value = 1
.chkEnableVisuals.value = 0
.chkMonotone.value = 0
.chkWhisper.value = 0
.chkEnableVideo.value = 1
.chkEnableChar.value = 0
.chkEnableInduction.value = 1
.chkEnableDeepener.value = 1
.chkEnableSuggestions.value = 1
.chkEnableWakener.value = 1
.chkEnableAudio.value = 1
.sliderVoicePitch.value = 200
If UseSAPI5 = False And SynthSpeech = True Then .sliderVoiceSpeed.value = 100
If UseSAPI5 = True And SynthSpeech = True Then .sliderVoiceSpeed.value = -5
If UseSAPI5 = False And SynthSpeech = True Then .sliderVoiceVolume.value = 32767
If UseSAPI5 = True And SynthSpeech = True Then .sliderVoiceVolume.value = 50
.SliderCharZoom.value = 100
.SliderVideoZoom.value = 50
.optSessionStandard.value = True
End With
Call PresetGlobals
End Sub

Public Sub Command32_Click()
Call frmSession.LoadDefaults(3, True)
Loading = True
With frmSession
Call .SelectFile("association method.txt", 1)
Call .SelectFile("defaultdeep.txt", 2)
Call .SelectFile("number press.txt", 3)
Call .SelectFile("defaultwake.txt", 4)
Call .SelectFile("6.mp3", 5)
Call .SelectFile("colors.m1v", 6)
Call .SelectFile("angie.acs", 7)
Call .SelectFile("defaultsub.txt", 8)
If UseSAPI5 = False Then Call .SelectFile("mary", 9) Else Call .SelectFile("microsoft mary", 9)
.SliderCharHoriz.value = 50
.SliderCharVert.value = 50
.chkEnableBinaural.value = 1
.chkEnableFlashers.value = 0
.chkEnableSubliminals.value = 1
.chkEnableVisuals.value = 1
.chkMonotone.value = 0
.chkWhisper.value = 0
.chkEnableVideo.value = 0
.chkEnableChar.value = 0
.chkEnableInduction.value = 1
.chkEnableDeepener.value = 1
.chkEnableSuggestions.value = 1
.chkEnableWakener.value = 1
.chkEnableAudio.value = 0
.sliderVoicePitch.value = 200
If UseSAPI5 = False And SynthSpeech = True Then .sliderVoiceSpeed.value = 100
If UseSAPI5 = True And SynthSpeech = True Then .sliderVoiceSpeed.value = -5
If UseSAPI5 = False And SynthSpeech = True Then .sliderVoiceVolume.value = 32767
If UseSAPI5 = True And SynthSpeech = True Then .sliderVoiceVolume.value = 50
.SliderCharZoom.value = 100
.SliderVideoZoom.value = 100
.optSessionStandard.value = True
End With
VisualMaker.SSTab1.Tab = 1
VisualMaker.Label16.Caption = "1786"
VisualMaker.Label1.Caption = "2404"
VisualMaker.Check4.value = 1
VisualMaker.Slider1.value = 13
VisualMaker.Slider3.value = 4000
VisualMaker.Slider4.value = 4000
VisualMaker.Slider5.value = 15
VisualMaker.Slider7.value = 86
VisualMaker.Option4.value = True
VisualMaker.Check1.value = 0
VisualMaker.Check2.value = 1
VisualMaker.Check3.value = 0
VisualMaker.Slider2.value = 8
SpiralThickness = 1
Loading = False
Call PresetGlobals
End Sub

Public Sub Command34_Click()
Call frmSession.LoadDefaults(3, True)
With frmSession
Call .SelectFile("defaultinduct.txt", 1)
Call .SelectFile("defaultdeep.txt", 2)
Call .SelectFile("successloop.txt", 3)
Call .SelectFile("defaultwake.txt", 4)
'Call .SelectFile("6.mp3", 5)
Call .SelectFile("kscope.gif", 6)
Call .SelectFile("angie.acs", 7)
Call .SelectFile("defaultsub.txt", 8)
If UseSAPI5 = False Then Call .SelectFile("mary", 9) Else Call .SelectFile("microsoft mary", 9)
.SliderCharHoriz.value = 50
.SliderCharVert.value = 50
.chkEnableBinaural.value = 1
.chkEnableFlashers.value = 1
.chkEnableSubliminals.value = 1
.chkEnableVisuals.value = 0
.chkMonotone.value = 0
.chkWhisper.value = 0
.chkEnableVideo.value = 1
If UseSAPI5 = False And SynthSpeech = True Then .chkEnableChar.value = 1
.chkEnableInduction.value = 1
.chkEnableDeepener.value = 1
.chkEnableSuggestions.value = 1
.chkEnableWakener.value = 1
.chkEnableAudio.value = 0
.sliderVoicePitch.value = 200
If UseSAPI5 = False And SynthSpeech = True Then .sliderVoiceSpeed.value = 100
If UseSAPI5 = True And SynthSpeech = True Then .sliderVoiceSpeed.value = -5
If UseSAPI5 = False And SynthSpeech = True Then .sliderVoiceVolume.value = 32767
If UseSAPI5 = True And SynthSpeech = True Then .sliderVoiceVolume.value = 50
.SliderCharZoom.value = 100
.SliderVideoZoom.value = 100
.optSessionStandard.value = True
End With
Call PresetGlobals
End Sub

Public Sub Command5_Click()
Call frmSession.LoadDefaults(3, True)
With frmSession
Call .SelectFile("defaultinduct.txt", 1)
Call .SelectFile("defaultdeep.txt", 2)
Call .SelectFile("defaultsuggest.txt", 3)
Call .SelectFile("defaultwake.txt", 4)
Call .SelectFile("6.mp3", 5)
Call .SelectFile("colors.m1v", 6)
Call .SelectFile("angie.acs", 7)
Call .SelectFile("defaultsub.txt", 8)
If UseSAPI5 = False Then Call .SelectFile("mary", 9) Else Call .SelectFile("microsoft mary", 9)
.SliderCharHoriz.value = 50
.SliderCharVert.value = 50
.chkEnableBinaural.value = 0
.chkEnableFlashers.value = 0
.chkEnableSubliminals.value = 1
.chkEnableVisuals.value = 0
.chkMonotone.value = 0
.chkWhisper.value = 0
.chkEnableVideo.value = 1
If UseSAPI5 = False And SynthSpeech = True Then .chkEnableChar.value = 1
.chkEnableInduction.value = 1
.chkEnableDeepener.value = 1
.chkEnableSuggestions.value = 1
.chkEnableWakener.value = 1
.chkEnableAudio.value = 1
.sliderVoicePitch.value = 200
If UseSAPI5 = False And SynthSpeech = True Then .sliderVoiceSpeed.value = 100
If UseSAPI5 = True And SynthSpeech = True Then .sliderVoiceSpeed.value = -5
If UseSAPI5 = False And SynthSpeech = True Then .sliderVoiceVolume.value = 32767
If UseSAPI5 = True And SynthSpeech = True Then .sliderVoiceVolume.value = 50
.SliderCharZoom.value = 100
.SliderVideoZoom.value = 100
.optSessionStandard.value = True
End With
Call PresetGlobals
End Sub

Public Sub Command6_Click()
Call frmSession.LoadDefaults(3, True)
With frmSession
Call .SelectFile("defaultinduct.txt", 1)
Call .SelectFile("defaultdeep.txt", 2)
Call .SelectFile("hypnoslave.txt", 3)
Call .SelectFile("defaultwake.txt", 4)
Call .SelectFile("5.mp3", 5)
Call .SelectFile("spiral2.swf", 6)
Call .SelectFile("mouth.acs", 7)
Call .SelectFile("defaultsub.txt", 8)
If UseSAPI5 = False Then Call .SelectFile("mike in space", 9) Else Call .SelectFile("microsoft mike", 9)
.SliderCharHoriz.value = 50
.SliderCharVert.value = 50
.chkEnableBinaural.value = 0
.chkEnableFlashers.value = 0
.chkEnableSubliminals.value = 1
.chkEnableVisuals.value = 0
.chkMonotone.value = 1
.chkWhisper.value = 0
.chkEnableVideo.value = 1
If UseSAPI5 = False And SynthSpeech = True Then .chkEnableChar.value = 1
.chkEnableInduction.value = 1
.chkEnableDeepener.value = 1
.chkEnableSuggestions.value = 1
.chkEnableWakener.value = 1
.chkEnableAudio.value = 1
.sliderVoicePitch.value = 114
If UseSAPI5 = False And SynthSpeech = True Then .sliderVoiceSpeed.value = 100
If UseSAPI5 = True And SynthSpeech = True Then .sliderVoiceSpeed.value = -5
If UseSAPI5 = False And SynthSpeech = True Then .sliderVoiceVolume.value = 32767
If UseSAPI5 = True And SynthSpeech = True Then .sliderVoiceVolume.value = 50
.SliderCharZoom.value = 100
.SliderVideoZoom.value = 90
.optSessionStandard.value = True
.optFlashHigh.value = True
End With
Call PresetGlobals
End Sub

Public Sub Command8_Click()
Call frmSession.LoadDefaults(3, True)
With frmSession
Call .SelectFile("defaultinduct.txt", 1)
Call .SelectFile("defaultdeep.txt", 2)
Call .SelectFile("defaultsuggest.txt", 3)
Call .SelectFile("defaultwake.txt", 4)
Call .SelectFile("5.mp3", 5)
Call .SelectFile("coolspiral.m1v", 6)
Call .SelectFile("e-woman.acs", 7)
Call .SelectFile("defaultsub.txt", 8)
If UseSAPI5 = False Then Call .SelectFile("mary in space", 9) Else Call .SelectFile("microsoft mary", 9)
.SliderCharHoriz.value = 50
.SliderCharVert.value = 63
.chkEnableBinaural.value = 0
.chkEnableFlashers.value = 0
.chkEnableSubliminals.value = 1
.chkEnableVisuals.value = 0
.chkMonotone.value = 1
.chkWhisper.value = 0
.chkEnableVideo.value = 1
If UseSAPI5 = False And SynthSpeech = True Then .chkEnableChar.value = 1
.chkEnableInduction.value = 1
.chkEnableDeepener.value = 1
.chkEnableSuggestions.value = 1
.chkEnableWakener.value = 1
.chkEnableAudio.value = 1
.sliderVoicePitch.value = 250
If UseSAPI5 = False And SynthSpeech = True Then .sliderVoiceSpeed.value = 100
If UseSAPI5 = True And SynthSpeech = True Then .sliderVoiceSpeed.value = -5
If UseSAPI5 = False And SynthSpeech = True Then .sliderVoiceVolume.value = 32767
If UseSAPI5 = True And SynthSpeech = True Then .sliderVoiceVolume.value = 50
.SliderCharZoom.value = 200
.SliderVideoZoom.value = 80
.optSessionStandard.value = True
End With
Call PresetGlobals
End Sub

Public Sub Command9_Click()
Call frmSession.LoadDefaults(3, True)
With frmSession
Call .SelectFile("defaultinduct.txt", 1)
Call .SelectFile("defaultdeep.txt", 2)
Call .SelectFile("defaultsuggest.txt", 3)
Call .SelectFile("defaultwake.txt", 4)
Call .SelectFile("1.mp3", 5)
Call .SelectFile("hypnovideo.m1v", 6)
Call .SelectFile("vrgirl.acs", 7)
Call .SelectFile("defaultsub.txt", 8)
If UseSAPI5 = False Then Call .SelectFile("mary", 9) Else Call .SelectFile("microsoft mary", 9)
.SliderCharHoriz.value = 50
.SliderCharVert.value = 61
.chkEnableBinaural.value = 0
.chkEnableFlashers.value = 0
.chkEnableSubliminals.value = 1
.chkEnableVisuals.value = 0
.chkMonotone.value = 0
.chkWhisper.value = 0
.chkEnableVideo.value = 1
If UseSAPI5 = False And SynthSpeech = True Then .chkEnableChar.value = 1
.chkEnableInduction.value = 1
.chkEnableDeepener.value = 1
.chkEnableSuggestions.value = 1
.chkEnableWakener.value = 1
.chkEnableAudio.value = 1
.chkEnableAudio_Click
.sliderVoicePitch.value = 160
If UseSAPI5 = False And SynthSpeech = True Then .sliderVoiceSpeed.value = 100
If UseSAPI5 = True And SynthSpeech = True Then .sliderVoiceSpeed.value = -5
If UseSAPI5 = False And SynthSpeech = True Then .sliderVoiceVolume.value = 32767
If UseSAPI5 = True And SynthSpeech = True Then .sliderVoiceVolume.value = 50
.SliderCharZoom.value = 200
.SliderVideoZoom.value = 85
.optSessionStandard.value = True
End With
Call PresetGlobals
End Sub

Private Sub Form_Activate()
If ModeVal = 1 Then Call Mode_Professional
If ModeVal = 2 Then Call Mode_Recreational
End Sub

Private Sub Form_Load()
Me.Height = 5250
Me.Left = (ScreenX / 2) - (Me.Width / 2)
Me.top = (ScreenY / 2) - (Me.Height / 2)
If ModeVal = 1 Then Call Mode_Professional
If ModeVal = 2 Then Call Mode_Recreational
End Sub

Private Sub PresetGlobals()
With frmSession
Call .chkEnableSubliminals_Click
Call .chkMonotone_Click
Call .chkWhisper_Click
Call .chkEnableVideo_Click
Call .chkEnableInduction_Click
Call .chkEnableDeepener_Click
Call .chkEnableSuggestions_Click
Call .chkEnableWakener_Click
Call .chkEnableAudio_Click
End With
If Loading = False Then MsgBox "Preset Loaded", vbOKOnly + vbInformation, "Virtual Hypnotist"
Me.Hide
End Sub
