Thaumcraft Automation Programming

bridge = peripheral.wrap("right")
chat = peripheral.wrap("top")
fillerItem = "minecraft:wooden_sword"
mytag = "infuser1:"
recipefile = "recipes"
quantitysplit = "*"

function trim(s)
  return (s:gsub("^%s*(.-)%s*$", "%1"))
end

function split(s, delimiter)
  result = {};
  for match in (s..delimiter):gmatch("(.-)"..delimiter) do
	  table.insert(result, match);
  end
  return result;
end

function grabItem(name)
  if name == nil or name == "" or name == "x" then
    itemname = fillerItem
    quantity = 1
  else
    table = split(name, quantitysplit)
    if #table == 1 then
	  itemname = trim(table[1])
	  quantity = 1
    elseif #table == 2 then
	  itemname = trim(table[1])
	  quantity = tonumber(trim(table[2]))
    end
  end
  num = bridge.retrieve(itemname, quantity, "north")
  quantity = quantity - num
  while quantity > 0 do
    bridge.craft(itemname, quantity)
    crafting = true
    while crafting do
	  event, complete, crafted, num, bytes = os.pullEvent("craftingComplete")
	  if complete then
	    crafting = false
	  end
    end
    num = bridge.retrieve(itemname, quantity, "north")
    quantity = quantity - num
  end
end

function listen(mytag)
  listening = true
  while listening do
    local event, name, text = os.pullEvent("chat")
    start, stop = string.find(text, mytag)
    if start ~= nil and start >= 0 then
	  return string.sub(text, stop + 1)
    end
  end
end

function startInfusion()
  redstone.setOutput("left", true)
  sleep(2)
  redstone.setOutput("left", false)
end

function removeFiller()
  redstone.setOutput("back", true)
  sleep(30)
  redstone.setOutput("back", false)
end

function loadRecipes(filename)
  file = fs.open(file, "r")
  data = file.readAll()
  file.close()
  return textutils.unserialize(data)
end

function saveRecipes(filename, recipes)
  file = fs.open(filename, "w")
  data = textutils.serialize(recipes)
  file.write(data)
  file.close()
end

function infuse(recipes, recipenum)
  for item in recipes[recipenum] do
    grabItem(item)
  end
  removeFiller()
  sleep(180)
  startInfustion()
end

--recipes = loadRecipes(recipefile)
recipes = {{"minecraft:ender_eye", "", "", "minecraft:diamond", "", "", "ThaumicTinkerer:kamiResource:6", "", "", "ThaumicTinkerer:kamiResource:7", "", "", "minecraft:nether_star", "minecraft:glowstone*3", "minecraft:torch*2", "minecraft:rotten_flesh*32", "minecraft:ghast_tear*16"}}
while true do
  command = listen(mytag)
  words = {}
  for word in command:gmatch("%S+") do
    table.insert(words, trim(word))
  end
  prefix = table.remove(words, 1)
  chat.say("Running command: "..prefix)
  if prefix == "reload" then
    chat.say("Re-Loading recipes...")
    recipes = loadRecipes(recipefile)
    chat.say("Recipes reloaded.")
  elseif prefix == "save" then
    chat.say("Saving recipes...")
    saveRecipes(recipefile, recipes)
    chat.say("Recipes saved.")
  elseif prefix == "addnew" then
    chat.say("Adding recipe...")
    table.insert(recipes, words)
    chat.say("Recipe added.")
  elseif prefix == "remove" then
    txtnum = table.remove(words, 1)
    chat.say("Removing recipe "..txtnum.."...")
    num = tonumber(txtnum)
    table.remove(recipes, num)
    chat.say("Recipe "..txtnum.." removed.")
  elseif prefix == "infuse" then
    txtnum = table.remove(words, 1)
    chat.say("Running infusion recipe: "..recipenum.."...")
    recipenum = tonumber(txtnum)
    infuse(recipes, recipenum)
    chat.say("Infusion complete.")
  end
end
chat.say("INFUSER1: Ooops, I died...")

