Ant March 2

breed [ leaders leader ]
breed [ followers follower ]
followers-own [igotfood1? ibeengreen? igotfood2?]

globals [
  nest-x nest-y     ;; location of center of nest
  thing1-x thing1-y ;; obstacle 1
  food1-x food1-y   ;; location of center of food1
  food2-x food2-y   ;; location of center of food2
  leader-heading    ;; heading of the leader ant
  gotfood1?         ;; tells if 50% of turtles got to food1
  beengreen?        ;; tells if 10% of turtles have been to green1
  gotfood2?         ;; tells if 90% of turtles got to food2
]

to setup
  clear-all
  set-default-shape turtles "bug"
  set nest-x 10 + min-pxcor                      ;; set up nest and food locations
  set nest-y 0
  set food1-x 40 + min-pxcor
  set food1-y 30
  set food2-x max-pxcor - 10
  set food2-y 0
  set thing1-x 60 + min-pxcor
  set thing1-y -20
  ;; draw the nest in brown by stamping a circular
  ;; brown turtle
  ask patch nest-x nest-y [
    sprout 1 [
      set color brown
      set shape "circle"
      set size 10
      stamp
      die
    ]
  ]
  ;; draw the food in orange by stamping a circular
  ;; orange turtle
  ask patch food1-x food1-y [
    sprout 1 [
      set color orange
      set shape "circle"
      set size 10
      stamp
      die
    ]
  ]
   ;; draw the obstacle in green by stamping a circular
   ;; green turtle
  ask patch thing1-x thing1-y [
    sprout 1 [
      set color green
      set shape "circle"
      set size 5
      stamp
      die
    ]
  ]
   ;; draw the second food in orange by stamping a circular
   ;; orange turtle
  ask patch food2-x food2-y [
    sprout 1 [
      set color orange
      set shape "circle"
      set size 15
      stamp
      die
    ]
  ]
  create-leaders 1
    [ set color red                                ;; leader ant is red
      set size 2
      wiggle 50 ]                                  ;; ...and starts out with a random heading
  create-followers (num-ants - 1)
    [ set size 2
      set igotfood1? false
      set ibeengreen? false
      set igotfood2? false
      set color yellow ]                           ;; middle ants are yellow
  ask turtles
    [ setxy nest-x nest-y                          ;; start the ants out at the nest
      set heading 90 ]
  ask turtle (num-ants + 3)
    [ set color blue                               ;; last ant is blue
      set pen-size 2
      pd ]                                         ;; ...and leaves a trail
  ask leaders
    [ set pen-size 2
      pd ]                                         ;; the leader also leaves a trail
  set leader-heading [heading] of one-of leaders
  set gotfood1? false
  set beengreen? false
  set gotfood2? false
  reset-ticks
end 

to go
  if all? turtles [xcor > nest-x - 2 and xcor < nest-x + 2 and ycor > nest-y - 2 and ycor < nest-y + 2] and gotfood2?
    [ stop ]
  ask patch nest-x nest-y
   [ if gotfood2?
     [ask turtles in-radius 1 [set color brown]]]
   
  ask patch food1-x food1-y
   [ if gotfood1?
      [ ask followers in-radius 3 [set igotfood1? true] ]
     if count turtles in-radius 5 > (num-ants * .10)
      [ set gotfood1? true
        sprout 1 [
          set color green
          set shape "circle"
          set size 10 
          stamp
          die
        ]
        ask leaders [set heading 105] ] ]
   
  ask patch thing1-x thing1-y
    [ if beengreen?
       [ ask followers in-radius 0 [set ibeengreen? true] ]
      if count turtles in-radius 1 > (num-ants * .1)
       [ set beengreen? true
         ask leaders [facexy food2-x food2-y] ] ]
    
  ask patch food2-x food2-y
   [ if gotfood2?
      [ ask followers in-radius 3 [set igotfood2? true] ]
     if count turtles in-radius 3 > (num-ants * .9)
      [ set gotfood2? true
        sprout 1 [
          set color green
          set shape "circle"
          set size 15
          stamp
          die
        ]
        ask leaders [facexy nest-x nest-y] ] ]
   
  ask leaders                                      ;; the leader ant wiggles and moves
   [ wiggle leader-wiggle-angle
     ifelse gotfood2? = false [correct-path][correct-path2]
     if gotfood1? = false
      [ if (xcor > (food1-x - 3 ))                    ;; leader heads straight for food, if it is close
         [ facexy food1-x food1-y ]
        if xcor < food1-x                             ;; do nothing if you're at or past the food
         [ fd 0.5 ] ]
     if gotfood1? = true and beengreen? = false
      [ if (xcor > (thing1-x - 3 ))                    ;; leader heads straight for food, if it is close ; (xcor > (food2-x - 5 )
         [ facexy thing1-x thing1-y ]
        if xcor < thing1-x                             ;; do nothing if you're at or past the food
         [ fd 0.5 ] ]
     if beengreen? = true and gotfood2? = false
      [ if (xcor > (food2-x - 3 ))                    ;; leader heads straight for food, if it is close ; (xcor > (food2-x - 5 )
         [ facexy food2-x food2-y ]
        if xcor < food2-x                             ;; do nothing if you're at or past the food
         [ fd 0.5 ] ]
     if gotfood2? = true
      [ if (xcor < (nest-x + 3 ))                    ;; leader heads straight for food, if it is close ; (xcor > (food2-x - 5 )
         [ facexy nest-x nest-y ]
        if xcor > nest-x                             ;; do nothing if you're at or past the food
         [ fd 0.5 
           set leader-wiggle-angle 0 ] ] ]
  
  ask followers
     [ face turtle (who - 1)                        ;; follower ants follow the ant ahead of them
       if time-to-start? and (xcor < food1-x) and igotfood1? = false and gotfood2? = false       ;; followers wait a bit before leaving nest
         [ fd 0.5 ] 
       if time-to-start? and (xcor < thing1-x) and gotfood1? = true and gotfood2? = false        ;; followers wait a bit before leaving nest
         [ fd 0.5 ] 
       if time-to-start? and (xcor < food2-x) and beengreen? = true and gotfood2? = false       ;; followers wait a bit before leaving nest
         [ fd 0.5 ] 
       if gotfood2? = true        ;; followers wait a bit before leaving nest
         [ fd 0.5 ] ]

  set leader-heading [heading] of one-of leaders
  tick
end 

;; turtle procedure; wiggle a random amount, averaging zero turn

to wiggle [angle]
  rt random-float angle
  lt random-float angle
end 

;; turtle procedure

to correct-path
  ifelse heading > 180
    [ rt 180 ]
    [ if patch-at 0 -5 = nobody
        [ rt 100 ]
     if patch-at 0 5 = nobody
        [ lt 100 ] ]
end 

;; turtle procedure

to correct-path2
  if heading < 180
    [ rt 180 ]
end 

;; turtle reporter; if true, then the ant is authorized to move out of the nest

to-report time-to-start?
  report ([xcor] of (turtle (who - 1))) > (nest-x + start-delay + random start-delay )
end 


; Copyright 1997 Uri Wilensky.
; See Info tab for full copyright and license.