Virus Level Test 1

globals [ virus-score infect-var cure-var kill-num kill-var erad?]
patches-own [ virus-per ]

to setup
  clear-all
  ask patches [ set pcolor 9.9 ]
  set virus-score 0
  set erad? false
  reset-ticks
end 

to go
  set infect-var random (250 / infectability)
  if cureability != 0 [
    set cure-var random (300 / Cureability)
    if virus-score > 23 [
    cure-virus
    ]
  ]
  set kill-num mortality
  set kill-var random 5
  virus-infect
  if virus-score < 0 [
    set virus-score 0
  ]
  kill-peep
  if virus-score = 0 [
    set erad? true
  ]
  tick
end 

to virus-infect
  if (infect-var = 1) or (infect-var = 2) [
    set virus-score virus-score + 24
  ]
end 

to cure-virus
  if (cure-var = 1) [
    set virus-score virus-score - (random 25 + 40)
  ]
end 

to kill-peep
  if (kill-var = 2) or (kill-var = 1) [
    if virus-score > 5000 [
      set virus-score (virus-score - (9 * kill-num))
    ]
    if virus-score > 3000 [
      set virus-score virus-score - (6 * kill-num)
     ]
    if virus-score > 1500 [
        set virus-score (virus-score - 4 * kill-num)
     ]
    if virus-score > 140 [
        set virus-score (virus-score - 3 * kill-num)

    ]
  ]
end