Developmental_coordination_disorder_in_children_-_experimental_work_and_data_annotation/Experiment_798_AUDITORY_ERP_PROTOCOL_IN_CHILDREN_WITH_DEVELOPMENTAL_COORDINATION_DISORDER/Scenario/children_multimod.sce

randomize_trials=true;
#no_logfile = true;


active_buttons = 1;
button_codes = 0;   
response_matching = simple_matching;


begin;
array {
 sound{
   wavefile { filename = "koza.wav"; } snd_buck;
 } standard_stimulus;      # standard stimulus;
 sound{
   wavefile { filename = "pes.wav"; } snd_dog;
 };     # target 1    
 sound{
   wavefile { filename = "kocka.wav"; } snd_cat;
 };  
 } sound_stimulus;

array {
  picture {
   bitmap { filename = "koza.jpg"; } buck;
   x=0; y=0;
 } standard_pic;
  picture {
   bitmap { filename = "pes.jpg"; } dog;
   x=0; y=0;
 } target1_pic;
  picture {
  bitmap { filename = "kocka.jpg"; } cat;   
   x=0; y=0;
 } target2_pic;
} picture_stimulus; 

trial {
     trial_duration = 1200;
     stimulus_event{
     picture standard_pic;
      duration=700; 
     } event1;
     stimulus_event{
     sound standard_stimulus;
     duration=700;
     port_code=1;
     code=1;
      } event2;
           
	} main; 

begin_pcl;
array <int> stim[300];
array <int> out_code[300];
array <int> tg_stim_list[60];
array <int> tg_type_list[60];  # obsahuje info o typu targetu  2 - pes štěká  3 - kočka mňouká  4- kočka štěká 5 - pes mňouká   
array <string> type[6]={"kz  ","pe  s", "ko  m","ko  s","pe  m"};
int st,num,en,pos,cat_pos;
int cat_dog_pos, dog_cat_pos; 
int react_time, cum_react_time,false_react_time, false_cum_react_time;
double avg_react,false_avg_react;
string userid;
output_file s_output = new output_file; 


# naplnění­ pole standardními stimuly
loop int j=1 until j>300
  begin 
    stim[j]=1; 
    out_code[j]=1;
    j=j+1;
  end;
  
# 20% se vymění za targety s kodem 2 (pes) 
st=3; num=60;
loop int k=1 until k>60 
 begin
  if (st <205) then en=st+4; else  en=st + 3;  end;
  if (en>295) then en=295; end;
  pos=random(st,en);
  tg_stim_list[k]=pos;
  tg_type_list[k]=2; 
  stim[pos]=2;
  out_code[pos]=2; out_code[pos+1]=101;
  st=pos+3;
  k=k+1;
 end; 



# z př™edchozíchch 20% se jich 10% zamě›ní za tg s kodem 3 (kočka)
loop int l=1 until l>30
 begin
 pos=random(1,60);
 cat_pos= tg_stim_list[pos];
 if (stim[cat_pos]!=3) then 
  tg_type_list[pos] = 3;
  stim[cat_pos]=3; out_code[cat_pos]=3;
  out_code[cat_pos+1]=102;  
  l=l+1;
 end; 
end; 
 

# u 5% targetu se zamění zvuky  - tj. pes mňˆouká¡ a kočka štěká
loop int l=1 until l>15
 begin
	int pos1, pos2;
 loop 
    pos1=random(1,60);
    pos2=random(1,60);
 until (tg_type_list[pos1]==2) && (tg_type_list[pos2]==3)
  begin
    pos1=random(1,60);
    pos2=random(1,60);
  end;
   tg_type_list[pos1]=5; tg_type_list[pos2]=4;
   dog_cat_pos= tg_stim_list[pos1]; cat_dog_pos = tg_stim_list[pos2];
    stim[dog_cat_pos]=2; out_code[dog_cat_pos]=5;
    stim[cat_dog_pos]=3; out_code[cat_dog_pos]=4; 
    out_code[dog_cat_pos+1]=103;out_code[cat_dog_pos+1]=104;  
  l=l+1;
 end; 

/*-----------------------------------------------------------------------------------*/
loop int i=1 until i>300
begin
term.print(stim[i]);
i=i+1;
end;
term.print("\n");

loop int i=1 until i>300
begin
term.print(out_code[i]); term.print(" ");
i=i+1;
end;
term.print("\n");
/*---------------------------------------------------------------------------------*/
/* ----------------------- tady se spouští vlastní stimulace ----------------------*/
userid=logfile.subject();
s_output.open(userid+".txt");
cum_react_time=0;
false_cum_react_time=0;
loop int i=1 until i>30
 begin 
 s_output.print(i); s_output.print("\t"); s_output.print(out_code[i]);s_output.print("\t");
 event1.set_stimulus(picture_stimulus[stim[i]]); 
 if (out_code[i]>3) && (out_code[i]<6) then	
 event2.set_stimulus(sound_stimulus[out_code[i]-2]);
 s_output.print(type[out_code[i]]+"\t");	
 else 
 event2.set_stimulus(sound_stimulus[stim[i]]);
 s_output.print(type[stim[i]]+"\t");	
 end;
 event2.set_port_code(out_code[i]);
 event2.set_event_code(string(out_code[i]));
 if (out_code[i]==2) || (out_code[i]==4) 
   then event2.set_target_button(1);
         event2.set_stimulus_time_in(200);
         event2.set_stimulus_time_out(700);  
   else  event2.set_target_button(0);
         event2.set_response_active(true); 
   end;
 main.present();
 i=i+1;
 stimulus_data last = stimulus_manager.last_stimulus_data();
 if (last.type()==stimulus_hit) 
  then react_time=last.reaction_time();
       cum_react_time=cum_react_time+react_time; 
       s_output.print("o"+"\t");s_output.print(react_time);
     /*  term.print("React_time = "); term.print(react_time); term.print("\n"); */
  elseif  (last.type()==stimulus_false_alarm)
      then
	    false_react_time=last.reaction_time();
	    false_cum_react_time=false_cum_react_time+false_react_time;
       s_output.print("x"+"\t");  s_output.print(false_react_time); 
 end;   
s_output.print("\n");    
end;
int total_hits = response_manager.total_hits();
int total_false_alarms = response_manager.total_false_alarms();
if (total_hits!=0)
 then avg_react=double(cum_react_time)/double(total_hits);
 else avg_react=0.;   
 end; 
if (total_false_alarms!=0)
 then false_avg_react=double(false_cum_react_time)/double(total_false_alarms);
 else avg_react=0.;   
 end; 


s_output.print("\n\n");    
s_output.print("Total hits = "); s_output.print(total_hits); s_output.print("\n");
s_output.print("Total reaction time = "); s_output.print(avg_react); s_output.print("\n\n");
s_output.print("Total false alarms  = "); s_output.print(total_false_alarms); s_output.print("\n");
s_output.print("Total false reaction time = "); s_output.print(false_avg_react); s_output.print("\n");




term.print("Total hits = "); term.print(total_hits); term.print("\n");
term.print("Total reaction time = "); term.print(avg_react); term.print("\n");
s_output.close();