Bug Hunters Speeds

globals [
    total-caught                 ;; keeps track of total number of bugs caught
    total-speed-6-caught         ;; keeps track of the number of bugs caught with speed of 6
    total-speed-5-caught         ;; keeps track of the number of bugs caught with speed of 5
    total-speed-4-caught         ;; keeps track of the number of bugs caught with speed of 4
    total-speed-3-caught         ;; keeps track of the number of bugs caught with speed of 3
    total-speed-2-caught         ;; keeps track of the number of bugs caught with speed of 2
    total-speed-1-caught         ;; keeps track of the number of bugs caught with speed of 1
    time                         ;; keeps track of number of simulation steps that have passed
    old-color-map                ;; keeps track of the previous value of the SPEED-COLOR-MAP chooser
    histogram-interval-size      ;; the value of the interval size for each bar of the histogram
  leader
  leader-caught
  number-players
  last-ticks                    ;; what the the tick value was at the start of the
                                ;; current interval
  bugs-in-a-batch               ;; how many bugs must be caught in a batch. when this is reached,
                                ;; the time to reach this (the interval) is recorded
  interval-length               ;; how long it took to catch the last number of bugs-in-a-batch
  caught-in-current-batch       ;; how many bugs have been caught so far in this current interval
  batches                       ;; how many batches have been caught (for plotting)
  adult-age                     ;; the age at which recently hatched bugs become full sized
  ]

breed [ players player ]
breed [bugs bug]
bugs-own [speed]
players-own
[
  user-name
  caught
  attempts
  percent
]

to startup
  hubnet-set-client-interface "COMPUTER" []
  hubnet-reset
  set number-players 0
  setup-clear
end 

to setup-clear
  ca
  setup
end 

to setup
  cp
  clear-all-plots
  reset-ticks
  set total-caught 0
  set   total-speed-6-caught 0
  set   total-speed-5-caught 0
  set   total-speed-4-caught 0
  set   total-speed-3-caught  0
  set   total-speed-2-caught   0
   set   total-speed-1-caught  0
  set leader ""
  set leader-caught 0
  set bugs-in-a-batch 10        ;; ten bugs must be caught to make a batch
  set caught-in-current-batch 0 ;; no bugs are currently caught in the first batch
  set interval-length 0         ;; previous interval-length value is 0 by default
  set batches 0                 ;; no batches caught yet
  set time 0
  set histogram-interval-size 1
  set old-color-map speed-color-map   ;; holds the starting value of the chooser
  ask patches [ set pcolor white ]   ;; white background
  make-initial-bugs
  ask players [ initialize-player ]
  update-plots
end 

to make-initial-bugs
   ask bugs [die]
  create-bugs initial-bugs-each-speed [ set speed 1 ]
  create-bugs initial-bugs-each-speed [ set speed 2 ]
  create-bugs initial-bugs-each-speed [ set speed 3 ]
  create-bugs initial-bugs-each-speed [ set speed 4 ]
  create-bugs initial-bugs-each-speed [ set speed 5 ]
  create-bugs initial-bugs-each-speed [ set speed 6 ]

  ask bugs [
    set shape "bug"
    setxy random-xcor random-ycor
  ]
  ask bugs [ set-color ]
end 
;;;;;;;;;;;;;;;;;;;;;
;; Runtime Procedures
;;;;;;;;;;;;;;;;;;;;;

to go
  every 0.04 [
    listen-clients 
    move-bugs
    ask bugs [set-color]
     ;; advance the clock
    tick
    if ticks mod 10 = 0 [ update-plots ]
  ]
end 

to move-bugs
  ;; the speed factor is a scaling number used to adjust the amount all the bugs move
  ;; for example a speed-factor of 2, scales the speed of all the bugs so they are moving twice as fast
  ;; it is a useful slider to change for slower and faster computers, that might have the bugs
  ;; as a whole population moving too fast or too slow across the screen
  ask bugs [ fd (speed * 0.06) ]
end 
;; keep a stable population of bugs as predation rates go up or down

