Tomica(Thomas) race

globals
[
  d_x s V d_t b_t bV bs b_x
  ]

to setup
  clear-all
  setup-Tomica
  setup-konkurent
  reset-ticks
end 

to go
  ask turtle 0
  [
    unos
    izračun
    ]
  ask turtle 1
  [
    unosB
    izračunB
    ]
  tick
end 

to setup-Tomica
  create-turtles 1
  ask turtle 0
  [
    set heading 0
    set shape "tomica"
    set size 10
    setxy 0 0
    set color red
    if putanja
    [
    pen-down
    ]
    ]
end 

to setup-konkurent
  create-turtles 1
  ask turtle 1
  [
    set heading 0
    set shape "block"
    set size 10
    setxy 0 10
    set color green
    if putanja
    [
    pd
    ]
    ]
end 

to unos
  set d_t (tomica_vrijeme)
  set V (tomica_brzina)
end 

to izračun
  set xcor (xcor + d_x)
  set s (s + d_x)
  set d_x (V * d_t)
end 

to unosB
  set b_t (block_vrijeme)
  set bV (block_brzina)
end 

to izračunB
  set xcor (xcor + b_x)
  set bs (bs + b_x)
  set b_x (bV * b_t)
end