Exerpimental

--local modem = peripheral.wrap("right")	modem.open(1)
local terminalBridge = peripheral.wrap("back") terminalBridge.clear()
local sysBridge = peripheral.wrap("right")
local controller = peripheral.wrap("bottom")
local modem = peripheral.wrap("top") for i=1, 51 do modem.open(i) end

-- AE Storage
calcUsage = (controller.getUsedBytes()) / (controller.getTotalBytes())
calcDisplay = math.floor(calcUsage * 75)
calcPercent = math.floor(calcUsage * 100)

-- addBox(x,y,width,height,hexcolor,opacity)
-- addText(x,y,text,color)
function displayAE()
	terminalBridge.clear()
	local meter = terminalBridge.addBox(calcDisplay, 244, 1, 7, 0x000000, 1.0)
	local box = terminalBridge.addBox(5, 245, 75, 5, 0xB3150C, 0.5)
	box.setGradient(2)
	box.setColor2(0x1A991C)
	local meter = terminalBridge.addBox(calcDisplay, 244, 1, 7, 0x000000, 1.0)
	local percentDisplay = terminalBridge.addText(83, 244, "" ..tostring(calcPercent).. "%", 0xFFFFFF)
end

---------------------------------------------------
----------------[[ Item System ]]------------------
---------------------------------------------------
itemIndex = {}
-- itemIndex[name] = id
idIndex = {}
-- idIndex[id] = name
itemStock = {}
-- itemStock[id] = number

function retrieveCrafts()
	canCraft = sysBridge.listCraft()
end

function retrieveStorage()
	itemStock = sysBridge.listItems()
end

function retrieveIDs()
        fileRead = fs.open("itemIndex", "r")
	lineText = fileRead.readLine()
        while lineText ~= nil do
		_, _, key, value = string.find(lineText, "(%a+)%s*=%s*(%d+)")
		itemIndex[key]= tonumber(value)
		_, _, key, value = string.find(lineText, "(%a+)%s*=%s*(%d+)")
		idIndex[tonumber(value)]=key
		lineText = fileRead.readLine()
        end
        fileRead.close()
end

retrieveIDs()

function isIndexed(itemID)
	if itemIndex[itemID] == nil then return false
	else return true end
end

function craftItem(reqID, reqQty, transfer)
		sysBridge.craft(reqID, reqQty)
		if idIndex[reqID] ~= nil then
			sysStatus = "Crafting.."
			displayText("Crafting " ..tostring(reqQty).. " " ..tostring(idIndex[reqID]).. "...")
		else
			sysStatus = "Crafting.."
			displayText("Crafting " ..tostring(reqQty).. " " ..tostring(reqID).. "...")
		end
		if transfer ~= "n" then
			print("Transfer command")
			transferItem(reqID,reqQty, false)
		end
end

function indexID(itemName, itemID)
	if itemIndex[itemName] == nil then
		fileWrite = fs.open("itemIndex", "a")
		fileWrite.writeLine(tostring(itemName).. "=" ..tonumber(itemID))
		displayText("Item '" ..tostring(itemName).. "' indexed (" ..tostring(itemID) .. ").")
		fileWrite.close()
		retrieveIDs()
	elseif itemIndex[itemName] ~= nil and itemID == itemIndex[itemName] then
		displayText("Item already exists.")
	end
end



function displayText(textInput)
	sysStatus = "dispText"	terminalBridge.clear()	displayAE()
	stringL = math.floor(terminalBridge.getStringWidth(tostring(textInput)))
	boxW = stringL + 10
	-- addBox x, y, w, h, color, opacity
	-- Fade In
	dispLine = terminalBridge.addBox(7, 7, 1, 15, 0x347D0A, 0.0)
	for i = 0, 1, 0.00003 do dispLine.setOpacity(i) end
	dispBox = terminalBridge.addGradientBox(8, 7, boxW, 15, 0x000000, 0.0, 0x000000, 0.0, 2)
	for i = 0, boxW, boxW/30000 do dispBox.setWidth(i) dispBox.setOpacity2((i/dispBox.getWidth())/2.5) end
	dispText = terminalBridge.addText(13, 11, tostring(textInput), 0xFFFFFF)
	dispText.setZIndex(1)
	--sleep(2)
	--print("About to start the timer.")
end

