Uso de Barbijos

turtles-own [
contagio?
barbijo?]

to setup
  ca ;;abreviatura de clear-all
  crt cantortu ;; abreviatura de create-turtles
  ask turtles [set shape "person"
  setxy random-xcor random-ycor
  ifelse random-float 100 < infectiousness
    [set contagio? true
    ]
    [set contagio? false
    ]
  ifelse random-float 100 < usodebarbijo
    [set barbijo? true
    ]
    [set barbijo? false
    ]
    colorean
  ]
  reset-ticks
end 

to go
  ask turtles[
  secontagian
  colorean
  move]
  if count turtles with [contagio? = true] = cantortu
      [stop]
  tick
end 

to move
 set heading random 360
              fd 1
end 

to secontagian
  ask other turtles-here with [ contagio?]
    [
      ;tiene mi vecino barbijo?
      ifelse barbijo?
      [
      ask myself
        [
        ;tengo yo barbijo?
        ifelse barbijo?
        [if precision ( random-float 1.0 ) 3 < 0.001
            [set contagio? true]
          ]
        [if precision ( random-float 1.0 ) 2 < 0.4
            [set contagio? true]
          ]
        colorean
        ]
      ]
      [ask myself
        [
        ;tengo yo barbijo?
        ifelse barbijo?
        [if precision ( random-float 1.0 ) 2 < 0.4
            [set contagio? true]
          ]
        [if precision ( random-float 1.0 ) 2 < 0.9
            [set contagio? true]
          ]
        colorean
        ]
      ]
    ]
  ;;with [(contagio? = true) AND (barbijo? = false)]
end 

to colorean
  ifelse contagio?
  [set color red]
  [set color blue]
end