MineCore testy

-- Skroty do komend --
local function s(...) return sleep(...) end
local function w(...) return write(...) end
local function p(...) return print(...) end
local function tw(...) return term.write(...) end
local function scp(...) return term.setCursorPos(...) end
local function sbc(...) return term.setBackgroundColor(...) end
local function stc(...) return term.setTextColor(...) end
local function tc(...) return term.clear(...) end
local function tcl(...) return term.clearLine(...) end
local function r(...) return shell.run(...) end
local function sp(...) return textutils.slowPrint(...) end
local function sw(...) return textutils.slowWrite(...) end
local function fse(...) return fs.exists(...) end
local function pul(...) return paintutils.loadImage(...) end
local function pud(...) return paintutils.drawImage(...) end
local function pfb(...) return paintutils.drawFilledBox(...) end
local function su(...) return os.shutdown(...) end
local function re(...) return os.reboot(...) end
local function pdp(...) return paintutils.drawPixel(...) end
function logg()
if fs.exists("/os/.logo") then
 local loggo = fs.open("/os/.logo", "r")
 logoo = loggo.readLine(1)
 loggo.close()
else
local loggo = fs.open("/os/.logo", "w")
ust = "Tak"
loggo.writeLine(ust)
loggo.close()
end
end
function tlo()
 if fs.exists("/os/.pulpit") then
  local pul = fs.open("/os/.pulpit", "r")
  tloo = pul.readLine(1)
  pul.close()
 else
 local pul = fs.open("/os/.pulpit", "w")
 tlo = "Nowe"
 pul.writeLine(tlo)
 pul.close()
end
if tloo == "Nowe" then styl = "Klasyczne" end
if tloo == "Klasyczne" then styl = "Nowe" end
end
function zmien()
 if tloo == "Nowe" then r("rm /os/.pulpit")  local pul = fs.open("/os/.pulpit", "w")  tlo = "Klasyczne"  pul.writeLine(tlo) pul.close()  elseif tloo == "Klasyczne" then r("rm /os/.pulpit") local pul = fs.open("/os/.pulpit", "w")  tlo = "Nowe"  pul.writeLine(tlo) pul.close() end
s(2)
re()
end
function zmien2()
 if logoo == "Tak" then r("rm /os/.logo")  local loggo = fs.open("/os/.logo", "w")  ust = "Nie"  loggo.writeLine(ust) loggo.close()  elseif logoo == "Nie" then r("rm /os/.logo") local loggo = fs.open("/os/.logo", "w")  ust = "Tak"  loggo.writeLine(ust) loggo.close() end
s(2)
re()
end
function logobraz()
pfb(1, 1, 51, 5, colors.blue)
pfb(1, 6, 51, 14, colors.lightBlue)
pfb(1, 15, 51, 19, colors.blue)
pfb(15, 7, 17, 9, colors.gray)
scp(1,1)
p("Logowanie MineCore")
scp(1,2)
p("Wybierz uzytkownika, a nastepnie wpisz haslo.")
end
-- Funkcja do otrzymywania rozmiaru folderu/pliku --
function getSize(path)
  local size = 0
  for _, file in ipairs(fs.list(path)) do
    if fs.isDir(fs.combine(path, file)) then
      size = size + getSize(fs.combine(path, file))
    else
      size = size + fs.getSize(fs.combine(path, file))
    end
  end
  return size
end
local data = os.day()
-- Odczytywanie wersji systemu --
function wersja()
 local ver = fs.open("/os/ver/.ver", "r")
 wer = ver.readLine(1)
end
-- Funkcja wyswietlania pulpitu --
function obraz()
if tloo == "Nowe" then
 tc()
 pfb(1, 1, 51, 1, colors.brown)
 pfb(2, 2, 50, 17, colors.black)
 pfb(1, 1, 1, 18, colors.brown)
 pfb(1, 18, 51, 18, colors.brown)
 pfb(51, 1, 51, 18, colors.brown)
 pfb(1, 19, 5, 19, colors.green)
 pfb(6, 19, 49, 19, colors.blue)
 pdp(50, 19, colors.red)
 pdp(51, 19, colors.orange)
 sbc(colors.green)
 stc(colors.white)
 scp(1,19)
 w("Start")
 sbc(colors.brown)
 stc(colors.white)
 scp(1,1)
 p("Informacje")
 time = os.time()
 time = textutils.formatTime(time, true)
 sbc(colors.blue)
 stc(colors.white)
 scp(45,19)
 write(time)
 scp(30,19)
 w("Dzien: ", data)
elseif tloo == "Klasyczne" then
sbc(colors.white)
tc()
sbc(colors.white)
pdp(50, 19, colors.red)
pdp(51, 19, colors.orange)
pfb(1, 19, 51, 19, colors.blue)
sbc(colors.blue)
stc(colors.white)
scp(1,1)
p("Microcraft MineCore Hybrid OS")
scp(1,19)
w("Start")
time = os.time()
time = textutils.formatTime(time, true)
sbc(colors.blue)
stc(colors.white)
scp(45,1)
p(time)
scp(30,19)
w("Dzien: ", data)
end
end
-- Odczytywanie danych do logowania --
function pliki()
 local u = fs.open("/os/.log1", "r")
 user = u.readLine(1)
 u.close()
 local h = fs.open("/os/.log2", "r")
 pass = h.readLine(1)
 h.close()
