# Instant - Quick Freeze Test:
# ===============================================================================
#
#
# Description:	This is part of a modular approach to hypnotic script assembly.
#		This sub-script is for doing a quick freeze and unfreeze to see
#		if the subject can move while frozen to generate a test fail.
#
#
# Created by:
#			Interstel@tampabayadult.net
#
# Modifications:
#			Interstel@tampabayadult.net
#
# Revision History:
#			1.0	03/15/2005
#			1.3	07/18/2005
#			1.5	07/20/2005
#
# Variables Used:
#			name:		default VH name of subject
#			 51:		return status of freeze pass/fail
#			100:		random numbers to get total time passage
#			103:		temp name holder assign from %name% or %254%
#			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 51> 0
<set 103> %name%
<if 249=> y
<set 103> %254%
#
# setup
#
<rand 1000,2000> 100
<speak> %103%, eyes open if they are closed but remain in a deep relaxing trance.   \pau=%100%\
<rand 1000,4000> 100
<sound> snap.wav
<speak> \emp\freeze!  %103%, do not move.  Do not move \emp\anything or \emp\anypart of your body.   \pau=%100%\
<rand 1000,2000> 100
<speak> You cannot move until your are told to \emp\unfreeze!.   \pau=%100%\
<rand 1000,4000> 100
<speak> If you are told to move while you are \emp\frozen you will simply ignore that command because the \emp\freeze! command is in effect.  \pau=%100%\
<rand 1000,2000> 100
<speak> If you are told to do something that can be accomplished without having to move \emp\externally then you may do it.   \pau=%100%\
<rand 1000,3000> 100
<sound> snap.wav
<speak> \emp\deep \emp\asleep.   \pau=%100%\
<speak> %103%, \emp\sleep \emp\now is the \emp\same as \emp\deep \emp\asleep.
<speak> \emp\sleep \emp\now.   \pau=%100%\
<rand 1000,2000> 100
<speak> You are now asleep with your eyes open.   \pau=%100%\
<speak> Your trance level has just \emp\doubled.   \pau=2000\
<speak> Raise both your arms.   \pau=1000\
<rand 1000,4000> 100
<speak> \emp\unfreeze! You can now move.   \pau=%100%\
<rand 1000,2000> 100
<speak> %103%, are you arms raised?  Click \emp\yes if they are and \emp\no if they are not with your mouse.   \pau=%100%\
<yesno> Yes/No?
<if yesno=> yes
<set 51> 1
<if 51=> 1
<speak> %103%, put your arms down.   \pau=2000\
#
# End:
#
EXIT:
<end>