Overfishing

turtles-own [ energy ]
breed [fishes fish]
breed [fishermen boat3]
breed [drones drone]

to go
  reset-ticks
  tick
  ask fishes [
    if pcolor = green [
      set pcolor blue
      set energy energy + 5
    ]
    ifelse show-energy?
    [ set label energy ]
    [ set label "" ]
  ]
   ask fishes [
    right random 360
    forward 1
    set energy energy - 1
  ]
  ask fishermen [
    right random 360
    forward 1
    set energy energy - 1
  ]
  ask drones
  [
    right random 360
    forward 1
  ]
end 

to setup
  clear-all
   create-fishes 10 [set color white]
  create-fishermen 20
  [
    set shape "fishermen"
    set color 0
    set size 2; easier to see
    set energy 10
  ]
  reset-ticks
  ask patches [set pcolor blue]
  create-drones 50 [set color grey set shape "drone"]
end 

to reproduce
  ask fishes [
    if energy > 100 [
      set energy energy - 100
      hatch 1 [set energy 100]
    ]
  ]
  ask fishermen [
    if energy > 1 [
      set energy energy - 100
      hatch 10 [set energy 100]
    ]
  ]
end 

to death
    if energy < 0 [die]
end 

to regrow-kelp
  ask patches [
    if random 100 < 50 [set pcolor green]
  ]
end 

to eat-fishes ; fishermen procedure
  let prey one-of fishes-here ;grab a random fishes
end