Tekkit G1 Commands

-- Tekkit G1 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")

--G1 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 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 G1 Rank:", doNothing, 1, 9, 60, 9, colors.black, colors.black, colors.lightBlue, colors.lightBlue)
   page1:add("....................", doNothing, 1, 10, 60, 10, colors.black, colors.black, colors.lightBlue, colors.lightBlue)
   page1:add("Access to the Following Commands:", doNothing, 4, 11, 30, 11, colors.black, colors.black, colors.lightBlue, colors.lightBlue)
   page1:add("/feed --Satisfies Your Hunger!", doNothing, 4, 12, 30, 12, colors.black, colors.black, colors.lightBlue, colors.lightBlue)
   page1:add("/mail --Send Mail", doNothing, 4, 13, 30, 13, colors.black, colors.black, colors.lightBlue, colors.lightBlue)
   page1:add("/realname --Displays IGN Behind the Nickname", doNothing, 4, 14, 30, 14, colors.black, colors.black, colors.lightBlue, colors.lightBlue)
   page1:add("/seen --Shows Last Time Player was Seen", doNothing, 4, 15, 30, 15, colors.black, colors.black, colors.lightBlue, colors.lightBlue)
   page1:add("/back --Teleports You to Previous Location (OnDeath)", doNothing, 4, 16, 30, 16, colors.black, colors.black, colors.black)
   page1:add("Back", rcBack, 4, 19, 10, 20, colors.black, colors.lime, colors.lightBlue, colors.black)
   page1:add("Main", rcMain, 14, 19, 20, 20, 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