View difference between Paste ID: iBD7eYVe and 9RQCKzkc

 local storage
 local sideredcable
 local sidemodem
 
 
 function createsettings()
         local settings={}
         print("Number of Storage:")
         settings[1]="s"..read()
         print("Side of Modem:")
         settings[2]=read()
         print("Side of RedCable:")
         settings[3]=read()
         save(settings,"settings.txt")
 end
 
 function loadsettings()
         local settings=load("settings.txt")
         storage=settings[1]
         sidemodem=settings[2]
         sideredcable=settings[3]
 end
 
 function save(table,name)
         local file = fs.open(name,"w")
         file.write(textutils.serialize(table))
         file.close()
 end
 
 function load(name)
         local file = fs.open(name,"r")
         local data = file.readAll()
         file.close()
         return textutils.unserialize(data)
-redstone.setOutput("bottom",false)
+
 
 function exist(name)
         file=io.open(name)
         if file~=nil then io.close(file) return true else return false end
 end
-rednet.open("back")
+
 function loadwork()
-if exist("changes") then redstone.setOutput("bottom",true) end
+local work=load("work")
 local w=peripheral.wrap(sideredcable)
 local names = w.getNamesRemote()
-local id, mens, protocol =rednet.receive()
+table.sort(names)
-        if protocol =="changesAntena"..storage then
+local z=0
-                local changes={" "}
+while z~=#work do
-                if exist("changes") then
+	local craftable=false
-                changes=load("changes")
+	local recipe=load(work[z+1])
 	repeat
-                local newchanges=textutils.unserialize(mens)
+	for x=1,9 do
-                for i=1,#newchanges do
+		craftable=false
-                        changes[#changes+1]=newchanges[i]
+		local cur=0
 		for c=1,#names do
-                save(changes,"changes")
+				local f=peripheral.wrap(names[c])
-                redstone.setOutput("bottom",true)
+				for b=1, f.getInventorySize() do
-                rednet.send(id,"ok","changesAntenaReceived"..storage)
+					if f.getStackInSlot(b)~= nil then
 						if f.getStackInSlot(b).display_name==recipe[x*2] then
-        if protocol=="AskChangesAntena"..storage then
+							cur=cur+f.getStackInSlot(b).qty
-  local changes={" "}
+						end
-  if exist("changes") then
+					end
-                 changes=load("changes")
+				end
-  end
+		end
-                rednet.send(id,textutils.serialize(changes),"changes"..storage)
+		if cur>=recipe[x*2+1] then
-          	fs.delete("changes")
+			craftable=true
-                redstone.setOutput("bottom",false)
+		end
 		if recipe[x*2]==" " then
 			craftable=true
 		end
 		if not craftable then break end
 	end
 	if craftable then
 		for x=1,9 do
 		local done=false
 		local togo=recipe[x*2+1]
 			for c=1,#names do
 			sleep(0)
 				local f=peripheral.wrap(names[c])
 					for b=1, f.getInventorySize() do
 						if f.getStackInSlot(b)~= nil then
 							if f.getStackInSlot(b).display_name==recipe[x*2]  then
 								local num=f.getStackInSlot(b).qty
 								if num>=togo then
 								local n=x
 								if n>=4 then
 									n=n+1
 								end
 								if n>=8 then
 									n=n+1
 								end
 								if c==1 then
 									f.pushItem("north",b,togo,n)
 								end
 								if c==2 then
 									f.pushItem("east",b,togo,n)
 								end
 								if c==3 then
 									f.pushItem("south",b,togo,n)
 								end
 								if c==4 then
 									f.pushItem("west",b,togo,n)
 								end
 								done=true
 
 								else
 
 								local n=x
 								if n>=4 then
 									n=n+1
 								end
 								if n>=8 then
 									n=n+1
 								end
 								if c==1 then
 									f.pushItem("north",b,num,n)
 								end
 								if c==2 then
 									f.pushItem("east",b,num,n)
 								end
 								if c==3 then
 									f.pushItem("south",b,num,n)
 								end
 								if c==4 then
 									f.pushItem("west",b,num,n)
 								end
 								togo=togo-num
 								end
 							end
 						end
 					if done then break end
 					end
 			if done then break end
 			end
 		end
 		redstone.setOutput("bottom",true)
 		work[z+2]=work[z+2]-recipe[1]
 		if work[z+2]<=0 then
 			local newwork={}
                        	for v=1,#work do
                              if v~=z+1 and v~=z+2 then
                                    newwork[#nework+1]=work[v]
                              end
 			end
 			work=newwork
 		end
 		redstone.setOutput("bottom",false)
 		save(work,"work")
 		work=load("work")
 	end
 	until craftable==false
 end
 end
 
 
 
 
 -----------------------------
 if not exist("settings.txt") then
         createsettings()
 end
 
 if not exist("work") then
 	local work={}
 	save(work,"work")
 end
 
 loadsettings()
 rednet.open(sidemodem)
 
 
 while true do
 local id, mens, protocol =rednet.receive(5)
         if protocol =="Crafter"..storage then
                 local work={}
                 if exist("work") then
                 changes=load("work")
                 end
                 local newwork=textutils.unserialize(mens)
                 if work[1]==nil then
                          work[1]=newwork[1]
                 else
                         work[#work+1]=newwork[1]
                 end
                 work[#work+1]=newwork[2]
                 save(work,"work")
                 rednet.send(id,"ok","confirmCrafter"..storage)
         end
 	if protocol~=nil then
         if (string.sub(protocol,1,9)..storage)==("newRecCra"..storage) then
                	local file = fs.open(   (string.sub(protocol,1+string.len((string.sub(protocol,1,9)..storage)),string.len(protocol))),"w")
 		file.write(mens)
 		file.close()
                	rednet.send(id,"ok","confirmNewRecipe"..storage)
        	end
         if protocol==("DelRecCra"..storage) then
                	if exist(mens) then
 			fs.delete(mens)
 		end
                	rednet.broadcast("ok","confirmDeleteRecipe"..storage)
        	end
 	end
 	loadwork()
 end