costante = 1
local maxw, maxh = term.getSize()
m = peripheral.wrap("top")
m.write(" PECTEN")
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.yellow)
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.red)
term.setCursorPos((maxw - #testo) / 2, 1)
colore(colors.black)
term.write(testo)
sfondo(colors.red)
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 VPower® PECTEN®")
-- startx, starty, endx, endy
drawFilledBox(3, 4, 15, 6, colors.red)
drawFilledBox(3, 8, 15, 10, colors.red)
drawFilledBox(3, 12, 15, 14, colors.red)
drawFilledBox(3, 16, 15, 18, colors.red)
term.setCursorPos(4, 5)
colore(colors.white)
sfondo(colors.red)
term.write("16 secchi")
term.setCursorPos(4, 9)
colore(colors.white)
sfondo(colors.red)
term.write("32 secchi")
term.setCursorPos(4, 13)
colore(colors.white)
sfondo(colors.red)
term.write("Pieno Loco")
term.setCursorPos(4, 17)
colore(colors.white)
sfondo(colors.red)
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("PECTEN")
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=RGCorp").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()