end
-- Logowanie --
function log()
if logoo == "Tak" then
 sbc(colors.lightBlue)
 stc(colors.white)
 scp(18,7)
 p(user)
 scp(18,8)
 w("")
 haslo = read()
 if haslo == pass then ok = 1 else scp(18,9) stc(colors.red) p("Bledne haslo") s(2) re() end
elseif logoo == "Nie" then ok = 1
end
end
-- Menu Start
function start()
 pfb(1, 15, 10, 18, colors.white)
 pfb(1, 14, 10, 14, colors.blue)
 scp(1,14)
 stc(colors.white)
 p("Start")
 stc(colors.black)
 sbc(colors.white)
 scp(1,15)
 p("Ustawienia")
 scp(1,16)
 p("Programy")
 scp(1,17)
 p("CraftOS")
 scp(1,18)
 p("/run")
 point2()
end
-- Zakladka informacje --
function info()
 pfb(1, 2, 20, 6, colors.lightGray)
 stc(colors.white)
 sbc(colors.lightGray)
 scp(1,2)
 p("MineCore Hybrid OS")
 p("Wolne miejsce:")
 p(fs.getFreeSpace("/")/1024, "KB")
 p("Kompilacja: 1300A")
 p("17.07.2019")
 local event, click, x, y = os.pullEvent("mouse_click")
end
-- Wykrywanie wcisniecia --
function point()
local event, click, x, y = os.pullEvent("mouse_click")
if tloo == "Nowe" then
 if x>0 and x<6 and y == 19 then start() end
 if x == 50 and y == 19 then su() end
 if x == 51 and y == 19 then re() end
 if x>0 and x<11 and y == 1 then info() end
elseif tloo == "Klasyczne" then
 if x>0 and x<6 and y == 19 then start() end
 if x == 50 and y == 19 then su() end
 if x == 51 and y == 19 then re() end
end
end
-- to co wyzej, ale jeszcze raz --
function point2()
 local event, click, x, y = os.pullEvent("mouse_click")
 if x>0 and x<9 and y == 16 then programy() end
 if x>0 and x<9 and y == 17 then error("Opuszczono MineUI 4.1") end
 if x>0 and x<11 and y == 15 then set() end
 if x>0 and x<9 and y == 18 then scp(2,2)
 stc(colors.white)
 sbc(colors.black)
 w("Wpisz nazwe pliku: ")
 plik = read()
 if fs.exists(plik) then r(plik) else error("Brak oczekiwanego pliku.") end
end
end
-- Menu Programy --
function programy()
 pfb(11, 14, 19, 16, colors.white)
 scp(12,14)
 p(">2048")
 scp(12,15)
 p("LuaIDE")
 scp(12,16)
 p("Snake")
 local event, click, x, y = os.pullEvent("mouse_click")
 if x>10 and x<20 and y == 14 then r("/os/.2048") end
 if x>10 and x<20 and y == 15 then scp(2,2) sbc(colors.black) stc(colors.white) w("Wpisz nazwe pliku: ") plik = read() r("edit", plik) end
 if x>10 and x<20 and y == 16 then r("worm") end
end
-- Ustawienia --
function set()
 tc()
 pfb(1, 1, 51, 1, colors.blue)
 pfb(1, 2, 51, 19, colors.white)
 scp(1,1)
 sbc(colors.blue)
 stc(colors.white)
 p("Ustawienia")
 sbc(colors.white)
 stc(colors.black)
 scp(1,2)
 p("MineCore Hybrid OS")
 p("Wolne miejsce na dysku:")
 wolne = math.ceil(fs.getFreeSpace("/")/1024)
 p(wolne, "KB")
 zajete = getSize("/os/")/1024
 lacznie = fs.getFreeSpace("/") + zajete
 print(math.ceil(zajete/1024), "KB uzyte z ", lacznie, "KB")
 p("Nazwa komputera: ")
 p(os.getComputerLabel())
 p("Zmien nazwe komputera")
 local ver = fs.open("/os/ver/.ver", "r")
 wer = ver.readLine(1)
 p("Wersja: ", wer)
 p("Nazwa uzytkownika:", user)
 p("Aktualizuj system")
 p("Zainstaluj wersje testowa")
 p("Styl systemu:")
 p(tloo)
 p("Dostepne style (nacisnij, aby zmienic):")
 p(styl)
 p("Wlaczone logowanie (kliknij, aby przelaczyc)?")
 p(logoo)
 local event, click, x, y = os.pullEvent("mouse_click")
 if x>0 and x<20 and y == 8 then scp(1,8) sbc(colors.white) stc(colors.black) w("Wpisz nowa nazwe: ") nazwa = read() os.setComputerLabel(nazwa) end
 if x>0 and x<20 and y == 11 then r("/os/.update") end
 if x>0 and x<20 and y == 12 then r("/os/.tupdate") end
 if x>0 and x<20 and y == 16 then zmien() end
 if x>0 and x<20 and y == 18 then zmien2() end
end
-- Kolejnosc funkcji --
tlo()
logg()
logobraz()
pliki()
log()
while true do
obraz()
point()
end