turtles-own[hasFood? ahead left right upleft upright]
patches-own[chemlevel isNest? food]
globals [count]

to setup
  ca
  setup-agents
  setup-patches
  setcount 0
end

to setup-agents
  crt 50
  ask-turtles[setc red 
	      setshape termite-shape
	      setxy 0 0
	      seth random 360
	      sethasFood? false]
end

to setup-patches
  ask-patches[setchemlevel 0
              setisNest? ((distance 0 0) < 4)]
  setup-food-1

  setup-colors
end

to setup-food-1
  ask-patches [setfood 0
               if ((distance (0.6 * screen-half-width) 0) < 4) or
               ((distance (-0.8 * screen-half-width) (0.8 * screen-half-width)) < 4) or
               ((distance (-0.5 * screen-half-width) (-0.5 * screen-half-width)) < 4)
                 [setfood random 10] ]
end

to setup-colors
  ask-patches [ if isNest? [setpc blue] ]
  ask-patches [ if food > 0 [setpc purple] ]
end

to evaporate-1
	setcount count + 1
	ask-patches[setchemlevel chemlevel - .1 
		if ((not (isNest?)) and (not (food > 0)))
			[scale-pc green chemlevel .1 10] ]
end


to evaporate-with-delay
	setcount count + 1
	if count = 500 [ setcount 0
	  	ask-patches[
		if not (chemlevel = 0) 
			[setchemlevel chemlevel * 80 / 100] 
		if (chemlevel < .1) [setchemlevel 0]

		if ((not (isNest?)) and (not (food > 0)))
			[scale-pc green chemlevel .1 10]
		
		] ]
  
end