Control - Abundance of resources in Prehistoric Nile Valley - 1 group scenario

turtles-own [energy]

to setup
  clear-all
  setup-patches
  setup-turtles
end 

to setup-patches
  ask patches [ set pcolor green ]
end 

to setup-turtles
  create-turtles initial-number [ setxy random-xcor random-ycor ]
  ask turtles [ set shape "person"]
  ask turtles [ set size 1.5 ]
  ask turtles [ set color violet ]
  reset-ticks
end 

to go
  if ticks >= 500 [ stop ]
  move-turtles
  eat-grass
  reproduce
  check-death
  regrow-grass
  tick
end 

to move-turtles
  ask turtles [
    right random 360
    forward 1
    set energy energy - 1
  ]
end 

to eat-grass
  ask turtles [
    if pcolor = green [
      set pcolor black
      set energy (energy + energy-from-grass)
    ]
    ifelse show-energy?
    [ set label energy ]
    [ set label "" ]
  ]
end 

to reproduce
  ask turtles [
    if energy > birth-energy [
      set energy energy - birth-energy
      hatch 1 [ set energy birth-energy ]
    ]
  ]
end 

to check-death
  ask turtles [
    if energy <= 0 [ die ]
  ]
end 

to regrow-grass
  ask patches [
    if random 100 < 3 [ set pcolor green ]
  ]
end