station

local sc = peripheral.wrap("left")
local sc2 = peripheral.wrap("back")
local config = fs.open("/config","r")
local mn = peripheral.wrap(config.readLine())
local spk = peripheral.wrap(config.readLine())
local spk2 = peripheral.wrap(config.readLine())
local spk3 = peripheral.wrap(config.readLine())
local mnb = peripheral.wrap(config.readLine())
config.close()
local monc = 2
local sx,sy = mn.getSize()
local bsx,bsy = mnb.getSize()
local bsx,bsy = bsx,bsy
local monline = {}
monline[1] = tonumber(sy - 2)
monline[2] = tonumber(10)
local g = 1
print(monline[g])
local function clear()
  mn.clear()
  mnb.clear()
end
local function setTextColor(clr)
  mn.setTextColor(clr)
  mnb.setTextColor(clr)
end
local function setCursorPos(x,y)
  mn.setCursorPos(x,y)
end
local function setCursorPosb(x,y)
  mnb.setCursorPos(x,y)
end
local function setBackgroundColor(clr)
  mn.setBackgroundColor(clr)
  mnb.setBackgroundColor(clr)
end
local function write(txt)
  mn.write(txt)
end
local function writeb(txt)
  mnb.write(txt)
end
local function playNote(sound,vol,ptc)
  spk.playNote(sound,vol,ptc)
  spk2.playNote(sound,vol,ptc)
  spk3.playNote(sound,vol,ptc)
end
local function rdw()
  clear()
  setTextColor(colors.white)
  local sx, sy = mn.getSize()
  for i=1,monc do
    if i == 2 then
      for g=1,bsy do
        setCursorPosb(1,g)
        writeb("|")
        setCursorPosb(bsx,g)
        writeb("|")
      end
    else
      for g=1,sy do
        setCursorPos(1,g)
        write("|")
        setCursorPos(sx,g)
        write("|")
      end
    end
  end
end
rdw()
local swt = 0
local mint = false
local function drawLine(line,nr)
  local atime,name,station,station2 = string.match(sc.getLine(line),"(%w+) (%w+) (%w+) (%w*)")
  setCursorPos(1,1)
  write("Vremya  Poezd    Napravlenye")
  setTextColor(colors.lightBlue)
  setCursorPos(2,nr)
  if string.find(atime,"min") then
      local minute,type,station,station2 = string.match(sc.getLine(line),"(%w+)  (%w+) (%w+) (%w+) (%w*)")
      atime = minute.."min"
      mint = true
  elseif string.find(atime, "now") then
    setTextColor(colors.orange)
    redstw = 0
    atime = "TUT"
    swt = 1
  else
    swt = 0
  end
  write(atime)
  setTextColor(colors.white)
  setCursorPos(8,nr)
  setTextColor(colors.yellow)
  write(name)
  setTextColor(colors.white)
  setBackgroundColor(colors.lime)
  if atime ~= nil then
    setCursorPos(10+atime:len()+5,nr)
  end
  write(station)
  if station2 ~= nil then
  if station2:len() > 1 then
    setCursorPos(15+atime:len()+station:len(),nr)
    write(" "..station2)
  end
  end
  setBackgroundColor(colors.black)
  mint = false
end
local redstw = 0
local atimest = 0
local function drawLineb(line,nr)
  local atime,name,station,station2 = string.match(sc.getLine(line),"(%w+) (%w+) (%w+) (%w*)")
  setCursorPosb(1,1)
  writeb("Vremya  Poezd    Napravlenye")
  setTextColor(colors.lightBlue)
  setCursorPosb(2,nr)
  if atime ~= nil then
    if string.find(atime,"min") then
      local minute,type,station,station2 = string.match(sc.getLine(line),"(%w+)  (%w+) (%w+) (%w+) (%w*)")
      atime = minute.."min"
      mint = true
    elseif string.find(atime, "now") then
    setTextColor(colors.orange)
    atime = "TUT"
    atimest = 1
    swt = 1
    else
      atimest = 0
    end
  else
    swt = 0
  end
  writeb(atime)
  setTextColor(colors.white)
  setCursorPosb(8,nr)
  setTextColor(colors.yellow)
  writeb(name)
  setTextColor(colors.white)
  setBackgroundColor(colors.lime)
  if atime ~= nil then
    setCursorPosb(10+atime:len()+5,nr)
  end
  writeb(station)
  if station2 ~= nil then
  if station2:len() > 1 then
    setCursorPosb(15+atime:len()+station:len(),nr)
    writeb(" "..station2)
  end
  end
  setBackgroundColor(colors.black)
  mint = false
end
local time = os.time()
repeat
 sleep(0.05)
 local timeo = os.time()
until time ~= timeo
rdw()
local function rstw()
  repeat
   sleep(0.5)
   print("train move away suka!")
  until redstone.getInput("front") == true
  redstw = 0
end
while true do
  local time = os.time()
  local fTime = textutils.formatTime(time, false)
  print("MONC: "..monc)
  for i=1,monc do
    if i == 2 then
      print("SC: "..sc.getLine(1).." SC2: "..sc2.getLine(1))
      setCursorPosb(bsx-(fTime:len()+1),bsy)
      writeb(""..fTime)
    else
      setCursorPos(sx-(fTime:len()+1),sy)
      write(" "..fTime)
    end
  end
  print("starting func")
  for g=1,monc do
    if g == 2 then
      for i=1,sy-2 do
        if sc2.getLine(i) ~= sc.getLine(24) then
          drawLine(i,i+1)
        end
      end
    else
      for k=1,bsy do
        if sc.getLine(k) ~= sc.getLine(24) then
          drawLineb(k,k+1)
        end
      end
    end
  end

  sleep(1)
  print("clearing")
  for l=1,monc do
    if l == 2 then
      for i=1,monline[l] do
        for p=2,bsx-1 do
          setCursorPosb(p,i+1)
          writeb(" ")
        end
      end
    else
      for i=1,monline[l] do
        for p=2,sx-1 do
          setCursorPos(2,i+1)
          write(" ")
        end
      end
    end
  end
  for i=1,monc do
    if i == 2 then
      setCursorPosb(2,bsy)
      writeb("CreatopicoRails")
    else
      setCursorPos(2,sy)
      write("CreatopicoRails")
    end
  end
  if (redstw  == 0) and (redstone.getInput("front")) then
    print("trainhere" )
    setBackgroundColor(colors.orange)
    playNote("chime",10,3)
    clear()
    local fives = 15
    local textd = "Otpravlenye 4erez "..fives.." sekund!"
    setCursorPos(2,3)
    write(textd)
    setCursorPosb(2,bsy/2)
    writeb(textd)
    sleep(0.5)
    playNote("chime",10,6)
    sleep(0.5)
    playNote("chime",10,1)
    shell.run("/ggg")
    sleep(12)
    clear()
    setBackgroundColor(colors.black)
    clear()
    rdw()
    redstw = 1
  end
end