Dog in the park

globals [fij mov per ran ran2]

breed [fijos fijo]
breed [moviles movil]
breed [perros perro]
breed [marcas marca]

to setup
clear-all
;ask patches [set pcolor white]

set fij ["plant" "tree" "face happy" "flag" "house" "flower" "leaf" "face sad"]
set mov ["car" "bug" "butterfly" "cow" "truck" "person" "sheep" "turtle"]


create-fijos 7
let c 0
while [c <= 6] [
let x item c fij
ask fijo c [set color green set size 2 set xcor random 33 set ycor random 33 set shape x fd random 5]
set c c + 1]

create-moviles 8
let z 7
while [z <= 14 ] [
let y item (z - 7) mov
ask movil z [set color blue set size 2 set xcor random 33 set ycor random 33 set shape y]
set z z + 1]

create-perros 1
;ask perros [set color red set size 3 set xcor random 33 set ycor random 33 set shape "wolf"]
ask perros [set color red set size 3 set xcor random 33 set ycor random 33]

create-marcas 1
ask marcas [ set size 0.25 set shape "circle" set color yellow ]

reset-ticks
end 

to go
set ran (random (14 - 7) + 7)
ask  movil ran [rt random 360 repeat random 50[fd 0.25]set heading 0]
set ran2 random 14
ask perros [face turtle ran2 repeat (distance turtle ran2) * 4 [fd 0.25]  hatch-marcas 1[ set size 0.25 set shape "circle" set color yellow ]]

tick
end