RC Restricted

-- Tekkit Program 0-0-1
-- 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/6anDmXCC

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

--establish "pages" of buttons
local page1 = touchpoint.new("monitor_")
local page2 = touchpoint.new("monitor_")

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

--Button Functions

function doNothing()
    sleep(1)
end

function rcMain()
    page1:flash("Main")
    sleep(1)
	shell.run("main")
end

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

function secTable()
    t = page2
end

--Set Up Pages
do
   page1:add("RC-Tekkit", doNothing, 1, 1, 60, 1, colors.black, colors.black, colors.lightBlue, colors.lightBlue)
   page1:add("Restricted Items:", doNothing, 1, 3, 19, 3, colors.black, colors.black, colors.orange, colors.orange)
   page1:add("- ComputerCraft - Rank G1", doNothing, 1, 5, 27, 5, colors.black, colors.black, colors.orange, colors.orange)
   page1:add("- Minium Stone - Rank G4", doNothing, 1, 6, 26, 6, colors.black, colors.black, colors.orange, colors.orange)
   page1:add("- Auto Spawner - Rank G4", doNothing, 1, 7, 26, 7, colors.black, colors.black, colors.orange, colors.orange)
   page1:add("- PortaSpawner - Rank G4", doNothing, 1, 8, 26, 8, colors.black, colors.black, colors.orange, colors.orange)
   page1:add("- Mining Upgrade - Rank G3", doNothing, 1, 9, 28, 9, colors.black, colors.black, colors.orange, colors.orange)
   page1:add("- ME Transition Plane - Rank G4", doNothing, 1, 10, 33, 10, colors.black, colors.black, colors.orange, colors.orange)
   page1:add("- ME Fluid Transition - Rank G4", doNothing, 1, 11, 33, 11, colors.black, colors.black, colors.orange, colors.orange)
   page1:add("- Autonomous Activator - Rank G3", doNothing, 1, 12, 34, 12, colors.black, colors.black, colors.orange, colors.orange)
   page1:add("- Item & Liquid Router - Rank G4", doNothing, 1, 13, 34, 13, colors.black, colors.black, colors.orange, colors.orange)
   page1:add("- redNet Cable - Rank G2", doNothing, 1, 14, 26, 14, colors.black, colors.black, colors.orange, colors.orange)
   page1:add("- redNet Energy Cable - Rank G4", doNothing, 1, 15, 33, 15, colors.black, colors.black, colors.orange, colors.orange)
   page1:add("- FloodLight/Carbide - Rank G4", doNothing, 4, 16, 32, 16, colors.black, colors.black, colors.orange, colors.orange)
   page1:add("- Modular Force Fields - See Extras", doNothing, 4, 17, 37, 17, colors.black, colors.black, colors.orange, colors.orange)
   page1:add("Banned", secTable, 4, 22, 11, 23, colors.black, colors.lime, colors.red, colors.black)
   page1:add("Main", rcMain, 15, 22, 20, 23, colors.black, colors.lime, colors.white, colors.black)

   page2:add("RC-Tekkit", doNothing, 1, 1, 60, 1, colors.black, colors.black, colors.lightBlue, colors.lightBlue)
   page2:add("Banned Items Due to Exploits:", doNothing, 1, 3, 31, 3, colors.black, colors.black, colors.red, colors.red)
   page2:add("-- Sacred Sapling --", doNothing, 1, 5, 22, 5, colors.black, colors.black, colors.red, colors.red)
   page2:add("-- Matter Cannon / Cannon --", doNothing, 1, 6, 30, 6, colors.black, colors.black, colors.red, colors.red)
   page2:add("-- Florbs --", doNothing, 1, 7, 14, 7, colors.black, colors.black, colors.red, colors.red)
   page2:add("-- Terrain Smasher --", doNothing, 1, 8, 23, 8, colors.black, colors.black, colors.red, colors.red)
   page2:add("-- Block Placer --", doNothing, 1, 9, 20, 9, colors.black, colors.black, colors.red, colors.red)
   page2:add("-- SPAMR Launcher --", doNothing, 1, 10, 22, 10, colors.black, colors.black, colors.red, colors.red)
   page2:add("-- Drills --", doNothing, 1, 11, 14, 11, colors.black, colors.black, colors.red, colors.red)
   page2:add("-- Uranium --", doNothing, 1, 12, 15, 12, colors.black, colors.black, colors.red, colors.red)
   page2:add("-- Boomerang --", doNothing, 1, 13, 17, 13, colors.black, colors.black, colors.red, colors.red)
   page2:add("-- Needlegun --", doNothing, 1, 14, 17, 14, colors.black, colors.black, colors.red, colors.red)
   page2:add("-- Writing Desk & Ink Mixer --", doNothing, 1, 15, 32, 15, colors.black, colors.black, colors.red, colors.red)
   page2:add("Restricted", mainTable, 4, 22, 16, 23, colors.black, colors.lime, colors.orange, colors.black)
   page2:add("Main", rcMain, 20, 22, 30, 23, colors.black, colors.lime, colors.white, colors.black)
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