# Instant - Strip Now:
# ===============================================================================
#
#
# Description:	This is part of a modular approach to hypnotic script assembly.
#		This sub-script is for making the subject immediate strip, get
#		back into their seat, and await futher orders.
#
#
# Created by:
#			Interstel@tampabayadult.net
#
# Modifications:
#			Interstel@tampabayadult.net
#
# Revision History:
#			1.0	03/15/2005
#			1.5	07/20/2005
#
# Variables Used:
#			name:		default VH name of subject
#			 52:		return status of complaince question
#			101:		counter
#			103:		temp name holder assign from %name% or %254%
#			249:		if "y" present use slave name
#			254:		slave name of subject
#
# Comments:
#
#
# Begin:
#	Test to see if slave name
#
<set 103> %name%
<if 249=> y
<set 103> %254%
#
# setup variables
#
<set 52> 0
<set 101> 0
#
# strip the subject
#
STRIP:
<calc 101+> 1
<if 101>> 3
<gotolabel> FAIL
<speak> %103%, I your %253% order you to take off your all your clothes but do not start till I say \emp\BEGIN.   \pau=2000\
<speak> And when you are done taking off all your clothes then return to sitting in your chair,   \pau=2000\
<speak> with your headphones, sitting exactly line you were before you were told to disrobe.   \pau=1000\
<speak> When you have returned to your sitting postion click \emp\YES on the screen with your mouse that are sitting.  \pau=3000\
<speak> You will not become cold at all while your disrobed you will remain completely comfortable.   \pau=2000\
<speak> Later %103%, when you are finally awakened completely refreshed you will not notice you are nude for 15 minutes.   \pau=2000\
<speak> Click \emp\YES if you understand these instructions \emp\NO if you do not.    \pau=-2000\
<yesno> Yes/No?
<if yesno=> yes
<gotolabel> REGULAR
<speak> You have indicated you do not understand my \emp\COMMANDS.
<speak> Should I repeat them again %103%?  Click \emp\YES or \emp\NO.
<yesno> Yes/No?
<if yesno=> yes
<gotolabel> STRIP
<gotolabel> sPECIAL
#
# Regular Exit Path, instructions understood
#
REGULAR:
<set 52> 1
<gotolabel> RESULTS
#
# SPECIAL Exit Path, instructions not understood but going to try command
#
SPECIAL:
<set 52> 2
<gotolabel> RESULTS
#
# FAIL Exit Path, Too many explanations, does not understand, will not do command
#
FAIL:
<set 52> 3
<speak> You have indicated not understanding your instructions too many times.
<speak> I am skipping this part.
<end>
#
# Execute Command
#
RESULTS:
<speak> \emp\BEGIN.   \pau=1000\
<speak> \emp\BEGIN.   \pau=1000\
<yesno> Yes/No?
#
# End:
#
EXIT:
<speak> You are again sitting your chair, excellent %103%!
<speak> Are you disrobed answer \emp\YES or \emp\NO?
<yesno> Yes/No?
<if yesno=> yes
<set 52> 1
<end>