G2 Rank

-- Tekkit G2 Rank 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")

--G2 Rank

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

--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

function rcCommands()
   page1:flash("Commands")
   sleep(1)
   shell.run("g2commands")
end

function rcBack()
    page1:flash("Back")
	sleep(1)
	shell.run("ranks")
end

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

--Set Up Pages
do
   page1:add("--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--", doNothing, 1, 1, 60, 1, colors.black, colors.black, colors.lightBlue, colors.lightBlue)
   page1:add("  _______  ______  _  __ _  __ _____  _______   ", doNothing, 1, 2, 60, 2, colors.black, colors.black, colors.lightBlue, colors.lightBlue)
   page1:add(" |__   __||  ____|| |/ /| |/ /|_   _||__   __|  ", doNothing, 1, 3, 60, 3, colors.black, colors.black, colors.lightBlue, colors.lightBlue)
   page1:add("    | |   | |__   | ' / | ' /   | |     | |     ", doNothing, 1, 4, 60, 4, colors.black, colors.black, colors.lightBlue, colors.lightBlue)
   page1:add("    | |   |  __|  |  <  |  <    | |     | |     ", doNothing, 1, 5, 60, 5, colors.black, colors.black, colors.lightBlue, colors.lightBlue)
   page1:add("    | |   | |____ | . \\ | . \\  _| |_    | |     ", doNothing, 1, 6, 60, 6, colors.black, colors.black, colors.lightBlue, colors.lightBlue)
   page1:add("    |_|   |______||_|\\_\\|_|\\_\\|_____|   |_|     ", doNothing, 1, 7, 60, 7, colors.black, colors.black, colors.lightBlue, colors.lightBlue)
   page1:add("--''--''--''--''--''--''--''--''--''--''--''--''--''--''--''--''--", doNothing, 1, 8, 60, 8, colors.black, colors.black, colors.lightBlue, colors.lightBlue)
   page1:add("RC-Tekkit", doNothing, 1, 9, 60, 9, colors.black, colors.black, colors.magenta, colors.magenta)
   page1:add("....................", doNothing, 1, 10, 60, 10, colors.black, colors.black, colors.lightBlue, colors.lightBlue)
   page1:add("Rank", doNothing, 1, 11, 60, 11, colors.black, colors.black, colors.white, colors.white)
   page1:add("G2", doNothing, 1, 12, 60, 12, colors.black, colors.black, colors.green, colors.green)
   page1:add("For a Donation of $10 USD, we gift you:", doNothing, 1, 13, 40, 13, colors.black, colors.black, colors.lightBlue, colors.lightBlue)
   page1:add("Ability to Set up to 20 Homes --/sethome [name]", doNothing, 4, 15, 20, 15, colors.black, colors.black, colors.lightBlue, colors.lightBlue)
   page1:add("Access to /kit g1 & /kit newb", doNothing, 4, 16, 34, 16, colors.black, colors.black, colors.lightBlue, colors.lightBlue)
   page1:add("Click Commands to See List of Available Commands", 4, 18, 53, 18, colors.black, colors.black, colors.lightBlue, colors.lightBlue)
   page1:add("Commands", rcCommands, 4, 22, 13, 23, colors.black, colors.lime, colors.lightBlue, colors.black)
   page1:add("Back", rcBack, 17, 22, 23, 23, colors.black, colors.lime, colors.lightBlue, colors.black)
   page1:add("Main", rcMain, 27, 22, 33, 23, colors.black, colors.lime, colors.lightBlue, 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