bridge = peripheral.wrap("right")
chat = peripheral.wrap("top")
fillerItem = "minecraft:wooden_sword"
mytag = "infuser1:"
recipefile = "recipes"
quantitysplit = "*"
function trim(s)
  return (s:gsub("^%s*(.-)%s*$", "%1"))
end
function split(s, delimiter)
  result = {};
  for match in (s..delimiter):gmatch("(.-)"..delimiter) do
	  table.insert(result, match);
  end
  return result;
end
function grabItem(name)
  if name == nil or name == "x" then
    itemname = fillerItem
    quantity = 1
  else
    table = split(name, quantitysplit)
    if #table == 1 then
	  itemname = trim(table[1])
	  quantity = 1
    elseif #table > 1 then
	  itemname = trim(table[1])
	  quantity = tonumber(trim(table[2]))
    end
  end
  num = bridge.retrieve(itemname, quantity, "north")
  while (quantity - num) > 0 do
    bridge.craft(itemname, quantity - num)
    crafting = true
    while crafting do
	  event, complete, crafted, numcrafted, bytes = os.pullEvent("craftingComplete")
	  if complete then
	    crafting = false
	  end
    end
    num = num + bridge.retrieve(itemname, quantity - num, "north")
    quantity = quantity - num
  end
end
function listen(mytag)
  listening = true
  while listening do
    local event, name, text = os.pullEvent("chat")
    start, stop = string.find(text, mytag)
    if start ~= nil and start >= 0 then
	  return string.sub(text, stop + 1)
    end
  end
end
function startInfusion()
  redstone.setOutput("left", true)
  sleep(2)
  redstone.setOutput("left", false)
end
function loadRecipes(filename)
  file = fs.open(filename, "r")
  data = file.readAll()
  file.close()
  return textutils.unserialize(data)
end
function saveRecipes(filename, recipes)
  file = fs.open(filename, "w")
  data = textutils.serialize(recipes)
  file.write(data)
  file.close()
end
function infuse(recipes, recipenum)
  redstone.setOutput("back", true)
  for item in recipes[recipenum] do
    grabItem(item)
  end
  sleep(10)
  redstone.setOutput("back", false)
  sleep(180)
  startInfustion()
end
recipes = loadRecipes(recipefile)
redstone.setOutput("back", false)
while true do
  command = listen(mytag)
  words = {}
  for word in command:gmatch("%S+") do
    table.insert(words, trim(word))
  end
  prefix = table.remove(words, 1)
  if prefix == "reload" then
    recipes = loadRecipes(recipefile)
  elseif prefix == "save" then
    saveRecipes(recipefile, recipes)
  elseif prefix == "addnew" then
    table.insert(recipes, words)
  elseif prefix == "remove" then
    txtnum = table.remove(words, 1)
    num = tonumber(txtnum)
    table.remove(recipes, num)
  elseif prefix == "infuse" then
    txtnum = table.remove(words, 1)
    recipenum = tonumber(txtnum)
    infuse(recipes, recipenum)
  end
end

chat = peripheral.wrap("left")
screen = peripheral.wrap("back")
screen.clear()
recipefile = "recipes"
mytag = "infuser:"
screenlines = 2 * 4

function trim(s)
  return (s:gsub("^%s*(.-)%s*$", "%1"))
end

function listen(mytag)
  listening = true
  while listening do
   local event, name, text = os.pullEvent("chat")
   start, stop = string.find(text, mytag)
   if start ~= nil and start >= 0 then
	 return string.sub(text, stop + 1)
   end
  end
end

function load(filename)
  file = fs.open(filename, "r")
  data = file.readAll()
  file.close()
  return textutils.unserialize(data)
end

function save(filename, recipes)
  file = fs.open(filename, "w")
  data = textutils.serialize(recipes)
  file.write(data)
  file.close()
end

function write(screen, message)
  screen.write(message)
  x, y = screen.getCursorPos()
  screen.setCursorPos(x + 1, y)
  if (x + 1) >= screenlines
    screen.scroll(1)
end

