<video testvideo>
/numitems=1
/items=("PE1mid.wmv")
/select= noreplace
/ size = (100%,100%)
/playthrough=true
</video>
<video videox>
/numitems=6
/items=("mJaven.wmv", "mVance.wmv", "mWayne.wmv","fKylie.wmv", "fLindsay.wmv", "fRobyn.wmv")
/select= noreplace
/ size = (100%,100%)
/playthrough=true
</video>
<video video2>
/numitems=6
/items=("Geese.wmv", "Plains.wmv", "Clouds.wmv", "Herds.wmv", "Gnus.wmv", "Dolphins.wmv")
/select=noreplace
/size= (100%,100%)
/playthrough=true
</video>
<video testvideo2>
/numitems=1
/items=("PE2mid.wmv")
/select= noreplace
/ size = (100%,100%)
/playthrough=true
</video>
<item questions>
/1 = "How sexually attracted are you to this person?"
/2 = "How sexually appealing is this person to you?"
/3 = "How much would you like to date this person?"
</item>
<text question>
/ items = questions
/ select = noreplace
</text>
<item between>
/1="Please tell the experimenter you have stopped watching the nature video."
</item>
<text between>
/ items = between
/ select = noreplace
</text>
<trial testvideo>
/stimulusframes=[1=testvideo, testvideosig]
/responsemode=noresponse
</trial>
<trial videox>
/stimulusframes=[1=videox, videoxsig]
/responsemode=noresponse
</trial>
<trial video2>
/stimulusframes=[1=video2, video2sig]
/responsemode=noresponse
</trial>
<trial testvideo2>
/stimulusframes=[1=testvideo2, testvideo2sig]
/responsemode=noresponse
</trial>
<likert question>
/stimulusframes=[1=question]
/numpoints=7
/anchors=[1="not at all"; 4="average"; 7="very much"]
/anchorwidth=30
/position=(50,75)
</likert>
<trial between>
/stimulusframes=[1=between]
/ inputdevice=keyboard
/ validresponse = (8)
</trial>
<block testvideo>
/trials=[1=testvideo]
/preinstructions=(pretestvideo)
</block>
<page pretestvideo>
The experiment will both start and finish with an animation of clouds. This is simply for us to test our equipment, and you do not have to do anything but watch.^^
Between videos of people you will watch nature scenes. Their purpose is to give you a break between the erotic videos. After you have watched these nature scenes, tell the experimenter that you are ready to watch the next erotic video.^^
Remember to rate the attractiveness of each person as compared to the average person.
^^Click on "Next" to begin.
</page>
<block videox>
/trials=[
1,
7,
13,
19,
25,
31,
=videox;
2-4,
8-10,
14-16,
20-22,
26-28,
32-34,
=question;
5,
11,
17,
23,
29,
35,
=video2;
6,
12,
18,
24,
30,
36,
=between]
/preinstructions=(prevideox)
</block>
<page prevideox>
Now the real experiment can begin. ^^
Click on "Next" to continue.
</page>
<block testvideo2>
/trials=[1=testvideo2]
</block>
<expt>
/preinstructions=(intro1; intro2)
/blocks=[1=testvideo;2=videox;3=testvideo2]
/postinstructions=(end)
</expt>
<page intro1>
Welcome!^^
We are interested in your reactions to a series of videos of people.^^
These videos will show nude people masturbating and will be highly sexually explicit.^^
Click on "Next" to continue.
</page>
<page intro2>
After each video you will be asked how sexually attracted you are to this person, how sexy this person is to you,
and how likely you would want to date this person.^^
When giving your answers, compare each woman to the average woman and each man to the average man.
If you are in a relationship, rate each person as if you would be single.^^
Do not worry about rating people of a gender you are not sexually attracted to (e.g., men if you are a straight man). Your can always indicate that you are not attracted to a person.^^
Click on "Next" to continue.
</page>
<page end>
That's it. You're done! Thank you for participating.
</page>
<defaults>
/ color = (104, 119, 119)
/ txbgcolor = (104, 119, 119)
/ txcolor = (248, 248, 0)
/ screencolor = (104, 119, 119)
/ font = ("Arial", -24, 400, 0, 34)
</defaults>
<data>
/format=tab
/columns=[date time build subject trialcode blockcode blocknum
trialnum latency response stimulusitem stimulusnumber]
</data>
<instruct>
/ font = ("Arial", -24, 400, 0, 34)
/ screencolor = (104, 119, 119)
/txcolor = (248, 248, 0)
/ inputdevice = mouse
/ nextlabel = "Next"
/ lastlabel = "Next"
/ prevkey = (noresponse)
</instruct>
<port testvideosig>
/select = current(testvideo)
/ items = ("00000001")
/ port = lpt1
/ subport = data
</port>
<port videoxsig>
/ select = current(videox)
/ items = ("00000010","00000011","00000100","00000101","00000110","00000111")
/ port = lpt1
/ subport = data
</port>
<port mJaven.wmv>
/ select = mJaven.wmv
/ items = ("00000010")
/ port = lpt1
/ subport = data
</port>
<port mVance.wmv>
/ select = mVance.wmv
/ items = ("00000011")
/ port = lpt1
/ subport = data
</port>
<port mWayne.wmv>
/ select = mWayne.wmv
/ items = ("00000100")
/ port = lpt1
/ subport = data
</port>
<port fKylie.wmv>
/ select = fKylie.wmv
/ items = ("00000101")
/ port = lpt1
/ subport = data
</port>
<port fLindsay.wmv>
/ select = fLindsay.wmv
/ items = ("00000110")
/ port = lpt1
/ subport = data
</port>
<port fRobyn.wmv>
/ select = fRobyn.wmv
/ items = ("00000111")
/ port = lpt1
/ subport = data
</port>
<port video2sig>
/ select = current(video2)
/ items = ("00001000","00001001","00001010", "00001011","00001100","00001101")
/ port = lpt1
/ subport = data
</port>
<port Geese.wmv>
/ select = Geese.wmv
/ items = ("00001000")
/ port = lpt1
/ subport = data
</port>
<port Plains.wmv>
/ select = Plains.wmv
/ items = ("00001001")
/ port = lpt1
/ subport = data
</port>
<port Clouds.wmv>
/ select = Clouds.wmv
/ items = ("00001010")
/ port = lpt1
/ subport = data
</port>
<port Herds.wmv>
/ select = Herds.wmv
/ items = ("00001011")
/ port = lpt1
/ subport = data
</port>
<port Gnus.wmv>
/ select = Gnus.wmv
/ items = ("00001100")
/ port = lpt1
/ subport = data
</port>
<port Dolphins.wmv>
/ select = Dolphins.wmv
/ items = ("00001101")
/ port = lpt1
/ subport = data
</port>
<port testvideo2sig>
/select = current(testvideo2)
/ items = ("00001110")
/ port = lpt1
/ subport = data
</port>