to check-caught
  ;; extract the coords from the hubnet message
  let clicked-xcor  (item 0 hubnet-message)
  let clicked-ycor  (item 1 hubnet-message)
  ask players with [ user-name = hubnet-message-source ] [
    set xcor clicked-xcor set ycor clicked-ycor      ;; go to the location of the click
    set attempts attempts + 1                        ;; each mouse click is recorded as as an attempt
                                                     ;; for that player
    ;;  if the players clicks close enough to a bug's location, they catch it
    ;;  the in-radius (bug-size / 2) calculation helps make sure the user catches the bug
    ;;  if they click within one shape radius (approximately since the shape of the bug isn't
    ;;  a perfect circle, even if the size of the bug is other than 1)
    
    
    if any? bugs in-radius (bug-size / 2)
    [
      let doomed-bug one-of bugs in-radius (bug-size / 2)
      let speed-of-caught 0
      ask doomed-bug [set speed-of-caught speed
        if (speed-of-caught = 6) [ set total-speed-6-caught (total-speed-6-caught + 1) ]
        if (speed-of-caught = 5) [ set total-speed-5-caught (total-speed-5-caught + 1) ]
        if (speed-of-caught = 4) [ set total-speed-4-caught (total-speed-4-caught + 1) ]
        if (speed-of-caught = 3) [ set total-speed-3-caught (total-speed-3-caught + 1) ]
        if (speed-of-caught = 2) [ set total-speed-2-caught (total-speed-2-caught + 1) ]
        if (speed-of-caught = 1) [ set total-speed-1-caught (total-speed-1-caught + 1) ]
        die
      ]
      set caught caught + 1
      set total-caught total-caught + 1
      
     ;; replace the eaten bug with a random offspring from the remaining population
      ask one-of bugs [ hatch 1 [ rt random 360 ] ]    ]
  ]
end 


;;;;;;;;;;;;;;;;;;;;;
;; Visualization Procedures
;;;;;;;;;;;;;;;;;;;;;

to set-color ;; turtle procedure
  if speed-color-map = "all green"
    [ set color green ]
  if speed-color-map = "violet shades"
    [ set color violet - 4 + speed ]
  if speed-color-map = "rainbow"
    [ set color item (speed - 1) [violet blue green brown orange red] ]
end 

;;;;;;;;;;;;;;;;;;;;;;
;; HubNet Procedures
;;;;;;;;;;;;;;;;;;;;;;

to add-player
  set number-players number-players + 1
  create-players 1 [
    set user-name hubnet-message-source
    initialize-player
  ]
end 

to initialize-player
  set attempts 0
  set caught 0
  set hidden? true
  set-percent
  send-student-info
end 

to remove-player
  set number-players (number-players - 1)
  ask players with [ user-name = hubnet-message-source ]
    [ die ]
end 

to set-percent
  ifelse leader-caught > 0
  [ set percent ((caught / leader-caught) * 100)]
  [ set percent 0 ]
end 

to send-student-info
  hubnet-send user-name  "Your name" user-name
  hubnet-send user-name "You have caught" caught
  hubnet-send user-name "# Attempts"  attempts
  hubnet-send user-name "Relative %"  (precision percent 2)
  hubnet-send user-name "Top hunter" leader
  hubnet-send user-name "Top hunter's catches" leader-caught
end 

to listen-clients
  while [hubnet-message-waiting?]
  [
    hubnet-fetch-message
    ifelse hubnet-enter-message?
    [add-player ]
    [
      ifelse hubnet-exit-message?
     [remove-player]
     [
        if ((hubnet-message-tag = "View")  )
         [
            ask players with [ user-name = hubnet-message-source ]
              [ check-caught ]
            update-leader-stats
            ;; update all the players anytime we update the leaders
            ask players
            [
              set-percent
              send-student-info
            ]
         ]
      ]
    ]
  ]
end 

to update-leader-stats
  if any? players
  [
    let leaders players with-max [ caught ]
    let number-leaders count leaders
    ifelse number-leaders > 1
    [ set leader word number-leaders "-way tie" ]
    [ ask one-of leaders [set leader user-name ] ]
    set leader-caught [caught] of one-of leaders
  ]
end 
;;;;;;;;;;;;;;;;;;;;;;
;; Plotting Procedures
;;;;;;;;;;;;;;;;;;;;;;

to update-plots
  set-current-plot "Avg. Bug Speed vs. Time"
   if any? bugs [plotxy time mean [speed] of bugs]
  set-current-plot "Current Bug Population"
  clear-plot
  foreach [1 2 3 4 5 6] [
    set-current-plot-pen word "pen" ?
    plotxy ? count bugs with [speed = ?]
  ]
  ;; creates 6 different histograms of different colors in the same graph
  ;; each histogram is color coded to the color mapping for when the
  ;; SPEED-COLOR-MAP chooser is set to "rainbow" value.
  set-current-plot "Bugs Caught"
  clear-plot
  
  set-histogram-num-bars 8
  set-current-plot-pen "pen1"
  plotxy 1 total-speed-1-caught
  set-histogram-num-bars 8
  set-current-plot-pen "pen2"
  plotxy 2 total-speed-2-caught
  set-histogram-num-bars 8
  set-current-plot-pen "pen3"
  plotxy 3 total-speed-3-caught
  set-histogram-num-bars 8
  set-current-plot-pen "pen4"
  plotxy 4 total-speed-3-caught
  set-histogram-num-bars 8
  set-current-plot-pen "pen5"
  plotxy 5  total-speed-5-caught 
  set-histogram-num-bars 8
  set-current-plot-pen "pen6"
  plotxy 6  total-speed-6-caught
end