CGS Consegna

local maxw, maxh = term.getSize()

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

function clearRed()
    sfondo(colors.red)
    term.clear()
    term.setCursorPos(1, 1)
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


-- 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
        maxX = endX
        maxY = endY
    else
        minY = endY
        maxX = startX
        maxY = startY
    end

    for x = minX, maxX do for y = minY, maxY do drawPixelInternal(x, y) end end
end


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

function errore(errore)
    sfondo(colors.red)
    colore(colors.white)
    term.clear()
    term.setCursorPos(1, 1)
    titolo("Errore irreversibile")
    term.setCursorPos(1, 3)
    sfondo(colors.red)
    colore(colors.white)
    print(errore)
    print("\n\n\nAttendere qualche secondo...")
    os.sleep(5)
    os.reboot()
end

clear()
titolo("DEEPINATOR 3000")
print("\n\nCGS SpA - Consegna carichi")
print("")
print("Premere un tasto per iniziare l'operazione")
print("")
colore(colors.orange)
print("ATTENZIONE, AVVERTENZA MOLTO IMPORTANTE")
print("NON RIAVVIARE MAI IL COMPUTER DURANTE LA CONSEGNA")
print("In caso contrario, l'ordine verrà distrutto!")
os.pullEvent("key")

    sfondo(colours.blue)
    term.clear()
    term.setCursorPos(1, 1)
    titolo("Autenticati con Nebraska Pay")
    sfondo(colours.blue)
    colore(colors.white)
    print(
        "\n\nInserire i propri dati (non verrà effettuato alcun addebito). Premere Enter per confermare i dati inseriti. \nSe i dati sono errati, il programma chiederà di reinserirli nuovamente.")

    -- nomeutente
    term.setCursorPos(1, 9)
    term.write("Nome utente:")
    term.setCursorPos(15, 9)
    fineColore()
    utenteAccettato = false
    conteggioErrori = 0
    while utenteAccettato == false do
        utente = read()
        utente = string.gsub(utente, "%s", "")
        checkuser = http.get(
                        "http://172.16.20.220/luanet/servlets/nebraskapay.php?auth=no&richiesta=verifica&utente=" ..
                            utente).readAll()
        tabcheckuser = textutils.unserialize(checkuser)
        if tabcheckuser.stato == "OK" then
            term.setCursorPos(15, 9)
            colore(colours.lime)
            term.write(utente)
            fineColore()
            utenteAccettato = true
        else
            term.setCursorPos(15, 9)
            colore(colours.red)
            term.write("Utente errato!          ")
            sleep(2)
            term.setCursorPos(15, 9)
            fineColore()
            term.write("                       ")
            term.setCursorPos(15, 9)
            conteggioErrori = conteggioErrori + 1
            if conteggioErrori > 2 then
                term.setCursorPos(15, 9)
                colore(colours.red)
                errore("Troppi tentativi di immissione errati    ")
            end
        end
    end
    colore(colours.white)
    term.setCursorPos(1, 11)
    term.write("Password:")
    term.setCursorPos(15, 11)
    conteggioErrori = 0
    passAccettata = false
    while passAccettata == false do
        fineColore()
        password = read("#")
        colore(colours.black)
        checkuser = http.get(
                        "http://172.16.20.220/luanet/servlets/nebraskapay.php?auth=" ..
                            password .. "&richiesta=addebito&valore=0&utente=" ..
                            utente).readAll()
        risposta = textutils.unserialize(checkuser)
        if risposta.stato == "OK" then
            term.setCursorPos(15, 11)
            colore(colours.lime)
            term.write("##############               ")
            fineColore()
            passAccettata = true
        else
            term.setCursorPos(15, 11)
            colore(colours.red)
            term.write("Password errata!            ")
            conteggioErrori = conteggioErrori + 1
            sleep(2)
            term.setCursorPos(15, 11)
            term.write("                               ")
            term.setCursorPos(15, 11)
            if conteggioErrori > 2 then
                term.setCursorPos(15, 11)
                colore(colours.red)
                errore("Troppi tentativi di immissione errati")
            end
        end
    end

local ordersRaw = http.get("http://sunfire.a-centauri.com/cgs/check_pending_orders.php").readAll()
orders = textutils.unserialize(ordersRaw)

local foundOrder = false
sfondo(colors.black)
clear()
titolo("Verifica ordine in corso...")
print("\n")
for k, v in pairs(orders) do
    if v.user == utente then
        print("Trovato ordine: " .. v.id .. ":" .. v.meta .. " * " .. v.qty .. " - ID: " .. v.uuid)
        foundOrder = true
        print("Richiesto ordine: scaffale " .. v.bundled .. " - posizione " .. v.colore)
        for i=1,v.qty,1 do
            if v.bundled == "1" then
                rs.setBundledOutput("back", tonumber(v.colore))
            elseif v.bundled == "2" then
                rs.setBundledOutput("top", tonumber(v.colore))
            end
            sleep(0.5)
            rs.setBundledOutput("back", 0)
                print("Qtà: " .. i .. " / " .. v.qty)
            rs.setBundledOutput("top", 0)
            sleep(0.5)
        end
        print("Attendere l'erogazione ordine: " .. v.uuid)
        sleep(1)
        local fulfillOrder = http.get("http://sunfire.a-centauri.com/cgs/fulfill_order.php?uuid=" .. v.uuid).readAll()
        print("Ordine consegnato: " .. v.uuid)
    end
end
if foundOrder == false then
    errore("Nessun ordine trovato a nome di " ..utente)
end

sfondo(colors.black)
colore(colors.lime)
term.clear()
term.setCursorPos(1, 1)
titolo("Ordini consegnati")
term.setCursorPos(1, 3)
sfondo(colors.black)
colore(colors.lime)
print("\n\n\nAttendere qualche secondo per l'erogazione di tutti gli ordini...")
os.sleep(5)
os.reboot()