main.setfontsize(50);

radio("Welcome! This memory experiment will last approximately 2 minutes. Participation in this experiment is entirely voluntary and you may withdraw at any time. Would you like to proceed?",[["Yes"],["No"]],"consent");

main.setfontsize(100); 

if (response.consent === "Yes") 
{   
   
select("What is your gender?",[['female',0],['male',1],['other',2]],'gender');

select("What is your age?",range(0,100),'age'); 

main.setfontsize(50);

radio("What is the highest level of education you have completed?",
['Primary School','Secondary School','MBO','HBO','Bachelor','Master','Doctorate','Other'],"education_level");


main.setfontsize(80); 

text("You will be presented 4 lists of words which you are asked to remember. 
"
    + "After each list, you will be presented some words and asked whether you have seen them before or not. 
"
    + "First, we will have a short practice round."
    + "Start the practice round by clicking anywhere on the screen");
    await("click");
    clear(); 
    
var words_practice = ['table', 'sit','desk','recliner','sofa','cushion'],
    practice_recall = ['table','desk','chair','cigarette','smoke'],
    i,e_test;
   
for (var i=0; i < words_practice.length; i = i + 1)
{ 
    text(words_practice[i],300);
    await(1000);
    clear();
    await(1000); 
}

text("Now, indicate which one of these words have been presented before and which ones have not 
"
    + "Click the  old  button for a word you have seen before, and click the  new  button for a word you have not seen before 
"
    + "click to start");
    await("click"); 
    
for (var i=0; i < practice_recall.length; i = i + 1)
{  
    var left = addblock('left','bottom',50,25),
        right = addblock('right','bottom',50,25);
    
    left.button("old","response","old","old_button",300);
    right.button("new","response","new","new_button",300); 

    text(practice_recall[i],300);
    
    waitfor 
    {
        e_test = left.await('click');
    } or {
        e_test = right.await("click");
    }
    
    left.clear();
    right.clear();
} 

text("This is the end of the trial round. Click anywhere on the screen to start the real experiment");
await("click"); 

var words_window = ['door','glass','pane','shade','ledge','sill','house','open','curtain','frame','view','breeze'],
    window_old = ['door','open','frame'],
    window_target = ['window'],
    window_new = ['hard','fur','fluffy','soft'],
    words_smell = ['nose','breathe','sniff','aroma','hear','see','nostril','whiff','scent','reek','stench','fragrance'],
    smell_old = ['nose','whiff','reek'],
    smell_target = ['smell'],
    smell_new = ['bed','blanket','slumber','sleep'],
    words_cold = ['hot','snow','warm','winter','ice','wet','frigid','chilly','heat','weather','freeze','air'],
    cold_old = ['hot','chilly','weather'],
    cold_target = ['cold'],
    cold_new = ['mad','wrath','fight','anger'],
    words_rough = ['smooth','bumpy','road','tough','sandpaper','jagged','ready','coarse','uneven','riders','rugged','sand'],
    rough_old = ['smooth','coarse','riders'],
    rough_target = ['rough'],
    rough_new = ['sour','nice','soda','sweet'],
    e,i, 
    stimuli_window = [],
    stimuli_smell = [],
    stimuli_cold = [],
    stimuli_rough = [],
    correct = 0, incorrect = 0, target = 0, target_hit_total = 0; old_word = 0, new_word = 0, 
    correct_total = 0, incorrect_total = 0, old_window_total =0, new_window_total = 0,
    old_smell_total = 0, new_smell_total = 0, old_cold_total = 0, new_cold_total = 0, old_rough_total = 0, new_rough_total = 0;
    
text("Round 1");
await(2000);
clear();
await(1000);

for (var i=0; i < words_window.length; i = i + 1)
{
    text(words_window[i],300);
    await(1000);
    clear();
    await(1000); 
}

instruction("For a word you have seen before, click  old , and for a word you have NOT seen before, click  new ");   
   
stimuli_window = stimuli_window.concat(window_old,window_target,window_new);
stimuli_window = shuffle(stimuli_window); 

for (var i=0; i < stimuli_window.length; i = i + 1)
{
    var left = addblock('left','bottom',50,25),
        right = addblock('right','bottom',50,25);
    
    left.button("old","response.window","old","old_button",300);
    right.button("new","response.window","new","new_button",300); 
    
    text(stimuli_window[i],300);

    waitfor 
    { 
        e = left.await('click');
        
        if (contains(window_target,stimuli_window[i]))
        {
            old_word = 0; new_word = 1; ++ target_hit_total; ++ incorrect_total; correct = 0; incorrect = 1; target = 1; 
        }
        else if (contains(window_old,stimuli_window[i]))
        {
            old_word = 1; new_word = 0; ++ correct_total; ++ old_window_total; correct = 1; incorrect = 0; target = 0; 
        }
        else 
        {
            old_word = 0; new_word =1; ++ incorrect_total; correct = 0; incorrect = 1; target = 0;
        }
    
        
    } or {
       
       e = right.await('click');
       
       if (contains(window_target,stimuli_window[i]))
        {
            old_word = 0; new_word = 1; ++ correct_total; ++ new_window_total; correct = 1; incorrect = 0; target = 1; 
        }
        else if (contains(window_old,stimuli_window[i]))
        {
            old_word = 1; new_word = 0; ++ incorrect_total; correct = 0; incorrect = 1; target = 0; 
        }
        else 
        {
            old_word = 0; new_word =1; ++ correct_total; ++ new_window_total; correct = 1; incorrect = 0; target = 0;
        }
    
        
    }
    
    log(incorrect_total,"total_incorrect");
    log(correct_total,"total_correct");
    log(old_word,"old_word");
    log(new_word,"new_word");
    log(target,"target");
    log(target_hit_total,"target_hit_total");
    log(correct,"correct");
    log(incorrect,"incorrect");
    log(old_window_total,"window_old_correct");
    log(new_window_total,"window_new_correct");
    
    left.clear();
    right.clear();
}    

text("
End of round 1
" 
    + "You correctly identified " + old_window_total + " out of 3 old words, and you correctly identified " + new_window_total + " out of 5 new words! 
"
    + "We will now continue with the second list of words 
"
    + "Click anywhere on the screen to continue");
    await('click'); 
    
text("Round 2");
await(2000);
clear();
await(1000);

for (var i=0; i < words_smell.length; i = i + 1)
{
    text(words_smell[i],300);
    await(1000);
    clear();
    await(1000); 
}

instruction("For a word you have seen before, click  old , and for a word you have NOT seen before, click  new ");   

stimuli_smell = stimuli_smell.concat(smell_old,smell_target,smell_new);
stimuli_smell = shuffle(stimuli_smell); 
    
for (var i=0; i < stimuli_smell.length; i = i + 1)
{
    var left = addblock('left','bottom',50,25), 
        right = addblock('right','bottom',50,25);
    
    left.button("old","response.smell","old","old_button",300);
    right.button("new","response.smell","new","new_button",300); 

    text(stimuli_smell[i],300);

    waitfor 
    { 
        e = left.await('click');
        
        if (contains(smell_target,stimuli_smell[i]))
        {
            old_word = 0; new_word = 1; ++ target_hit_total; ++ incorrect_total; correct = 0; incorrect = 1; target = 1; 
        }
        else if (contains(smell_old,stimuli_smell[i]))
        {
            old_word = 1; new_word = 0; ++ correct_total; ++ old_smell_total; correct = 1; incorrect = 0; target = 0; 
        }
        else 
        {
            old_word = 0; new_word =1; ++ incorrect_total; correct = 0; incorrect = 1; target = 0;
        }
    
    } or {
       
       e = right.await('click');
       
       if (contains(smell_target,stimuli_smell[i]))
        {
            old_word = 0; new_word = 1; ++ correct_total; ++ new_smell_total; correct = 1; incorrect = 0; target = 1; 
        }
        else if (contains(smell_old,stimuli_smell[i]))
        {
            old_word = 1; new_word = 0; ++ incorrect_total; correct = 0; incorrect = 1; target = 0; 
        }
        else 
        {
            old_word = 0; new_word =1; ++ correct_total; ++ new_smell_total; correct = 1; incorrect = 0; target = 0;
        }
    }
    
    log(incorrect_total,"total_incorrect");
    log(correct_total,"total_correct");
    log(old_word,"old_word");
    log(new_word,"new_word");
    log(target,"target");
    log(target_hit_total,"target_hit_total");
    log(correct,"correct");
    log(incorrect,"incorrect");
    log(old_smell_total,"smell_old_correct");
    log(new_smell_total,"smell_new_correct");
    
    left.clear();
    right.clear();
}    

text("
End of round 2
" 
    + "You correctly identified " + old_smell_total + " out of 3 old words, and you correctly identified " + new_smell_total + " out of 5 new words! 
"
    + "We will now continue with the third list of words 
"
    + "Click anywhere on the screen to continue");
    await('click'); 

text("Round 3");
await(2000);
clear();
await(1000);

for (var i=0; i < words_cold.length; i = i + 1)
{
    text(words_cold[i],300);
    await(1000);
    clear();
    await(1000); 
}

instruction("For a word you have seen before, click  old , and for a word you have NOT seen before, click  new ");   
   
stimuli_cold = stimuli_cold.concat(cold_old,cold_target,cold_new);
stimuli_cold = shuffle(stimuli_cold); 

for (var i=0; i < stimuli_cold.length; i = i + 1)
{
    var left = addblock('left','bottom',50,25), 
        right = addblock('right','bottom',50,25);
    
    left.button("old","response.cold","old","old_button",300);
    right.button("new","response.cold","new","new_button",300); 

    text(stimuli_cold[i],300);

    waitfor 
    { 
        e = left.await('click');
        
        if (contains(cold_target,stimuli_cold[i]))
        {
            old_word = 0; new_word = 1; ++ target_hit_total; ++ incorrect_total; correct = 0; incorrect = 1; target = 1; 
        }
        else if (contains(cold_old,stimuli_cold[i]))
        {
            old_word = 1; new_word = 0; ++ correct_total; ++ old_cold_total;  correct = 1; incorrect = 0; target = 0; 
        }
        else 
        {
            old_word = 0; new_word =1; ++ incorrect_total; correct = 0; incorrect = 1; target = 0;
        }
    
        
    } or {
       
       e = right.await('click');
       
       if (contains(cold_target,stimuli_cold[i]))
        {
            old_word = 0; new_word = 1; ++ correct_total; ++ new_cold_total; correct = 1; incorrect = 0; target = 1; 
        }
        else if (contains(cold_old,stimuli_cold[i]))
        {
            old_word = 1; new_word = 0; ++ incorrect_total; correct = 0; incorrect = 1; target = 0; 
        }
        else 
        {
            old_word = 0; new_word =1; ++ correct_total; ++ new_cold_total; correct = 1; incorrect = 0; target = 0;
        }
    }
    
    log(incorrect_total,"total_incorrect");
    log(correct_total,"total_correct");
    log(old_word,"old_word");
    log(new_word,"new_word");
    log(target,"target");
    log(target_hit_total,"target_hit_total");
    log(correct,"correct");
    log(incorrect,"incorrect");
    log(old_cold_total,"cold_old_correct");
    log(new_cold_total,"cold_new_correct");
    
    left.clear();
    right.clear();
}   

text("
End of round 3
" 
    + "You correctly identified " + old_cold_total + " out of 3 old words, and you correctly identified " + new_cold_total + " out of 5 new words! 
"
    + "We will now continue with the final list of words 
"
    + "Click anywhere on the screen to continue");
    await('click');

text("Round 4");
await(2000);
clear();
await(1000);

for (var i=0; i < words_rough.length; i = i + 1)
{
    text(words_rough[i],300);
    await(1000);
    clear();
    await(1000); 
}

instruction("For a word you have seen before, click  old , and for a word you have NOT seen before, click  new ");   
 
stimuli_rough = stimuli_rough.concat(rough_old,rough_target,rough_new);
stimuli_rough = shuffle(stimuli_rough); 

for (var i=0; i < stimuli_rough.length; i = i + 1)
{
    var left = addblock('left','bottom',50,25),
        right = addblock('right','bottom',50,25);
    
    left.button("old","response.rough","old","old_button",300);
    right.button("new","response.rough","new","new_button",300); 

    text(stimuli_rough[i],300);
    
    waitfor 
    { 
        e = left.await('click');
        
        if (contains(rough_target,stimuli_rough[i]))
        {
            old_word = 0; new_word = 1; ++ target_hit_total; ++ incorrect_total; correct = 0; incorrect = 1; target = 1; 
        }
        else if (contains(rough_old,stimuli_rough[i]))
        {
            old_word = 1; new_word = 0; ++ correct_total; ++ old_rough_total; correct = 1; incorrect = 0; target = 0; 
        }
        else 
        {
            old_word = 0; new_word =1; ++ incorrect_total; correct = 0; incorrect = 1; target = 0;
        }
    
        
    } or {
       
       e = right.await('click');
       
       if (contains(rough_target,stimuli_rough[i]))
        {
            old_word = 0; new_word = 1; ++ correct_total; ++ new_rough_total; correct = 1; incorrect = 0; target = 1; 
        }
        else if (contains(rough_old,stimuli_rough[i]))
        {
            old_word = 1; new_word = 0; ++ incorrect_total; correct = 0; incorrect = 1; target = 0; 
        }
        else 
        {
            old_word = 0; new_word =1; ++ correct_total; ++ new_rough_total; correct = 1; incorrect = 0; target = 0;
        }
    }
    
    log(incorrect_total,"total_incorrect");
    log(correct_total,"total_correct");
    log(old_word,"old_word");
    log(new_word,"new_word");
    log(target,"target");
    log(target_hit_total,"target_hit_total");
    log(correct,"correct");
    log(incorrect,"incorrect");
    log(old_rough_total,"rough_old_correct");
    log(new_rough_total,"rough_new_correct");
    
    left.clear();
    right.clear();
}    

text("End of the last round. 
" 
    + "You correctly identified " + old_rough_total + " out of 3 old words, and you correctly identified " + new_rough_total + " out of 5 new words! 
");
    await(5000);
    clear();
    await(1000);

main.setfontsize(100);

text("The aim of this experiment was to find out if people would falsely identify a new word as old, by showing them a list of semantically related words");
await(6000);
clear();
await(1000);

text("The target words for each list of words in order were window, smell, cold, and rough. 
"
    + "You falsely identified " + target_hit_total + " out of 4 targets as an old word.");
    await(7000);
    clear();
    await(1000);

text("This concludes the experiment, thank you for participating!");
await(3000);
clear();

}
else
{ 
    text("Experiment ended.");
    await(2000);
    clear();
}

Data inspection is forthcoming!

In the mean time, authors may download their own data and make it available as an Excel file. Check out the 'Stimuli and Files' tab.