DoorControl

rednet.open("back")

all = {}
all.Doors = {}
all.Doors.AE2 = {id = 8, state = true}
all.Doors.Farm = {id = 33, state = true}
temp = {}
sCurFolder = "all"
curFolder = all
screen = {}
curLine = 1

function updateScreen()
  screen = {}
  for i,j in pairs(curFolder) do
    table.insert(screen, i)
  end
  tSx, tSy = term.getSize()
  term.setCursorPos(1,1)
  for i,j in pairs(screen) do
    if curFolder[j]["state"] == true then
      term.setBackgroundColor(2^14)
    elseif curFolder[j]["state"] == false then
      term.setBackgroundColor(2^5)
    elseif curFolder[j]["state"] == nil then
      term.setBackgroundColor(2^4)
    end
    write("   "..j)
    for k = 1, tSx-3-#j do
      write(" ")
    end
    print()
  end
  term.setBackgroundColor(2^15)
  for i = #screen+1, tSy do
    term.setCursorPos(1, i)
    for j = 1, tSx do
      write(" ")
    end
  end
  dCursor(curLine)
end

function updateStates()
  for k,l in pairs(all.Doors) do
    if type(l) == "table" then
      rednet.send(l.id, l.state)
    else err("Non table found '"..l.."'") end
  end
end

function err(msg)
  error(msg)
end

function dCursor(num)
  term.setCursorPos(1,num)
  term.setBackgroundColor(2^10)
  term.write(" X ")
  term.setBackgroundColor(2^15)
end

while true do
  updateStates()
  updateScreen()

  event, key, x, y = os.pullEvent("key")
  if event == "key" and (key == 200 or key == 208 or key == 28) then
    if key == 28 then
      if curFolder[screen[curLine]]["state"] == nil then
        curFolder = curFolder[screen[curLine]]
        sCurFolder = sCurFolder.."."..screen[curLine]
      else
         curFolder[screen[curLine]]["state"] = not curFolder[screen[curLine]]["state"]
      end
    elseif key == 200 then
      if curLine > 1 then
        curLine = curLine-1
      end
    elseif key == 208 then
      if curLine < #screen then
        curLine = curLine+1
      end
    end
  elseif event == "mouse_click" then
    if y < #screen+1 then
      curLine = y
    end
  end
end