ABM for Female Founders

breed [ FFs a-FF ]
breed [ VCs a-VC ]
FFs-own [ energy ]

to setup
  clear-all
  ask patches [
    set pcolor 93
  ]

  create-FFs 50 [
    setxy random-xcor random-ycor
    set color 29
    set energy random 14
    set shape "star"
    set size 1
  ]

  create-VCs 600 [
    setxy random-xcor random-ycor
    set shape "line half"
    set size 1
    if (VC-behavior = "harasser") [ set color red ]
    if (VC-behavior = "supporter") [ set color yellow ]
    if (VC-behavior = "discourager") [ set color grey ]
    if (VC-behavior = "funder") [ set color green ]
    if (VC-behavior = "mixed") [set color one-of [ red yellow red green yellow grey grey yellow grey yellow grey ] ]
  ]
reset-ticks
end 

to go
  ask FFs [
    navigate ;; first turn a little bit in each direction
    move ;; then step forward
    check-if-broken ;; checks to see if FF has broken
    ;;triumph ;; FF funds her company
    trailblaze;; triumphant FF brings 2 more FFs into the system
  ]

 ask VCs  [
    navigate
    move

    if (color = red) and (random-float 1.0 < harass) [ harass-FFs ]
    if (color = yellow) and (random-float 1.0 < support) [ support-FFs ]
    if (color = grey) and (random-float 1.0 < discourage) [ discourage-FFs ]
    if (color = green) and (random-float 1.0 < fund) [ fund-FFs ]

  ]
tick
end 

to navigate
  ;; turn right then left, so the average direction is straight ahead
  right random 90
  left random 90
end 

to move
  forward 1
end 

to check-if-broken
  if energy < 0 [
    die
  ]
end 

to harass-FFs

    let prey one-of FFs-here
    if prey != nobody
    [ask prey [ set energy energy - 4 ]
  ]
end 

to support-FFs
  let prey one-of FFs-here
  if prey != nobody
  [ask prey [ set energy energy + 1 ]
  ]
end 

to discourage-FFs

  let prey one-of FFs-here
  if prey != nobody
  [ask prey [ set energy energy - 1]
  ]
end 

to fund-FFs

    let prey one-of FFs-here
  if prey != nobody
  [ask prey [ set energy energy + 25]
  ]
end 

to trailblaze
  ask FFs [
    if energy > 100 [
      set energy energy - 60
      hatch 2 [ set energy 13 ]
      set color yellow
      set size 1.5
    ]
  ]
end