#
# Begin:
#	Theoretically, this file should help enhance suggestability
#
# by Interstel - re-written hand drop
BEGIN:
<set 15> 0
<set 198> Script name was "Hand Drop" and the cause was "three consecutive failures to responsond".
#
# Primary Loop
#
START:
<speak> \pau=4000\
<speak> %name%... Listen very carefully to my voice... I am now going to give you a suggestion...
<speak> First, place your wrist above the space bar on the keyboard, so that it can easily fall onto it...
<speak> During this session %name%... Whenever I say the word... sleep... your arm will drop and your hand will fall onto the space bar... and you will go deeper and deeper into trance... after your hand falls, lift it back up...
<speak> When you hear that word %name%... don't consciously try... just let your subconscious do the work...
<speak> During this session %name%... Whenever I say the word... sleep... your arm will drop and your hand will fall onto the space bar... and you will go deeper and deeper into trance... after your hand falls, lift it back up...
<speak> When you hear that word %name%... don't consciously try... just let your subconscious do the work...
#
# Setup Primary Variables
#
<set 12> 0
<set 13> 0
<Set 14> 0
#
# Check to see if too many failures
#
<calc 15+> 1
<if 15>> 3
<gotolabel> FAILURE
#
# top of outer loop running 15 repetitions
#
LOOPAGAIN:
<speak> \pau=7000\
<calc 12+> 1
<keybuffer>
<speak> sleep... \pau=4000\
<getkey>
#
# test if space key is hit and increment that counter
#
<if key=> Space
<calc 13+> 1
#
# test if loop versus key hits are close, if not goto error condition
#
<set 14> %12%
<calc 14-> %13%
<if 14>> 3
<gotolabel> NOTRESPONDING
#
#test to see if 15 outer loop repetitions have occurred
#
<if 12>> 14
<gotolabel> FINALCHECK
<gotolabel> LOOPAGAIN
#
# test that the number of hand drops was at least 8 out of 15 sleeps, if not goto error condition
#
FINALCHECK:
<if 13>> 7
<gotolabel> PASSED
#
# key hits version loop repetitions way off start over
#
NOTRESPONDING:
<speak> You seem to not be responding correctly. That's ok. Let's try it again...
<goto> START
#
# Failure to Respond properly too often
#
FAILURE:
<loadcall> suggestions\Instant - Emergency Exit.txt
<stop>
#
# Passed hand drop test
#
PASSED:
<speak> \pau=5000\
<speak> %name%... Listen very carefully to my voice...
#
# End:
#
EXIT:
<end>
