House 1

os.loadAPI("touchpoint","monitor1","monitor2")

--Monitor Number
sSide = ("monitor_")

--Resets Outputs
rs.setBundledOutput("bottom", 0)
rs.setBundledOutput("bottom", colors.combine(rs.getBundledOutput("bottom"), colors.magenta)) --Lights ON!!

--Set Up Pages
local page1 = touchpoint.new(sSide)
local page2 = touchpoint.new(sSide)
local page3 = touchpoint.new(sSide)
local page4 = touchpoint.new(sSide)

--Functions
--Ignores Input
function doNothing()
   sleep(0.5)
end

--Lights On
function ltOn()
   page2:flash("On")
   rs.setBundledOutput("bottom", colors.combine(rs.getBundledOutput("bottom"), colors.magenta))
end

--Lights Off
function ltOff()
   page2:flash("Off")
   rs.setBundledOutput("bottom", colors.subtract(rs.getBundledOutput("bottom"), colors.magenta))
end

--Power On
function pwOn()
   page3:flash("On")
   rs.setBundledOutput("bottom", colors.combine(rs.getBundledOutput("bottom"), colors.orange))
end

function pwOff()
   page3:flash("Off")
   rs.setBundledOutput("bottom", colors.subtract(rs.getBundledOutput("bottom"), colors.orange))
end

--Door Open
function drOpen()
   page4:flash("Open")
   rs.setBundledOutput("bottom", colors.combine(rs.getBundledOutput("bottom"), colors.white))
end

--Door Close
function drClose()
   page4:flash("Close")
   rs.setBundledOutput("bottom", colors.subtract(rs.getBundledOutput("bottom"), colors.white))
end

--Door Timed
function drTime()
   page4:toggle("Timed")
   rs.setBundledOutput("bottom", colors.combine(rs.getBundledOutput("bottom"), colors.white))
   sleep(5)
   page4:toggle("Timed")
   rs.setBundledOutput("bottom", colors.combine(rs.getBundledOutput("bottom"), colors.white))
end

--Menus
function mainTable()
   t = page1
end

function lightTable()
   t = page2
end

function powerTable()
   t = page3
end

function doorTable()
   t = page4
end

--Layout Buttons
do
   page1:add("Home Menu", doNothing, 1, 1, 36, 3, colors.purple, colors.purple, colors.white, colors.white)
   page1:add("Lights Menu", lightTable, 1, 5, 36, 6, colors.purple, colors.lime, colors.orange, colors.black)
   page1:add("Power Menu", powerTable, 1, 8, 36, 9, colors.purple, colors.lime, colors.red, colors.black)
   page1:add("Door Menu", doorTable, 1, 11, 36, 12, colors.purple, colors.lime, colors.cyan, colors.black)

   page2:add("Lights Menu", doNothing, 1, 1, 36, 3, colors.orange, colors.orange, colors.black, colors.black)
   page2:add("On", ltOn, 4, 6, 10, 7, colors.orange, colors.lime, colors.black, colors.black)
   page2:add("Off", ltOff, 14, 6, 20, 7, colors.orange, colors.lime, colors.black, colors.black)
   page2:add("Back", mainTable, 24, 6, 30, 7, colors.orange, colors.lime, colors.black, colors.black)

   page3:add("Power Menu", doNothing, 1, 1, 36, 3, colors.red, colors.lime, colors.black, colors.black)
   page3:add("On", pwOn, 1, 5, 36, 6, colors.red, colors.lime, colors.black, colors.black)
   page3:add("Off", pwOff, 1, 8, 36, 9, colors.red, colors.lime, colors.black, colors.black)
   page3:add("Back", mainTable, 1, 11, 36, 12, colors.red, colors.lime, colors.black, colors.black)

   page4:add("Door Menu", doNothing, 1, 1, 36, 3, colors.cyan, colors.cyan, colors.black, colors.black)
   page4:add("Open", drOpen, 1, 5, 36, 6, colors.cyan, colors.lime, colors.black, colors.black)
   page4:add("Close", drClose, 1, 7, 36, 9, colors.cyan, colors.lime, colors.black, colors.black)
   page4:add("Timed", drTime, 1, 11, 36, 12, colors.cyan, colors.lime, colors.black, colors.black)
   page4:add("Back", mainTable, 1, 14, 36, 15, colors.cyan, colors.lime, colors.black, colors.black)

end

--Begin Program
mainTable()

while true do
   t:draw()
   local event, p1 = t:handleEvents(os.pullEvent())
   if event == "button_click" then
      t.buttonList[p1].func()
   else
      sleep(10)
	  mainTable()
   end
end