BugHunt Predation

;; bugs and birds are both breeds of turtle.
breed [bugs bug]  ;; bugs is its own plural, so we use "bug" as the singular.
breed [birds bird]
;; both birds and bugs have energy
turtles-own [ energy]
patches-own [grass-spot? countdown]
globals [stride-length bird-reproduce bugs-reproduce
   min-energy-of-any-bug 
   max-energy-of-any-bug 
   avg-energy-of-bugs 
   rock-color
   dirt-color
   grass-color
  ]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Setup procedures ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

to setup
  ca
  reset-ticks
  
  set stride-length .2
  set bird-reproduce 4
  set bugs-reproduce 5
  set grass-color green
  set dirt-color brown - 1
  set rock-color gray + 4
  
  clear-output
  setup-grass
  
  set-default-shape bugs "bug"
  create-bugs initial-number-bugs  ;; create the bugs, then initialize their variables
  [
    set color blue - 2
    set size 1.5  ;; easier to see
    set label-color yellow + 2.5
    set energy random (4 * bugs-gain-from-food)  
    setxy random-xcor random-ycor
  ]
  set-default-shape birds "bird"
  create-birds initial-number-birds  ;; create the birds, then initialize their variables
  [
    set color red - 1
    set size 1.5  ;; easier to see
    set label-color yellow + 2.5
    set energy random (2 * bird-gain-from-food)  
    setxy random-xcor random-ycor
  ]
  
  
  display-labels
  update-plots
end 

to setup-grass
  ask patches [set grass-spot? false set pcolor rock-color]
  ask n-of (floor (count patches * %-grass / 100)) patches [ set grass-spot? true ]
  ;; check GRASS? switch.
  ;; if it is true, then grass grows and the bugs eat it
  ;; if it false, then the bugs don't need to eat
    ask patches [
     if grass-spot? [
        ifelse random 2 = 0 
          [set pcolor grass-color]
          [set pcolor dirt-color set countdown random grass-regrowth-time ];; initialize grass grow clocks randomly
       ]
    ]
end 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Runtime procedures ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

to go
  if not any? turtles  [ stop ]
 
    
  ask bugs [
    if moving-lose-energy? [
      set energy energy - 1  ;; deduct energy for bugs only if grass? switch is on
    ]
      wander
      eat-grass
      death
   if reproduce? [ reproduce-bugs ]
    
  ]
  
  ask birds [
    if moving-lose-energy? [
      set energy energy - 1  ;; deduct energy for bugs only if grass? switch is on
    ]
    fd stride-length
    catch-bugs
    death
    if reproduce? [ reproduce-birds ]
    
  ]
  every 0.1
  [
    
    display
  ]
  
   ask patches [ grow-grass ]
  tick
  update-plots
  display-labels
end 

to wander  ;; turtle procedure
  rt random 50
  lt random 50
  fd stride-length
end 

to eat-grass  ;; bugs procedure
  ;; bugs eat grass, turn the patch brown
  if pcolor = green [
    set pcolor dirt-color
    set energy energy + bugs-gain-from-food  ;; bugs gain energy by eating
  ]
end 

to reproduce-bugs  ;; bugs procedure
  if random-float 100 < bugs-reproduce [  ;; throw "dice" to see if you will reproduce
    set energy (energy / 2)                ;; divide energy between parent and offspring
    hatch 1 [ rt random-float 360 fd stride-length ]   ;; hatch an offspring and move it forward 1 step
  ]
end 

to reproduce-birds  ;; bird procedure
  if random-float 100 < bird-reproduce [  ;; throw "dice" to see if you will reproduce
    set energy (energy / 2)               ;; divide energy between parent and offspring
    hatch 1 [ rt random-float 360 fd stride-length ]  ;; hatch an offspring and move it forward 1 step
  ]
end 

to catch-bugs  ;; bird procedure
  let prey one-of bugs-here                    ;; grab a random bugs
  if prey != nobody                             ;; did we get one?  if so,
    [ ask prey [ die ]                          ;; kill it
      set energy energy + bird-gain-from-food ] ;; get energy from eating
end 

to death  ;; turtle procedure
  ;; when energy dips below zero, die
  if energy < 0 [ die ]
end 

to grow-grass  ;; patch procedure
  ;; countdown on brown patches: if reach 0, grow some grass
  if pcolor = dirt-color  [
    ifelse countdown <= 0
      [ set pcolor grass-color
        set countdown grass-regrowth-time ]
      [ set countdown countdown - 1 ]
  ]
end 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Plotting Procedures  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

to update-plots
  set-current-plot "populations"
  set-current-plot-pen "bugs"
  plot count bugs
  set-current-plot-pen "birds"
  plot count birds
  
    set-current-plot-pen "grass / 4"
    plot count patches with [pcolor = green] / 4  ;; divide by four to keep it within similar
                                                  ;; range as bird and bugs populations
end 

to display-labels
  ask turtles [ set label "" ]
  if show-energy? [
    ask birds [ set label round energy ]
    if show-energy? [ ask bugs [ set label round energy set label-color red + 3.5 ] ]
  ]
end 

to update-statistics
   set min-energy-of-any-bug min [energy] of bugs
   set max-energy-of-any-bug max [energy] of bugs
   set avg-energy-of-bugs mean [energy] of bugs
end 
  
;;to drop-turtle [name coords]
;;  ask turtles with [grabber = name] 
;;  [ setxy first coords last coords
;;    set grabber "" ]
;;end