backend.lua

rednet.open("front")
rednet.announce()
event = nil
p1 = nil
p2 = nil
p3 = nil
p4 = nil
event2 = nil
x = nil
y = nil
slash1 = nil
slash2 = nil
outcol = nil
outnum = nil
tests = nil
colrot = 1
collist = {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}
compid = os.getComputerID()
while true do
  rlq = 1
  while event ~= "rednet_message" and p1 ~= 0 do
    event, p1, p2 = os.pullEvent()
    print("waiting " .. rlq)
    rlq = rlq + 1
  end
  if p2 == "sending" then
    print("item search")
    while p4 ~= "done" or event2 ~="rednet_message" or p3 ~=0 do
      print("top of loop")
      tests = rs.getBundledInput("bottom")
      print("testing")
      while colrot < 17 do
        coltest = 2^(colrot-1)
        colout = colors.test(tests, coltest)
        print("rotated to " .. colrot)
        colrot = colrot + 1
        if colout then
          print("counting: " .. colrot)
          collist[colrot] = collist[colrot] + 1
          print("counted: " .. colrot)
        end
        print("out of if")
      end
      event2 = nil
      p3 = nil
      p4 = nil
      print("out of loop")
      while event2 ~= "rednet_message" do
        event2, p3, p4 = os.pullEvent()
            print("event_loop " .. event2)
      end
      print("pulled event")
      colrot = 1
      tests = 0
      print("going to start")
    end
    print("received done")
    export_tables.save(collist, "collist")
    colrot = 1
    sending = collist[1] .. "/" .. collist[2] .. "/" .. collist[3] .. "/" .. collist[4] .. "/" .. collist[5] .. "/" .. collist[6] .. "/" .. collist[7] .. "/" .. collist[8] .. "/" .. collist[9] .. "/" .. collist[10] .. "/" .. collist[11] .. "/" .. collist[12] .. "/" .. collist[13] .. "/" .. collist[14] .. "/" .. collist[15] .. "/" .. collist[16] .. "/"
    sleep(3.1 * (compid - 1))
    rednet.send(0, sending)
    print("sent data")
  else
    print("retreiving")
    slash1 = p2:find("/")
    print("First Slash Index: "..slash1)
    slash2 = p2:find("/", slash1+1)
    print("Second Slash Index: "..slash2)
    x = p2:sub(1, slash1-1)
    print("X Substring: "..x)
    y = p2:sub(slash1+1, slash2-1)
    print("Y Substring: "..y)
    outcol = tonumber(x)
    outnum = tonumber(y)
    outcol = 2^(outcol-1)
    for i = 1, outnum, 1 do
      rs.setBundledOutput("top", outcol)
      sleep(0.2)
      rs.setBundledOutput("top", 0)
      sleep(0.2)
      print("redloop")
    end
  end
  event = nil
  p1 = nil
  p2 = nil
  x = nil
  y = nil
  slash1 = nil
  slash2 = nil
  outcol = nil
  outnum = nil
  tests = nil
  colrot = 1
  print("cycled")
end