Celiaquía - Food Manipulation

patches-own [harinas]
turtles-own [contaminacion]

to setup
  clear-all
  ;;armo 3 mesas
  create-turtles 1 [
    ifelse mesas = "juntas"
    [
    ;;harina
    dibujamesas 5 0 black
    ]
    [;;harina
     dibujamesas 5 -10 black
    ]
    ;;carne
    dibujamesas -3 0 red
    ;;vegetales
    dibujamesas -11 0 green
    die
  ]
  ask patches [
    set pcolor white
    ;;cargo el valor de la harina
    ifelse mesas = "juntas"
      [ if pxcor >= 5 and pxcor <= 11 and pycor >= 0 and pycor <= 3
          [set pcolor yellow
          set harinas 50]
      ]
      [if pxcor >= 5 and pxcor <= 11 and pycor >= -10 and pycor <= -7
          [set pcolor yellow
          set harinas 50]
      ]
  ]
  if cocinero = true
    [create-turtles 1
      [setxy 0 -4
        set shape "person"
        set color pink
      ]
    ]
  reset-ticks
end 

to go
  ifelse cocinero = true
    [if mesas = "separadas"
      [user-message (word "solo funciona con mesas juntas")
      stop]
      ask turtles
         [
         ;;harinas
         setxy (5 + random  6) (random 4)
         set contaminacion 50
         ask patch-here [set harinas harinas - 1]
         ;; carnes
         setxy (-3 + random 7) (random 4)
         ask patch-here [set harinas harinas + 1
                         set pcolor yellow]
         set contaminacion contaminacion - 1
         ;;verduras
         setxy (-5 + random -7) (random 4)
         ask patch-here [set harinas harinas + 1
                         set pcolor yellow]
         set contaminacion contaminacion - 1
         ]
    ]
    [;;difunde las harinas a 1%
     diffuse harinas 1
     ask patches [
         set pcolor scale-color yellow harinas 10 0]
  ]
  tick
end 

to dibujamesas [x y colores]
    set color colores
    setxy x y
    set pen-mode "down"
    set heading 90
    forward 6
    set heading 0
    forward 3
    set heading 270
    forward 6
    set heading 180
    forward 3
    set pen-mode "up"
end