utrka

globals
[
  d_x0 d_t0 v0 s0 x_B0
  d_x1 d_t1 v1 s1 x_B1
  d_x2 d_t2 v2 s2 x_B2
]

to setup
  clear-all
  setup-čestica
  setup-pozadina
  reset-ticks
end 

to setup-čestica
  create-turtles 3
  
  ask turtle 0
  [
    set shape "car"
    set size 2
    set color green
    setxy -10 -5
    set v0 random 100
  ]
  
  
   ask turtle 1
  [
    set shape "square"
    set size 2
    set color red
    setxy -10 -0
    set v1 random 100
   
  ]
  
  
   ask turtle 2
  [
    set shape "circle"
    set size 2
    set color blue
    setxy -10 5
    set v2 random 100
  ]
end 

to setup-pozadina
   
   ask patches
   [
     set pcolor black]
   
   
   ask patch -10 -5 
   [
     set pcolor gray
     set plabel "A"
   ]
   
   ask patch 10 -5
   [
     set pcolor gray
     set plabel "B"
   ]
   
   
   ask patch -10 0
   [
     set pcolor gray
     set plabel "A"
   ]
   
   ask patch 10 0
[
  set pcolor gray
  set plabel "B"
  ]
   
   ask patch -10 5
   [
     set pcolor gray
     set plabel "A"
   ]
   
   
   ask patch 10 5
[
  set pcolor gray
  set plabel "B"
  ]
end 

to go 
  ask turtle 0
  [
  If xcor <= 10 
  [
    izračun
  ]
  ]
tick


ask turtle 1
  [
  If xcor <= 10 
  [
    izračun1
  ]
  ]
tick

 
  ask turtle 2
  [
  If xcor <= 10 
  [
    izračun2
  ]
  ]
tick
end 

to izračun
       set d_t0 0.00001
       set d_x0 (v0 * d_t0)
       set xcor (xcor + d_x0)
       set s0 (s0 + d_x0)
end 

to izračun1
       set d_t1 0.00001
       set d_x1 (v1 * d_t1)
       set xcor (xcor + d_x1)
       set s1 (s1 + d_x1)
end 

to izračun2
       set d_t2 0.00001
       set d_x2 (v2 * d_t2)
       set xcor (xcor + d_x2)
       set s2 ( s2 + d_x2)
end