Red and Blue Bugs

turtles-own [ energy ]

to setup
  clear-all
  setup-patches
  setup-red
  reset-ticks
end 

to go
  if ticks >= 12 [
    setup-blue]
   if ticks >= 500 [ stop ]
  move-turtles
  eat-grass
  check-death
  reproduce
  tick
end 

to move-turtles
  ask turtles [
    right random 360
    forward random 3
    set energy energy - 5 
  ]
end 

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

to setup-red
  create-turtles random 200 [setxy random-xcor random-ycor ]
  ask turtles [ set color yellow ]
end 

to setup-blue
  create-turtles random 20 [setxy random-xcor random-ycor ]
  ask turtles [ set color blue 
  if pcolor = red[
    set energy energy + 5]
  ]
end 

to eat-grass
  ask turtles [
    if pcolor = green [
      set pcolor red
      set energy energy + 10
      
    ]
    if pcolor = red [
      set energy energy - 2
    ]
  ]
end 

to check-death
  ask turtles [
    if energy <= 0 [ die ]
  ]
end 

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