multiple (serial) correct answers

[Paul Gr]

hi wendy,

As a starting point, you can do the following:

Just place a list object (for example ClickList) at the point where Slide1 
currently is positioned and define a procedure called ClickProc and set this 
as the default procedure for the list. Then, move Slide1 and the inline 
script to ClickProc. You can add rows (i.e. level) to the ClickList for each 
click you would like to handle. If you don't want the ClickProc to create 
output for each mouse click, you can disable the LogData property of 
ClickProc.

best
paul

>From: "Wendy Davidson" <wendy_davidson79 at hotmail.com>
>To: eprime at mail.talkbank.org
>Subject: multiple (serial) correct answers Date: Tue, 13 Jun 2006 11:18:29 
>+0100
>
>Hi everyone,
>I have a query and was hoping someone could help.
>
>I have designed an experiment in which the subject sees a stimulus (arrows 
>pointing in different directions in sequence) they then have to use the 
>mouse to click corresponding areas on the screen in the correct serial 
>order as the original presentation. There can be up to 8 possible 
>locations. I have used a slide with 8 areas i.e. "Image1" that they have to 
>click on.
>
>The script below works for only 1 location. How can I add more correct 
>responses AND in serial order?
>
>
>Mouse.ShowCursor True
>Dim theState as SlideState
>Set theState = Slide1.States ("State1")
>
>Dim ptMouse As Point
>Dim strHit As String
>
>Mouse.GetCursorPos ptMouse.x, ptMouse.y
>strHit = theState.HitTest(ptMouse.x, ptMouse.y)
>
>If strHit = "Image1" Then
>
>    Results.Text = "Correct!"
>     Slide1.ACC = 1
>Else
>     Results.Text = "Incorrect."
>     Slide1.ACC = 0
>End If
>
>
>