Grouse Populations

breed [grouse a-grouse]
breed [foxes fox]
breed [hunters hunter]
breed [dgrouse a-dgrouse]
grouse-own [energy]
foxes-own [energy]
dgrouse-own [ghost]

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

  set-default-shape grouse "grouse"

  set-default-shape dgrouse "dgrouse"

  set-default-shape foxes "fox"

  set-default-shape hunters "person farmer"
end 

to go


ask grouse [
   move-grouse

   eat-grass

   check-death-grouse
   reproduce-grouse
   ]

 ask foxes [
  move-foxes
  set energy energy + random-float fox-energy
   check-death-foxes
   catch-grouse-fox
   reproduce-foxes
   ]



ask hunters [
  move-hunters
  catch-grouse-hunter
  catch-foxes
  ]

ask dgrouse
[set ghost ghost + 1
  check-moveon]

  regrow-grass


  tick
end 

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

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

to move-hunters
  ask hunters [
    right random 360
    forward 1 ]
end 

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

to setup-turtles
  create-grouse number-grouse
  create-foxes number-foxes
  create-hunters number-hunters
  ask grouse [ setxy random-xcor random-ycor set energy energy + random-float 100]
  ask foxes [ setxy random-xcor random-ycor set energy energy + random-float 100]
  ask hunters [ setxy random-xcor random-ycor]
end 

to eat-grass
  ask grouse [
  if pcolor = violet [
    set pcolor black
    set energy energy + Heather-nutrients]
  ]
end 

to reproduce-grouse
  ask grouse

 [ if energy > 50 [
     set energy energy - 50
     hatch 1 [set energy 50]
 ]
 ]
end 

to reproduce-foxes
   ask foxes
   [ if energy > 50 [
       set energy energy - 50
       hatch 1 [ set energy 50]
   ]
   ]
end 

to catch-grouse-fox
   let prey one-of grouse-here
   if prey != nobody
    [ask prey [ die]]
    set energy energy + grouse-nutrients
end 

to catch-grouse-hunter
   let prey one-of grouse-here
   if prey != nobody
    [ask prey [set breed dgrouse]]
end 

to catch-foxes
   let prey one-of grouse-here
   if prey != nobody
    [ask prey [ die]]
end 

to check-death-grouse

   ask grouse [
     if energy <= 0 [die]]
end 

to check-death-foxes

   ask foxes [  if energy <= 0 [ die ]]
end 

to regrow-grass
   ask patches [
     if random 100 < grass-rate [ set pcolor violet]
   ]
end 

to check-moveon
   ask dgrouse [ if ghost = 2 [die]]
end 



;try to have moniter count grouse die by hunter
; set fox energy random
; remove energy from hunters