Auto Crafty Turtle

--[[

v0.1 by meigrafd @ 24.07.2015

Requires:
   ComputerCraft >=1.5

A Turtle have 16 Slots. For crafting the first 3 rows and slots are used and must match an valid recipe. All other Slots must be free!
Place a valid recipe into Turtle before first Script Start up.
Place Chests around the Turtle as Input and Drop.. Only use one Chest for one Type of Item!
Script will inspect each Side and trys to detect the Item in each Chest.
After that it saves all data for future startups and starts auto-crafting.
For a later use of another recipe simple delete the directory 'recipe'.

--]]


---[[ CONFIG - START ]]


-- Chest Side for crafted item. Only valid sides: top, bottom, left, right, front, back
-- NOTE: Fastest will be "top", "bottom" or "front". For all other it must turn around..
-- BTW: Put the most needed Items in the 'fastest' chest to speedup crafting :)/>/>/>
local OutDirection = "front"

-- Redstone signal Side to turn crafting on/off.
-- NOTE: "left" doesnt work.
local ControlSignal = "right"


---[[ CONFIG - END ]]


---[[ functions ]]


-- http://stackoverflow.com/questions/1426954/split-string-in-lua
function split(pString, pPattern)
	local Table = {}  -- NOTE: use {n = 0} in Lua-5.0
	local fpat = "(.-)" .. pPattern
	local last_end = 1
	local s, e, cap = pString:find(fpat, 1)
	while s do
		if s ~= 1 or cap ~= "" then
			table.insert(Table, cap)
		end
		last_end = e+1
		s, e, cap = pString:find(fpat, last_end)
	end
	if last_end <= #pString then
		cap = pString:sub(last_end)
		table.insert(Table, cap)
	end
	return Table
end

function stringMatch(text, find)
	if string.find(string.lower(text), string.lower(find)) then
		return true
	else
		return false
	end
end

function lappend(list, delimiter, value)
	if list == '' then
		local list = value
	else
		local list = list..delimiter..value
	end
	return list
end


local turn = function(side)
	if side == "left" then
		turtle.turnLeft()
	elseif side == "right" then
		turtle.turnRight()
	elseif side == "front" then
		turtle.turnRight()
		turtle.turnRight()
	elseif side == "back" then
		turtle.turnLeft()
		turtle.turnLeft()
	end
end

local suck = function(direction, amount)
	amount = amount or 1
	s = {
		["top"] = function() turtle.suckUp(amount); end,
		["bottom"] = function() turtle.suckDown(amount); end,
		["front"] = function() turtle.suck(amount); end,
		["left"] = function() turn("left"); turtle.suck(amount); turn("right"); end,
		["right"] = function() turn("right"); turtle.suck(amount); turn("left"); end,
		["back"] = function() turn("back"); turtle.suck(amount); turn("front"); end
	}
	s[direction]()
end

local drop = function(direction, amount)
	amount = amount or 1
	d = {
		["top"] = function() turtle.dropUp(amount); end,
		["bottom"] = function() turtle.dropDown(amount); end,
		["front"] = function() turtle.drop(amount); end,
		["left"] = function() turn("left"); turtle.drop(amount); turn("right"); end,
		["right"] = function() turn("right"); turtle.drop(amount); turn("left"); end,
		["back"] = function() turn("back"); turtle.drop(amount); turn("front"); end
	}
	d[direction]()
end

local craft = function()
	turtle.select(OutSlot)
	turtle.craft()
	drop(OutDirection, turtle.getItemCount(OutSlot))
	Count = Count + 1
	print("crafted: "..Count)
end

