TEST

--VARIABILI
local lbl = "BN Credit"
local tabr = {}

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

function pinErrato()
clear()
print("Errore di verifica del PIN")
print("")
print("Premere un tasto per uscire")
os.pullEvent("key")
os.reboot()
end


function cartaNonValida()
clear()
print("Carta non valida o corrotta.")
print("")
print("Premere un tasto per uscire")
os.pullEvent("key")
os.reboot()
end

function cartaVuota()
clear()
print("Carta smagnetizzata o vuota.")
print("")
print("Premere un tasto per uscire")
os.pullEvent("key")
os.reboot()
end

function preleva()
tabr.t = tab.t
tabr.e = tab.e
tabr.p = tab.p
tabr.v = tostring(credito - prelievo)

ncr = textutils.serialize(tabr)

m.setInsertCardLight(true)
m.beginWrite(ncr,lbl)
os.pullEvent("mag_write_done")
m.setInsertCardLight(false)
end

s = peripheral.wrap("back")
m = peripheral.wrap("right")
lbl = "BN Credit"


function sdb(db)
s.setAttenuation(db)
end

clear()
print("Banco di NEBRASKA - Sistema BANCOMAT(R)")
print("")
print("Inserire la carta")
m.setInsertCardLight(true)
za,rawcarta = os.pullEvent("mag_swipe")
m.setInsertCardLight(false)

if rawcarta == nil then
cartaVuota()
end

tab = textutils.unserialize(rawcarta)

if type(tab) ~= "table" then
cartaNonValida()
end

if tab.t ~= "cc" then
cartaNonValida()
end

if tab.e ~= "BN" then
cartaNonValida()
end

if tab.p ~= "0000" then
print("")
print("Inserire il PIN e premere ENTER")
print("")
local pinUtente = read("#")
if pinUtente ~= tab.p then
pinErrato()
end
end

credito = tonumber(tab.v)

sdb(0)
s.start(1,400)
sleep(1)
s.stop(1)
clear()

while true do
print("La carta ha una disponibilità di "..credito.." IC.")
print("")
print("Per favore scegliere un'opzione utilizzando i tasti numerici e confermare con ENTER:")
print("")
print("[1] Preleva   64 IC")
print("[2] Preleva  128 IC")
print("[3] Preleva  256 IC")
print("[4] Preleva  512 IC")
print("[5] Cambia il PIN")
print("[6] Esci senza prelevare")
num=tonumber(read())
if num == 1 then
prelievo=64
if prelievo > credito then
clear()
print("Disponibilità insufficiente")
sleep(5)
os.reboot()
end
clear()
print("Inserire nuovamente la carta per confermare il prelievo")
preleva()
print("Ritirare il denaro")
print("")
redstone.setOutput("bottom", true)
sleep(0.25)
print("Erogati 64 IC")
redstone.setOutput("bottom", false)
print("")
print("Prelievo effettuato!")
sdb(0)
s.start(1,400)
sleep(1)
s.stop(1)
print("")
print("Tra poco sarà possibile eseguire un'altra operazione.")
sleep(5)
os.reboot()

elseif num == 2 then

prelievo=128
if prelievo > credito then
clear()
print("Disponibilità insufficiente")
sleep(5)
os.reboot()
end
clear()
print("Inserire nuovamente la carta per confermare il prelievo")
preleva()
print("Ritirare il denaro")
print("")
redstone.setOutput("bottom", true)
sleep(0.25)
print("Erogati 64 IC")
redstone.setOutput("bottom", false)
sleep(0.25)
redstone.setOutput("bottom", true)
sleep(0.25)
print("Erogati 128 IC")
redstone.setOutput("bottom", false)
print("")
print("Prelievo effettuato!")
sdb(0)
s.start(1,400)
sleep(1)
s.stop(1)
print("")
print("Tra poco sarà possibile eseguire un'altra operazione.")
sleep(5)
os.reboot()

elseif num == 3 then

prelievo=256
if prelievo > credito then
clear()
print("Disponibilità insufficiente")
sleep(5)
os.reboot()
end
clear()
print("Inserire nuovamente la carta per confermare il prelievo")
preleva()
print("Ritirare il denaro")
print("")
redstone.setOutput("bottom", true)
sleep(0.25)
print("Erogati 64 IC")
redstone.setOutput("bottom", false)
sleep(0.25)
redstone.setOutput("bottom", true)
sleep(0.25)
print("Erogati 128 IC")
redstone.setOutput("bottom", false)
sleep(0.25)
redstone.setOutput("bottom", true)
sleep(0.25)
print("Erogati 192 IC")
redstone.setOutput("bottom", false)
sleep(0.25)
redstone.setOutput("bottom", true)
sleep(0.25)
print("Erogati 256 IC")
redstone.setOutput("bottom", false)
print("")
print("Prelievo effettuato!")
sdb(0)
s.start(1,400)
sleep(1)
s.stop(1)
print("")
print("Tra poco sarà possibile eseguire un'altra operazione.")

sleep(5)
os.reboot()

elseif num == 4 then

prelievo=512
if prelievo > credito then
clear()
print("Disponibilità insufficiente")
sleep(5)
os.reboot()
end
clear()
print("Inserire nuovamente la carta per confermare il prelievo")
preleva()
print("Ritirare il denaro")
print("")
redstone.setOutput("bottom", true)
sleep(0.25)
print("Erogati 64 IC")
redstone.setOutput("bottom", false)
sleep(0.25)
redstone.setOutput("bottom", true)
sleep(0.25)
print("Erogati 128 IC")
redstone.setOutput("bottom", false)
sleep(0.25)
redstone.setOutput("bottom", true)
sleep(0.25)
print("Erogati 192 IC")
redstone.setOutput("bottom", false)
sleep(0.25)
redstone.setOutput("bottom", true)
sleep(0.25)
print("Erogati 256 IC")
redstone.setOutput("bottom", false)
sleep(0.25)
redstone.setOutput("bottom", true)
sleep(0.25)
print("Erogati 320 IC")
redstone.setOutput("bottom", false)
sleep(0.25)
redstone.setOutput("bottom", true)
sleep(0.25)
print("Erogati 384 IC")
redstone.setOutput("bottom", false)
sleep(0.25)
redstone.setOutput("bottom", true)
sleep(0.25)
print("Erogati 448 IC")
redstone.setOutput("bottom", false)
sleep(0.25)
redstone.setOutput("bottom", true)
sleep(0.25)
print("Erogati 512 IC")
redstone.setOutput("bottom", false)
print("")
print("Prelievo effettuato!")
sdb(0)
s.start(1,400)
sleep(1)
s.stop(1)
print("")
print("Tra poco sarà possibile eseguire un'altra operazione.")
sleep(5)
os.reboot()
elseif num == 5 then
clear()
print("Cambio PIN della carta di credito")
print("")
print("Nota: Impostare il PIN a '0000' per disabilitarlo")
print("")
print("Inserire il PIN e premere ENTER:")
tab.p = read("#")
clear()
print("Inserire la carta per confermare il cambiamento")
prelievo=0
preleva()
elseif num == 6 then clear() break end
clear()
end
clear()
print("Tra poco sarà possibile eseguire un'altra operazione.")
sleep(1)
os.reboot()