week 5 zombie model

breed [person people]
breed [zombie horde]

to setup
  clear-all
  reset-ticks
  create-person 100
  [
    scatter
    set shape "person"
    set color green
    set size 3
    if random 100 < 10
    [
     set color white
     set breed zombie
     set shape "person" 
    ]
  ] 
end 

to scatter
  setxy random-xcor random-ycor
end 

to go                   ; main procedure
  tick
  ask turtles
  [
    if breed = person
    [
      person-move       ; people move different than zombies
      flee              ; run away from zombie
    ]
    if breed = zombie
    [
      zombie-move       ; zombies are slow
      infect            ; spread the virus
    ]
  ]
  if count zombie = 100
  [
    stop
  ]
end 

to person-move
  forward 1
  person-wiggle 
end 

to person-wiggle
  right random 25
  left random 25
end 

to flee
  if count zombie in-radius radius > 0  ; at least one zombie; 
  [
    right 180
  ]
end 

to zombie-move
  forward .5
  zombie-wiggle 
end 

to zombie-wiggle
  right random 50
  left random 50
end 

to infect
  if count person-here > 0     ; at least one human- person
  [
    ask person-here
    [
     set breed zombie
     set color white
     set shape "person"
     set size 2 
    ]
  ]
end