-- Program:
--   aspects
-- Description:
--   Manages Thaumcraft 4 aspects stored in
--   warded or void jars
-- Hardware requirements:
--    1 Advanced Computer
--   15 Advanced Monitors (5x3)
--    1 Advanced Wireless Turtle
--    1 Wireless Modem
--   52 Wired Modem
--   52 Peripheral Proxy
--      Network Cable
-- Software requirements:
--   Advanced Computer
--     this program
--     button API - pastebin get z0FBM6wd button
--   Advanced Wireless Turtle
--     catalogue - pastebin get dEWU3SwC catalogue
 
-- Initialization
--  set this to whatever side the wireless modem is on
rednet.open("left")
 
--  load the api to control the monitor
os.loadAPI("button")
 
--  set this to the turtle's id (command 'id' on the turtle)
local turtleID = 179
 
--  initialize a table for the essentia type and quantity
local essentia = {}
 
--  build a table of all peripherals attached to the computer
local jars = peripheral.getNames()
 
--  set this to whatever side the monitor is on
--  NOTE: this must also be set the same in the button API
local m = peripheral.wrap("top")
 
--  initialize a table for rows on the monitor
local monCoord = {}
 
--  stores the essentia that was picked on the monitor
local currEssentia
 
--  stores the amount of essentia to be added to the jar
local fillAmt = 0
 
--  determines if the list of aspects is on the screen
local rowsActive = true
 
-- Functions
--  sortEss - sorts a supplied table alphabetically
--  Input: table t
--  Output: a pointer to the function?
function sortEss(t)
   local keys = {}
   for k in pairs(t) do keys[#keys+1] = k end
   table.sort(keys)
   
   local i = 0
   return function()
      i = i+1
      if keys[i] then
         return keys[i], t[keys[i]]
      end
   end
end
 
function scanEssentia()
  for i,j in ipairs(jars) do
    if peripheral.getType(j) == "tt_aspectContainer" then
       asp = peripheral.call(j, "getAspects")
       countasp = peripheral.call(j, "getAspectCount")
      if countasp > 0 then
          essentia[asp] = math.floor(countasp)
      end
     end
  end
end
 
function printEssentia()
  m.setTextColor(colors.white)
  local x = 1
  local y = 1
  monCoord[x] = {}
  for i,j in sortEss(essentia) do
     if j==0 then m.setTextColor(colors.purple) end
     if j<20 and j>0 then m.setTextColor(colors.red) end
     if j<40 and j>20 then m.setTextColor(colors.yellow) end
     if j>=40 then m.setTextColor(colors.green) end
     
     m.setCursorPos(x,y)
     m.write(i)
     if j<10 then
       m.setCursorPos(x+15,y)
     else
       m.setCursorPos(x+14,y)
     end
     m.write(tostring(j))
     monCoord[x][y] = i
     if y < 17 then
        y = y+1
     else
        y = 1
        x = x+17
        monCoord[x] = {}  
     end
  end
 m.setTextColor(colors.white)
end
 
function getClick()
   local event,side,x,y = os.pullEvent()
   if event=="monitor_touch" then
     if button.checkxy(x,y) then
        print("button")
     else
        if rowsActive then
          fillAmt = 0
          print(x..":"..x-(x%17)+1)
          print(monCoord[x-(x%17)+1][y])
          currEssentia = monCoord[x-(x%17)+1][y]
          if currEssentia ~= nil then
          if essentia[currEssentia] < 64 then
             fillTable2()
          else
             m.clear()
             button.label(1,10, currEssentia.." is already full.  Please choose another.")
             sleep(3)
             refresh()
          end
          end
        end
     end
   end
end
 
function refresh()
   button.flash("Refresh")
   m.clear()
   scanEssentia()
   printEssentia()
   print("Refreshed")
   button.screen()
end
 
function fillTable()
   rowsActive = true
   button.clearTable()
   button.setTable("Refresh", refresh, "", 8, 22, 19, 19)
   button.setTable("Fill All", fillAll, "", 27, 41, 19, 19)
   button.screen()
end
 
function addEss(num)
   fillAmt = fillAmt + num
   if fillAmt < 0 then fillAmt = 0 end
   if fillAmt > 64-essentia[currEssentia] then fillAmt = 64-essentia[currEssentia] end
   m.clear()
   fillTable2()
end
 
function fillEss()
   local essData = {}
   essData[1] = currEssentia
   essData[2] = fillAmt
   local sendData = ""
   sendData = textutils.serialize(essData)
   rednet.send(turtleID, sendData)
   m.clear()
   button.label(7, 10, "Waiting for aspects to finish cooking....")
   button.label(7, 12, "Don't forget to refresh the screen after")
   button.label(7, 13, "the golem is done moving the essentia.")
   rednet.receive()
   m.clear()
   fillTable()
   refresh()
end
 
function fillAll()
   button.flash("Fill All")
end
 
function cancel()
   m.clear()
   fillTable()
   refresh()
end  
 
function fillTable2()
   rowsActive = false
   button.clearTable()
   m.clear()
   button.label(7, 1, "Essentia: "..currEssentia.." contains "..essentia[currEssentia])
   button.setTable("+1", addEss, 1, 8, 18, 6,6)
   button.setTable("+5", addEss, 5, 20, 30, 6, 6)
   button.setTable("+10", addEss, 10, 32, 42, 6, 6)
   button.setTable("-1", addEss, -1, 8, 18, 8, 8)
   button.setTable("-5", addEss, -5, 20, 30, 8, 8)
   button.setTable("-10", addEss, -10, 32, 42, 8 ,8)
   button.setTable("Refill Jar", addEss, 64-essentia[currEssentia], 8, 42, 10, 10)
   button.setTable("Execute Fill Request", fillEss, "", 8, 42, 16, 18)
   button.setTable("Cancel", cancel, "", 20, 30, 12, 14)
   button.label(7, 4, "Currently Adding "..fillAmt.." "..currEssentia.." essentia.")
   button.screen()
end
 
fillTable()
refresh()
while true do getClick() end