CARTA Craftzone

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

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


m = peripheral.wrap("bottom") --magcard
clear()
print("Benvenuti in CraftZone")
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

credito = tonumber(tab.v)

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] Attivare i macchinari per 2 minuti - 1 IC")
print("[2] Annullare il pagamento")
num=tonumber(read())
if num == 1 then
prelievo=1
if prelievo > credito then
clear()
print("Disponibilità insufficiente")
sleep(5)
os.reboot()
end
clear()
print("Inserire nuovamente la carta per confermare il pagamento")


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)
clear()
print("Macchinari attivati")
print("")
redstone.setOutput("back", true)
sleep(0.25)
redstone.setOutput("back", false)
print("")
print("Grazie!")
sleep(5)
os.reboot()
elseif num == 2 then clear() break end
end
clear()
print("Attendere")
sleep(1)
os.reboot()