local saveRecipe = function()
	print("Trying to get Recipe..")
	for i=1, #InSlots do
		local data = turtle.getItemDetail(InSlots[i])
		if data then
			local n = data.name
			local d = data.damage
			local c = data.count
			--maybe same name but hopeful different damage
			print(InSlots[i]..": "..n.." -> damage: "..d)
			RecipeItemName[InSlots[i]] = n
			RecipeItemDamage[InSlots[i]] = d
			RecipeItemCount[InSlots[i]] = c

			-- create own dir for each slot and save data..
			if not fs.isDir("recipe/"..InSlots[i]) then
				fs.makeDir("recipe/"..InSlots[i])
			end

			if fs.exists("recipe/"..InSlots[i].."/name") then
				fs.delete("recipe/"..InSlots[i].."/name")
			end
			local fileObject = fs.open("recipe/"..InSlots[i].."/name", "w")
			fileObject.write(tostring(n))
			fileObject.close()

			if fs.exists("recipe/"..InSlots[i].."/damage") then
				fs.delete("recipe/"..InSlots[i].."/damage")
			end
			local fileObject = fs.open("recipe/"..InSlots[i].."/damage", "w")
			fileObject.write(tostring(d))
			fileObject.close()

			if fs.exists("recipe/"..InSlots[i].."/count") then
				fs.delete("recipe/"..InSlots[i].."/count")
			end
			local fileObject = fs.open("recipe/"..InSlots[i].."/count", "w")
			fileObject.write(tostring(c))
			fileObject.close()
		end
	end
end



--[[ Internal values ]]


-- Mapping of slots in the turtle's inventory used for recipe.
InSlots = {1,2,3, 5,6,7, 9,10,11}
OutSlot = 16

ChestItem = {}
RecipeItemName = {}
RecipeItemDamage = {}
RecipeItemCount = {}

Count = 0


--[[ Main program ]]


if not fs.isDir("recipe") then
	-- Verify valid recipe
	if turtle.craft(0) == false then
		print("ERROR: Invalid recipe! Please set up correctly.")
		error()
	end
	fs.makeDir("recipe")
	saveRecipe()
	-- craft recipe once to get all slots free
	craft()
else
	-- get recipe out saved data files for each slot..
	print("Trying to get saved Recipe..")
	local flistTable = fs.find("/recipe/*/name")
	for _,file in pairs(flistTable) do
		local directory = fs.getDir(file)
		local tmp = split(directory,"/")
		local slot = tmp[2]
		local fileObject = fs.open(directory.."/name", "r")
		local n = fileObject.readLine()
		fileObject.close()
		local fileObject = fs.open(directory.."/damage", "r")
		local d = fileObject.readLine()
		fileObject.close()
		local fileObject = fs.open(directory.."/count", "r")
		local c = fileObject.readLine()
		fileObject.close()
		print(slot..": "..n.." -> damage: "..d)
		RecipeItemName[slot] = n
		RecipeItemDamage[slot] = d
		RecipeItemCount[slot] = c
	end
end

-- Verify needed items for recipe with items in each chest..
print("Trying to get Sides for each Item..")
turtle.select(OutSlot)
for i,side in pairs(rs.getSides()) do
	if (side ~= OutDirection) and (peripheral.isPresent(side)) then
		suck(side)
		for slot in pairs(RecipeItemName) do
			local data = turtle.getItemDetail(OutSlot)
			if data then
				local n = data.name
				local d = data.damage
				local c = data.count
				--maybe same name but hopeful also same damage -> same item
				if (stringMatch(RecipeItemName[slot], n)) and (stringMatch(RecipeItemDamage[slot], d)) then
					ChestItem[slot] = side
					print("for slot "..slot..": "..side..": "..n..")
				end
			end
		end
		drop(side)
	end
end


-- main loop

Err0r = false
while true do
	-- check Redstone signal..
	if (rs.getInput(ControlSignal) == true) then
		-- suck in all the required slots
		for slot in pairs(RecipeItemName) do
			turtle.select(tonumber(slot))
			while turtle.getItemCount(slot) == 0 do
				suck(ChestItem[slot], tonumber(RecipeItemCount[slot]))
			end
		end
		if turtle.craft(0) == false then
			drop(OutDirection, turtle.getItemCount(OutSlot))
			if Err0r == false then
				print("ERROR: Invalid recipe! Please set up correctly.")
				Err0r = true
			end
		else
			craft()
		end
	else
		os.sleep(1)
	end
end


--
-- EOF
--