Fabrimat TDS

--VARIABILI DA POPOLARE

apiVersion = "NaN"
progVersion = "v1.0"
defconLvl = "DEFCON 5"
isEndorOn = true
message = "Questo è un messaggio generico"

function updateVars()
    apiVersion = "NaN"
    progVersion = "v1.0"
    defconLvl = "DEFCON 5"
    isEndorOn = false
    message = "Questo è un messaggio generico"
end

maxw, maxh = term.getSize()
halfw = math.floor(maxw/2)
halfh = math.floor(maxh/2)

-- IMPLEMENTAZIONE DEL DRAWFILLEDBOX
local function drawPixelInternal(xPos, yPos)
    term.setCursorPos(xPos, yPos)
    term.write(" ")
end

local tColourLookup = {}
for n = 1, 16 do
    tColourLookup[string.byte("0123456789abcdef", n, n)] = 2 ^ (n - 1)
end

function drawFilledBox(startX, startY, endX, endY, nColour)
    if type(startX) ~= "number" or type(startX) ~= "number" or type(endX) ~=
        "number" or type(endY) ~= "number" or
        (nColour ~= nil and type(nColour) ~= "number") then
        error("Expected startX, startY, endX, endY, colour", 2)
    end

    startX = math.floor(startX)
    startY = math.floor(startY)
    endX = math.floor(endX)
    endY = math.floor(endY)

    if nColour then term.setBackgroundColor(nColour) end
    if startX == endX and startY == endY then
        drawPixelInternal(startX, startY)
        return
    end

    local minX = math.min(startX, endX)
    if minX == startX then
        minY = startY
        maxw = endX
        maxh = endY
    else
        minY = endY
        maxw = startX
        maxh = startY
    end

    for x = minX, maxw do for y = minY, maxh do drawPixelInternal(x, y) end end
end

function colore(sfumatura) term.setTextColour(sfumatura) end

function sfondo(sfumaturaSfondo) term.setBackgroundColour(sfumaturaSfondo) end

function fineColore() term.setTextColour(colours.white) end

function fineSfondo() term.setBackgroundColour(colours.black) end

function titolo(testo)
	maxw, maxh = term.getSize()
    drawFilledBox(1, 1, maxw, 1, colors.yellow)
    term.setCursorPos((maxw - #testo) / 2, 1)
    colore(colors.black)
    term.write(testo)
end

function clear()
    term.clear()
    term.setCursorPos(1,1)
end

function printCentered(text)
    local curx, cury = term.getCursorPos()
    local maxw, maxh = term.getSize()
    term.setCursorPos((maxw - #text) / 2, cury)
    term.write(text)
    term.setCursorPos(curx, cury + 1)
end


function drawMain()
    titolo("Tyrian Defense System")
    drawFilledBox(halfw - 9, halfh, halfw + 9, halfh + 2, colors.lime)
    term.setCursorPos(1, halfh+1)
    printCentered("Richiesta accesso")
    term.setBackgroundColor(colors.black)
    term.setTextColor(colors.white)

    term.setCursorPos(1, halfh/2)

    local defconLvls = {}
    defconLvls["DEFCON 1"] = colors.red
    defconLvls["DEFCON 2"] = colors.yellow
    defconLvls["DEFCON 3"] = colors.lime
    defconLvls["DEFCON 4"] = colors.cyan
    defconLvls["DEFCON 5"] = colors.purple
    colore(defconLvls[defconLvl])
    printCentered(defconLvl)

    term.setCursorPos(1, halfh/2 + 2)
    colore(colors.white)
    if isEndorOn == false then
        printCentered("ENDOR non attivo")
    else
        printCentered("ENDOR attivo")
    end

    maxw, maxh = term.getSize()
    local versionString = "(C) Proclus & Albannach 2021 - " .. progVersion .. " - API " .. apiVersion .. " "
    term.setCursorPos(1, maxh)
    printCentered(versionString)
end

function drawMessage()
    clear()
    titolo("Tyrian Defense System")
    term.setBackgroundColor(colors.black)
    term.setTextColor(colors.white)

    term.setCursorPos(1, halfh)

    printCentered(message)

    maxw, maxh = term.getSize()
    local versionString = "(C) Proclus & Albannach 2021 - " .. progVersion .. " - API " .. apiVersion .. " "
    term.setCursorPos(1, maxh)
    printCentered(versionString)
end


function func_484192a()
    drawMessage()
    os.pullEvent()
end

clear()

while true do
    updateVars()
    drawMain()
    event, button, x, y = os.pullEvent("mouse_click")
    term.setCursorPos(1, 17)
    if x >= (halfw - 9) and x <= (halfw + 9) and y <= (halfh + 2) and y >= (halfh) then
        func_484192a()
        break
    end
end