recipes = load(recipefile)
while true do
  command = listen(mytag)
  write(screen, "Command Heard:" .. command)
  words = {}
  for word in command:gmatch("%S+") do
    table.insert(words, trim(word))
  end
  prefix = table.remove(words, 1)
  if prefix == "save" then
    save(recipefile)
    write(screen, "Recipes saved.")
  elseif prefix == "reload" then
    recipes = load(recipefile)
    write(screen, "Recipes loaded.")
  elseif prefix == "add" then
    newrecipe = {}
    for i=1, #words do
	  table.insert(newrecipe, words[i])
    end
    table.insert(recipes, newrecipe)
    write(screen, "Recipe added.")
  elseif prefix == "remove" then
    num = table.remove(words, 1)
    table.remove(recipes, tonumber(num))
    write(screen, "Recipe removed: " .. tostring(num))
  elseif prefix == "read" then
    num = tonumber(table.remove(words, 1))
    if num > #recipes then
	  write(screen, "No such recipe...")
    else
	  recipetoread = recipes[num]
	  for i = 1, #recipetoread do
	    write(screen, recipetoread[i])
	  end
	  write(screen, "End of recipe.")
    end
  end
end

myidnum = 1
fillerItem = "minecraft:wooden_sword"
quantitydelimiter = "*"
bridgechestdirection = {"north", "east", "south", "west"}

function trim(s)
  return (s:gsub("^%s*(.-)%s*$", "%1"))
end

function split(s, delimiter)
  result = {};
  for match in (s..delimiter):gmatch("(.-)"..delimiter) do
    table.insert(result, match);
  end
  return result;
end

function loadRecipes(filename)
  file = fs.open(filename, "r")
  data = file.readAll()
  file.close()
  return textutils.unserialize(data)
end

function grabItem(item)
  local itemname, quantity
  if item == nil or item == "" or item == "x" then
    itemname = fillerItem
    quantity = 1
  else
    table = split(item, quantitydelimiter)
    if #table == 1 then
	  itemname = trim(table[1])
	  quantity = 1
    elseif #table >= 2 then
	  itemname = trim(table[1])
	  quantity = tonumber(trim(table[2]))
    else
	  itemname = fillerItem
	  quantity = 1
    end
  end
  quantity = quantity - bridge.retrieve(itemname, quantity, bridgechestdirection[myidnum])
  while quantity > 0 do
    bridge.craft(itemname, quantity)
    crafting = true
    while crafting do
	  local event, name, amount, bytes = os.pullEvent("craftingComplete")
	  if name == itemname then
	    crafting = false
	  end
    end
    quantity = quantity - bridge.retrieve(itemname, quantity, bridgechestdirection[myidnum])
  end
end

function infuse(modem, channel, recipes, recipenum)
  redstone.setOutput("left", true)
  local thisRecipe = recipes[recipenum]
  for i = 1, #thisRecipe do
    grabItem(thisRecipe[i])
  end
  sleep(20)
  redstone.setOutput("left", false)
  sleep(180)
  redstone.setOutput("front", true)
  sleep(2)
  redstone.setOutput("front", false)
  sleep(300)
  redstone.setOutput("back", true)
  sleep(10)
  redstone.setOutput("back", false)
  modem.transmit(channel, myidnum, "Infuser"..tostring(myidnum)..": Infusion complete.")
end

recipes = loadRecipes(recipefile)
modem = peripheral.wrap("top")
modem.open(myidnum)
bridge = peripheral.wrap("right")
escape = false
while escape == false do
  listening = true
  command = ""
  replychannel
  while listening do
    local event, side, senton, replyon, message, distance = os.pullEvent("modem_message")
    if senton == myidnum and replyon == 5 then
	  listening = false
	  command = message
	  replychannel = replyon
    end
  end
  commandtable = split(trim(command), " ")
  prefix = trim(commandtable[1])
  if prefix == "infuse" then
    recipenum = tonumber(trim(commandtable[2]))
    infuse(modem, replychannel, recipes, recipenum)
  end
end

infusersrunning = {0, 0, 0, 0}
recipefile = "recipes"
function trim(s)
  return (s:gsub("^%s*(.-)%s*$", "%1"))
end
function load(filename)
  file = fs.open(filename, "r")
  data = file.readAll()
  file.close()
  return textutils.unserialize(data)
