#
# Deepener - Eye Catalepsy:
# ===============================================================================
#
#
# Description:	This is part of a modular approach to hypnotic script assembly.
#		This sub-script is a deepener script.  Standard eye catalepsy
#		enhanced with sounds and pauses.  It passes no information
#		and does not make assumptions about the subject.
#
#
# Created by:
#			Interstel@tampabayadult.net
#
# Modifications:
#			Interstel@tampabayadult.net
#
# Revision History:
#			1.0	08/05/2005
#			1.5	08/24/2005
#
# Variables Used:
#			name:		default VH name of subject
#			100:		random numbers to get total time passage
#			103:		temp name holder assign from %103% or %254%
#			104:		random variable
#			105:		counter
#			249:		if "y" present use slave name
#			254:		slave name of subject
#
# Comments:
#			stand alone version.  makes 2 repetitions.
#
#
# Begin:
#	Test to see if slave name
#
<set 103> %name%
<if 249=> y
<set 103> %254%
#
# Quick deepen and freeze with random motion
#
<set 105> 0
<set 240> %trigger%
<speak> Open your eyes but remain in a deep trance.   \pau=1500\
TEST2:
<speak> %103%, \emp\freeze!
#
# load test
#
<loadcall> suggestions\Instant - Quick Freeze Test.txt
#
# now check test return variable for success
#
<if 51=> 0
<gotolabel> TEST3
<speak> %254% when I, your %253%, \emp\command you to not move, \emp\you \pau=200\ \emp\do \pau=200\ \emp\not \pau=200\ \emp\move \pau=200\.   \pau=2000\
<speak> Lets try again.   \pau=1000\
<gotolabel> TEST2
#
# TEST3:
#	set safety situation for stuck situations.
#
TEST3:
#
# load test
#
<loadcall> suggestions\Instant - Safety Net.txt
#
# setup next
#
<rand 1000,2000> 101
<speak> %103%, everytime you obey my words and do as I say you sink deeper and deeper.   \pau=%101%\
<rand 1000,2000> 101
<speak> %103%, the more I talk the more you listen, the more you listen the deeper you sink, the deeper you sink the more obedient you are to my power.   \pau=%101%\
<rand 1000,2000> 101
<speak> %103%, the more obedient you are to my power, the more completely you obey all my words, which brings a complete focus to your existence.   \pau=%101%\
<set 104> 0
<rand 0,100> 104
<if 104<> 75
<gotolabel> NEXT0
<rand 1000,2000> 101
<speak> %103%, I want you to let me know how you feel? out loud right now.   \pau=%101%\
<rand 1000,2000> 101
<speak> %103%, if you did \emp\anything other than sit there I am disappointed in you, you will have to work harder to please me.   \pau=%101%\
<rand 1000,2000> 101
<speak> %103%, if you did \emp\nothing then I am pleased with you.   \pau=%101%\
NEXT0:
<speak> %103%, \emp\%240%
<speak> %103%, you are now \emp\twice as deep as you were a moment ago and asleep with your eyes wide open.
<speak> %103%, \emp\%240%
<speak> %103%, you are now \emp\twice as deep as you were a moment ago and asleep with your eyes wide open.
<speak> %103%, \emp\unfreeze!
<speak> Close your eyes while remaining in a deep trance.   \pau=1500\
#
# load Query trigger status
#
<set 105> 0
<set 240> deep asleep
<loadcall> deepeners\Deepener - Query Trigger Status 1.txt
<rand 2000,4000> 101
<speak> \pau=%101%\
#
# load positive affirmation 1
#
<loadcall> deepeners\deepener - Positive Trigger Affirmation 1.txt
#
# Main section
#
<set 105> 0
LOOP:
<calc 105+> 1
<if 105>> 2
<gotolabel> EXIT
<loadcall> deepeners\Deepener - Eye Catalepsy.txt
<gotolabel> LOOP
#
# End:
#
EXIT:
<speak> Open your eyes but remain in a deep trance.   \pau=1500\
#
# load positive affirmation 1
#
<loadcall> deepeners\deepener - Positive Trigger Affirmation 1.txt
<end>