MIHS.zika.TPT

breed [people person]
breed [mosquitoes mosquito]
people-own [energy infection]
mosquitoes-own [menergy minfection]

to setup
  clear-all
  ask patches [ set pcolor green ]
  set-default-shape people "person"
  create-people initial-number-people
  [
    set color blue
    set size 2
    set label-color blue - 2
    set energy random 400 + random-float 200
    setxy random-xcor random-ycor
  ]
  set-default-shape mosquitoes "bug"
  create-mosquitoes initial-number-clean
  [
    set color black
    set size 1
    set menergy random 100 + random-float 100
    setxy random-xcor random-ycor
  ]
  create-mosquitoes initial-number-infected
  [
    set minfection 1
    set color red
    set size 1
    set menergy random 100 + random-float 100
    setxy random-xcor random-ycor
  ]
  reset-ticks
end 

to go
    ask people [
    reproduce-people
    move-people
    set energy energy - 1
    catch-mosquitoes
    death-people
    color-infection
  ]
  ask mosquitoes [
    reproduce-mosquitoes
    move-mosquitoes
    set menergy menergy - 1
    catch-people
    death-mosquitoes
    color-minfection

  ]
  tick
end 

to move-people
rt random 50
lt random 50
fd 1
end 

to move-mosquitoes
  rt random 50
  lt random 50
  fd (temperature / 10)
end 

to catch-people
  let prey one-of people-here
if minfection = 1 [
  if prey != nobody
    [ ask prey [ set infection  1 ]
    ]
]
end 

to catch-mosquitoes
  let deus-vult one-of mosquitoes-here
if infection = 1 [
  if deus-vult != nobody
    [ ask deus-vult [ set minfection  1 ]
    ]
]
end 

to reproduce-people
  if infection = 0 [
   if energy <= 50 [
     if energy >= 49
    [set energy random 400 + random-float 200
    hatch 1 [rt random-float 360 fd 1]
    set energy 48.9
    ]
   ]
  ]
end 

to reproduce-mosquitoes
   if menergy <= 11 [
     if menergy >= 10
    [set menergy random 100 + random-float 100
    hatch 1 [rt random-float 360 fd 1]
    set menergy 9.9
    ]
   ]
end 

to death-people
  ask people [
    if energy < 0 [die]]
end 

to death-mosquitoes
  ask mosquitoes [
    if menergy < 0 [die]]
end 

to color-infection
if infection = 1 [
  set color red
]
end 

to color-minfection
if minfection = 1 [
  set color red
]
end