Post by corsi on Jun 27, 2022 6:45:00 GMT
Hi everyone! I'm new to Psytoolkit and am developing a forward Corsi task.
There's this block that keeps disappearing after the participants respond and click 'done'.
Anyone know how I can fix it? Thanks in advance
Here's my code:
#Forward Sequence
options
mouse on
origin topleft
set &Count 2 # starts with showing two blocks
bitmaps
yellow
purple
done
ticked
correct
wrong
instructions
ready1
ready2
ready3
mistake1
mistake2
mistake3
fonts
arial 30
sounds
gosignal go.mp3
part delay
delay 1000
clear -1
delay 1000
table practice1table
include practice1table.txt
task corsipractice1
table practice1table
# mouse off so that people cannot mouse during sequence presentation
mouse off
# show nine purple blocks
show bitmap purple @1 @2
show bitmap purple @3 @4
show bitmap purple @5 @6
show bitmap purple @7 @8
show bitmap purple @9 @10
show bitmap purple @11 @12
show bitmap purple @13 @14
show bitmap purple @15 @16
show bitmap purple @17 @18
show bitmap done 750 550
# now we are going to highlight some of the blocks (in yellow)
# there will always be two yellow blocks
show bitmap yellow @19 @20
part delay
show bitmap yellow @21 @22
part delay
sound gosignal
mouse show # now show cursor again
delay 100 # not really necessary, but gives a bit of time between sound and people's response
# read in sequence
while $x != 10
readmouse l 1 10000 range 1 10
set $myMouseX MOUSE_X
set $myMouseY MOUSE_Y
set $x under $myMouseX $myMouseY up range 1 10
if $x != 10
set $counter increase
fi
if $counter == 1 && $x != 10
set $b1 $x
fi
if $counter == 2 && $x != 10
set $b2 $x
fi
show bitmap ticked $myMouseX $myMouseY ## it has to be here, check while-end javascript coding
while-end
set $x 0
# now check if sequence is correct
set $SeqCorrect 0 # this means wrong
#if $counter == &Count
if &Count == 2 && $b1 == @37 && $b2 == @38
set $SeqCorrect 1
fi
#fi
## feedback (a smiley or frowney face in bottom right corner)
if $SeqCorrect == 1
show bitmap correct 750 550
fi
if $SeqCorrect == 0
show bitmap wrong 750 550
delay 1000
show bitmap mistake1
delay 2000
fi
delay 1000
clear 1
delay 1000
#second_run
table practice2table
include practice2table.txt
task corsipractice2
table practice2table
# mouse off so that people cannot mouse during sequence presentation
mouse off
# show nine purple blocks
show bitmap purple @1 @2
show bitmap purple @3 @4
show bitmap purple @5 @6
show bitmap purple @7 @8
show bitmap purple @9 @10
show bitmap purple @11 @12
show bitmap purple @13 @14
show bitmap purple @15 @16
show bitmap purple @17 @18
show bitmap done 750 550
# now we are going to highlight some of the blocks (in yellow)
# there will always be two yellow blocks
show bitmap yellow @19 @20
part delay
show bitmap yellow @21 @22
part delay
sound gosignal
mouse show # now show cursor again
delay 100 # not really necessary, but gives a bit of time between sound and people's response
# read in sequence
while $x != 10
readmouse l 1 10000 range 1 10
set $myMouseX MOUSE_X
set $myMouseY MOUSE_Y
set $x under $myMouseX $myMouseY up range 1 10
if $x != 10
set $counter increase
fi
if $counter == 1 && $x != 10
set $b1 $x
fi
if $counter == 2 && $x != 10
set $b2 $x
fi
show bitmap ticked $myMouseX $myMouseY ## it has to be here, check while-end javascript coding
while-end
set $x 0
# now check if sequence is correct
set $SeqCorrect 0 # this means wrong
#if $counter == &Count
if &Count == 2 && $b1 == @37 && $b2 == @38
set $SeqCorrect 1
fi
#fi
## feedback (a smiley or frowney face in bottom right corner)
if $SeqCorrect == 1
show bitmap correct 750 550
fi
if $SeqCorrect == 0
show bitmap wrong 750 550
delay 1000
show bitmap mistake2
delay 2000
fi
delay 1000
clear 1
delay 1000
#third_run
table practice3table
include practice3table.txt
task corsipractice3
table practice3table
# mouse off so that people cannot mouse during sequence presentation
mouse off
# show nine purple blocks
show bitmap purple @1 @2
show bitmap purple @3 @4
show bitmap purple @5 @6
show bitmap purple @7 @8
show bitmap purple @9 @10
show bitmap purple @11 @12
show bitmap purple @13 @14
show bitmap purple @15 @16
show bitmap purple @17 @18
show bitmap done 750 550
# now we are going to highlight some of the blocks (in yellow)
# there will always be two yellow blocks
show bitmap yellow @19 @20
part delay
show bitmap yellow @21 @22
part delay
sound gosignal
mouse show # now show cursor again
delay 100 # not really necessary, but gives a bit of time between sound and people's response
# read in sequence
while $x != 10
readmouse l 1 10000 range 1 10
set $myMouseX MOUSE_X
set $myMouseY MOUSE_Y
set $x under $myMouseX $myMouseY up range 1 10
if $x != 10
set $counter increase
fi
if $counter == 1 && $x != 10
set $b1 $x
fi
if $counter == 2 && $x != 10
set $b2 $x
fi
show bitmap ticked $myMouseX $myMouseY ## it has to be here, check while-end javascript coding
while-end
set $x 0
# now check if sequence is correct
set $SeqCorrect 0 # this means wrong
#if $counter == &Count
if &Count == 2 && $b1 == @37 && $b2 == @38
set $SeqCorrect 1
fi
#fi
## feedback (a smiley or frowney face in bottom right corner)
if $SeqCorrect == 1
show bitmap correct 750 550
fi
if $SeqCorrect == 0
show bitmap wrong 750 550
delay 1000
show bitmap mistake3
delay 2000
fi
delay 1000
clear 1
delay 1000
block practice
message instructions
bitmap ready3
delay 1000
bitmap ready2
delay 1000
bitmap ready1
delay 1000
tasklist
corsipractice1 1 fixed
corsipractice2 1 fixed
corsipractice3 1 fixed
end
#2blocks
table blocks2
include 2blocks.txt
task 2blocks
table blocks2
# mouse off so that people cannot mouse during sequence presentation
mouse off
# show nine purple blocks
show bitmap purple @1 @2
show bitmap purple @3 @4
show bitmap purple @5 @6
show bitmap purple @7 @8
show bitmap purple @9 @10
show bitmap purple @11 @12
show bitmap purple @13 @14
show bitmap purple @15 @16
show bitmap purple @17 @18
show bitmap done 750 550
# now we are going to highlight some of the blocks (in yellow)
# there will always be two yellow blocks
show bitmap yellow @19 @20
part delay
show bitmap yellow @21 @22
part delay
sound gosignal
mouse show # now show cursor again
delay 100 # not really necessary, but gives a bit of time between sound and people's response
# read in sequence
while $x != 10
readmouse l 1 10000 range 1 10
set $myMouseX MOUSE_X
set $myMouseY MOUSE_Y
set $x under $myMouseX $myMouseY up range 1 10
if $x != 10
set $counter increase
fi
if $counter == 1 && $x != 10
set $b1 $x
fi
if $counter == 2 && $x != 10
set $b2 $x
fi
show bitmap ticked $myMouseX $myMouseY ## it has to be here, check while-end javascript coding
while-end
set $x 0
# now check if sequence is correct
set $SeqCorrect 0 # this means wrong
#if $counter == &Count
if &Count == 2 && $b1 == @37 && $b2 == @38
set $SeqCorrect 1
fi
#fi
## feedback (a smiley or frowney face in bottom right corner)
if $SeqCorrect == 1
show bitmap correct 750 550
fi
if $SeqCorrect == 0
show bitmap wrong 750 550
fi
delay 1000
clear 1
delay 1000
save RT STATUS
## now goto next seq if correct twice
set $currentcount &Count
if $SeqCorrect == 1
set &corsispan &Count ## the best score so far
set &Count increase
set &ErrorCount 0
fi
## count errors in a row
if $SeqCorrect == 0
set &ErrorCount increase
fi
## save data
save &corsispan $currentcount $SeqCorrect TABLEROW
## if two errors in a row or if all are correctly clicked, end of task
if &ErrorCount == 2 or &Count == 10
end tasklist
fi
#3blocks
table blocks3
include 3blocks.txt
task 3blocks
table blocks3
# mouse off so that people cannot mouse during sequence presentation
mouse off
# show nine purple blocks
show bitmap purple @1 @2
show bitmap purple @3 @4
show bitmap purple @5 @6
show bitmap purple @7 @8
show bitmap purple @9 @10
show bitmap purple @11 @12
show bitmap purple @13 @14
show bitmap purple @15 @16
show bitmap purple @17 @18
show bitmap done 750 550
# now we are going to highlight some of the blocks (in yellow)
# there will always be two yellow blocks
show bitmap yellow @19 @20
part delay
show bitmap yellow @21 @22
part delay
show bitmap yellow @23 @24
part delay
sound gosignal
mouse show # now show cursor again
delay 100 # not really necessary, but gives a bit of time between sound and people's response
# read in sequence
while $x != 10
readmouse l 1 10000 range 1 10
set $myMouseX MOUSE_X
set $myMouseY MOUSE_Y
set $x under $myMouseX $myMouseY up range 1 10
if $x != 10
set $counter increase
fi
if $counter == 1 && $x != 10
set $b1 $x
fi
if $counter == 2 && $x != 10
set $b2 $x
fi
show bitmap ticked $myMouseX $myMouseY ## it has to be here, check while-end javascript coding
while-end
set $x 0
# now check if sequence is correct
set $SeqCorrect 0 # this means wrong
#if $counter == &Count
if &Count == 2 && $b1 == @37 && $b2 == @38
set $SeqCorrect 1
fi
#fi
## feedback (a smiley or frowney face in bottom right corner)
if $SeqCorrect == 1
show bitmap correct 750 550
fi
if $SeqCorrect == 0
show bitmap wrong 750 550
fi
delay 1000
clear 1
delay 1000
save RT STATUS
## now goto next seq if correct twice
set $currentcount &Count
if $SeqCorrect == 1
set &corsispan &Count ## the best score so far
set &Count increase
set &ErrorCount 0
fi
## count errors in a row
if $SeqCorrect == 0
set &ErrorCount increase
fi
## save data
save &corsispan $currentcount $SeqCorrect TABLEROW
## if two errors in a row or if all are correctly clicked, end of task
if &ErrorCount == 2 or &Count == 10
end tasklist
fi
#4blocks
table blocks4
include 4blocks.txt
task 4blocks
table blocks4
# mouse off so that people cannot mouse during sequence presentation
mouse off
# show nine purple blocks
show bitmap purple @1 @2
show bitmap purple @3 @4
show bitmap purple @5 @6
show bitmap purple @7 @8
show bitmap purple @9 @10
show bitmap purple @11 @12
show bitmap purple @13 @14
show bitmap purple @15 @16
show bitmap purple @17 @18
show bitmap done 750 550
# now we are going to highlight some of the blocks (in yellow)
# there will always be two yellow blocks
show bitmap yellow @19 @20
part delay
show bitmap yellow @21 @22
part delay
show bitmap yellow @23 @24
part delay
show bitmap yellow @25 @26
part delay
sound gosignal
mouse show # now show cursor again
delay 100 # not really necessary, but gives a bit of time between sound and people's response
# read in sequence
while $x != 10
readmouse l 1 10000 range 1 10
set $myMouseX MOUSE_X
set $myMouseY MOUSE_Y
set $x under $myMouseX $myMouseY up range 1 10
if $x != 10
set $counter increase
fi
if $counter == 1 && $x != 10
set $b1 $x
fi
if $counter == 2 && $x != 10
set $b2 $x
fi
show bitmap ticked $myMouseX $myMouseY ## it has to be here, check while-end javascript coding
while-end
set $x 0
# now check if sequence is correct
set $SeqCorrect 0 # this means wrong
#if $counter == &Count
if &Count == 2 && $b1 == @37 && $b2 == @38
set $SeqCorrect 1
fi
#fi
## feedback (a smiley or frowney face in bottom right corner)
if $SeqCorrect == 1
show bitmap correct 750 550
fi
if $SeqCorrect == 0
show bitmap wrong 750 550
fi
delay 1000
clear 1
delay 1000
save RT STATUS
## now goto next seq if correct twice
set $currentcount &Count
if $SeqCorrect == 1
set &corsispan &Count ## the best score so far
set &Count increase
set &ErrorCount 0
fi
## count errors in a row
if $SeqCorrect == 0
set &ErrorCount increase
fi
## save data
save &corsispan $currentcount $SeqCorrect TABLEROW
## if two errors in a row or if all are correctly clicked, end of task
if &ErrorCount == 2 or &Count == 10
end tasklist
fi
#5blocks
table blocks5
include 5blocks.txt
task 5blocks
table blocks5
# mouse off so that people cannot mouse during sequence presentation
mouse off
# show nine purple blocks
show bitmap purple @1 @2
show bitmap purple @3 @4
show bitmap purple @5 @6
show bitmap purple @7 @8
show bitmap purple @9 @10
show bitmap purple @11 @12
show bitmap purple @13 @14
show bitmap purple @15 @16
show bitmap purple @17 @18
show bitmap done 750 550
# now we are going to highlight some of the blocks (in yellow)
# there will always be two yellow blocks
show bitmap yellow @19 @20
part delay
show bitmap yellow @21 @22
part delay
show bitmap yellow @23 @24
part delay
show bitmap yellow @25 @26
part delay
show bitmap yellow @27 @28
part delay
sound gosignal
mouse show # now show cursor again
delay 100 # not really necessary, but gives a bit of time between sound and people's response
# read in sequence
while $x != 10
readmouse l 1 10000 range 1 10
set $myMouseX MOUSE_X
set $myMouseY MOUSE_Y
set $x under $myMouseX $myMouseY up range 1 10
if $x != 10
set $counter increase
fi
if $counter == 1 && $x != 10
set $b1 $x
fi
if $counter == 2 && $x != 10
set $b2 $x
fi
show bitmap ticked $myMouseX $myMouseY ## it has to be here, check while-end javascript coding
while-end
set $x 0
# now check if sequence is correct
set $SeqCorrect 0 # this means wrong
#if $counter == &Count
if &Count == 2 && $b1 == @37 && $b2 == @38
set $SeqCorrect 1
fi
#fi
## feedback (a smiley or frowney face in bottom right corner)
if $SeqCorrect == 1
show bitmap correct 750 550
fi
if $SeqCorrect == 0
show bitmap wrong 750 550
fi
delay 1000
clear 1
delay 1000
save RT STATUS
## now goto next seq if correct twice
set $currentcount &Count
if $SeqCorrect == 1
set &corsispan &Count ## the best score so far
set &Count increase
set &ErrorCount 0
fi
## count errors in a row
if $SeqCorrect == 0
set &ErrorCount increase
fi
## save data
save &corsispan $currentcount $SeqCorrect TABLEROW
## if two errors in a row or if all are correctly clicked, end of task
if &ErrorCount == 2 or &Count == 10
end tasklist
fi
#6blocks
table blocks6
include 6blocks.txt
task 6blocks
table blocks6
# mouse off so that people cannot mouse during sequence presentation
mouse off
# show nine purple blocks
show bitmap purple @1 @2
show bitmap purple @3 @4
show bitmap purple @5 @6
show bitmap purple @7 @8
show bitmap purple @9 @10
show bitmap purple @11 @12
show bitmap purple @13 @14
show bitmap purple @15 @16
show bitmap purple @17 @18
show bitmap done 750 550
# now we are going to highlight some of the blocks (in yellow)
# there will always be two yellow blocks
show bitmap yellow @19 @20
part delay
show bitmap yellow @21 @22
part delay
show bitmap yellow @23 @24
part delay
show bitmap yellow @25 @26
part delay
show bitmap yellow @27 @28
part delay
show bitmap yellow @29 @30
part delay
sound gosignal
mouse show # now show cursor again
delay 100 # not really necessary, but gives a bit of time between sound and people's response
# read in sequence
while $x != 10
readmouse l 1 10000 range 1 10
set $myMouseX MOUSE_X
set $myMouseY MOUSE_Y
set $x under $myMouseX $myMouseY up range 1 10
if $x != 10
set $counter increase
fi
if $counter == 1 && $x != 10
set $b1 $x
fi
if $counter == 2 && $x != 10
set $b2 $x
fi
show bitmap ticked $myMouseX $myMouseY ## it has to be here, check while-end javascript coding
while-end
set $x 0
# now check if sequence is correct
set $SeqCorrect 0 # this means wrong
#if $counter == &Count
if &Count == 2 && $b1 == @37 && $b2 == @38
set $SeqCorrect 1
fi
#fi
## feedback (a smiley or frowney face in bottom right corner)
if $SeqCorrect == 1
show bitmap correct 750 550
fi
if $SeqCorrect == 0
show bitmap wrong 750 550
fi
delay 1000
clear 1
delay 1000
save RT STATUS
## now goto next seq if correct twice
set $currentcount &Count
if $SeqCorrect == 1
set &corsispan &Count ## the best score so far
set &Count increase
set &ErrorCount 0
fi
## count errors in a row
if $SeqCorrect == 0
set &ErrorCount increase
fi
## save data
save &corsispan $currentcount $SeqCorrect TABLEROW
## if two errors in a row or if all are correctly clicked, end of task
if &ErrorCount == 2 or &Count == 10
end tasklist
fi
#7blocks
table blocks7
include 7blocks.txt
task 7blocks
table blocks7
# mouse off so that people cannot mouse during sequence presentation
mouse off
# show nine purple blocks
show bitmap purple @1 @2
show bitmap purple @3 @4
show bitmap purple @5 @6
show bitmap purple @7 @8
show bitmap purple @9 @10
show bitmap purple @11 @12
show bitmap purple @13 @14
show bitmap purple @15 @16
show bitmap purple @17 @18
show bitmap done 750 550
# now we are going to highlight some of the blocks (in yellow)
# there will always be two yellow blocks
show bitmap yellow @19 @20
part delay
show bitmap yellow @21 @22
part delay
show bitmap yellow @23 @24
part delay
show bitmap yellow @25 @26
part delay
show bitmap yellow @27 @28
part delay
show bitmap yellow @29 @30
part delay
show bitmap yellow @31 @32
part delay
sound gosignal
mouse show # now show cursor again
delay 100 # not really necessary, but gives a bit of time between sound and people's response
# read in sequence
while $x != 10
readmouse l 1 10000 range 1 10
set $myMouseX MOUSE_X
set $myMouseY MOUSE_Y
set $x under $myMouseX $myMouseY up range 1 10
if $x != 10
set $counter increase
fi
if $counter == 1 && $x != 10
set $b1 $x
fi
if $counter == 2 && $x != 10
set $b2 $x
fi
show bitmap ticked $myMouseX $myMouseY ## it has to be here, check while-end javascript coding
while-end
set $x 0
# now check if sequence is correct
set $SeqCorrect 0 # this means wrong
#if $counter == &Count
if &Count == 2 && $b1 == @37 && $b2 == @38
set $SeqCorrect 1
fi
#fi
## feedback (a smiley or frowney face in bottom right corner)
if $SeqCorrect == 1
show bitmap correct 750 550
fi
if $SeqCorrect == 0
show bitmap wrong 750 550
fi
delay 1000
clear 1
delay 1000
save RT STATUS
## now goto next seq if correct twice
set $currentcount &Count
if $SeqCorrect == 1
set &corsispan &Count ## the best score so far
set &Count increase
set &ErrorCount 0
fi
## count errors in a row
if $SeqCorrect == 0
set &ErrorCount increase
fi
## save data
save &corsispan $currentcount $SeqCorrect TABLEROW
## if two errors in a row or if all are correctly clicked, end of task
if &ErrorCount == 2 or &Count == 10
end tasklist
fi
#8blocks
table blocks8
include 8blocks.txt
task 8blocks
table blocks8
# mouse off so that people cannot mouse during sequence presentation
mouse off
# show nine purple blocks
show bitmap purple @1 @2
show bitmap purple @3 @4
show bitmap purple @5 @6
show bitmap purple @7 @8
show bitmap purple @9 @10
show bitmap purple @11 @12
show bitmap purple @13 @14
show bitmap purple @15 @16
show bitmap purple @17 @18
show bitmap done 750 550
# now we are going to highlight some of the blocks (in yellow)
# there will always be two yellow blocks
show bitmap yellow @19 @20
part delay
show bitmap yellow @21 @22
part delay
show bitmap yellow @23 @24
part delay
show bitmap yellow @25 @26
part delay
show bitmap yellow @27 @28
part delay
show bitmap yellow @29 @30
part delay
show bitmap yellow @31 @32
part delay
show bitmap yellow @33 @34
part delay
sound gosignal
mouse show # now show cursor again
delay 100 # not really necessary, but gives a bit of time between sound and people's response
# read in sequence
while $x != 10
readmouse l 1 10000 range 1 10
set $myMouseX MOUSE_X
set $myMouseY MOUSE_Y
set $x under $myMouseX $myMouseY up range 1 10
if $x != 10
set $counter increase
fi
if $counter == 1 && $x != 10
set $b1 $x
fi
if $counter == 2 && $x != 10
set $b2 $x
fi
show bitmap ticked $myMouseX $myMouseY ## it has to be here, check while-end javascript coding
while-end
set $x 0
# now check if sequence is correct
set $SeqCorrect 0 # this means wrong
#if $counter == &Count
if &Count == 2 && $b1 == @37 && $b2 == @38
set $SeqCorrect 1
fi
#fi
## feedback (a smiley or frowney face in bottom right corner)
if $SeqCorrect == 1
show bitmap correct 750 550
fi
if $SeqCorrect == 0
show bitmap wrong 750 550
fi
delay 1000
clear 1
delay 1000
save RT STATUS
## now goto next seq if correct twice
set $currentcount &Count
if $SeqCorrect == 1
set &corsispan &Count ## the best score so far
set &Count increase
set &ErrorCount 0
fi
## count errors in a row
if $SeqCorrect == 0
set &ErrorCount increase
fi
## save data
save &corsispan $currentcount $SeqCorrect TABLEROW
## if two errors in a row or if all are correctly clicked, end of task
if &ErrorCount == 2 or &Count == 10
end tasklist
fi
#9blocks
table blocks9
include 9blocks.txt
task 9blocks
table blocks9
# mouse off so that people cannot mouse during sequence presentation
mouse off
# show nine purple blocks
show bitmap purple @1 @2
show bitmap purple @3 @4
show bitmap purple @5 @6
show bitmap purple @7 @8
show bitmap purple @9 @10
show bitmap purple @11 @12
show bitmap purple @13 @14
show bitmap purple @15 @16
show bitmap purple @17 @18
show bitmap done 750 550
# now we are going to highlight some of the blocks (in yellow)
# there will always be two yellow blocks
show bitmap yellow @19 @20
part delay
show bitmap yellow @21 @22
part delay
show bitmap yellow @23 @24
part delay
show bitmap yellow @25 @26
part delay
show bitmap yellow @27 @28
part delay
show bitmap yellow @29 @30
part delay
show bitmap yellow @31 @32
part delay
show bitmap yellow @33 @34
part delay
show bitmap yellow @35 @36
part delay
sound gosignal
mouse show # now show cursor again
delay 100 # not really necessary, but gives a bit of time between sound and people's response
# read in sequence
while $x != 10
readmouse l 1 10000 range 1 10
set $myMouseX MOUSE_X
set $myMouseY MOUSE_Y
set $x under $myMouseX $myMouseY up range 1 10
if $x != 10
set $counter increase
fi
if $counter == 1 && $x != 10
set $b1 $x
fi
if $counter == 2 && $x != 10
set $b2 $x
fi
show bitmap ticked $myMouseX $myMouseY ## it has to be here, check while-end javascript coding
while-end
set $x 0
# now check if sequence is correct
set $SeqCorrect 0 # this means wrong
#if $counter == &Count
if &Count == 2 && $b1 == @37 && $b2 == @38
set $SeqCorrect 1
fi
#fi
## feedback (a smiley or frowney face in bottom right corner)
if $SeqCorrect == 1
show bitmap correct 750 550
fi
if $SeqCorrect == 0
show bitmap wrong 750 550
fi
delay 1000
clear 1
delay 1000
save RT STATUS
## now goto next seq if correct twice
set $currentcount &Count
if $SeqCorrect == 1
set &corsispan &Count ## the best score so far
set &Count increase
set &ErrorCount 0
fi
## count errors in a row
if $SeqCorrect == 0
set &ErrorCount increase
fi
## save data
save &corsispan $currentcount $SeqCorrect TABLEROW
## if two errors in a row or if all are correctly clicked, end of task
if &ErrorCount == 2 or &Count == 10
end tasklist
fi
block test
message instructions
bitmap ready3
delay 1000
bitmap ready2
delay 1000
bitmap ready1
delay 1000
tasklist
2blocks 2 fixed
3blocks 2 fixed
4blocks 2 fixed
5blocks 2 fixed
6blocks 2 fixed
7blocks 2 fixed
8blocks 2 fixed
9blocks 2 fixed
end
feedback
text 0 400 &corsispan ; prefix "Your Corsi span is " ; postfix " items."
text 0 500 "Press space bar to continue"
end
There's this block that keeps disappearing after the participants respond and click 'done'.
Anyone know how I can fix it? Thanks in advance
Here's my code:
#Forward Sequence
options
mouse on
origin topleft
set &Count 2 # starts with showing two blocks
bitmaps
yellow
purple
done
ticked
correct
wrong
instructions
ready1
ready2
ready3
mistake1
mistake2
mistake3
fonts
arial 30
sounds
gosignal go.mp3
part delay
delay 1000
clear -1
delay 1000
table practice1table
include practice1table.txt
task corsipractice1
table practice1table
# mouse off so that people cannot mouse during sequence presentation
mouse off
# show nine purple blocks
show bitmap purple @1 @2
show bitmap purple @3 @4
show bitmap purple @5 @6
show bitmap purple @7 @8
show bitmap purple @9 @10
show bitmap purple @11 @12
show bitmap purple @13 @14
show bitmap purple @15 @16
show bitmap purple @17 @18
show bitmap done 750 550
# now we are going to highlight some of the blocks (in yellow)
# there will always be two yellow blocks
show bitmap yellow @19 @20
part delay
show bitmap yellow @21 @22
part delay
sound gosignal
mouse show # now show cursor again
delay 100 # not really necessary, but gives a bit of time between sound and people's response
# read in sequence
while $x != 10
readmouse l 1 10000 range 1 10
set $myMouseX MOUSE_X
set $myMouseY MOUSE_Y
set $x under $myMouseX $myMouseY up range 1 10
if $x != 10
set $counter increase
fi
if $counter == 1 && $x != 10
set $b1 $x
fi
if $counter == 2 && $x != 10
set $b2 $x
fi
show bitmap ticked $myMouseX $myMouseY ## it has to be here, check while-end javascript coding
while-end
set $x 0
# now check if sequence is correct
set $SeqCorrect 0 # this means wrong
#if $counter == &Count
if &Count == 2 && $b1 == @37 && $b2 == @38
set $SeqCorrect 1
fi
#fi
## feedback (a smiley or frowney face in bottom right corner)
if $SeqCorrect == 1
show bitmap correct 750 550
fi
if $SeqCorrect == 0
show bitmap wrong 750 550
delay 1000
show bitmap mistake1
delay 2000
fi
delay 1000
clear 1
delay 1000
#second_run
table practice2table
include practice2table.txt
task corsipractice2
table practice2table
# mouse off so that people cannot mouse during sequence presentation
mouse off
# show nine purple blocks
show bitmap purple @1 @2
show bitmap purple @3 @4
show bitmap purple @5 @6
show bitmap purple @7 @8
show bitmap purple @9 @10
show bitmap purple @11 @12
show bitmap purple @13 @14
show bitmap purple @15 @16
show bitmap purple @17 @18
show bitmap done 750 550
# now we are going to highlight some of the blocks (in yellow)
# there will always be two yellow blocks
show bitmap yellow @19 @20
part delay
show bitmap yellow @21 @22
part delay
sound gosignal
mouse show # now show cursor again
delay 100 # not really necessary, but gives a bit of time between sound and people's response
# read in sequence
while $x != 10
readmouse l 1 10000 range 1 10
set $myMouseX MOUSE_X
set $myMouseY MOUSE_Y
set $x under $myMouseX $myMouseY up range 1 10
if $x != 10
set $counter increase
fi
if $counter == 1 && $x != 10
set $b1 $x
fi
if $counter == 2 && $x != 10
set $b2 $x
fi
show bitmap ticked $myMouseX $myMouseY ## it has to be here, check while-end javascript coding
while-end
set $x 0
# now check if sequence is correct
set $SeqCorrect 0 # this means wrong
#if $counter == &Count
if &Count == 2 && $b1 == @37 && $b2 == @38
set $SeqCorrect 1
fi
#fi
## feedback (a smiley or frowney face in bottom right corner)
if $SeqCorrect == 1
show bitmap correct 750 550
fi
if $SeqCorrect == 0
show bitmap wrong 750 550
delay 1000
show bitmap mistake2
delay 2000
fi
delay 1000
clear 1
delay 1000
#third_run
table practice3table
include practice3table.txt
task corsipractice3
table practice3table
# mouse off so that people cannot mouse during sequence presentation
mouse off
# show nine purple blocks
show bitmap purple @1 @2
show bitmap purple @3 @4
show bitmap purple @5 @6
show bitmap purple @7 @8
show bitmap purple @9 @10
show bitmap purple @11 @12
show bitmap purple @13 @14
show bitmap purple @15 @16
show bitmap purple @17 @18
show bitmap done 750 550
# now we are going to highlight some of the blocks (in yellow)
# there will always be two yellow blocks
show bitmap yellow @19 @20
part delay
show bitmap yellow @21 @22
part delay
sound gosignal
mouse show # now show cursor again
delay 100 # not really necessary, but gives a bit of time between sound and people's response
# read in sequence
while $x != 10
readmouse l 1 10000 range 1 10
set $myMouseX MOUSE_X
set $myMouseY MOUSE_Y
set $x under $myMouseX $myMouseY up range 1 10
if $x != 10
set $counter increase
fi
if $counter == 1 && $x != 10
set $b1 $x
fi
if $counter == 2 && $x != 10
set $b2 $x
fi
show bitmap ticked $myMouseX $myMouseY ## it has to be here, check while-end javascript coding
while-end
set $x 0
# now check if sequence is correct
set $SeqCorrect 0 # this means wrong
#if $counter == &Count
if &Count == 2 && $b1 == @37 && $b2 == @38
set $SeqCorrect 1
fi
#fi
## feedback (a smiley or frowney face in bottom right corner)
if $SeqCorrect == 1
show bitmap correct 750 550
fi
if $SeqCorrect == 0
show bitmap wrong 750 550
delay 1000
show bitmap mistake3
delay 2000
fi
delay 1000
clear 1
delay 1000
block practice
message instructions
bitmap ready3
delay 1000
bitmap ready2
delay 1000
bitmap ready1
delay 1000
tasklist
corsipractice1 1 fixed
corsipractice2 1 fixed
corsipractice3 1 fixed
end
#2blocks
table blocks2
include 2blocks.txt
task 2blocks
table blocks2
# mouse off so that people cannot mouse during sequence presentation
mouse off
# show nine purple blocks
show bitmap purple @1 @2
show bitmap purple @3 @4
show bitmap purple @5 @6
show bitmap purple @7 @8
show bitmap purple @9 @10
show bitmap purple @11 @12
show bitmap purple @13 @14
show bitmap purple @15 @16
show bitmap purple @17 @18
show bitmap done 750 550
# now we are going to highlight some of the blocks (in yellow)
# there will always be two yellow blocks
show bitmap yellow @19 @20
part delay
show bitmap yellow @21 @22
part delay
sound gosignal
mouse show # now show cursor again
delay 100 # not really necessary, but gives a bit of time between sound and people's response
# read in sequence
while $x != 10
readmouse l 1 10000 range 1 10
set $myMouseX MOUSE_X
set $myMouseY MOUSE_Y
set $x under $myMouseX $myMouseY up range 1 10
if $x != 10
set $counter increase
fi
if $counter == 1 && $x != 10
set $b1 $x
fi
if $counter == 2 && $x != 10
set $b2 $x
fi
show bitmap ticked $myMouseX $myMouseY ## it has to be here, check while-end javascript coding
while-end
set $x 0
# now check if sequence is correct
set $SeqCorrect 0 # this means wrong
#if $counter == &Count
if &Count == 2 && $b1 == @37 && $b2 == @38
set $SeqCorrect 1
fi
#fi
## feedback (a smiley or frowney face in bottom right corner)
if $SeqCorrect == 1
show bitmap correct 750 550
fi
if $SeqCorrect == 0
show bitmap wrong 750 550
fi
delay 1000
clear 1
delay 1000
save RT STATUS
## now goto next seq if correct twice
set $currentcount &Count
if $SeqCorrect == 1
set &corsispan &Count ## the best score so far
set &Count increase
set &ErrorCount 0
fi
## count errors in a row
if $SeqCorrect == 0
set &ErrorCount increase
fi
## save data
save &corsispan $currentcount $SeqCorrect TABLEROW
## if two errors in a row or if all are correctly clicked, end of task
if &ErrorCount == 2 or &Count == 10
end tasklist
fi
#3blocks
table blocks3
include 3blocks.txt
task 3blocks
table blocks3
# mouse off so that people cannot mouse during sequence presentation
mouse off
# show nine purple blocks
show bitmap purple @1 @2
show bitmap purple @3 @4
show bitmap purple @5 @6
show bitmap purple @7 @8
show bitmap purple @9 @10
show bitmap purple @11 @12
show bitmap purple @13 @14
show bitmap purple @15 @16
show bitmap purple @17 @18
show bitmap done 750 550
# now we are going to highlight some of the blocks (in yellow)
# there will always be two yellow blocks
show bitmap yellow @19 @20
part delay
show bitmap yellow @21 @22
part delay
show bitmap yellow @23 @24
part delay
sound gosignal
mouse show # now show cursor again
delay 100 # not really necessary, but gives a bit of time between sound and people's response
# read in sequence
while $x != 10
readmouse l 1 10000 range 1 10
set $myMouseX MOUSE_X
set $myMouseY MOUSE_Y
set $x under $myMouseX $myMouseY up range 1 10
if $x != 10
set $counter increase
fi
if $counter == 1 && $x != 10
set $b1 $x
fi
if $counter == 2 && $x != 10
set $b2 $x
fi
show bitmap ticked $myMouseX $myMouseY ## it has to be here, check while-end javascript coding
while-end
set $x 0
# now check if sequence is correct
set $SeqCorrect 0 # this means wrong
#if $counter == &Count
if &Count == 2 && $b1 == @37 && $b2 == @38
set $SeqCorrect 1
fi
#fi
## feedback (a smiley or frowney face in bottom right corner)
if $SeqCorrect == 1
show bitmap correct 750 550
fi
if $SeqCorrect == 0
show bitmap wrong 750 550
fi
delay 1000
clear 1
delay 1000
save RT STATUS
## now goto next seq if correct twice
set $currentcount &Count
if $SeqCorrect == 1
set &corsispan &Count ## the best score so far
set &Count increase
set &ErrorCount 0
fi
## count errors in a row
if $SeqCorrect == 0
set &ErrorCount increase
fi
## save data
save &corsispan $currentcount $SeqCorrect TABLEROW
## if two errors in a row or if all are correctly clicked, end of task
if &ErrorCount == 2 or &Count == 10
end tasklist
fi
#4blocks
table blocks4
include 4blocks.txt
task 4blocks
table blocks4
# mouse off so that people cannot mouse during sequence presentation
mouse off
# show nine purple blocks
show bitmap purple @1 @2
show bitmap purple @3 @4
show bitmap purple @5 @6
show bitmap purple @7 @8
show bitmap purple @9 @10
show bitmap purple @11 @12
show bitmap purple @13 @14
show bitmap purple @15 @16
show bitmap purple @17 @18
show bitmap done 750 550
# now we are going to highlight some of the blocks (in yellow)
# there will always be two yellow blocks
show bitmap yellow @19 @20
part delay
show bitmap yellow @21 @22
part delay
show bitmap yellow @23 @24
part delay
show bitmap yellow @25 @26
part delay
sound gosignal
mouse show # now show cursor again
delay 100 # not really necessary, but gives a bit of time between sound and people's response
# read in sequence
while $x != 10
readmouse l 1 10000 range 1 10
set $myMouseX MOUSE_X
set $myMouseY MOUSE_Y
set $x under $myMouseX $myMouseY up range 1 10
if $x != 10
set $counter increase
fi
if $counter == 1 && $x != 10
set $b1 $x
fi
if $counter == 2 && $x != 10
set $b2 $x
fi
show bitmap ticked $myMouseX $myMouseY ## it has to be here, check while-end javascript coding
while-end
set $x 0
# now check if sequence is correct
set $SeqCorrect 0 # this means wrong
#if $counter == &Count
if &Count == 2 && $b1 == @37 && $b2 == @38
set $SeqCorrect 1
fi
#fi
## feedback (a smiley or frowney face in bottom right corner)
if $SeqCorrect == 1
show bitmap correct 750 550
fi
if $SeqCorrect == 0
show bitmap wrong 750 550
fi
delay 1000
clear 1
delay 1000
save RT STATUS
## now goto next seq if correct twice
set $currentcount &Count
if $SeqCorrect == 1
set &corsispan &Count ## the best score so far
set &Count increase
set &ErrorCount 0
fi
## count errors in a row
if $SeqCorrect == 0
set &ErrorCount increase
fi
## save data
save &corsispan $currentcount $SeqCorrect TABLEROW
## if two errors in a row or if all are correctly clicked, end of task
if &ErrorCount == 2 or &Count == 10
end tasklist
fi
#5blocks
table blocks5
include 5blocks.txt
task 5blocks
table blocks5
# mouse off so that people cannot mouse during sequence presentation
mouse off
# show nine purple blocks
show bitmap purple @1 @2
show bitmap purple @3 @4
show bitmap purple @5 @6
show bitmap purple @7 @8
show bitmap purple @9 @10
show bitmap purple @11 @12
show bitmap purple @13 @14
show bitmap purple @15 @16
show bitmap purple @17 @18
show bitmap done 750 550
# now we are going to highlight some of the blocks (in yellow)
# there will always be two yellow blocks
show bitmap yellow @19 @20
part delay
show bitmap yellow @21 @22
part delay
show bitmap yellow @23 @24
part delay
show bitmap yellow @25 @26
part delay
show bitmap yellow @27 @28
part delay
sound gosignal
mouse show # now show cursor again
delay 100 # not really necessary, but gives a bit of time between sound and people's response
# read in sequence
while $x != 10
readmouse l 1 10000 range 1 10
set $myMouseX MOUSE_X
set $myMouseY MOUSE_Y
set $x under $myMouseX $myMouseY up range 1 10
if $x != 10
set $counter increase
fi
if $counter == 1 && $x != 10
set $b1 $x
fi
if $counter == 2 && $x != 10
set $b2 $x
fi
show bitmap ticked $myMouseX $myMouseY ## it has to be here, check while-end javascript coding
while-end
set $x 0
# now check if sequence is correct
set $SeqCorrect 0 # this means wrong
#if $counter == &Count
if &Count == 2 && $b1 == @37 && $b2 == @38
set $SeqCorrect 1
fi
#fi
## feedback (a smiley or frowney face in bottom right corner)
if $SeqCorrect == 1
show bitmap correct 750 550
fi
if $SeqCorrect == 0
show bitmap wrong 750 550
fi
delay 1000
clear 1
delay 1000
save RT STATUS
## now goto next seq if correct twice
set $currentcount &Count
if $SeqCorrect == 1
set &corsispan &Count ## the best score so far
set &Count increase
set &ErrorCount 0
fi
## count errors in a row
if $SeqCorrect == 0
set &ErrorCount increase
fi
## save data
save &corsispan $currentcount $SeqCorrect TABLEROW
## if two errors in a row or if all are correctly clicked, end of task
if &ErrorCount == 2 or &Count == 10
end tasklist
fi
#6blocks
table blocks6
include 6blocks.txt
task 6blocks
table blocks6
# mouse off so that people cannot mouse during sequence presentation
mouse off
# show nine purple blocks
show bitmap purple @1 @2
show bitmap purple @3 @4
show bitmap purple @5 @6
show bitmap purple @7 @8
show bitmap purple @9 @10
show bitmap purple @11 @12
show bitmap purple @13 @14
show bitmap purple @15 @16
show bitmap purple @17 @18
show bitmap done 750 550
# now we are going to highlight some of the blocks (in yellow)
# there will always be two yellow blocks
show bitmap yellow @19 @20
part delay
show bitmap yellow @21 @22
part delay
show bitmap yellow @23 @24
part delay
show bitmap yellow @25 @26
part delay
show bitmap yellow @27 @28
part delay
show bitmap yellow @29 @30
part delay
sound gosignal
mouse show # now show cursor again
delay 100 # not really necessary, but gives a bit of time between sound and people's response
# read in sequence
while $x != 10
readmouse l 1 10000 range 1 10
set $myMouseX MOUSE_X
set $myMouseY MOUSE_Y
set $x under $myMouseX $myMouseY up range 1 10
if $x != 10
set $counter increase
fi
if $counter == 1 && $x != 10
set $b1 $x
fi
if $counter == 2 && $x != 10
set $b2 $x
fi
show bitmap ticked $myMouseX $myMouseY ## it has to be here, check while-end javascript coding
while-end
set $x 0
# now check if sequence is correct
set $SeqCorrect 0 # this means wrong
#if $counter == &Count
if &Count == 2 && $b1 == @37 && $b2 == @38
set $SeqCorrect 1
fi
#fi
## feedback (a smiley or frowney face in bottom right corner)
if $SeqCorrect == 1
show bitmap correct 750 550
fi
if $SeqCorrect == 0
show bitmap wrong 750 550
fi
delay 1000
clear 1
delay 1000
save RT STATUS
## now goto next seq if correct twice
set $currentcount &Count
if $SeqCorrect == 1
set &corsispan &Count ## the best score so far
set &Count increase
set &ErrorCount 0
fi
## count errors in a row
if $SeqCorrect == 0
set &ErrorCount increase
fi
## save data
save &corsispan $currentcount $SeqCorrect TABLEROW
## if two errors in a row or if all are correctly clicked, end of task
if &ErrorCount == 2 or &Count == 10
end tasklist
fi
#7blocks
table blocks7
include 7blocks.txt
task 7blocks
table blocks7
# mouse off so that people cannot mouse during sequence presentation
mouse off
# show nine purple blocks
show bitmap purple @1 @2
show bitmap purple @3 @4
show bitmap purple @5 @6
show bitmap purple @7 @8
show bitmap purple @9 @10
show bitmap purple @11 @12
show bitmap purple @13 @14
show bitmap purple @15 @16
show bitmap purple @17 @18
show bitmap done 750 550
# now we are going to highlight some of the blocks (in yellow)
# there will always be two yellow blocks
show bitmap yellow @19 @20
part delay
show bitmap yellow @21 @22
part delay
show bitmap yellow @23 @24
part delay
show bitmap yellow @25 @26
part delay
show bitmap yellow @27 @28
part delay
show bitmap yellow @29 @30
part delay
show bitmap yellow @31 @32
part delay
sound gosignal
mouse show # now show cursor again
delay 100 # not really necessary, but gives a bit of time between sound and people's response
# read in sequence
while $x != 10
readmouse l 1 10000 range 1 10
set $myMouseX MOUSE_X
set $myMouseY MOUSE_Y
set $x under $myMouseX $myMouseY up range 1 10
if $x != 10
set $counter increase
fi
if $counter == 1 && $x != 10
set $b1 $x
fi
if $counter == 2 && $x != 10
set $b2 $x
fi
show bitmap ticked $myMouseX $myMouseY ## it has to be here, check while-end javascript coding
while-end
set $x 0
# now check if sequence is correct
set $SeqCorrect 0 # this means wrong
#if $counter == &Count
if &Count == 2 && $b1 == @37 && $b2 == @38
set $SeqCorrect 1
fi
#fi
## feedback (a smiley or frowney face in bottom right corner)
if $SeqCorrect == 1
show bitmap correct 750 550
fi
if $SeqCorrect == 0
show bitmap wrong 750 550
fi
delay 1000
clear 1
delay 1000
save RT STATUS
## now goto next seq if correct twice
set $currentcount &Count
if $SeqCorrect == 1
set &corsispan &Count ## the best score so far
set &Count increase
set &ErrorCount 0
fi
## count errors in a row
if $SeqCorrect == 0
set &ErrorCount increase
fi
## save data
save &corsispan $currentcount $SeqCorrect TABLEROW
## if two errors in a row or if all are correctly clicked, end of task
if &ErrorCount == 2 or &Count == 10
end tasklist
fi
#8blocks
table blocks8
include 8blocks.txt
task 8blocks
table blocks8
# mouse off so that people cannot mouse during sequence presentation
mouse off
# show nine purple blocks
show bitmap purple @1 @2
show bitmap purple @3 @4
show bitmap purple @5 @6
show bitmap purple @7 @8
show bitmap purple @9 @10
show bitmap purple @11 @12
show bitmap purple @13 @14
show bitmap purple @15 @16
show bitmap purple @17 @18
show bitmap done 750 550
# now we are going to highlight some of the blocks (in yellow)
# there will always be two yellow blocks
show bitmap yellow @19 @20
part delay
show bitmap yellow @21 @22
part delay
show bitmap yellow @23 @24
part delay
show bitmap yellow @25 @26
part delay
show bitmap yellow @27 @28
part delay
show bitmap yellow @29 @30
part delay
show bitmap yellow @31 @32
part delay
show bitmap yellow @33 @34
part delay
sound gosignal
mouse show # now show cursor again
delay 100 # not really necessary, but gives a bit of time between sound and people's response
# read in sequence
while $x != 10
readmouse l 1 10000 range 1 10
set $myMouseX MOUSE_X
set $myMouseY MOUSE_Y
set $x under $myMouseX $myMouseY up range 1 10
if $x != 10
set $counter increase
fi
if $counter == 1 && $x != 10
set $b1 $x
fi
if $counter == 2 && $x != 10
set $b2 $x
fi
show bitmap ticked $myMouseX $myMouseY ## it has to be here, check while-end javascript coding
while-end
set $x 0
# now check if sequence is correct
set $SeqCorrect 0 # this means wrong
#if $counter == &Count
if &Count == 2 && $b1 == @37 && $b2 == @38
set $SeqCorrect 1
fi
#fi
## feedback (a smiley or frowney face in bottom right corner)
if $SeqCorrect == 1
show bitmap correct 750 550
fi
if $SeqCorrect == 0
show bitmap wrong 750 550
fi
delay 1000
clear 1
delay 1000
save RT STATUS
## now goto next seq if correct twice
set $currentcount &Count
if $SeqCorrect == 1
set &corsispan &Count ## the best score so far
set &Count increase
set &ErrorCount 0
fi
## count errors in a row
if $SeqCorrect == 0
set &ErrorCount increase
fi
## save data
save &corsispan $currentcount $SeqCorrect TABLEROW
## if two errors in a row or if all are correctly clicked, end of task
if &ErrorCount == 2 or &Count == 10
end tasklist
fi
#9blocks
table blocks9
include 9blocks.txt
task 9blocks
table blocks9
# mouse off so that people cannot mouse during sequence presentation
mouse off
# show nine purple blocks
show bitmap purple @1 @2
show bitmap purple @3 @4
show bitmap purple @5 @6
show bitmap purple @7 @8
show bitmap purple @9 @10
show bitmap purple @11 @12
show bitmap purple @13 @14
show bitmap purple @15 @16
show bitmap purple @17 @18
show bitmap done 750 550
# now we are going to highlight some of the blocks (in yellow)
# there will always be two yellow blocks
show bitmap yellow @19 @20
part delay
show bitmap yellow @21 @22
part delay
show bitmap yellow @23 @24
part delay
show bitmap yellow @25 @26
part delay
show bitmap yellow @27 @28
part delay
show bitmap yellow @29 @30
part delay
show bitmap yellow @31 @32
part delay
show bitmap yellow @33 @34
part delay
show bitmap yellow @35 @36
part delay
sound gosignal
mouse show # now show cursor again
delay 100 # not really necessary, but gives a bit of time between sound and people's response
# read in sequence
while $x != 10
readmouse l 1 10000 range 1 10
set $myMouseX MOUSE_X
set $myMouseY MOUSE_Y
set $x under $myMouseX $myMouseY up range 1 10
if $x != 10
set $counter increase
fi
if $counter == 1 && $x != 10
set $b1 $x
fi
if $counter == 2 && $x != 10
set $b2 $x
fi
show bitmap ticked $myMouseX $myMouseY ## it has to be here, check while-end javascript coding
while-end
set $x 0
# now check if sequence is correct
set $SeqCorrect 0 # this means wrong
#if $counter == &Count
if &Count == 2 && $b1 == @37 && $b2 == @38
set $SeqCorrect 1
fi
#fi
## feedback (a smiley or frowney face in bottom right corner)
if $SeqCorrect == 1
show bitmap correct 750 550
fi
if $SeqCorrect == 0
show bitmap wrong 750 550
fi
delay 1000
clear 1
delay 1000
save RT STATUS
## now goto next seq if correct twice
set $currentcount &Count
if $SeqCorrect == 1
set &corsispan &Count ## the best score so far
set &Count increase
set &ErrorCount 0
fi
## count errors in a row
if $SeqCorrect == 0
set &ErrorCount increase
fi
## save data
save &corsispan $currentcount $SeqCorrect TABLEROW
## if two errors in a row or if all are correctly clicked, end of task
if &ErrorCount == 2 or &Count == 10
end tasklist
fi
block test
message instructions
bitmap ready3
delay 1000
bitmap ready2
delay 1000
bitmap ready1
delay 1000
tasklist
2blocks 2 fixed
3blocks 2 fixed
4blocks 2 fixed
5blocks 2 fixed
6blocks 2 fixed
7blocks 2 fixed
8blocks 2 fixed
9blocks 2 fixed
end
feedback
text 0 400 &corsispan ; prefix "Your Corsi span is " ; postfix " items."
text 0 500 "Press space bar to continue"
end