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 bColor()
 local bColor
 local on = data["active"]
 if on == true then bColor = colors.lime
 else bColor = colors.red
end

function breeder()
   if bColor() = colors.lime then
     bundleAPI.on("bottom", "red")
   else
     bundleAPI.off("bottom", "red")
  end
end

function reactor()
   if bColor() = colors.lime then
      bundleAPI.on("bottom", "orange")
   else
      bundleAPI.off("bottom", "orange")
  end
 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 cuuColor = 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 heding(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