RC-Home Button

-- Custom Button Program 0-2-0
-- Works with: Advanced Computer & Monitor
-- Environment Tested: Minecraft 1.6.4 Computer Craft version 1.5
-- Modified By RC-Scorpionfien, Created By Lyqyd
-- Requires TouchPoint API to work, download at pastebin.com/pFHeia96
-- Download this file >> http://www.pastebin.com/MSnd0uj1

--Loads the API, straightforward
os.loadAPI("touchpoint")

--Resets Outputs
rs.setBundledOutput("bottom", 0)

--establish two "pages" of buttons
local page1 = touchpoint.new("left")
local page2 = touchpoint.new("left")
local page3 = touchpoint.new("left")
local page4 = touchpoint.new("left")
local page5 = touchpoint.new("left")
local page6 = touchpoint.new("left")
local page7 = touchpoint.new("left")

--one variable to put each page into in order to simplify switching
local t

--Two redstone testing functions
--add toggling where it makes sense

function rsdoorOpen()
    page2:flash("Open")
    rs.setBundledOutput("bottom", colors.combine(rs.getBundledOutput("bottom"), colors.white))
end

function rsdoorClosed()
    page2:flash("Close")
    rs.setBundledOutput("bottom", colors.subtract(rs.getBundledOutput("bottom"), colors.white))
end

function rsdoorTimed()
    page2:flash("Timed")
    rs.setBundledOutput("bottom", colors.combine(rs.getBundledOutput("bottom"), colors.white))
    sleep(5)
    page2:flash("Timed")
    rs.setBundledOutput("bottom", colors.subtract(rs.getBundledOutput("bottom"), colors.white))
end

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

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

function rsMaster()
    page3:flash("Master Off")
    rs.setBundledOutput("bottom", 0)
end

function rslightOn()
    page4:flash("On")
    rs.setBundledOutput("bottom", colors.combine(rs.getBundledOutput("bottom"), colors.magenta))
end

function rslightOff()
    page4:flash("Off")
    rs.setBundledOutput("bottom", colors.subtract(rs.getBundledOutput("bottom"), colors.magenta))
end

function rsmredOn()
    page5:flash("On")
    rs.setBundledOutput("bottom", colors.combine(rs.getBundledOutput("bottom"), colors.lightBlue))
end

function rsmredOff()
    page5:flash("Off")
    rs.setBundledOutput("bottom", colors.subtract(rs.getBundledOutput("bottom"), colors.lightBlue))
end

function rslavaOn()
    page6:flash("On")
    rs.setBundledOutput("bottom", colors.combine(rs.getBundledOutput("bottom"), colors.yellow))
end

function rslavaOff()
    page6:flash("Off")
    rs.setBundledOutput("bottom", colors.subtract(rs.getBundledOutput("bottom"), colors.yellow))
end

function rsendOn()
    page7:flash("On")
    rs.setBundledOutput("bottom", colors.combine(rs.getBundledOutput("bottom"), colors.lime))
end

function rsendOff()
    page7:flash("Off")
    rs.setBundledOutput("bottom", colors.subtract(rs.getBundledOutput("bottom"), colors.lime))
end

function doNothing()
    sleep(1)
end

---Main Menu
function mainTable()
    t = page1
end

--Door Menu
function doorMenu()
    t = page2
end

--Power Menu
function powerMenu()
    t = page3
end

--Lights Menu
function lightMenu()
    t = page4
end

--Molter Redstone Menu
function mredMenu()
    t = page5
end

--Lava Menu
function lavaMenu()
    t = page6
end

--Molten Ender Menu
function mendMenu()
    t = page7
end

--set up two pages
do
    page1:add("Main Menu", doNothing, 4, 1, 36, 2, colors.purple, colors.purple)
    page1:add("Door", doorMenu, 4, 5, 12, 9, colors.purple, colors.lime)
    page1:add("Power", powerMenu, 16, 5, 24, 9, colors.purple, colors.lime)
    page1:add("Lights", lightMenu, 28, 5, 36, 9, colors.purple, colors.lime)
    page1:add("MoltRed", mredMenu, 4, 13, 12, 17, colors.purple, colors.lime)
    page1:add("Lava", lavaMenu, 16, 13, 24, 17, colors.purple, colors.lime)
    page1:add("MoltEnd", mendMenu, 28, 13, 36, 17, colors.purple, colors.lime)

    page2:add("Door Menu", doNothing, 4, 1, 36, 2, colors.magenta, colors.magenta)
    page2:add("Open", rsdoorOpen, 4, 5, 12, 9, colors.magenta, colors.lime)
    page2:add("Close", rsdoorClosed, 16, 5, 24, 9, colors.magenta, colors.lime)
    page2:add("Timed", rsdoorTimed, 28, 5, 36, 9, colors.magenta, colors.lime)
    page2:add("Back", mainTable, 28, 13, 36, 17, colors.magenta, colors.lime)

    page3:add("Power Menu", doNothing, 4, 1, 36, 2, colors.pink, colors.pink)
    page3:add("On", rspowerOn, 4, 5, 12, 9, colors.pink, colors.lime)
    page3:add("Off", rspowerOff, 16, 5, 24, 9, colors.pink, colors.lime)
    page3:add("Master Off", rsMaster, 28, 5, 36, 9, colors.pink, colors.lime)
    page3:add("Back", mainTable, 28, 13, 36, 17, colors.pink, colors.lime)

    page4:add("Lights Menu", doNothing, 4, 1, 36, 2, colors.cyan, colors, cyan)
    page4:add("On", rslightOn, 4, 5, 12, 9, colors.cyan, colors.lime)
    page4:add("Off", rslightOff, 16, 5, 24, 9, colors.cyan, colors.lime)
    page4:add("Back", mainTable, 28, 5, 36, 9, colors.cyan, colors.lime)

    page5:add("Molten Redstone Menu", doNothing, 4, 1, 36, 2, colors.red, colors,red)
    page5:add("On", rsmredOn, 4, 5, 12, 9, colors.red, colors.lime)
    page5:add("Off", rsmredOff, 16, 5, 24, 9, colors.red, colors.lime)
    page5:add("Back", mainTable, 28, 5, 36, 9, colors.red, colors.lime)

    page6:add("Lava Menu", doNothing, 4, 1, 36, 2, colors.orange, colors.orange)
    page6:add("On", rslavaOn, 4, 5, 12, 9, colors.orange, colors.lime)
    page6:add("Off", rslavaOff, 16, 5, 24, 9, colors.orange, colors.lime)
    page6:add("Back", mainTable, 28, 5, 36, 9, colors.orange, colors.lime)

    page7:add("Molten Ender Menu", doNothing, 4, 1, 36, 2, colors.lightBlue, colors.lightBlue)
    page7:add("On", rsendOn, 4, 5, 12, 9, colors.lightBlue, colors.lime)
    page7:add("Off", rsendOff, 16, 5, 24, 9, colors.lightBlue, colors.lime)
    page7:add("Back", mainTable, 28, 5, 36, 9, colors.lightBlue, colors.lime)
end

--Starts with the main Table, then checks for buttons clicked, toggles them, and runs the program it has with my modified t:run2()
mainTable()
while true do
    t:draw()
    -- local event, p1, p2, p3 = os.pullEvent() ---monitor_touch, side, xpos, ypos
    local event, p1 = t:handleEvents(os.pullEvent())   ---button_click, name
    if event == "button_click" then
        --remove toggling and simplify button running
        t.buttonList[p1].func()
    end
end