MIHS (AM CE 7) Infection Sim

globals [ virus-score infect-var cure-var kill-num kill-var deaths]
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
  ]
  set deaths 0
  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
  set infect-var random (150 / infectability)
  if cureability != 0 [
    set cure-var random (250 / Cureability)
    if virus-score > 23 [
;    cure-virus
    ]
  ]
  set kill-num mortality
  set kill-var random 5
  if virus-score < 0 [
    set virus-score 0
  ]
 kill-infected
  ]
  cure-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
  if (infect-var = 1) or (infect-var = 2) [
  ask infection [
    let uninfected one-of people-here
    if uninfected != nobody [
      ask uninfected [die]
      hatch 1
    ]
  ]]
end 

to cure-infected
  if count people > 0 [
  if (cure-var = 1) [
    let infectedPerson n-of 1 infection
  ask infection [
    if remainder ticks 28 = 0 and ticks != 0 [
      ask infectedPerson [set breed people
      ]
    ]
   ]
  ]
  ]
end 

to kill-infected
  if count infection > 0 [
  let infectedPerson n-of 1 infection
  ask infection [
    if remainder ticks round (250 / mortality) = 0  and ticks > 75 [
      ask infectedPerson [die]
      set deaths 100 - (count people )
   ]
    ]
  ]
end