MIHS-20_period4_leilac_derekn_emmitth

turtles-own [energy] ;; for keeping track of when the turtle is ready to reproduce and when it will die

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

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

to setup-turtles
  create-turtles 100 [ setxy random-xcor random-ycor ] ;; uses the value of the number slider to create turtles
  ask turtles [ setxy random-xcor random-ycor ]
end 

to go
  if ticks >= 500 [ stop ] ;; stop after 500 ticks
  ;move-turtles
  eat-grass
  check-death
  reproduce
  regrow-grass
  tick ;; increase the tick counter by 1 each time through
end 

to move-turtles
  ask turtles [right random 360 forward 1 set energy energy - 1] ;; when the turtle moves it looses one unit of energy
end 

to eat-grass
  ask turtles [if pcolor = green [set pcolor brown
    set energy energy +  10]
  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]] ;; removes turle if it has no energy left
end 

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