View difference between Paste ID: 06cjixf9 and UnRJqdZA

 -- Furnace control
 -- Setup:
 -- (from above)
-local output = peripheral.wrap("bottom")
+-- Comp - Outp
 -- Inpu - Furn
 -- the second computer under the furnace,
-local signal = "back"
+-- and a wired modem connecting the 2 computers
--- side of the redstone torch
+
 -- Computer 1: (this one) http://pastebin.com/06cjixf9
-local inputslot = 1
+-- Computer 2: http://pastebin.com/RjyREdT2
-local fuelslot = 2
+
-local outputslot = 3
+-- Screenshots of setup:
--- slots inside furnace inv
+-- 1 http://i.imgur.com/t9GFE2r.png
 -- 2 http://i.imgur.com/WjnunBC.png
 
-  -- {id=number,dmg=number,burn=number}
+-- how often computer shall retry
-  -- burn = burntime, how many items
+local updaterate = 2 -- times a sec
-  -- the fuel can burn.
+
-  -- ex: coal/charcoal burns 8
+-- where the chests are in relation to the furnace
-  -- and wood burns 1.5
+local outputToFurnace = "north"
-  {id=263,dmg=0,burn=8},--coal
+local inputToFurnace = "west"
-  {id=263,dmg=1,burn=8},--charcoal
+-- directions: north,south,east,west,up,down
-  --{id=5,dmg=-1,burn=1.5},--planks
+
-  --{id=17,dmg=-1,burn=1.5},--wood
+-- slots in the furnace inventory
-  --{id=6,dmg=-1,burn=.5},--sapling
+local inputSlot = 0
-  --{id=280,dmg=0,burn=.5},--stick
+local fuelSlot = 1
 local outputSlot = 2
 
