MIHS 2018 stella-hannah bio project

globals [ max-fish ]
breed [ fish a-fish ]
breed [turts turt]
turtles-own [energy]

to setup
  clear-all
  set max-fish 100
  setup-patches
  setup-turts
  setup-fish
  reset-ticks
end 

to go
  if not any? turtles [ stop ]
  if count turtles > 10000 [ user-message "The ecosystem has been overrun" ]
  move-turtles
  eat-grass
  eat-fish
  reproduce
  check-death
  regrow-grass
  tick
end 

to move-turtles
  ask turts [
    right random 100
    forward 1
    set energy energy - 3
  ]
  ask fish [
    right random 100
    forward 2
    set energy energy - 1
  ]
end 

to setup-patches
  ask patches [ set pcolor blue - 2 ]
  ask n-of 20 patches [ set pcolor orange ]
end 

to setup-turts
  create-turts 10 [ setxy random-xcor random-ycor]
  ask turtles [ set shape "turtle" ]
  ask turtles [ set size 3 ]
  ask turtles [ set energy random 100 ]
  ask turtles [ set shape "turtle" ]
  ask turtles [ set color yellow ]
end 

to setup-fish
  create-fish 50 [ setxy random-xcor random-ycor ]
  ask fish [ set energy random 100 + 25 ]
  ask fish [ set shape "fish" ]
end 

to eat-grass
  ask fish [
    if pcolor = orange [
      set pcolor blue - 2
      set energy energy + 30
    ]
    ifelse show-energy?
    [ set label energy ]
    [ set label "" ]
  ]
end 

to eat-fish
  ask turts [
    if energy > 20 [
      if random-float 100 < turt-hunting-skill [
    let prey one-of fish
    if prey != nobody [
      ask prey [ die ]
      set energy energy + 40
    ]
      ]
    ifelse show-energy?
    [ set label energy ]
    [ set label "" ]
  ]
  ]
end 

to reproduce
  ask fish [
    if energy > 10 [
      if random-float 100 < fish-reproduce [
      set energy energy - 0
      hatch 1 [ set energy 80 ]
    ]
  ]
  ]
  ask turts [
    if energy > 80 [
      if random-float 100 < turt-reproduce [
      set energy energy - 30
      hatch 1 [ set energy 70 ]
    ]
  ]
  ]
end 

to check-death
  ask fish [
    if energy <= 40 [ die ]
  ]
  ask turts [
    if energy <= 60 [ die ]
  ]
end 

to regrow-grass
  ask patches [
    if random 750 < 2 [ set pcolor orange ]
  ]
end