startup

--von Direwolf20 --Uebersetzung und Erklaerung von Sp8ter
os.loadAPI("button")
m = peripheral.wrap("back")
--Monitor auf der Rueckseite
m.clear()
rednet.open("right")
--Wirelessmodem auf der rechten Seite
local page = 1
local pages = 0
local names = {}
local turtles = {}
local remove = false

function fillTurtles()
   turtles[1] = 7
--Turtle ID eintragen
--   turtles[2] = 114
--   turtles[3] = 117
end

function fillTable()
   m.clear()
   button.clearTable()
   local totalrows = 0
   local numNames = 0
   local col = 2
   local row = 12
   local countRow = 1
   local currName = 0
   local npp = 12 --names per page
   for turt, data in pairs(names) do
      for i,j in pairs(data) do
         totalrows = totalrows+1
      end
   end
   pages = math.ceil(totalrows/npp)
   print(totalrows)
   for turt, data in pairs(names) do
      currName = 0
      for slot, name in pairs(data) do
       currName = currName + 1
       if currName > npp*(page-1) and currName < npp*page+1 then
         row = 4+(countRow)
         names[turt][slot] = string.sub(name, 0, 17)
         button.setTable(string.sub(name, 0, 17), runStuff, turt..":"..slot, col, col+17 , row, row)
         if col == 21 then
           col = 2
           countRow = countRow + 2
         else
           col = col+19
         end
       end
      end
   end
   button.setTable("Seite vor", nextPage, "", 21, 38, 1, 1)
   button.setTable("Seite zurueck", prevPage, "", 2, 19, 1, 1)
   button.setTable("Refresh", checkNames, "", 21, 38, 19, 19)
--   button.setTable("Remove Book", removeIt, "", 2, 19, 19, 19)
   button.label(15,3, "Seite: "..tostring(page).." of "..tostring(pages))
   button.screen()
end

function nextPage()
   if page+1 <= pages then page = page+1 end
   fillTable()
end

function prevPage()
   if page-1 >= 1 then page = page-1 end
   fillTable()
end

function getNames()
   names = {}
   for x, y in pairs(turtles) do
      names[y] = {}
      rednet.send(y, "getNames")
      local id, msg, dist = rednet.receive(2)
--      print(msg)
      names[y] = textutils.unserialize(msg)
   end
end

function removeIt()
   remove = not remove
--   print(remove)
   button.toggleButton("Remove Book")
end

function runStuff(info)
   if remove == true then
      removeBook(info)
   else
      openPortal(info)
   end
end

function removeBook(info)
   local turt, slot = string.match(info, "(%d+):(%d+)")
   button.toggleButton(names[tonumber(turt)][tonumber(slot)])
   data = "remove"..tostring(slot)
   rednet.send(tonumber(turt), data)
   rednet.receive()
   button.toggleButton(names[tonumber(turt)][tonumber(slot)])
   remove=false
   button.toggleButton("Remove Book")
--   sleep(1)
   checkNames()
end

function openPortal(info)
   local turt,slot = string.match(info, "(%d+):(%d+)")
--   print(names[tonumber(turt)][tonumber(slot)])
   button.toggleButton(names[tonumber(turt)][tonumber(slot)])
   print(names[tonumber(turt)][tonumber(slot)])
   data = "books"..tostring(slot)
   rednet.send(tonumber(turt), data)
   rednet.receive()
   button.toggleButton(names[tonumber(turt)][tonumber(slot)])
end

function checkNames()
   button.flash("Refresh")
   for num, turt in pairs(turtles) do
     rednet.send(turt, "checkSlots")
     msg = ""
     while msg ~= "done" do
       id, msg, dist = rednet.receive()
       if msg == "getName" then
          m.clear()
          m.setCursorPos(5, 12)
          m.write("New book detected.")
          m.setCursorPos(5, 14)
          m.write("Please enter the name")
          m.setCursorPos(5, 16)
          m.write("On the computer")
          m.setCursorPos(5, 18)
          m.write("<<----")
          term.clear()
          term.write("Please enter a name for the new book: ")
          name = read()
          rednet.send(id, name)
       end
     end
   end
   getNames()
   fillTable()
end

function getClick()
   event, side, x,y = os.pullEvent()
   if event == "monitor_touch" then
      button.checkxy(x,y)
   elseif event == "redstone" then
      print("redstone")
      sleep(5)
      checkNames()
   end
end

fillTurtles()
fillTable()
checkNames()


while true do
   getClick()
--   checkNames()
end