-- HerrStackhouse's Refuel Functions
--
-- (All credit to Elo for the concept and for inspiring me to figure 
-- out how to reproduce it. ALL HAIL THE RED QUEEN.)	
--
-- Composed of two functions. The first to be called, st_refuel(),
-- tests the current fuel levels in the turtle and places two calls
-- to the second function, st_manageFuelChest(Str). The first call, 
-- "start", tests the surroundings for suitable placement locations 
-- before deploying an Enderchest from slot 16. st_refuel() will then 
-- take over again, sucking fuel from the chest, before passing 
-- "finish" back to st_manageFuelChest(Str), which will take the chest back into inventory.
--
-- The two functions must be added in the order below, or st_refuel will 
-- holler at you for calling nil. Leave nil alone, she's totally over you.
--
-- The while true do loop at the bottom is entirely useless and is only here
-- for testing purposes. Remove it before use.



function st_manageFuelChest(Str)
	if Str == "start" then
		--test for open spaces to place chest, place it, record its orientation, take fuel into slot 14
		turtle.select(16)
		if turtle.place() == true then
			fuelChestLocation = 1
			turtle.select(14)
			turtle.suck()
		elseif turtle.placeUp == true then
			fuelChestLocation = 2
			turtle.select(14)
			turtle.suck()
		elseif turtle.placeDown == true then
			fuelChestLocation = 3
			turtle.select(14)
			turtle.suck()
		else write("Something breaks when I try to place my fuel chest.\n")
		end
	elseif Str == "finish" then
		-- retrieve location of fuel chest and dig that way
		if fuelChestLocation == 1 then
			turtle.dig()
		elseif fuelChestLocation == 2 then
			turtle.digUp()
		elseif fuelChestLocation == 3 then
			turtle.digDown()
		else write("Something breaks when I try to retrieve my fuel chest.\n")
		end
	else write("st_manageFuelChest recieved a weird argument.\n")
	end
end
function st_refuel()
	while turtle.getFuelLevel() <= 5 do
		write("Hungry.\n")
		st_manageFuelChest("start") -- deploy chest and take fuel
		for i=1,16 do -- now test each internal slot for consumable items
			turtle.select(i)
			if turtle.refuel(1) == true then
				turtle.refuel()
			end
		end
		st_manageFuelChest("finish") -- take chest
		--check to see if  that worked
		if turtle.getFuelLevel() > 5 then
			write("That's better.\n")
		end
	end
end
	
while true do
	turtle.forward(10)
	st_refuel()
	turtle.back(10)
end