StationInstaller

function main()
  shell.run("/station.lua")
end
function tablo()
  shell.run("/fff")
end
function write(txt)
  term.write(txt)
end
function sbc(clr)
  term.setBackgroundColor(clr)
end
function stc(clr)
  term.setTextColor(clr)
end
function scp(x,y)
    term.setCursorPos(x,y)
end
local sx,sy = term.getSize()
function center(y,txt)
    term.setCursorPos(math.ceil((sx / 2) - (txt:len() / 2)), y)
    write(txt)
end
-- draw basic gui
term.setBackgroundColor(colors.lightBlue)
term.clear()
sbc(colors.blue)
center(2,"TMZS-STATION-INSTALLER")
sbc(colors.lightBlue)
center(4 ,"made for creatopicorails(monamu)")
local monitors = {}
for i=1,1 do
scp(3,6)
write("You need to enter "..i.." small_monitor_n(e: monitor_13)")
scp(3,7)
local len = 10
for i=1,len do
  scp(2+i,7)
  sbc(colors.white)
  term.write(" ")
end
scp(3,7)
stc(colors.black)
local fid = read()
local mn = peripheral.wrap(fid)
scp(3,8)
sbc(colors.lightBlue)
stc(colors.white)
write("Check and tap screen on "..fid.."!")
mn.setBackgroundColor(colors.lime)
mn.clear()
mn.setCursorPos(1,1)
mn.write("ClickScreen")
repeat
  event, side, xPos, yPos = os.pullEvent("monitor_touch")
until side == fid
mn.clear()
mn.setCursorPos(1,1)
mn.write("OK")
monitors[i] = fid
scp(3,8)
monitors[i] = fid
write("OK                                         ")
sleep(1)
scp(3,8)
write("       ")
end
-- TabloDisplay
local tablol = {}
for i=1,1 do
scp(3,6)
write("You need to enter "..i.." tablo_monitor(e: monitor_13)")
scp(3,7)
local len = 10
for i=1,len do
  scp(2+i,7)
  sbc(colors.white)
  term.write(" ")
end
scp(3,7)
stc(colors.black)
local fid = read()
local mn = peripheral.wrap(fid)
scp(3,8)
sbc(colors.lightBlue)
stc(colors.white)
write("Check and tap screen on "..fid.."!")
mn.setBackgroundColor(colors.lime)
mn.clear()
mn.setCursorPos(1,1)
mn.write("ClickScreen")
repeat
  event, side, xPos, yPos = os.pullEvent("monitor_touch")
until side == fid
mn.clear()
mn.setCursorPos(1,1)
mn.write("OK")
tablol[i] = fid
scp(3,8)
write("OK                                         ")
sleep(1)
scp(3,8)
write("       ")
end
-- BigDisplay
local bdl = {}
for i=1,1 do
scp(3,6)
write("You need to enter "..i.." big_monitor(examles: monitor_13)")
scp(3,7)
local len = 10
for i=1,len do
  scp(2+i,7)
  sbc(colors.white)
  term.write(" ")
end
scp(3,7)
stc(colors.black)
local fid = read()
local mn = peripheral.wrap(fid)
scp(3,8)
sbc(colors.lightBlue)
stc(colors.white)
write("Check and tap screen on "..fid.."!")
mn.setBackgroundColor(colors.lime)
mn.clear()
mn.setCursorPos(1,1)
mn.write("ClickScreen")
repeat
  event, side, xPos, yPos = os.pullEvent("monitor_touch")
until side == fid
mn.clear()
mn.setCursorPos(1,1)
mn.write("OK")
bdl[i] = fid
scp(3,8)
write("OK                                         ")
sleep(1)
scp(3,8)
write("       ")
end
-- Speakers
local spkl = {}
for i=1,3 do
scp(3,6)
write("You need to enter "..i.." speakers(exampl: monitor_13)")
scp(3,7)
local len = 10
for i=1,len do
  scp(2+i,7)
  sbc(colors.white)
  term.write(" ")
end
scp(3,7)
stc(colors.black)
local fid = read()
local spk = peripheral.wrap(fid)
scp(3,8)
sbc(colors.lightBlue)
stc(colors.white)
write("PlayingTestSound on speaker_"..fid.."!")
spk.playNote("harp",100,1)
spkl[i] = fid
scp(3,8)
write("OK                                         ")
sleep(1)
scp(3,8)
write("       ")
end
term.clear()
sbc(colors.lightBlue)
term.clear()
center(3,"Enter 1 marshrut id:")
local len = 10
stc(colors.white)
for i=1,len do
  sbc(colors.white)
  scp(2+i,6)
  write(" ")
end
stc(colors.black)
scp(3,6)
local mid = read()
center(7,"Enter marshrut name:")
for i=1,len do
  sbc(colors.white)
  scp(2+i,8)
  write(" ")
end
stc(colors.black)
scp(3,8)
sleep(2)
local mname = read()
center(9,"Enter this station name: ")
for i=1,len do
  sbc(colors.white)
  scp(2+i,10)
  write(" ")
end
stc(colors.black)
scp(3,10)
sleep(2)
local sname = read()
shell.run("cd","/")
shell.run("mkdir","/tables")
shell.run("cd","/tables")
shell.run("pastebin","get",mid,mname)
local config = {}
for i=1,#monitors do
  table.insert(config,monitors[i])
end
for i=1,#spkl do
  table.insert(config,spkl[i])
end
for i=1,#bdl do
  table.insert(config,bdl[i])
end
local configf = fs.open("/config","w")
if configf then
  for i=1,#config do
    configf.writeLine(config[i])
  end
end
configf.close()
local configtl = {}
for i=1,#tablol do
  table.insert(configtl,tablol[i])
end
local configtf = fs.open("/configt","w")
if configtf then
  for i=1,#config do
    configtf.writeLine(configtl[i])
  end
end
configtf.close()
term.clear()
stc(colors.white)
center(5,"All done!")
sleep(1)
shell.run("cp","/disk/station.lua","/station.lua")
shell.run("cp","/disk/fff","/fff")
shell.run("cp","/disk/ggg","/ggg")
shell.run("cp","/disk/marshrut","/marshrut")
shell.run("cp","/disk/startup","/startup")
shell.run("cp","/disk/startuph","/startuph")
sleep(1)
shell.run("delete","/installer")
shell.run("rename","/startup","/installer")
shell.run("rename","/startuph","/startup")
os.reboot()