taller

turtles-own[resistencia ]

to inicio

  clear-all
  reset-ticks

  create-turtles tortugasf[
  setxy random-xcor random-ycor
    set resistencia 10
  ]
  ask patches [set pcolor green]
end 

to runn
  forward 1
  let contador 1
  set heading 160
END

to movertortugas
  ask turtles [
  forward 1
  set resistencia resistencia - 1
  set heading random 360

  if (pcolor = green) [
    set pcolor blue
    set resistencia resistencia + 1
  ]
    if (resistencia = 0) [
    die
    ]
  ]
end 

to comer-parcelas
  ask turtles [
    if pcolor = green [
      set pcolor black
           ;; the value of energy-from-grass slider is added to energy
      set resistencia (resistencia + tortugasf)
    ]
  ifelse show-energy?
    [ set label resistencia ] ;; the label is set to be the value of the energy
    [ set label "" ]     ;; the label is set to an empty text value
  ]
end 

to reproduce
  ask turtles [
    if resistencia > birth-energy [
    set resistencia resistencia - birth-energy  ;; take away birth-energy to give birth
    hatch 1 [ set resistencia birth-energy ] ;; give this birth-energy to the offspring
    ]
  ]
end 

to verificar-muertes
  ask turtles [
    if resistencia <= 43 [ die ] ;; removes the turtle if it has no energy left
  ]
end 

to regrow-grass
  ask patches [ ;; 3 out of 100 times, the patch color is set to green
    if random 100 < 3 [ set pcolor green ]
  ]
end 

to do-plots
  set-current-plot "Totals" ;; which plot we want to use next
  set-current-plot-pen "turtles" ;; which pen we want to use next
  plot count turtles ;; what will be plotted by the current pen
  set-current-plot-pen "grass" ;; which pen we want to use next
  plot count patches with [pcolor = green] ;; what will be plotted by the current pen
end