#
# Audio Suggestion:
# ===============================================================================
#
#
# Description:	This is part of a modular approach to hypnotic script assembly.
#		This script uses an mp3 for the suggestion presentation process.
#		The mp3 can simply be a induction/suggestion file that has been
#		cut down to suggestion only or a special purpose high performance
#		mp3.  The VH character voice chimes in occasionally with a whisper
#		reinforcement and a random delivered series of helper suggestions
#		that occur randomly.  It surpresses the session selected
#		background audio during its operation and cuts out a variety of
#		other VH elements to clarify focus.  i.e. flashers, binaural, etc.
#
#
# Created by:
#			Interstel@tampabayadult.net
#
# Modifications:
#			Interstel@tampabayadult.net
#
# Revision History:
#			1.0	09/18/2005
#			1.1	09/21/2005
#			1.2	09/23/2005
#			1.25	09/25/2005
#			1.3	09/26/2005
#			1.35	09/27/2005
#			1.5	09/28/2005
#			1.7	10/10/2005
#			2.0	06/22/2006
#
# Variables Used:
#			name:		default VH name of subject
#			trigger:		default VH trigger variable
#			gender:		default VH gender variable
#			103:		temp name holder assign from %103% or %254%
#			104:		random number 5000-20000
#			105:		counter
#			106:		current time interval
#			107:		total time counter
#			108:		random number 1-10
#			109:		offset calculation
#			196:		Perform Subject Time Checking?
#			197:		Voice On/Off
#			198:		Emergency Exit Parameter variable, states name of script and cause of exit.
#			199:		0-save data, 1-restore data, 2-perform
#			200:		save/restore backvol value
#			201:		save/restore backfile value
#			202:		save/restore backposition value
#			203:		save/restore backrate value
#			204:		save/restore backbal value
#			205:		save/restore custvol value
#			206:		save/restore custfile value
#			207:		save/restore custposition value
#			208:		save/restore custrate value
#			209:		save/restore custbal value
#			210:		save/restore vidvol value
#			211:		save/restore vidfile value
#			212:		save/restore vidposition value
#			213:		save/restore vidrate value
#			214:		save/restore vidbal value
#			215:		save/restore vidstat on/off value
#			215:		save/restore tonevol value
#			216:		save/restore maskvol value
#			217:		save/restore flasher on/off value
#			249:		if "y" present use slave name
#			254:		slave name of subject
#
# Comments:
#			This module makes use of random pause intervals
#			so that complacency and/or defenses can be side
#			stepped.  %100% is an internal sentence pause.
#			While %101% is a longer end of sentence pause.
#
#
# Begin:
#	Test to see if slave name
#
<set 103> %name%
<if> %249% = y
<set 103> %254%
#
#  save video/custom/back variable values
#
<if> %199% = 2
<loadcall> suggestions\Instant - Data Save And Restore.txt
#
# reset certain session variables so that this script has
# primary sensory attention
#
<backvol> -5000
<vidvol> -5000
<tonevol> -4500
<maskvol> -5500
<backrate> 100
<flashers> off
<vidstat> hide
#
# time check
#
<speak> the variable is %196%
<if> %196% = 1
<loadcall> suggestions\Instant - Check Time.txt
#
# Quick deepening
#	the test value of "3" determines the # of deepenings
#
<set 105> 0
LOOP:
<set 105> (%105% + 1)
<if> %105% > 3
<gotolabel> NEXT
<speak> %103% each time I invoke your trance keyword and snap my fingers.  Its affects will double over the last time you heard it.
<speak> Just like listening to my voice sends you spirally down, deeper and deeper.
<speak> %trigger%
<sound> snap.wav
<speak> \pau=(500 @ 1500)\
<speak> %103% close your eyes
<speak> \pau=(500 @ 1500)\
<speak> %103% Open your eyes
<gotolabel> LOOP
#
# Preparation Suggestions to the Audio Phase
#
NEXT:
<speak> \pau=(500 @ 1500)\
<speak> %103% close your eyes.   \pau=(1500 @ 3000)\
<speak> %103% the voice you are about to hear other than my own \emp\must be obeyed.   \(1500 @ 3000)\
<speak> %103% you want what the voice wants to give you.   \pau=(1500 @ 3500)\
<speak> %103% you need what the voice wants to give you.   \pau=(1500 @ 3500)\
<speak> %103% you have choosen to listen because you want what the voice can give you.   \pau=(1500 @ 3500)\
<sound> snap.wav
<speak> %103% you will completely and utterly do and follow what the voice tells you.   \pau=(1500 @ 3500)\
#
# Check Voice
#
<if> %197% = 1
<goto> +2
<goto> +6
# voice
<speak> Do you understand?
<getvoice>
<if> %voice% ! yes
<goto> -3
# no voice
#
# end Check Voice
#
<speak> %103% you will hear a chorus of the voice each telling you different things but one louder than the others.
<speak> %103% your subconscious mind can process them all effortlessly and as you listen to the chorus you become completely involved and captivated in its rhythyms and paces.
<speak> %103% your conscious mind may or may not comprehend but your subconscious mind understands with crystalline clarity.
<speak> %103% your subconscious mind will do its utmost to completely and totally comply with everything it hears from the chorus and the lead voice.
#
# Check Voice
#
<if> %197% = 1
<goto> +2
<goto> +6
# voice
<speak> Do you understand?
<getvoice>
<if> %voice% ! yes
<goto> -3
# no voice
#
# end Check Voice
#
#
# time check
#
<if> %196% = 1
<loadcall> suggestions\Instant - Check Time.txt
#
# ##
# Setup Primary Audio File Playback Phase I
# ##
#
<speak> \pau=5000\
<backfile> WMM -pg-hty-r-sr-s- lj-ll.mp3
<backvol> -750
<set 105> 0
<set 107> %elapsedtime%
#
# random comments from Character during audio playback
#
<set 104> 0
<set 106> %backposition%
TIMERLOOP:
#
# whisper compaign, assigned est. 8 sec consumed each pass.
#
<speak> \spd=200\ \vol=7500\ \chr="Whisper"\ You \emp\can \emp\not \emp\cum, you \emp\will \emp\not \emp\orgasm unless told to do so. \spd=100\ \vol=32768\ \Chr="Normal"\
<speak> \spd=200\ \vol=7500\ \chr="Whisper"\ You can be \emp\rock \emp\hard on command if you are \emp\ordered to. \spd=100\ \vol=32768\ \Chr="Normal"\
#
# Check Voice
#
<if> %197% = 1
<goto> +2
<goto> +6
# voice
<speak> Do you understand?
<getvoice>
<if> %voice% ! yes
<goto> -3
# no voice
#
# end Check Voice
#
#<speak> the runtime is %106% and the backposition is %backposition%
#
# check to see if current time variable has exceeded actual playback time
#
<set 109> (%elapsedtime% - %107%)
<if> %109% > %backduration%
<gotolabel> FINAL
<if> %106% > %backposition%
<gotolabel> FINAL
<set 106> %backposition%
#
# create a random pause between random statements
# assigned a 12 sec value per loop. total added to 104 after pause 20 seconds.
#
<set 104> (15000 @ 45000)
<speak> \pau=%104%\
<set 104> (%104% + 20000)
<set 108> (1 @ 19)
<if> %108% > 16
<set 108> 16
#
# jump to a random suggestion
#
<gotolabel> %108%
1:
<speak> Pay attention %103%'s subconscious.
<gotolabel> TIMERLOOP
2:
<speak> Learn everything you hear %103% and feel pleasure while doing it.
<gotolabel> TIMERLOOP
3:
<speak> Become everything you hear %103%.
<gotolabel> TIMERLOOP
4:
<speak> Drop deeper still when I snap my fingers %103%.
<sound> snap.wav
<gotolabel> TIMERLOOP
5:
<speak> Let the voice you hear %103% become your whole world.
<gotolabel> TIMERLOOP
6:
<speak> Are you listening %103%?
<gotolabel> TIMERLOOP
7:
<speak> You have no choice but to listen and obey %103%.
<gotolabel> TIMERLOOP
8:
<speak> Listening and obeying give you pleasure %103%.
<gotolabel> TIMERLOOP
9:
<speak> The more you listen %103% the more pleasure you feel.
<gotolabel> TIMERLOOP
10:
<speak> The more pleasure you feel %103% the more you obey.
<gotolabel> TIMERLOOP
11:
<speak> Each time I snap my fingers %103% you will feel pleasure.
<sound> snap.wav
<gotolabel> TIMERLOOP
12:
<speak> %103% the things that you are hearing sink deeper and deeper into your mind.
<gotolabel> TIMERLOOP
13:
<speak> %103% the things you are learning are becoming a part of you.
<gotolabel> TIMERLOOP
14:
<speak> %103% you are becoming the things that you are hearing and learning more and more.
<gotolabel> TIMERLOOP
15:
<speak> Become more and more complaint and pliable when I snap my fingers %103%.
<sound> snap.wav
<gotolabel> TIMERLOOP
16:
<speak> %103% you are learning and becoming the things you are hearing because you have chosen to be here and it gives you pleasure to obey.
<gotolabel> TIMERLOOP
#
# Finish Audio Playback Phase
#
FINAL:
<backstat> pause
<backvol> -5000
#
# time check
#
<if> %196% = 1
<loadcall> suggestions\Instant - Check Time.txt
#
# final suggestions
#
<speak> The things you have heard and learned have taken root in you %103%.
<speak> %103% you will be changed by them and you will do them.
<speak> %103% you have have heard and learned these things because %103% you choose to.
<speak> So they have happened, are happening and will continue to happen.
#
#  restore video/custom/back variable values
#
<if> %199% = 1
<loadcall> suggestions\Instant - Data Save And Restore.txt
#
# End:
#
EXIT:
<end>
