Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- costante = 0.4
- local maxw, maxh = term.getSize()
- m = peripheral.wrap("top")
- m.write(" KENI")
- m.setCursorPos(1,3)
- m.write("Diesel:")
- m.setCursorPos(1,4)
- m.write(costante)
- m.setCursorPos(1,5)
- m.write("IC/s.")
- function creditoInsufficiente()
- clearRed()
- print("Credito insufficiente.")
- print("")
- print("Premere un tasto per uscire")
- os.pullEvent("key")
- os.reboot()
- end
- function gasolioNonDisponibile()
- clearRed()
- print("Gasolio esaurito.")
- print("")
- print("Premere un tasto per uscire")
- os.pullEvent("key")
- os.reboot()
- 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 clear()
- sfondo(colors.blue)
- 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
- function titolo(testo)
- drawFilledBox(1, 1, maxw, 1, colors.yellow)
- term.setCursorPos((maxw - #testo) / 2, 1)
- colore(colors.black)
- term.write(testo)
- sfondo(colors.blue)
- 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("DISTRIBUTORE DI BluDiesel® Premium KENI®")
- -- startx, starty, endx, endy
- drawFilledBox(3, 4, 15, 6, colors.yellow)
- drawFilledBox(3, 8, 15, 10, colors.yellow)
- drawFilledBox(3, 12, 15, 14, colors.yellow)
- drawFilledBox(3, 16, 15, 18, colors.yellow)
- term.setCursorPos(4, 5)
- colore(colors.black)
- sfondo(colors.yellow)
- term.write("16 secchi")
- term.setCursorPos(4, 9)
- colore(colors.black)
- sfondo(colors.yellow)
- term.write("32 secchi")
- term.setCursorPos(4, 13)
- colore(colors.black)
- sfondo(colors.yellow)
- term.write("Pieno Loco")
- term.setCursorPos(4, 17)
- colore(colors.black)
- sfondo(colors.yellow)
- term.write("Pieno Vagone")
- while true do
- drawFilledBox(18, 5, 50, 17, colors.yellow)
- term.setCursorPos(19, 6)
- colore(colors.black)
- sfondo(colors.yellow)
- term.write("ISTRUZIONI - LEGGERE:")
- term.setCursorPos(19, 8)
- term.write("1. Posizionare il vagone/loco")
- term.setCursorPos(19, 9)
- term.write(" sotto l'erogatore appropriato")
- term.setCursorPos(19, 10)
- term.write("2. Controllare che il vagone")
- term.setCursorPos(19, 11)
- term.write(" o loco siano vuoti.")
- term.setCursorPos(19, 12)
- term.write("3. Selezionare su questo PC")
- term.setCursorPos(19, 13)
- term.write(" la quantità desiderata")
- term.setCursorPos(19, 14)
- term.write("4. Attendere l'erogazione")
- term.setCursorPos(19, 15)
- term.write("5. Non appena l'operazione sarà")
- term.setCursorPos(19, 16)
- term.write(" terminata liberare l'area")
- local event, par1, x, y = os.pullEvent("mouse_click")
- if event == "mouse_click" and x >= 3 and x <= 15 and y >= 4 and y <= 6 then
- qta = 16
- materiale = "16 secchi"
- prezzo = qta * costante
- break
- elseif event == "mouse_click" and x >= 3 and x <= 15 and y >= 8 and y <= 10 then
- qta = 32
- materiale = "32 secchi"
- prezzo = qta * costante
- break
- elseif event == "mouse_click" and x >= 3 and x <= 15 and y >= 12 and y <= 14 then
- qta = 160
- materiale = "Pieno Loco"
- prezzo = qta * costante
- break
- elseif event == "mouse_click" and x >= 3 and x <= 15 and y >= 16 and y <= 18 then
- qta = 208
- prezzo = qta * costante
- materiale = "Pieno Vagone"
- break
- end
- sleep(1)
- end
- clear()
- if redstone.getInput("back") == true then
- errore("Gasolio esaurito")
- end
- sfondo(colours.blue)
- term.clear()
- term.setCursorPos(1, 1)
- titolo("Paga con Nebraska Pay")
- sfondo(colours.blue)
- colore(colors.white)
- print(
- "\n\nInserire i propri dati. Premere Enter per confermare i dati inseriti. \nSe i dati sono corretti, il campo diventerà verde. Se 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()
- 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
- -- Mostra saldo
- term.clear()
- term.clear()
- term.setCursorPos(1, 1)
- titolo("Paga con Nebraska Pay")
- sfondo(colours.blue)
- colore(colors.white)
- print("\n\nSaldo disponibile: " .. risposta.saldo .. " IC")
- if tonumber(risposta.saldo) >= tonumber(prezzo) then
- prezzoAccettato = true
- else
- errore("Disponibilità insufficiente!")
- end
- term.setCursorPos(1, 3)
- term.write("Invio di ")
- term.write(prezzo)
- term.write(" IC a favore di ")
- term.write("KENI")
- print("\n\nConfermare l'operazione?")
- colore(colors.yellow)
- print("\n\nInvia il denaro Annulla")
- while true do
- event, key, x, y = os.pullEvent()
- if event == "mouse_click" and x < 16 and y == 8 then
- inviaDenaro = http.get(
- "http://172.16.20.220/luanet/servlets/nebraskapay.php?auth=" ..
- password .. "&utente=" .. utente ..
- "&richiesta=trasferimento&valore=" .. prezzo ..
- "&beneficiario=KENI").readAll()
- risultatoInvio = textutils.unserialize(inviaDenaro)
- if risultatoInvio.stato == "OK" then
- colore(colors.white)
- break
- else
- clear()
- errore("Errore durante il pagamento")
- end
- elseif event == "mouse_click" and x > 18 and y == 8 then
- errore("Pagamento annullato dall'utente.")
- end
- end
- clear()
- titolo("Erogazione in corso")
- print("\n\nErogazione di " .. materiale .. " di gasolio in corso...")
- ben = peripheral.wrap("back")
- ben.makeRequest(ben.getItemIdentifierIDFor(21258, 18), qta)
- sleep(10)
- term.setTextColor(colors.black)
- term.setBackgroundColor(colors.black)
- shell.run("rm startup")
- shell.run("pastebin get 5WVAm8cT startup")
- os.reboot()
Add Comment
Please, Sign In to add comment