InfectionSimulation

breed [infection infected]
breed [people person]

to setup
  clear-all
  create-infection 1 [set color red] ;;one infected person
  create-people 99 [set color cyan] ;;99 uninfected people
  ask infection [
    setxy random-xcor random-ycor
    set shape "infected"
    set size 2
  ]
  ask people [
    setxy random-xcor random-ycor
    set shape "uninfected"
    set size 2
  ]
  reset-ticks
end 

to go
  if count infection < 101 [
    move-infection ;;moves infected people 1 step in a random direction
    move-people ;;moves uninfected people 1 step in a random direction
    infect-people ;;if one of the uninfected people contact an infected person, turns infected
  ]
  tick
end 

to move-infection
  ask infection [
    right random 360
    forward 0.5
  ]
end 

to move-people

  ask people [
    right random 40
    forward 1
  ]
end 

to infect-people
  ask infection [
    let uninfected one-of people-here
    if uninfected != nobody [
      ask uninfected [die]
      hatch 1
    ]
  ]
end