White-collor crime

breed [politicians politician]
breed [businesses business]
breed [regulators regulator]

politicians-own [
  funds ;; fundos para campanha
]

businesses-own [
  influence ;; influência política
]

regulators-own [
  effectiveness ;; eficácia da agência reguladora
]

to setup
  clear-all
  create-politicians 50 [
    setxy random-xcor random-ycor
    set funds random 100000 ;; inicializa fundos de campanha
  ]

  create-businesses 20 [
    setxy random-xcor random-ycor
    set influence random 10 ;; inicializa nível de influência
  ]

  create-regulators 5 [
    setxy random-xcor random-ycor
    set effectiveness random 5 ;; inicializa eficácia da agência reguladora
  ]

  reset-ticks
end 

to go
  ask politicians [
    evaluate-influence
    run-for-election
  ]

  ask businesses [
    evaluate-influence
    attempt-corruption
  ]

  ask regulators [
    evaluate-effectiveness
  ]

  tick
end 

to evaluate-influence
  let total-influence sum [influence] of businesses
  set influence (influence / total-influence) * 100
end 

to run-for-election
  if funds > 50000 [
    set funds funds - 50000
    ifelse random-float 100 < influence [
      set color green
    ] [
      set color red
    ]
  ]
end 

to attempt-corruption
  let potential-target one-of politicians
  ifelse random-float 100 < influence [
    set funds funds + 20000
    ask potential-target [
      set funds funds - 20000
    ]
  ] [
    set funds funds - 5000
  ]
end 

to evaluate-effectiveness
  ;; A eficácia da agência reguladora é afetada pela influência das empresas
  set effectiveness effectiveness - 0.1 * sum [influence] of businesses
end