BTMLobby

local textToASCII = require("textToASCII")
local component = require("component")
local gpu = component.getPrimary("gpu")
local term = require("term")
local rgbHex = require("rgbHex")

--Vars
local changeTime = 500 --How fast the screen changes
local labelWidth = 30 --Width of Lables
local panelWidth = 80 --Width of Panel Labels
local panelistWidth = 20 --Width of Panelist Labels
local tableTitleY = 10 --Y Coordinate of Table Title
local tableTitleHeight = 4 --Height of Table Title
local screenX=130 --Screen Size (Don't Change X, can lower Y to aprox 37)
local screenY=40  --Max: 160x50, 16:9 = 160x45, Default (2:1) = 130x40
local label3X = screenX/2-labelWidth/2
local panelX = screenX/2 -(panelWidth+panelistWidth)/2
local panelistX = panelX+panelWidth

gpu.setResolution(screenX,screenY)
term.clear()

local objectsLobby = {}
local objectsLobby2 = {}
local objectsPanel = {}
function newLabel(ID,label,x,y,width,height,color,page)
    local table = {}
    table["label"] = label
    table["x"] = x
    table["y"] = y
    table["width"] = width
    table["height"] = height
    table["color"] = color
    if page == 1 then
        objectsLobby[ID] = table
    elseif page == 2 then
        objectsLobby2[ID] = table
    else
        objectsPanel[ID] = table
    end
end

function draw(ID,page)
    if page == 1 then
        data = objectsLobby[ID]
    elseif page == 2 then
        data = objectsLobby2[ID]
    else
        data = objectsPanel[ID]
    end
    local objtype = data["type"]
    local label = data["label"]
    local x = data["x"]
    local y = data["y"]
    local width = data["width"]
    local height = data["height"]

    gpu.setBackground(data["color"],false)
    gpu.fill(x,y,width,height," ")
    gpu.set((x+width/2)-string.len(label)/2,y+height/2,label)
    gpu.setBackground(0x000000,false)
end

function drawAll(page)
    gpu.setForeground(0x000000)
    gpu.fill(label3X-2.5*(labelWidth+4),tableTitleY,labelWidth,screenY-tableTitleY," ")
    if page == 1 then
        for ID,data in pairs(objectsLobby) do
            draw(ID,page)
        end
    elseif page ==2 then
        for ID,data in pairs(objectsLobby2) do
            draw(ID,page)
        end
    else
        for ID,data in pairs(objectsPanel) do
            draw(ID,page)
        end
    end
end
--[[
local tapeDrive = {}
local i = 1
for address, type in pairs(component.list("tape")) do
  tapeDrive[i] = address
  i = i+1
end
--]]
local w,h = gpu.getResolution()
--[[
component.invoke(tapeDrive[1],"play")
component.invoke(tapeDrive[1],"setSpeed",0.75)
component.invoke(tapeDrive[2],"setSpeed",0.75)
--]]

local rgb = {255,0,0}
local hex = rgbHex.convert(rgb)

gpu.setPaletteColor(1,tonumber(hex))
gpu.setForeground(1,true)
local btmTitle = textToASCII.convert("Welcome to BTM 2016 2.0","big",true,true)
local titleLength = #btmTitle[1]
for i, line in ipairs(btmTitle) do
  term.setCursor(w/2-titleLength/2,i)
  term.write(line)
end

local col = 2
local increment = true
function incrementRgb(index)
    if increment then
        rgb[index] = rgb[index]+1
        if rgb[index]>=255 then
            if col == 1 then
                col = 3
            else
                col = col -1
            end
            increment = false
        end
    else
        rgb[index] = rgb[index]-1
        if rgb[index]<=0 then
            if col == 1 then
                col = 3
            else
                col = col -1
            end
            increment = true
        end
    end
end

--Format: name, size, continues onto next line
local stalls = {
    [0]={
        {"DJ Flamin' GO",1},
        {"Correlated Foodalistics",1}
    },
    [1]={
        {"IndustrialCraft",1,true},
        {"2",1},
        {"Harvest Festival",1},
        {"ArmorPlus / WeaponsPlus",1},
        {"OpenRadio",1},
        {"Correlated Potentialistics",1},
        {"Rarmor",1},
        {"Actually Additions",1},
        {"Dark Utils",1},
        {"Additional Banners",1},
        {"Quaritum",1},
        {"Engination Enginogrammetry",1},
        {"Taam",2},
        {"RandomThings",1},
        {"AbbysalCraft",1}
    },
    [2]={
        {"Ender Utilities",1},
        {"Forestry",1},
        {"Unclaimed",1},
        {"Integrated Dynamics",1},
        {"Chisel",2},
        {"P&P",2},
        {"Fancy Fluid",1,true},
        {"Storage",1},
        {"",1,true},
        {"Open",1,true},
        {"Computers",1,true},
        {"",1},
        {"TechReborn",1},
        {"Autoverse",1}
    },
    [3]={
        {"Unclaimed",1},
        {"Holographic Victory Monuement",1},
        {"Extra Food",1},
        {"Starvation Ahoy",1},
        {"Automated Redstone",1},
        {"Inductive Automation",1},
        {"Unclaimed",1},
        {"ljfa's Mod",1},
        {"Blay09 and Zero_'s Mods",1},
        {"Unclaimed",3},
        {"DeepResonance",1},
        {"RFTools",1},
        {"ChickenBones' Mods",1},
        {"Draconic Evolution",1}
    },
    [4]={
        {"Unclaimed",16}
    },
    [5]={
        {"Unclaimed",2},
        {"",true},
        {"Glitchfiend's",1,true},
        {"Mods",1,true},
        {"",1},
        {"Unclaimed",1},
        {"Our Lord and Savior Flamingo",1},
        {"Pink Black Hole",1},
        {"Unclaimed",3},
        {"Better With Mods",1},
        {"Unclaimed",1},
        {"FTB Wiki",1},
        {"Unclaimed",1}
    },
    [6]={
        {"Unclaimed",4},
        {"Ender IO",1},
        {"Unclaimed",9},
        {"The_Fireplace's",1,true},
        {"Mods",1}
    }
}

--Format: name, panelist
local panels = {
    {"IC2 Mystery Panel","Aroma1997"},
    {"MCubed - a project to build a Curse alternative", "Gaelan"},
    {"OpenGL for Minecraft Modders", "GreaseMonkey"},
    {"OpenOS 1.6 - What's New?", "payonel"},
    {"TIS-OC", "Sangar"},
    {"Translation in a Nutshell - The Chinese modded Minecraft community","3TUSK and exzhawk"},
    {"Will it run on Minecraft? - MIPS for OpenComputers","GreaseMonkey"},
    {"Beyond Cellular Automation - Designing better machines for multiplayer","Falkreon"},
    {"Please Stop Playing Minecraft - How to make better maps and mods","Moesh"}
}

function level()
    --Level 0
    newLabel("Level0Title","Level 0",label3X,tableTitleY+22,labelWidth,tableTitleHeight,0xff9933,1)
    local pos = tableTitleHeight+tableTitleY+22
    for i=1,#stalls[0] do
        if i%2==0 then
            newLabel("L0-Stall"..i,stalls[0][i][1],label3X,pos,labelWidth,stalls[0][i][2],0xffbf80,1)
        else
            newLabel("L0-Stall"..i,stalls[0][i][1],label3X,pos,labelWidth,stalls[0][i][2],0xffd9b3,1)
        end
        pos = pos+ stalls[0][i][2]
    end

    --Levels 1-3
    for l=1,3 do
        newLabel("Level"..l.."Title","Level "..l,label3X+(l-2)*(labelWidth+4),tableTitleY,labelWidth,tableTitleHeight,0xff9933,1)
        local pos = tableTitleHeight+tableTitleY
        local rev = false
        for i=1,#stalls[l] do
            if (i%2==0)~=rev then
                newLabel("L"..l.."-Stall"..i,stalls[l][i][1],label3X+(l-2)*(labelWidth+4),pos,labelWidth,stalls[l][i][2],0xffbf80,1)
            else
                newLabel("L"..l.."-Stall"..i,stalls[l][i][1],label3X+(l-2)*(labelWidth+4),pos,labelWidth,stalls[l][i][2],0xffd9b3,1)
            end
            if stalls[l][i][3] then
                rev = not rev
            end
            pos = pos+ stalls[l][i][2]
        end
    end
end

function level2()
    --Levels 4-6
    for l=4,6 do
        newLabel("Level"..l.."Title","Level "..l,label3X+(l-5)*(labelWidth+4),tableTitleY,labelWidth,tableTitleHeight,0xff9933,2)
        local pos = tableTitleHeight+tableTitleY
        local rev = false
        for i=1,#stalls[l] do
            if (i%2==0)~=rev then
                newLabel("L"..l.."-Stall"..i,stalls[l][i][1],label3X+(l-5)*(labelWidth+4),pos,labelWidth,stalls[l][i][2],0xffbf80,2)
            else
                newLabel("L"..l.."-Stall"..i,stalls[l][i][1],label3X+(l-5)*(labelWidth+4),pos,labelWidth,stalls[l][i][2],0xffd9b3,2)
            end
            if stalls[l][i][3] then
                rev = not rev
            end
            pos = pos+ stalls[l][i][2]
        end
    end
end

function showPanels()
    newLabel("PanelTitle","Panel",panelX,tableTitleY,panelWidth,tableTitleHeight,0xff9933,3)
    newLabel("PanelistTitle","Panelist",panelistX,tableTitleY,panelistWidth,tableTitleHeight,0xff9933,3)
    local pos = tableTitleHeight+tableTitleY
    for i=1,#panels do
        if i%2==0 then
            newLabel("Panel"..i,panels[i][1],panelX,pos,panelWidth,2,0xffbf80,3)
            newLabel("Panelist"..i,panels[i][2],panelistX,pos,panelistWidth,2,0xffbf80,3)
        else
            newLabel("Panel"..i,panels[i][1],panelX,pos,panelWidth,2,0xffd9b3,3)
            newLabel("Panelist"..i,panels[i][2],panelistX,pos,panelistWidth,2,0xffd9b3,3)
        end
        pos = pos+2
    end
end

level()
level2()
showPanels()
drawAll(1)
local timer = 0
local page = 1

local drive = 1
--Main Loop
while true do
  --[==[Tape Drive Script
    if component.invoke(tapeDrive[drive],"isEnd") then
        component.invoke(tapeDrive[drive],"seek",-component.invoke(tapeDrive[drive],"getSize"))
        if drive == 1 then
            drive = 2
        else
            drive = 1
        end
        component.invoke(tapeDrive[drive],"play")
    end
    --]==]
    if timer == changeTime then
        gpu.setForeground(0x000000)
        gpu.fill(1,tableTitleY,screenX,screenY-tableTitleY," ")
        if page == 3 then
            page = 1
        else
            page = page + 1
        end
        drawAll(page)
        timer = 0
    else
        timer = timer + 1
    end

    incrementRgb(col)
    hex = rgbHex.convert(rgb)
    gpu.setPaletteColor(1,tonumber(hex))
end