bankomat

local mn = peripheral.wrap("front")
local dside = "drive_7"
local screen = 1
mn.setBackgroundColor(colors.white)
mn.clear()
mn.setCursorPos(1,1)
mn.write("BctaBte")
mn.setCursorPos(1,2)
mn.write("kartu")
-- funcs
local function clear()
  mn.clear()
end
local function setTextColor(clr)
  mn.setTextColor(clr)
end
local function setCursorPos(x,y)
  mn.setCursorPos(x,y)
end
local function setBackgroundColor(clr)
  mn.setBackgroundColor(clr)
end
local function write(txt)
  mn.write(txt)
end
local sx,sy = mn.getSize()
function drawBT(colorm, txt, line)
setBackgroundColor(colorm)
setCursorPos(1,line)
for i=1,sx do
 setBackgroundColor(colorm)
    for g=line,3 do
        setCursorPos(i,g)
        write(" ")
    end
end
setCursorPos(3,line+1)
write(txt)
end
-- loop
mn.setTextScale(0.5)
function bank()
while true do
  local event, side = os.pullEvent()
  local cardfile = fs.open("/disk/card","r")
  if  (side == dside) then
  if (cardfile) then
    clear()
    screen = 2
    drawBT(colors.green,"Enter PIN",1)
    setBackgroundColor(colors.red)
    setTextColor(colors.white)
    setCursorPos(1,sy)
    write("OtmeHitb")
  else
    clear()
    setCursorPos(1,2)
    setTextColor(colors.red)
    setBackgroundColor(colors.white)
    write("Eto ne karta!")
    screen = 1
    disk.eject(dside)
    os.sleep(1)
    setBackgroundColor(colors.white)
    clear()
    setCursorPos(1,1)
    write("Bctabte")
    setCursorPos(1,2)
    write("kartu")
  end
  end
end
end
function click()
  while true do
    event, side, xPos, yPos = os.pullEvent("monitor_touch")
    if (screen == 2) then
      if (yPos > 0 and yPos < 4 and xPos> 0 and xPos < sx+1) then
        print("PIN")
      elseif (yPos == sy and xPos< 10) then
        print("SCREEN 0")

      end
    end
  end
end
parallel.waitForAll(bank,click)