-local furnaceToOutput = "west"
+-- 1 for normal furnace
-local inputToFurnace = "down"
+-- 1.25 for IC2 iron furnace
-local inputSlot = 1
+local furnaceModifier = 1
-local outputSlot = 3
+
 local fuel = {
--- returns statement,fuel
+	-- {id,dmg,burntime},
 	{id=263,dmg=0,burn=8},--coal
 	{id=263,dmg=1,burn=8},--charcoal
 	{id=5,dmg=-1,burn=1.5},--planks
-  for _,fuel in pairs(fuel) do
+	--{id=17,dmg=-1,burn=1.5},--wood
-    if item.id == fuel.id
+	{id=6,dmg=-1,burn=.5},--sapling
-    and (item.dmg == fuel.dmg
+	{id=280,dmg=0,burn=.5},--stick
-    or fuel.dmg == -1) then
+
-      return true,fuel
+
-    end
+
-  end
+
-  return false
+local output = peripheral.wrap("right")
 or error("Unable to wrap output chest!",0)
 
 local modemside = "bottom"
 local modem
-  local items = input.getAllStacks()
+if peripheral.getType(modemside) == "modem" then
-  for slot,item in pairs(items) do
+	modem = peripheral.wrap(modemside)
-    local state,fuel = isFuel(item)
+	or error("Unable to wrap modem!",0)
-    if state then
+else error("No modem found, please correct!",0) end
-      return slot,fuel
+
-    end
+local function getAllStacks(inv)
-  end
+	local t = {}
 	local size = inv.getInventorySize()
 	for slot = 1,size do
 		local item = inv.getStackInSlot(slot) or {}
 
-  local slot,fuel = findFuel()
+		item.rawName = item.rawName or ""
-  if slot and fuel then
+		item.qty = item.qty or 0
-    local items = input.getAllStacks()
+		item.dmg = item.dmg or 0
-    for slot,item in pairs(items) do
+		item.name = item.name or ""
-      local state = isFuel(item)
+		item.id = item.id or 0
-      if not state then
+
-        if item.qty >= fuel.burn then
+		t[slot] = item
-          return slot,item
+	end
-        end
+	return t
-      end
+
-    end
+
-  end
+
 -- fuel = table
 local function isFuel(item)
 	for _,fuel in pairs(fuel) do
-  output.pullItem("east",outputslot,64)
+		if item.id == fuel.id
 		and (item.dmg == fuel.dmg
 		or fuel.dmg == -1) then
 			return true,fuel
-  -- if furnace is empty
+		end
-  if rs.getInput(signal) == false then
+	end
-    -- get fuel and item
+	return false
-    local fuelslot,fuel,fueli = findFuel()
+
-    local itemslot,item = findItem()
+
-
+
-    -- no fuel/item found: cancel out
+
-    if not fuel then return end
+	local items = getAllStacks(input)
-    if not item then return end
+	for slot,item in pairs(items) do
-
+		local state,fuel = isFuel(item)
-    -- # items to move
+		if state then
-    local fuelmove = math.floor(item.qty/fuel.burn)
+			return slot,fuel,item
-    local itemmove = item.qty-(item.qty%fuel.burn)
+		end
-
+	end
-    -- move items
+
-    input.pushItemIntoSlot("down",fuelslot,fuelmove,fuelslot)
+
-    input.pushItemIntoSlot("down",itemslot,itemmove,inputslot)
+
-  end
+
 	local slot,fuel = findFuel()
 	if slot and fuel then
-cook()
+		local items = getAllStacks(input)
 		for slot,item in pairs(items) do
 			local state = isFuel(item)
 			if not state then
 				if item.qty >= fuel.burn then
 					return slot,item
 				end
 			end
 		end
 	end
 end
 
 local function emptyFurnace()
 	output.pullItem(outputToFurnace,outputSlot,64)
 end
 
 local function isFurnaceEmpty()
 	local timeout = os.startTimer(2)
 	modem.open(1)
 	local msg = textutils.serialize({task="furnace",value="question"})
 	modem.transmit(1,1,msg)
 
 	local state = false
 
 	while true do
 		local ev,p1,p2,p3,p4,p5 = os.pullEvent()
 		if ev == "modem_message" and p1 == modemside and p2 == 1 then
 			local msg = textutils.unserialize(p4)
 			if type(msg) == "table" then
 				if msg.task == "furnace"
 				and type(msg.value) == "boolean" then
 					state = msg.value
 					break
 				end
 			end
 		elseif ev == "timer" then
 			if p1 == timeout then
 				state = false
 				break
 			end
 		end
 	end
 	modem.close(1)
 	return state
 end
 
 local function cook()
 	-- check with computer
 	if isFurnaceEmpty() then
 		-- get fuel and item
 		local fuelslot,fuel,fuelitem = findFuel()
 		local itemslot,item = findItem()
 
 		-- no fuel/item found: cancel out
 		if not fuel then return end
 		if not item then return end
 
 		local maxburn = fuelitem.qty*fuel.burn
 		local fuelmove,itemmove
 		if item.qty > maxburn * furnaceModifier then
 			-- # of items are more then we can burn
 			fuelmove = fuelitem.qty
 			itemmove = maxburn
 		else
 			-- we have more or enough fuel for all items
 			fuelmove = math.floor(item.qty/(fuel.burn*furnaceModifier))
 			itemmove = item.qty - (item.qty%(fuel.burn*furnaceModifier))
 		end
 
 		-- debugging
 		print("Moving "..tostring(fuelmove).." peices of "..tostring(fuelitem.name).." to fuel slot.")
 		print("Moving "..tostring(itemmove).." peices of "..tostring(item.name).." to input slot.")
 
 		-- move items
 		-- pushItemItemIntoSlot(direction, fromSlot, maxQuantity, intoSlot)
 		input.pushItemIntoSlot(inputToFurnace,fuelslot,fuelmove,fuelSlot)
 		input.pushItemIntoSlot(inputToFurnace,itemslot,itemmove,inputSlot)
 	else
 		emptyFurnace()
 	end
 end
 
 print("Checks input chest for valid fuel and items to burn.")
 print("If theres items in the furnace i shall not insert more.")
 print("Checks "..updaterate.." times a second,")
 print("i.e. "..1/updaterate.." seconds between each update.")
 while true do
 	cook()
 	sleep(1/updaterate)
 end