cc.lua

-- CFG Program Files
 
local maxw, maxh = term.getSize()
local printer = peripheral.wrap("back")

os.pullEvent = os.pullEventRaw 
 
-- IMPLEMENTAZIONE DEL DRAWFILLEDBOX
local function drawPixelInternal(xPos, yPos)
    term.setCursorPos(xPos, yPos)
    term.write(" ")
end
 
Gplayer = ""
 
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 colore(nome) term.setTextColor(nome) end
 
function sfondo(nome) term.setBackgroundColor(nome) end
 
function fineColore() term.setTextColour(colours.white) end
 
function fineSfondo() term.setBackgroundColour(colours.black) end
 
function titolo(testo)
    drawFilledBox(1, 1, maxw, 1, colors.gray)
    term.setCursorPos((maxw - #testo) / 2, 1)
    colore(colors.white)
    term.write(testo)
    term.setCursorPos(1, 2)
    sfondo(colors.white)
end
 
function clear()
    sfondo(colors.white)
    term.clear()
    term.setCursorPos(1, 1)
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)
    term.write(errore)
    print("\n\n\nAttendere qualche secondo...")
    os.sleep(6)
    os.reboot()
end

function print_Page(message)

    if printer.getPaperLevel() == 0 then -- If there is no paper in the printer
      errore("La carta nella stampante è finita!")
    end
    
    if printer.getInkLevel() == 0 then -- If there is no ink in the printer
      error("L'inchiostro nella stampante è finita!")
    end
    
    -- There is paper and ink in the printer, we can now print a page
    
    if printer.newPage() then
      printer.write("Ricevuta PNRF")
      
      printer.setCursorPos(1, 3)
      printer.write("* Frequenza: "..message)

      
      printer.setCursorPos(1, 8)
      printer.write("Grazie per usare PNRF")

      printer.setPageTitle("PNRF - Ricevuta")
      printer.endPage()
    else
      errore("Stampante inceppata!")
    end 
end
 
function make_payment(player, amount)
    clear()
    titolo("PNFR HUB | Pagamento")
    colore(colors.black)
    term.setCursorPos(1,3)
    print("Inserisce le credenziali nPay\nper comprare il pagamento\nPrezzo da pagare: "..amount.." IC")
 
    term.setCursorPos(1,7)
    term.write("Nome utente:")
    term.setCursorPos(1,9)
    term.write("Password:")
 
    term.setCursorPos(14,7)
    username = read()
 
    term.setCursorPos(11,9)
    password = read("*")
 
    a = http.get("https://pnrf.rgbcraft.com/api/do/payments?player="..player.."&username="..username.."&password="..password.."&amount="..amount)
    if a ~= nil and a ~= "" then
        b = a.readAll()
        c = textutils.unserialize(b)
        a.close()
 
        if c['status'] == "OK" then
            clear()
            titolo("PNFR HUB | Pagamento completato")
            sfondo(colors.white)
            colore(colors.black)
            testo = "Frequenza assegnata: "..c['frequency']
            term.setCursorPos((maxw - #testo) / 2, 11)
            term.write(testo)
            print("\n         Stiamo stampando la ricevuta..")
            os.sleep(1)
            print_Page(c['frequency'])
            os.sleep(8)
            os.reboot()
        else
            errore(c['detail'])
        end
    else
        errore("Server non raggiungibile")
    end
    
    os.sleep(5)
 
 
end
 
function new_frequency(player)
    a = http.get("https://pnrf.rgbcraft.com/api/check/newfrequency?player="..player)
    if a ~= nil and a ~= "" then
        b = a.readAll()
        c = textutils.unserialize(b)
        a.close()
 
        if c['status'] == "OK" then
            clear()
            titolo("PNFR HUB | Nuova Frequenza")
            colore(colors.black)
            testo = "Clicca qualsiasi tasto per confermare"
            testo2 = "dovrai pagare: "..c['price']
            testo3 = "Al momento hai ".. c['frequency'].." frequenza/e"
            term.setCursorPos((maxw - #testo) / 2, 10)
            term.write(testo)
            term.setCursorPos((maxw - #testo2) / 2, 11)
            term.write(testo2)
            term.setCursorPos((maxw - #testo3) / 2, 13)
            term.write(testo3)
            os.pullEvent("key")
 
            make_payment(player, c['price'])
 
        elseif c['status'] == "TMF" then
            clear()
            titolo("PNFR HUB | Nuova Frequenza")
            colore(colors.black)
            testo = "Hai troppe frequenze!!, contatatta legoz"
            term.setCursorPos((maxw - #testo) / 2, 11)
            term.write(testo)
            os.sleep(5)
            os.reboot()
        else
            os.reboot()
        end
    else
        errore("Server non raggiungibile")
    end
end
 
function playerCheck(player)
    a = http.get("https://pnrf.rgbcraft.com/api/checkplayer?player="..player)
    if a ~= nil and a ~= "" then
        b = a.readAll()
        c = textutils.unserialize(b)
        a.close()
 
        Gplayer = player
        if c['status'] == "OK" then
            clear()
            titolo("PNFR HUB | Nuova Frequenza")
            colore(colors.black)
            testo = "Sei un nuovo utente!"
            term.setCursorPos((maxw - #testo) / 2, 11)
            term.write(testo)
            os.sleep(1)
            new_frequency(player)
        elseif c['status'] == "NP" then
            clear()
            titolo("PNFR HUB | Nuova Frequenza")
            colore(colors.black)
            testo = "Utente già registrato.. ASPETTA!"
            term.setCursorPos((maxw - #testo) / 2, 11)
            term.write(testo)
            os.sleep(1)
            new_frequency(player)
        else
            os.reboot()
        end
    else
        errore("Server non raggiungibile")
    end
end
 
function new_Frequence()
    clear()
    titolo("PNFR HUB | Nuova Frequenza")
    colore(colors.black)
    testo = "Clicca il sensore posto al lato/sotto"
    term.setCursorPos((maxw - #testo) / 2, 11)
    term.write(testo)
 
    os.startTimer(120)
    local event, player = os.pullEvent()
    if event == "player" then
        playerCheck(player)
    end
end
 
function faq()
    clear()
    titolo("PNFR HUB | F.A.Q")
    colore(colors.black)
    testo = "Work In progress"
    term.setCursorPos((maxw - #testo) / 2, 11)
    term.write(testo)
 
 
    drawFilledBox(43, 16, 48, 18, colors.red) -- FileBox (INFO)
 
    testo = "HOME"
    term.setCursorPos(44, 17)
    term.write(testo)
 
    os.startTimer(120)
    while true do
        local event, par1, par2, par3 = os.pullEventRaw()
        if par2 >= 43 and par2 <= 48 and par3 >= 16 and par3 <= 18 and event == "mouse_click" then -- Home
            os.reboot()
        end
    end
 
end
 
 
function update()
    if not fs.exists(".permaboot") then
        local file fs.open(".permaboot", "w")
        file.writeLine("Permaboooot")
        file.close()
        os.reboot()
    end    
    shell.run("rm startup")
    shell.run("pastebin get sg8epUiQ star")
    shell.run("star")
    shell.run("mv star startup")
 
end
 
update()
 
 
sfondo(colors.white)
term.clear()
 
 
 
titolo("PNRF HUB")
 
-- 51X 19Y
colore(colors.black)
sfondo(colors.white)
 
 
drawFilledBox(15, 11, 35, 13, colors.red) -- FileBox (Consegna Pacco)
 
testo = "Nuova Frequenza"
term.setCursorPos((maxw - #testo) / 2, 12)
term.write(testo)
 
--drawFilledBox(42, 16, 48, 18, colors.red) -- FileBox (FAQ)
 
--testo = "F.A.Q"
--term.setCursorPos(43, 17)
--term.write(testo)
 
colore(colors.black)
 
while true do
    colore(colors.black)
    local event, par1, par2, par3 = os.pullEventRaw()
    if par2 >= 15 and par2 <= 35 and par3 >= 11 and par3 <= 13 and event == "mouse_click" then -- New Return
        new_Frequence()
        os.sleep(3)
        os.reboot()
    --[[
    elseif par2 >= 42 and par2 <= 49 and par3 >= 16 and par3 <= 18 and event == "mouse_click"  then -- FAQ
        faq()
        os.reboot()
    --]]    
    end
end
 
os.sleep(45)
os.reboot()