MIHS (BS, JC, AP) 7

breed [rabbits rabbit]
breed [people person]
breed [squirrels squirrel]
turtles-own [energy]

to setup
  clear-all
  setup-patches
  setup-rabbits
  setup-soldiers
  setup-squirrels
  reset-ticks
end 

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

to setup-rabbits
  create-rabbits 15 [ set shape "rabbit" set size 1.5 set energy 15]
  ask turtles [ setxy random-xcor random-ycor ]
end 

to setup-squirrels
  create-squirrels 15 [ set shape "squirrel" set size 1.15 set energy 25]
  ask turtles [ setxy random-xcor random-ycor ]
end 

to setup-soldiers
  create-people 1 [ set shape "person soldier" set size 3.5 set energy 10000]
  ask turtles [ setxy random-xcor random-ycor ]
end 

to move-people
  ask people [
    right random 360
    forward .05
  ]
end 

to move-rabbits
  ask rabbits [
    right random 360
    forward rabbitSpeed
  ]
end 

to move-squirrels
  ask squirrels [
    right random 360
    forward squirrelSpeed
  ]
end 

to go
  move-people
  move-rabbits
  move-squirrels
  hunt
  kill
  reproduce
  tick
end 

to hunt
  ask people [ let prey rabbits in-radius 5
    ask prey [die]
  ]
end 

to kill
  ask people [ let prey squirrels in-radius 5
    ask prey [die]
  ]
end 

to reproduce
  ask squirrels [ if energy >= 8 [ set energy energy / 2 hatch 1 [rt random 360 fd 1 ]]]
  ask rabbits [ if energy >= 10 [ set energy energy / 2 hatch 1 [rt random 360 fd 1 ]]]
end