function fadeIn(textInput, ypos)
	sysStatus = "dispText"	terminalBridge.clear()	displayAE()
	stringL = math.floor(terminalBridge.getStringWidth(tostring(textInput)))
	boxW = stringL + 10
	dispLine = terminalBridge.addBox(7, 7, 1, 15, 0x347D0A, 0.0)
	for i = 0, 1, 0.00003 do dispLine.setOpacity(i) end
	dispBox = terminalBridge.addGradientBox(8, 7, boxW, 15, 0x000000, 0.0, 0x000000, 0.0, 2)
	for i = 0, boxW, boxW/30000 do dispBox.setWidth(i) dispBox.setOpacity2((i/dispBox.getWidth())/2.5) end
	dispText = terminalBridge.addText(13, 11, tostring(textInput), 0xFFFFFF)
	dispText.setZIndex(1)
end

function fadeOut(opacity)
	dispText.setText("")
	for i = (dispBox.getOpacity2()), 0, -0.00006 do dispBox.setOpacity2(i) dispLine.setOpacity(i) end
	sysStatus = "idle"
end

--[[
function displayText(textInput, fade)
	if fade ~= "out" then
		sysStatus = "dispText"	terminalBridge.clear()	displayAE()
		stringL = math.floor(terminalBridge.getStringWidth(tostring(textInput)))
		boxW = stringL + 10
		-- addBox x, y, w, h, color, opacity
		-- Fade In
		dispLine = terminalBridge.addBox(7, 7, 1, 15, 0x347D0A, 0.0)
		for i = 0, 1, 0.00003 do dispLine.setOpacity(i) end
		dispBox = terminalBridge.addGradientBox(8, 7, boxW, 15, 0x000000, 0.0, 0x000000, 0.0, 2)
		for i = 0, boxW, boxW/30000 do dispBox.setWidth(i) dispBox.setOpacity2((i/dispBox.getWidth())/2.5) end
		dispText = terminalBridge.addText(13, 11, textInput ,0xFFFFFF)
		dispText.setZIndex(1)
		--sleep(2)
		os.startTimer(2)
	else
		print("fadeOut")
		dispText.setText("")
		for i = 1, 0, -0.00003 do dispBox.setOpacity2(i/2.5) dispLine.setOpacity(i) end
	end
end]]--

function transferItem(itemID, itemQty, doCraft)
	retrieveStorage()
	--print("ID: " ..tostring(itemID).. ". Req. Num: " ..tostring(itemQty).. ". Craft? "..tostring(doCraft).. ".")
	if doCraft then
		if itemStock[itemID] == nil then storedItems = 0 else storedItems = itemStock[itemID] end
		neededItems = itemQty - storedItems
		--print("In stock: "..tostring(storedItems).. ". Needed: "..tostring(itemQty-storedItems)..".")
		orderedCraft = false
		if neededItems > 0 then		-- We'll need to craft some items.
			if not orderedCraft then
				--print("I'll need to order some crafting.")
				sysBridge.craft(itemID, itemQty)
				orderedCraft = true
				displayText("Crafting "..tostring(neededItems).." of "..tostring(itemQty).." '"..tostring(idIndex[itemID]).."'...")
				while neededItems > 0 do -- Already ordered crafting. Waiting.
					retrieveStorage()
					if itemStock[itemID] == nil then storedItems = 0 else storedItems = itemStock[itemID] end
					neededItems = itemQty - storedItems
					print(storedItems)
					sleep(.5)
				end
				-- Once we get here, we have enough items.
				sysBridge.retrieve(itemID, itemQty, 4)
				displayText("Finished crafting, moved "..tostring(itemQty).." '"..tostring(idIndex[itemID]).."'.")
			end
		else -- No need to craft, we have enough.
			sysBridge.retrieve(itemID, itemQty, 4)
			displayText("Moved "..tostring(itemQty).. " '"..tostring(idIndex[itemID]).."'.")
		end
	else
		itemsMoved = sysBridge.retrieve(itemID, 1728, 4)
		displayText("Moved "..tostring(itemsMoved).." '"..tostring(idIndex[itemID]).."'.")
	end
end

retrieveIDs()
retrieveCrafts()
retrieveStorage()
-------------
while true do
-------------
local event, p1, p2, p3, p4 = os.pullEvent()
displayAE()

--[[ Input Handling ]]--
--[[
local chatEvent, input = os.pullEvent("chat_command")
local userInput = {}
for i in string.gmatch(input, "%S+") do
	table.insert(userInput, i)
end
]]--

local userInput = {}
if event == "chat_command" then
	for i in string.gmatch(p1, "%S+") do
		table.insert(userInput, i)
	end
