Financial Support Network - Simplified

undirected-link-breed [soc-links soc-link] ; amistad
undirected-link-breed [fin-links fin-link] ; los que referencia para financiar

breed [entreps entrep] ; emprendedores
breed [vcs vc]


globals [

  funded
]


entreps-own [
funded?; financiado o no
funds; dinero disponible
]

to setup
  clear-all
  setup-entreps
  setup-globals
  ask patches [set pcolor white]
  reset-ticks
end 

to setup-globals

  set funded count entreps with [funded? = True]
end 

to setup-entreps

  ask patch 0 0 [
   sprout-entreps 100 [
    set shape "person"
    set size 3
    set color black
    set funds random-poisson 200
    set funded? False
    fd 40

    ;create-fin-link-with one-of vcs [set color green]
  ]]


 ; ask soc-links [hide-link]


  create-vcs 3 [
  set color green
  set shape "circle"
  set size 6
  ; separarlos manualmente alrededor del centro
  if who = 0 [ setxy 20 0 ]
  if who = 1 [ setxy -10 17 ]
  if who = 2 [ setxy -10 -17 ]

  ]
end 

to go
if ticks = 250 [stop]
F-function
G-function
life
tick
end 

to F-function
  ask turtles with [shape = "person"] [
    let otros-entrepreneurs other turtles
    let conex 0
    while [conex < conections] [
      let target one-of otros-entrepreneurs with [not soc-link-neighbor? myself]
      if target != nobody [
        if random-float 1 < 0.01 [ create-soc-link-with target]
      set conex conex + 1

      ]
    ]
  ]
end 

to G-function

  ask entreps [

    let conoce-vc any? soc-link-neighbors with [breed = vcs]
    if conoce-vc and  not any? fin-links with [breed = vcs] [
      if random-float 1.0 < 0.3 [
        create-fin-link-with one-of vcs [
          set color green

          set funded funded + 1
        ]
        set color green
        set funded?  True
        set funds funds + 100
      ]
    ]
  ]
end 

to life
  ask entreps [
    if funds > 0 [set funds funds - 1]
    if (funds = 1 and funded? = True) [
                   set funded? False

                   set color black

                   ask my-fin-links [die]

                 ]
  ]
end