end
function pullItem(direction)
  while sorter.pull(direction) == false do
	sleep(10)
  end
end
function infusionCompletionListener()
  local event, side, channel, replychannel, message, distance = os.pullEvent("modem_message")
  if trim(message) == "Infuser "..tostring(replychannel)..": Infusion complete." then
	infusersrunning[replychannel] = 0
  end
end
function waitForOpenInfuser()
  while true do
	for i=1, #infusersrunning do
	  if infusersrunning[i] < 1 then
		infusersrunning[i] = item[amount]
		return i, false
	  end
	end
  end
end
function pushItem(direction)
  while sorter.push(direction) == false do
	sleep(5)
  end
end
screen = peripheral.wrap("back")
modem = peripheral.wrap("top")
modem.open(5)
recipes = loadRecipes(recipefile)
sorter = peripheral.wrap("left")
escape = false
while escape == false do
  func = parallel.waitForAny(pullItem("east"), infusionCompletionListener())
  if func == 1 then
	item = sorter.analyze()
	if item[stringId] == "minecraft:cobblestone" then
	  command = "infuse "..tostring(item[amount])
	  searching = true
	  channel = 0
	  while searching do
		funct = parallel.waitForAny(channel,searching = waitForOpenInfuser(), infusionCompletionListener())
		if funct == 1 then
		  modem.transmit(channel, 5, command)
		elseif funct == 2 then
		end
	  end
	end
  elseif func == 2 then
  end
  func = parallel.waitForAny(pushItem("south"), infusionCompletionListener())
  if func == 1 then
  elseif func == 2 then
  end
end

myidnum = 1
fillerItem = "minecraft:wooden_sword"
quantitydelimiter = "*"
recipefile = "recipes"
bridgechestdirection = {"north", "east", "south", "west"}
function trim(s)
  return (s:gsub("^%s*(.-)%s*$", "%1"))
end
function split(s, delimiter)
  result = {};
  for match in (s..delimiter):gmatch("(.-)"..delimiter) do
	table.insert(result, match);
  end
  return result;
end
function loadRecipes(filename)
  file = fs.open(filename, "r")
  data = file.readAll()
  file.close()
  return textutils.unserialize(data)
end
function grabItem(item)
  local itemname, quantity
  if item == nil or item == "" or item == "x" then
	itemname = fillerItem
	quantity = 1
  else
	table = split(item, quantitydelimiter)
	if #table == 1 then
	  itemname = trim(table[1])
	  quantity = 1
	elseif #table >= 2 then
	  itemname = trim(table[1])
	  quantity = tonumber(trim(table[2]))
	else
	  itemname = fillerItem
	  quantity = 1
	end
  end
  quantity = quantity - bridge.retrieve(itemname, quantity, bridgechestdirection[myidnum])
  while quantity > 0 do
	bridge.craft(itemname, quantity)
	crafting = true
	while crafting do
	  local event, name, amount, bytes = os.pullEvent("craftingComplete")
	  if name == itemname then
		crafting = false
	  end
	end
	quantity = quantity - bridge.retrieve(itemname, quantity, bridgechestdirection[myidnum])
  end
end
function infuse(modem, channel, recipes, recipenum)
  redstone.setOutput("left", true)
  local thisRecipe = recipes[recipenum]
  for i = 1, #thisRecipe do
	grabItem(thisRecipe[i])
  end
  sleep(20)
  redstone.setOutput("left", false)
  sleep(180)
  redstone.setOutput("front", true)
  sleep(2)
  redstone.setOutput("front", false)
  sleep(300)
  redstone.setOutput("back", true)
  sleep(10)
  redstone.setOutput("back", false)
  modem.transmit(channel, myidnum, "Infuser "..tostring(myidnum)..": Infusion complete.")
