park.lua

os.loadAPI("json")
local mn = peripheral.wrap("monitor_2")
mn.setBackgroundColor(colors.white)
mn.clear()
local mnside = "monitor_2" -- monitor side
str = http.get("http://worldtimeapi.org/api/timezone/Europe/Moscow").readAll()
obj = json.decode(str)
print(obj.datetime)
value = obj.datetime
ttt,h,min,sec,tt2 = string.match(value, "(%w*)T(%w+):(%w+):(%w+).(%w*)")
local sx,sy = mn.getSize()
local function clear()
  mn.clear()
end
local function sbc(clr)
  mn.setBackgroundColor(clr)
end
local function stc(clr)
  mn.setTextColor(clr)
end
local function scp(x, y)
  mn.setCursorPos(x,y)
end
local function sccp(y,txt)
  mn.setCursorPos(math.ceil((sx/2) - (txt:len() / 2)), y)
end
local function write(txt)
  mn.write(txt)
end

print("H "..h.." .MIN: "..min.." .SEC: "..sec)
local tupiks = 3
local timesl = {}
for i=1,tupiks do
  local file = fs.open("/dates/"..i,"r")
  timesl[i] = file.readAll()
  file.close()
end
local tmpl = 0
mn.setTextScale(1)
-- gui
local function drawmscr()
for i=1,3 do
  for g=1,sx do
    scp(g,i)
    sbc(colors.lightBlue)
    write(" ")
  end
end
end
local buttonsx5 = {}
local buttonsy = {}
local buttonback = {}
buttonback[1] = 2
buttonback[2] = sy-2
local function parkbt(clr)
  scp(1,5)
  sbc(clr)
  write(" ")
  local txt = "Park"
  for i=1,txt:len() do
    scp(1+1,5)
    write(" ")
  end
  scp(1,5)
  write(txt)
  buttonsx5[1] = "1".."|"..tostring(txt:len())
  buttonsy[1] = 5
end
parkbt(colors.lightBlue)
local scr = "start"
local tpkbtx = {}
local claimed = {}
local tmpdd = 0
local tdays = 0
local function drawmain()
  mn.setBackgroundColor(colors.white)
  clear()
  parkbt(colors.lightBlue)
  drawmscr()
  for i=1,tupiks do
    scp(1,8+i)
    local file = fs.open("/dates/"..i,"r")
    tmpdd = file.readAll()
    file.close()
    local filec = fs.open("/days/"..i,"r")
    tdays = filec.readAll()
    write("T"..i..": "..tmpdd.."("..tdays..")")
    filec.close()
  end
end
drawmain()
local function drawparkscr()
  mn.setBackgroundColor(colors.white)
  clear()
  drawmscr()
  parkbt(colors.lightBlue)
  for i=1,sx do
    scp(i,sy-2)
    sbc(colors.red)
    write(" ")
  end
  scp(2,sy-2)
  sbc(colors.red)
  write("Back")
  sbc(colors.white)
  scr = "park"
  scp(1,7)
  for i=1,tupiks do
    scp(1+(i*2),7)
    local file = fs.open("/dates/"..tostring(i),"r")
    if file then print("file") end
    if string.find(file.readLine(),"null") then
      sbc(colors.lime)
      claimed[i] = false
    else
      sbc(colors.green)
      claimed[i] = true
    end
    file.close()
    write(tostring(i))
    tpkbtx[i] = 1+(i*2)
  end
end
local bt = 0
local selc = 0
 function getclick()
  while true do
  bt = 0
  event, side, xPos, yPos = os.pullEvent("monitor_touch")
  print(scr)
  if side == mnside then
    for i=1,#buttonsy do
      if yPos == buttonsy[i] then
        if yPos == 5 then
        for g=1,#buttonsx5 do
          local xs,xe = string.match(buttonsx5[g], "(%w+)|(%w+)")
          xs = tonumber(xs)
          xe = tonumber(xe)
          if (xs >= xPos) or (xPos <= xe) then
            if bt ~= 1 then
              bt = 1
              parkbt(colors.blue)
              drawparkscr()
            else
              parkbt(colors.lightBlue)
            end
          end
          print(bt)
        end
      end
      elseif (yPos == 7) and (scr == "park") then
        selc = 0
        for g=1,#tpkbtx do
          if xPos == tpkbtx[g] then
            selc = g
            print("tupik get: "..selc)
            if claimed[g] == false then
              local file = fs.open("/dates/"..g,"w")
              file.write(h..":"..min..":"..sec)
              file.close()
              claimed[g] = true
              drawmain()
            elseif claimed[g] == true then
              local file = fs.open("/dates/"..g,"w")
              file.write("null")
              file.close()
              claimed[g] = false
              drawmain()
            end
        end
      end
    elseif (yPos == buttonback[2]) and (scr == "park") then
      scr = "main"
      drawmain()
    end
  end
  end
  end
end
-- Timer
local function counttime()
 while true do
 if sec == 59 then
   sec = 0
   min = min + 1
 end
 if min == 60 then
   min = 0
   h = h + 1
   sec = 0
 end
 if h == 24 then
   h = 0
   sec = 0
   min = 0
 end
 sleep(1)
 if (sec ~= 60) or (h ~= 24) or (min ~= 60) then
   sec = sec + 1
 end
 sbc(colors.lightBlue)
 sccp(2,h..";"..min..":"..sec)
 write(" ".. h..":"..min..":"..sec)
 for i=1,#timesl do
   if timesl[i] == h..":"..min..":"..sec then
     local file = fs.open("/days/"..i,"r")
     tmpl = tonumber(file.readAll())
     file.close()
     tmpl = tmpl + 1
     local file = fs.open("/days/"..i,"w")
     print("Overwriting "..i.." with "..tmpl)
     file.write(tostring(tmpl))
     drawmain()
   end
 end
 end
end
parallel.waitForAll(getclick,counttime)