bean turtle

sides = { "front", "left", "back", "top" }
pushSides = { "south", "east", "north", "down" }
map = {}
filename = "beanMap"
wireless = peripheral.wrap("right")
turtleY = 1

channel = 300 -- This is the channel all the messageing traffic goes on
wireless.open(channel)

---functions---
function split(pStr, pChar)
	return string.match(pStr, "([^" .. pChar .. "]+)" .. pChar .. "([^" .. pChar .. "]+)")
end

function resetTurtle()
	while not turtle.detectDown() do
		turtleDown()
	end

	turtleUp()
	turtleUp()

	while turtle.detect() do
		turtle.turnRight()
	end

	turtleY = 3
	turtle.select(1)
	print("turtle reset")
end

function getBean(pDir, pAmt)
	local barrel = peripheral.wrap(sides[tonumber(pDir)])
	totQty = tonumber(barrel.getStackInSlot(2).qty)
	local amt = math.min(tonumber(pAmt), totQty-1)
	print("attempting get " .. amt .. " beans")
	local amtR = barrel.pushItem(pushSides[tonumber(pDir)],2,amt,1)
	print("received " .. amtR .. " beans")
	return amtR
end

function getDirections(aspect)
	for k,v in pairs(map) do
		if k == aspect then
			print("found bean in location: " .. v)
			return split(v, ",")
		end
	end
end

function send(msg)
	wireless.transmit(channel, 1, msg)
	print("send: " .. msg)
end

function receive()
	e = {os.pullEvent("modem_message")}
	print("receive: " .. e[5])
	return e[5]
end

function loadTable(fileName)
	local file=fs.open(fileName,"r")
	print("loading table")
	local data = file.readAll()
	file.close()
	return textutils.unserialize(data)
end

function turtleUp()
	turtle.up()
	turtleY = turtleY + 1
end

function turtleDown()
	turtle.down()
	turtleY = turtleY - 1
end

function turtleTo(h)
	local turtleMoveAmt = tonumber(h) - turtleY
	if turtleMoveAmt > 0 then
		for i=1,turtleMoveAmt do
			turtleUp()
		end
	elseif turtleMoveAmt < 0 then
		for i=1,-1*turtleMoveAmt do
			turtleDown()
		end
	end
end

function getAltAspectItems(aspect, amount)
	print("getting alt items")
	return 0
end

function refill(aspect, amount)
	local amtMissing = 0
	if aspect and amount then
		local h,dir = getDirections(aspect)
		if h and dir then
			turtleTo(h)
			turtle.turnLeft()

			local amtD = getBean(dir, amount)
			if amtD then
				if tonumber(amtD) < tonumber(amount) then
					amtMissing = getAltAspectItems(aspect, tonumber(amount) - tonumber(amtD))
				end
			else print("error pulling beans")
			end
			turtle.turnRight()
			turtleTo(2)
			turtle.drop()
		else print("aspect not in this col")
		end
	end
	return amtMissing
end


function refillAll()
	local missingTbl = {}
	local msgTable = textutils.unserialize(receive())
	for k,v in pairs(msgTable) do
		local refillAmt = 64-tonumber(v.quantity)
		if refillAmt > 0 then
			local amtMissing = refill(v.name, refillAmt)
			if amtMissing and amtMissing > 0 then
				local temp = {}
				temp.name = v.name
				temp.quantity = amtMissing
				table.insert(missingTbl, temp)
			end
		end
	end

	send(textutils.serialize(missingTbl))
end

---end functions---
map = loadTable(filename)
resetTurtle()

while true do
	if turtle.getFuelLevel() < 10 then
		turtleTo(1)
		local c = peripheral.wrap("bottom")
		c.extractItem({id=263, qty=64}, "up")
		turtle.refuel()
	end
	refillAll()
end