end
recipes = loadRecipes(recipefile)
modem = peripheral.wrap("top")
modem.open(myidnum)
bridge = peripheral.wrap("right")
escape = false
while escape == false do
  listening = true
  command = ""
  replychannel
  while listening do
	local event, side, senton, replyon, message, distance = os.pullEvent("modem_message")
	if senton == myidnum and replyon == 5 then
	  listening = false
	  command = message
	  replychannel = replyon
	end
  end
  commandtable = split(trim(command), " ")
  prefix = trim(commandtable[1])
  if prefix == "infuse" then
	recipenum = tonumber(trim(commandtable[2]))
	infuse(modem, replychannel, recipes, recipenum)
  end
end

chat = peripheral.wrap("left")
screen = peripheral.wrap("back")
screen.clear()
recipefile = "recipes"
mytag = "infuser:"
screenlines = 2 * 4
function trim(s)
  return (s:gsub("^%s*(.-)%s*$", "%1"))
end
function listen(mytag)
  listening = true
  while listening do
   local event, name, text = os.pullEvent("chat")
   start, stop = string.find(text, mytag)
   if start ~= nil and start >= 0 then
	 return string.sub(text, stop + 1)
   end
  end
end
function load(filename)
  file = fs.open(filename, "r")
  data = file.readAll()
  file.close()
  return textutils.unserialize(data)
end
function save(filename, recipes)
  file = fs.open(filename, "w")
  data = textutils.serialize(recipes)
  file.write(data)
  file.close()
end
function write(screen, message)
  screen.write(message)
  x, y = screen.getCursorPos()
  screen.setCursorPos(x + 1, y)
  if (x + 1) >= screenlines
	screen.scroll(1)
end
recipes = load(recipefile)
escape = false
while escape == false do
  command = listen(mytag)
  write(screen, "Command Heard:" .. command)
  words = {}
  for word in command:gmatch("%S+") do
	table.insert(words, trim(word))
  end
  prefix = table.remove(words, 1)
  if prefix == "save" then
	save(recipefile)
	write(screen, "Recipes saved.")
  elseif prefix == "reload" then
	recipes = load(recipefile)
	write(screen, "Recipes loaded.")
  elseif prefix == "add" then
	newrecipe = {}
	for i=1, #words do
	  table.insert(newrecipe, words[i])
	end
	table.insert(recipes, newrecipe)
	write(screen, "Recipe added.")
  elseif prefix == "remove" then
	num = table.remove(words, 1)
	table.remove(recipes, tonumber(num))
	write(screen, "Recipe removed: " .. tostring(num))
  elseif prefix == "read" then
	num = tonumber(table.remove(words, 1))
	if num > #recipes then
	  write(screen, "No such recipe...")
	else
	  recipetoread = recipes[num]
	  for i = 1, #recipetoread do
		write(screen, recipetoread[i])
	  end
	  write(screen, "End of recipe.")
	end
  end
end

infusersrunning = {0, 0, 0, 0}
recipefile = "recipes"
openchannel = 0
function trim(s)
  return (s:gsub("^%s*(.-)%s*$", "%1"))
end
function load(filename)
  file = fs.open(filename, "r")
  data = file.readAll()
  file.close()
  return textutils.unserialize(data)
end
function pullItem(direction)
  while sorter.pull(direction) == false do
	sleep(10)
  end
end
function infusionCompletionListener()
  local event, side, channel, replychannel, message, distance = os.pullEvent("modem_message")
  if trim(message) == "Infusion complete." then
	infusersrunning[replychannel] = 0
  end
end
function waitForOpenInfuser()
  while true do
	for i=1, #infusersrunning do
	  if infusersrunning[i] < 1 then
		infusersrunning[i] = item[amount]
		openchannel = i
		return
	  end
	end
  end
end
function pushItem(direction)
  while sorter.push(direction) == false do
	sleep(5)
  end
end
screen = peripheral.wrap("back")
modem = peripheral.wrap("top")
modem.open(5)
recipes = loadRecipes(recipefile)
sorter = peripheral.wrap("left")
escape = false
while escape == false do
  func = parallel.waitForAny(pullItem("east"), infusionCompletionListener())
  if func == 1 then
	item = sorter.analyze()
	if item[stringId] == "minecraft:cobblestone" then
	  command = "infuse "..tostring(item[amount])
	  searching = true
	  channel = 0
	  while searching do
		funct = parallel.waitForAny(waitForOpenInfuser(), infusionCompletionListener())
		if funct == 1 then
		  modem.transmit(openchannel, 5, command)
		  searching = false
		elseif funct == 2 then
		end
	  end
	end
	pushing = true
	while pushing do
	  functi = parallel.waitForAny(pushItem("south"), infusionCompletionListener())
	  if functi == 1 then
		pushing = false
	  elseif functi == 2 then
	  end
	end
  elseif func == 2 then
  end
