RSAD.lua

component = require("component")
event = require("event")
term = require("term")
sides = require("sides")

m = component.modem
gpu = component.gpu
rfidreader = component.os_rfidreader
r = component.redstone

hodnota = 50

function split(inputstr, sep)
        if sep == nil then
                sep = "%s"
        end
        local t={} ; i=1
        for str in string.gmatch(inputstr, "([^"..sep.."]+)") do
                t[i] = str
                i = i + 1
        end
        return t
end

gpu.setResolution(35, 10)

term.clear()

function wm()

term.clear()
term.write("Vítejte,")
term.setCursor(1, 2)
term.write("mějte u sebe kartu ŘSAD")
term.setCursor(1, 3)
term.write("a projedete v pořádku.")
term.setCursor(1, 4)
term.write("Cena dálnice 50$")

end

r.setOutput(sides.south, 1000)

while true do

  wm()

  output = rfidreader.scan(5)

  if output[1] ~= nil then

    card_info = split(output[1].data, ";")

    acc_num = card_info[1]
    acc_pin = card_info[2]

    msg = "transfer;" .. acc_nmb .. ";" .. acc_pin .. ";856608;" .. hodnota

    m.broadcast(1212, msg)

    local _, _, from, port, _, message = event.pull("modem_message")

    if message == "OK" then

      r.setOutput(sides.south, 0)
      term.clear()
      term.write("Děkujeme!")
      term.setCursor(1, 2)
      term.write("Přejeme šťastnou cestu!")
      term.setCursor(1,3)
      term.write(":)")
      os.sleep(5)
      r.setOutput(sides.south, 1000)

    else

       term.clear()
       term.write("Platba se nepovedla,")
       term.setCursor(1, 2)
       term.write("opakujte platbu,")
       term.setCursor(1, 3)
       term.write("nebo vycouvejte ven.")
       os.sleep(2)

    end

  end
end