elseif event == "timer" and sysStatus == "dispText" then
	fadeOut()
end

--[[
if event == "timer" and sysStatus == "dispText" then
	fadeOut()
end]]--



--[[ Crafting Handling ]]--
if userInput[1] == "craft" or userInput[1] == "make" then
	-- userInput[2] is quantity
	-- userInput[3] is item
	-- userInput[4] is optional, for transferring items
	if not tonumber(userInput[3]) then	-- Received text input
		if itemIndex[userInput[3]] ~= nil then
			craftItem(tonumber(itemIndex[userInput[3]]), tonumber(userInput[2]), userInput[4])
		else
			displayText("Item '" ..tostring(userInput[3]).. "' not recognized.")
		end
	else
		craftItem(tonumber(userInput[3]), tonumber(userInput[2]), userInput[4])
	end
	--[[ Transfer Handling ]]--

--[[ Item Transferring ]]
elseif userInput[1] ==  "transfer" or userInput[1] == "move" then
	-- userInput[2] is quantity, or all
	-- userInput[3] is item name
	if not tonumber(userInput[3]) then 	-- Received text input
		if itemIndex[userInput[3]] ~= nil then
			if userInput[2] == "all" then
				transferItem(tonumber(itemIndex[userInput[3]]), tonumber(userInput[2]), false)
			elseif tonumber(userInput[2]) then
				transferItem(tonumber(itemIndex[userInput[3]]), tonumber(userInput[2]), true)
			end
		else
			displayText("Item '" ..tostring(userInput[3]).. "' not recognized.")
		end
	else
		transferItem(tonumber(userInput[3]), tonumber(userInput[2]), true)
	end
	--[[ Manual Item Indexing ]]--

--[[ Item Indexing ]]--
elseif userInput[1] == "index" then
	-- userInput[2] is name
	-- userInput[3] is ID
	-- userInput[4] is metadata
	if tonumber(userInput[2]) then displayText("Wrong format, second input should be the item name.")
	elseif not tonumber(userInput[3]) then displayText("Wrong format, third input should be the item ID.")
	elseif not tonumber(userInput[4]) and userInput[4] ~= nil then displayText("Wrong format, fourth input should be (optional) metadata.")
	elseif userInput[4] == nil then
		indexID(userInput[2],tonumber(userInput[3]))
		retrieveIDs()
	elseif userInput[4] ~= nil then
		indexID(userInput[2], (tonumber(userInput[4]) * 32768)+userInput[3])
		retrieveIDs()
	--else
		--indexID(userInput[2],tonumber(userInput[3]))
		--retrieveIDs()
	end


	elseif userInput[1] == "check" or userInput[1] == "num" or userInput[1] == "stock" then
	-- userInput[2] is name or ID
	retrieveStorage()
	if not tonumber(userInput[2]) then -- Received text
		if isIndexed(userInput[2]) then
			displayText("Currently " ..tostring(itemStock[itemIndex[userInput[2]]]).. " '" ..tostring(userInput[2]).. "' stored.")
		else
			displayText("Item '" ..tostring(userInput[2]).. "' not recognized.")
		end
	end

--[[ Multiplacation ]]--
elseif userInput[1] == "math" then
	local eval, error = loadstring("return " ..userInput[2])
	if error then
		displayText("Error processing '" ..tostring(userInput[2]).. "'.")
	else
		displayText(eval())
	end

--[[ Display Request ]]--
elseif userInput[1] == "display" then
	for i in string.gmatch(p1, "display(.+)") do
		fadeIn(i, 15)
		os.startTimer(2)
	end

--[[ Modem Handling ]]--
elseif userInput[1] == "toggle" or userInput[1] == "t" then
	modem.transmit(50, 50, tostring(userInput[2]))
	local modemMessage, p1, p2, p3, p4 = os.pullEvent("modem_message")
	if p4 then spawnerStatus = "off" else spawnerStatus = "on" end
	displayText("Toggled '"..tostring(userInput[2]).."' to "..tostring(spawnerStatus)..".")

--[[ Enderchest Clear ]]--
elseif userInput[1] == "clear" or userInput[1] == "empty" then
	modem.transmit(51, 51, "go")
	displayText("Clearing, please wait for a few seconds...")
	sleep(.5)
	modem.transmit(51, 51, "stop")
	local modemMessage, p1, p2, p3, p4 = os.pullEvent("modem_message")
	if p4 == "cleared" then displayText("Cleared the enderchest.") end
	retrieveStorage()
end -- End of first if
---
end
---