Wood product institution

globals [ hutan non-hutan deforestasi max-petani max-industri max-kayu]
breed [petani a-petani]
breed [baja a-baja]
breed [industri a-industri]
breed [kayu a-kayu]
breed [KLHK a-klhk]

turtles-own [energy]
patches-own [countdown]

to setup
  clear-all
  set hutan count patches with [pcolor = green]
  set non-hutan count patches with [pcolor = yellow]
  set non-hutan count patches with [pcolor = red]
  reset-ticks
  lahan
  petani-hr
  jual-kayu
  industri-kayu
  populasi-kayu
  kayu-hr
pemerintah
end 

to go
  move
  if  hutan < 0 [stop]
 if Wood_market? [
    ask petani [
      konversi-lahan
      bangun-hutan
      dampak-baja
      populasi-kayu
      perbaikan-lev
      kartel
    ]
                        ]
     ask industri [
      tumbuh-industri
          ]

if Base_price_policy? [
    ask KLHK [
      mengendalikan-harga-kayu
    bangun-hutan
    ]
    if Wood-price < Forest-cost [
      ask klhk [
        set Wood-price Wood-price > Forest-cost - 1 / Forest_growth_time ]
    ]
     ]
  set hutan count patches with [pcolor = green]
  set non-hutan count patches with [pcolor = yellow ]
  set deforestasi count patches with [pcolor = red]
  tick
end 

to lahan
  ask patches [
      set pcolor one-of [ green yellow ]
      if-else pcolor = green
        [ set countdown Forest_growth_time ]
        [ set countdown random Forest_growth_time ]
          ]
end 

to petani-hr
   set max-petani 100
  set-default-shape petani "person"
  create-petani Number_initial_farmers
  [
    set color 10 + 2
    set size 1.5  ; easier to see
    set label-color red - 2
    setxy random-xcor random-ycor
  ]
end 

to industri-kayu
   set max-industri 50
  set-default-shape industri "building store"
  create-industri Number_initial_industry
  [
    set color 100 + 2
    set size 1.5  ; easier to see
    set label-color red - 2
    setxy random-xcor random-ycor
  ]
end 

to move
  ask petani [
    right random 180
    forward 1
  set energy energy - 2]
end 

to jual-kayu
  if Wood_market? [
    set Wood-price Wood-price + 0.001
    set Wood-price Wood-price - 0.01]
end 

to konversi-lahan
  if Wood-price < Forest-cost [
    if pcolor = green [
      set pcolor red]
   ]
end 

to bangun-hutan
  if Wood-price > Forest-cost [
    if pcolor = red [
      set pcolor green]]
end 

to dampak-baja
  if Light_steel_market? [
    set Wood-price Wood-price - 0.0000001]
end 

to kayu-hr
  ask kayu [
    set max-kayu wood-population ]
end 

to populasi-kayu
  if Forest-cost > Wood-price [
    set wood-population wood-population + 0.01
    set wood-population wood-population - 0.01
  ]
end 

to tumbuh-industri
  if Wood_market? [
  ask industri [
    hatch 0.1 [ rt random-float 360 fd 1 ]
     set energy energy + 2
     ]
  ]
end 

to tumbuh-petani
  if Wood_market? [
    if Wood-price > Forest-cost [
      ask petani [
        hatch 0.1 [ rt random-float 360 fd 1 ]
      ]

    ]
  ]
end 

to mengendalikan-harga-kayu
  if Wood-price <  Forest-cost [
    set Wood-price 0.7
  ]
end 

to perbaikan-LEV
  if Base_price_policy? [
    set Forest-cost Forest-cost + ( 1 / ((1000000 * Forest_growth_time ) + Number_initial_industry ))
    if Wood-price < Forest-cost [
      set Forest-cost Forest-cost - ( 1 / ((1000000 * Forest_growth_time ) + Number_initial_industry ))

  ]
  ]
end 

to pemerintah
   set-default-shape KLHK "person police"
  create-klhk 1
  [
    set color 93 + 2
    set size 3  ; easier to see
    set label-color green - 2
    setxy random-xcor -2
  ]
end 

to kartel
  if  Trade_cartel? [
    set Wood-price Wood-price + (Forest-cost - Wood-price) + 0.01
    create-links-to other petani
    ask out-link-neighbors [ set color white ]
    create-links-to other industri
    ask out-link-neighbors [ set color blue ]
  ]
end