end

myidnum = 1
fillerItem = "minecraft:wooden_sword"
quantitydelimiter = "*"
recipefile = "recipes"
bridgechestdirection = {"north", "east", "south", "west"}
function trim(s)
  return (s:gsub("^%s*(.-)%s*$", "%1"))
end
function split(s, delimiter)
  result = {};
  for match in (s..delimiter):gmatch("(.-)"..delimiter) do
	table.insert(result, match);
  end
  return result;
end
function stripSecondColen(str)
  return table.concat({str:match( "([^:]+:[^:]+):?(.*)" )}, " ")
end
function loadRecipes(filename)
  file = fs.open(filename, "r")
  data = file.readAll()
  file.close()
  return textutils.unserialize(data)
end
function grabItem(modem, channel, item)
  itemname = nil
  quantity = nil
  if item == nil or item == "" or item == "x" then
	itemname = fillerItem
	quantity = 1
  else
	table = split(item, quantitydelimiter)
	if #table == 1 then
	  itemname = trim(table[1])
	  quantity = 1
	elseif #table >= 2 then
	  itemname = trim(table[1])
	  quantity = tonumber(trim(table[2]))
	else
	  itemname = fillerItem
	  quantity = 1
	end
  end
  modem.transmit(channel, myidnum, "Get "..tostring(quantity).." "..itemname)
  transformeditemname = stripSecondColen(itemname)

  modem.transmit(channel, myidnum, "Converting itemname to ME bridge format")
  retrieved = bridge.retrieve(transformeditemname, quantity, bridgechestdirection[myidnum])
  quantity = quantity - retrieved
  while quantity > 0 do
	modem.transmit(channel, myidnum, "Only "..tostring(retrieved).." available...crafting more")
	bridge.craft(transformeditemname, quantity)
	crafting = true
	while crafting do
	  local event, name, amount, bytes = os.pullEvent("craftingComplete")
	  if trim(name) == trim(transformeditemname) then
		crafting = false
	  end
	end
	retrieved = bridge.retrieve(transformeditemname, quantity, bridgechestdirection[myidnum])
	quantity = quantity - retrieved
  end
end
function infuse(modem, channel, recipe)
  redstone.setOutput("left", true)
  modem.transmit(channel, myidnum, "Filler retriever locked.")
  for i = 1, #recipe do
	grabItem(modem, channel, recipe[i])
  end
  sleep(20)
  redstone.setOutput("left", false)
  sleep(180)
  modem.transmit(channel, myidnum, "Whacking matrix...")
  redstone.setOutput("front", true)
  sleep(2)
  redstone.setOutput("front", false)
  modem.transmit(channel, myidnum, "Waiting for completion.")
  sleep(300)
  redstone.setOutput("back", true)
  modem.transmit(channel, myidnum, "Grabbing resultant item.")
  sleep(10)
  redstone.setOutput("back", false)
  modem.transmit(channel, myidnum, "Infusion complete.")
end
recipes = loadRecipes(recipefile)
modem = peripheral.wrap("top")
modem.open(myidnum)
bridge = peripheral.wrap("right")
escape = false
while escape == false do
  listening = true
  command = ""
  replychannel = 0
  while listening do
	local event, side, senton, replyon, message, distance = os.pullEvent("modem_message")
	if senton == myidnum and replyon == 5 then
	  listening = false
	  command = message
	  replychannel = replyon
	end
  end
  commandtable = split(trim(command), " ")
  prefix = trim(commandtable[1])
  if prefix == "infuse" then
	recipenum = tonumber(trim(commandtable[2]))
	infuse(modem, replychannel, recipes[recipenum])
  end
end