Gibanje

globals
[
 d_x_p
 s_p
 d_t_p
 v_p
d_x_d
 s_d
 d_t_d
 v_d
]

to setup
  clear-all
  setup-creature
  reset-ticks
end 

to movement
ask turtle 0
[
input
calculation
]

ask turtle 1
[
input
calculation
]

tick
end 

to clear

clear-all
reset-ticks
end 

to setup-creature
  create-turtles 2
  ask turtle 0
[
 if OblikPrvog ="Automobil"

 [
 set shape "car"
 ]

  if OblikPrvog ="Pauk"

 [
 set shape "spider"
 ]

  if OblikPrvog ="Avion"

 [
 set shape "Airplane"
 ]

 if BojaPrvog = "Crvena"
 [
   set color red
 ]

 if BojaPrvog = "Zelena"
 [
   set color green
 ]
 if BojaPrvog = "Plava"
 [
   set color blue
 ]

 set heading 90
 setxy -25 0
 set size 3

]

  ask turtle 1
[



 if OblikDrugog ="Avion"

 [
 set shape "Airplane"
 ]

 if OblikDrugog ="Automobil"

 [
 set shape "car"
 ]

  if OblikDrugog ="Pauk"

 [
 set shape "spider"
 ]

 if BojaDrugog = "Crvena"
 [
   set color red
 ]
 if BojaDrugog = "Zelena"
 [
   set color green
 ]
 if BojaDrugog = "Plava"
 [
   set color blue
 ]



 set heading 90
 setxy -25 -5
 set size 3

]
end 

to input
  set v_p BrzinaPrvog
  set d_t_p VrijemePrvog

  set v_d BrzinaDrugog
  set d_t_d VrijemeDrugog
end 

to calculation
ask turtle 0
[
 set d_x_p (v_p * d_t_p)
 set xcor (xcor + d_x_p)
 set s_p (s_p + d_x_p)

 if TragPrvog
 [
  pen-down
 ]
 ]
ask turtle 1
[
 set d_x_d (v_d * d_t_d)
 set xcor (xcor + d_x_d)
 set s_d (s_d + d_x_d)

 if TragDrugog
 [
  pen-down
 ]
 ]
end