Virus Spread (simple)_Final

turtles-own [
  virus? ;; Ture or False? Turtle has the virus
]

to setup ;; this procedure sets up simulation anew
  clear-all
  create-turtles number-of-agents [setxy random-xcor random-ycor
  set virus? false ;; all turtles enter world without virus
    set shape "person"
  ]
  ask one-of turtles [set virus? true] ;; one unlucky turtle will enter world infected w/ virus
  ask turtles [recolor]
  reset-ticks
end 

to go
  if all? turtles [virus?] [stop] ;; will end simulation after all turtles are infected
  ask turtles [ move ]
  ask turtles [spread]
  ask turtles [recolor]
  tick
end 

to move
  right random 50
  left random 50
  fd 1
end 

to spread
  ifelse virus? [] [ ;; if infected touches other infected do nothing, otherwise run following procedure
  if any? other turtles-here with [virus?] ;; asks if there are any other turtles in the same patch (space) as them with the virus
  [set virus? true
      if connections [ask self [ create-links-from other turtles-here with [virus?]]]
  ]
  ]
end 

to recolor
  ifelse virus? [set color red] [set color blue]
end