MIHS-20_KateB_KateN_StuartB_GeorgiaS

breed [wolves wolf]
wolves-own [  energy  ]
breed [rabbits rabbit]
rabbits-own [  energy  ]

to setup
  clear-all
  grow-grass-and-weeds
  set-default-shape wolves "wolf"
  create-wolves 20[
    set color brown
    setxy random-xcor random-ycor
    set energy random 10 ] ; start with a radnom amt. of energy
  set-default-shape rabbits "rabbit"
  create-rabbits 20[
    set color white
    setxy random-xcor random-ycor
    set energy random 10 ] ; start with a random amt. of energy

  reset-ticks
end 

to go
  if not any? wolves [ stop ]
  grow-grass-and-weeds
  ask wolves
  [ move
    eat-grass-wolf
    eat-weeds-rabbit
    reproduce
    death ]
  ask rabbits
  [ move
   eat-grass-wolf
    eat-weeds-rabbit
    reproduce
    death ]
  tick
end 

to grow-grass-and-weeds
  ask patches [
      if pcolor = black [
      if random-float 1000 < weeds-grow-rate
      [ set pcolor violet ]
      if random-float 1000 < grass-grow-rate
      [ set pcolor green ]
  ] ]
end 

to move ;; deer procedure
  rt random 50
  lt random 50
  fd 1
  ;; moving takes some energy
  set energy energy - 0.5
end 

to eat-grass-wolf ;; deer procedure
  ;; gain "grass-energy" by eating grass
  if pcolor = green
  [ set pcolor black
    set energy energy + grass-energy ]
end 

to eat-weeds-rabbit ;; deer procedure
  ;; gain "weed-energy" by eating weeds
  if pcolor = violet
  [ set pcolor black
    set energy energy + weed-energy ]
end 

to reproduce ;; deer procedure
  ;; give birth to a new deer, but it takes a lot of energy
  if energy > birth-threshold
  [ set energy energy / 2
    hatch 1 [ fd 1 ] ]
end 

to death ;; dear procedure
  ;; die if you run out of energy
  if energy < 0 [ die ]
end