rcver3

os.loadAPI("bundleAPI") -- api by andrakon of badash games
local mon = peripheral.wrap("top") -- enables the monitor
mon.setTextScale(.5)
mon.setTextColor(colors.white)
local button = {}
mon.setBackgroundColor(colors.black)

function setTable(name, func, xmin, xmax, ymin, ymax)
  button[name] = {}
  button[name]["func"] = func
  button[name]["active"] = false
  button[name]["xmin"] = xmin
  button[name]["xmax"] = xmax
  button[name]["ymin"] = ymin
  button[name]["ymax"] = ymax
 end

function breeder()
       bundleAPI.on("bottom", "red")
   end

function reactor()
       bundleAPI.on("bottom", "orange")
   end

function stop()
    rs.setBundledOutput("bottom", 0)
 end

function fillTable()
  setTable("Reactors", reactor, 5, 20, 4, 8)
  setTable("Breeder", breeder, 5, 20, 10, 14)
  setTable("ALL STOP", stop, 5, 20, 16, 20)
end

function fill(text, color, bData)
  mon.setBackgroundColor(color)
  local yspot = math.floor((bData["ymin"] + bData["ymax"]) /2)
  local xspot = math.floor((bData["xmax"] - bData["xmin"] - string.len(text)) /2) +1
  for j = bData["ymin"], bData["ymax"] do
    mon.setCursorPos(bData["xmin"], j)
      if j == yspot then
        for k = 0, bData["xmax"] - bData["xmin"] - string.len(text) +1 do
         if k == xspot then
           mon.write(text)
         else
          mon.write(" ")
         end
        end
       else
        for i = bData["xmin"], bData["xmax"] do
         mon.write(" ")
        end
       end
      end
      mon.setBackgroundColor(colors.black)
  end

function screen()
 local currColor
  for name,data in pairs(button) do
   local on = data["active"]
   if on == true then currColor = colors.lime
   else currColor = colors.red
   end
  fill(name, currColor, data)
 end
end

function checkxy(x, y)
   for name, data in pairs(button) do
    if y >= data["ymin"] and y <= data["ymax"] then
      if x >= data["xmin"] and x <= data["xmax"] then
       data["func"]()
       data["active"] = not data["active"]
       print(name)
      end
     end
    end
   end

function heading(text)
   w, h = mon.getSize()
   mon.setCursorPos((w - string.len(text))/2+1, 1)
   mon.write(text)
end

fillTable()

while true do
   mon.clear()
   heading("Reactor Controller")
   screen()
   local e, side, x, y = os.pullEvent("monitor_touch")
   checkxy(x,y)
   sleep(0.1)
  end