NextUI 1.86 EM

local function s(...) return sleep(...) end
local function aw(...) 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
local w, h = term.getSize()

function bsodp()
tc()
ac = w/2
scp(ac-2,3)
p("NextUI")
scp(1,6)
p("Microcraft MineCore napotkal blad i musial zostac zatrzymany. Jesli widzisz ten ekran po raz pierwszy, uruchom ponownie komputer, jednak jesli bedzie sie powtarzal mozliwe, ze konieczna bedzie naprawa systemu NextUI. Skontaktuj sie w tym celu z przedstawicielem Microcraft po wiecej informacji.")
p("Kod bledu: 0x302525503149")
p("Nazwa bledu: INV_PLA")
system = "NextUI"
kernel = "MineCore"
kod = "0x403535604159"
nazwa = "INV_PLA"
p("Zapisywanie kodu i nazwy bledu w pliku /os/bsod/bsodp")
local a = fs.open("/os/bsod/bsodp", "w")
a.writeLine(system)
a.writeLine(kernel)
a.writeLine(kod)
a.writeLine(nazwa)
a.close()
p("Twoj komputer uruchomi sie ponownie za 10 sekund")
s(10)
re()
end

function bsodr()
tc()
sbc(colors.blue)
tc()
sbc(colors.blue)
stc(colors.white)
ac = w/2
scp(ac-2,3)
sbc(colors.white)
stc(colors.blue)
p("NextUI")
sbc(colors.blue)
stc(colors.white)
scp(1,6)
p("Microcraft MineCore napotkal blad i musial zostac zatrzymany. Jesli widzisz ten ekran po raz pierwszy, uruchom ponownie komputer, jednak jesli bedzie sie powtarzal mozliwe, ze konieczna bedzie naprawa systemu NextUI. Skontaktuj sie w tym celu z przedstawicielem Microcraft po wiecej informacji.")
p("Kod bledu: 0x302525503149")
p("Nazwa bledu: INV_RES")
system = "NextUI"
kernel = "MineCore"
kod = "0x403535604159"
nazwa = "INV_RES"
p("Zapisywanie kodu i nazwy bledu w pliku /os/bsod/bsodr")
local a = fs.open("/os/bsod/bsodr", "w")
a.writeLine(system)
a.writeLine(kernel)
a.writeLine(kod)
a.writeLine(nazwa)
a.close()
p("Twoj komputer uruchomi sie ponownie za 10 sekund")
s(10)
re()
end

function bsodf()
tc()
sbc(colors.blue)
tc()
sbc(colors.blue)
stc(colors.white)
ac = w/2
scp(ac-2,3)
sbc(colors.white)
stc(colors.blue)
p("NextUI")
sbc(colors.blue)
stc(colors.white)
scp(1,6)
p("Microcraft MineCore napotkal blad i musial zostac zatrzymany. Jesli widzisz ten ekran po raz pierwszy, uruchom ponownie komputer, jednak jesli bedzie sie powtarzal mozliwe, ze konieczna bedzie naprawa systemu NextUI. Skontaktuj sie w tym celu z przedstawicielem Microcraft po wiecej informacji.")
p("Kod bledu: 0x302525503149")
p("Nazwa bledu: APP_MSNG")
system = "NextUI"
kernel = "MineCore"
kod = "0x302525503149"
nazwa = "APP_MSNG"
p("Zapisywanie kodu i nazwy bledu w pliku /os/bsod/.bsod")
local a = fs.open("/os/bsod/.bsod", "w")
a.writeLine(system)
a.writeLine(kernel)
a.writeLine(kod)
a.writeLine(nazwa)
a.close()
p("Twoj komputer uruchomi sie ponownie za 10 sekund")
s(10)
re()
end

if w>99 and h>30 then trybres = 1 else trybres = 0 end
if not term.isColor() then bsodp() end
if w<51 and h<19 then bsodr() end
if pocket then bsodp() end
if turtle then bsodp() end

function logobraz()
pfb(1, 1, w, 5, colors.blue)
pfb(1, 6, w, h-5, colors.lightBlue)
pfb(1, h-6, w, h, colors.blue)
pfb(15, 7, 17, 9, colors.gray)
scp(1,1)
p("Logowanie NextUI")
p("Podaj haslo, aby kontynuowac")
end

function log()
if pass == "" then system() else
sbc(colors.lightBlue)
stc(colors.white)
scp(18,7)
p(user)
scp(18,8)
write("")
haslo = read()
if haslo == pass then ok = 1 else scp(18,9) stc(colors.red) p("Bledne haslo") s(2) re() end
end
end

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

function logo()
logobraz()
pliki()
log()
end

function app()
while true do
if colr == "colors.orange" then sbc(colors.orange) elseif colr == "colors.magneta" then sbc(colors.magneta) elseif colr == "colors.lightBlue" then sbc(colors.lightBlue) elseif colr == "colors.yellow" then sbc(colors.yellow) elseif colr == "colors.lime" then sbc(colors.lime) elseif colr == "colors.pink" then sbc(colors.pink) elseif colr == "colors.gray" then sbc(colors.gray) elseif colr == "colors.lightGray" then sbc(colors.lightGray) elseif colr == "colors.purple" then sbc(colors.purple) elseif colr == "colors.blue" then sbc(colors.blue) elseif colr == "colors.brown" then sbc(colors.brown) elseif colr == "colors.green" then sbc(colors.green) elseif colr == "colors.red" then sbc(colors.red) elseif colr == "colors.black" then sbc(colors.black) stc(colors.white) elseif colr == "colors.white" then sbc(colors.white) stc(colors.black)  end
tc()
if colr == "colors.orange" then sbc(colors.orange) elseif colr == "colors.magneta" then sbc(colors.magneta) elseif colr == "colors.lightBlue" then sbc(colors.lightBlue) elseif colr == "colors.yellow" then sbc(colors.yellow) elseif colr == "colors.lime" then sbc(colors.lime) elseif colr == "colors.pink" then sbc(colors.pink) elseif colr == "colors.gray" then sbc(colors.gray) elseif colr == "colors.lightGray" then sbc(colors.lightGray) elseif colr == "colors.purple" then sbc(colors.purple) elseif colr == "colors.blue" then sbc(colors.blue) elseif colr == "colors.brown" then sbc(colors.brown) elseif colr == "colors.green" then sbc(colors.green) elseif colr == "colors.red" then sbc(colors.red) elseif colr == "colors.black" then sbc(colors.black) stc(colors.white) elseif colr == "colors.white" then sbc(colors.white) stc(colors.black)  end
pfb(1, 1, w, 1, colors.blue)
scp(1,1)
stc(colors.white)
p("Aplikacje")
pdp(w,1,colors.red)


if fs.exists("/nshop/.dg") then
 pfb(15, 4, 15, 6, colors.gray)
 pfb(16, 4, 16, 6, colors.gray)
 pfb(17, 4, 17, 6, colors.lightGray)
 pdp(16, 5, colors.lightGray)
 pdp(17, 5, colors.gray)
 stc(colors.white)
if colr == "colors.orange" then sbc(colors.orange) elseif colr == "colors.magneta" then sbc(colors.magneta) elseif colr == "colors.lightBlue" then sbc(colors.lightBlue) elseif colr == "colors.yellow" then sbc(colors.yellow) elseif colr == "colors.lime" then sbc(colors.lime) elseif colr == "colors.pink" then sbc(colors.pink) elseif colr == "colors.gray" then sbc(colors.gray) elseif colr == "colors.lightGray" then sbc(colors.lightGray) elseif colr == "colors.purple" then sbc(colors.purple) elseif colr == "colors.blue" then sbc(colors.blue) elseif colr == "colors.brown" then sbc(colors.brown) elseif colr == "colors.green" then sbc(colors.green) elseif colr == "colors.red" then sbc(colors.red) elseif colr == "colors.black" then sbc(colors.black) stc(colors.white) elseif colr == "colors.white" then sbc(colors.white) stc(colors.black)  end
 scp(15,7)
 p("DGStatistics")
end


if fs.exists("/nshop/.tm") then
 pfb(28, 4, 30, 6, colors.gray)
 pfb(28, 4, 30, 4, colors.lightGray)
 pdp(29,5, colors.lightGray)
 pdp(29,6, colors.lightGray)
  stc(colors.white)
if colr == "colors.orange" then sbc(colors.orange) elseif colr == "colors.magneta" then sbc(colors.magneta) elseif colr == "colors.lightBlue" then sbc(colors.lightBlue) elseif colr == "colors.yellow" then sbc(colors.yellow) elseif colr == "colors.lime" then sbc(colors.lime) elseif colr == "colors.pink" then sbc(colors.pink) elseif colr == "colors.gray" then sbc(colors.gray) elseif colr == "colors.lightGray" then sbc(colors.lightGray) elseif colr == "colors.purple" then sbc(colors.purple) elseif colr == "colors.blue" then sbc(colors.blue) elseif colr == "colors.brown" then sbc(colors.brown) elseif colr == "colors.green" then sbc(colors.green) elseif colr == "colors.red" then sbc(colors.red) elseif colr == "colors.black" then sbc(colors.black) stc(colors.white) elseif colr == "colors.white" then sbc(colors.white) stc(colors.black)  end
 scp(28,7)
 p("TimeMachine")
end

if fs.exists("/nshop/.calc") then
 pfb(2, 8, 4, 8, colors.blue)
 pfb(2, 9, 4, 10, colors.cyan)
 stc(colors.white)
 if colr == "colors.orange" then sbc(colors.orange) elseif colr == "colors.magneta" then sbc(colors.magneta) elseif colr ==
 "colors.lightBlue" then sbc(colors.lightBlue) elseif colr == "colors.yellow" then sbc(colors.yellow) elseif colr == "colors.lime" then
 sbc(colors.lime) elseif colr == "colors.pink" then sbc(colors.pink) elseif colr == "colors.gray" then sbc(colors.gray) elseif colr ==
 "colors.lightGray" then sbc(colors.lightGray) elseif colr == "colors.purple" then sbc(colors.purple) elseif colr == "colors.blue" then
 sbc(colors.blue) elseif colr == "colors.brown" then sbc(colors.brown) elseif colr == "colors.green" then sbc(colors.green) elseif colr
 == "colors.red" then sbc(colors.red) elseif colr == "colors.black" then sbc(colors.black) stc(colors.white) elseif colr ==
 "colors.white" then sbc(colors.white) stc(colors.black)  end
 scp(2,11)
 p("Kalkulator")
end

if fse("/os/iko/.ico1") and fse("/os/iko/.ico1n") then
local iko1 = fs.open("/os/iko/.ico1", "r")
iko1p = iko1.readLine()
iko1.close()
local iko1n = fs.open("/os/iko/.ico1n", "r")
iko1pn = iko1n.readLine()
iko1n.close()
pfb(2, h-6, 4, h-4, colors.purple)
scp(2,h-3)
 if colr == "colors.orange" then sbc(colors.orange) elseif colr == "colors.magneta" then sbc(colors.magneta) elseif colr ==
 "colors.lightBlue" then sbc(colors.lightBlue) elseif colr == "colors.yellow" then sbc(colors.yellow) elseif colr == "colors.lime" then
 sbc(colors.lime) elseif colr == "colors.pink" then sbc(colors.pink) elseif colr == "colors.gray" then sbc(colors.gray) elseif colr ==
 "colors.lightGray" then sbc(colors.lightGray) elseif colr == "colors.purple" then sbc(colors.purple) elseif colr == "colors.blue" then
 sbc(colors.blue) elseif colr == "colors.brown" then sbc(colors.brown) elseif colr == "colors.green" then sbc(colors.green) elseif colr
 == "colors.red" then sbc(colors.red) elseif colr == "colors.black" then sbc(colors.black) stc(colors.white) elseif colr ==
 "colors.white" then sbc(colors.white) stc(colors.black)  end
p(iko1pn)
end

if fse("/os/iko/.ico2") and fse("/os/iko/.ico2n") then
local iko2 = fs.open("/os/iko/.ico2", "r")
iko2p = iko2.readLine()
iko2.close()
local iko2n = fs.open("/os/iko/.ico2n", "r")
iko2pn = iko2n.readLine()
iko2n.close()
pfb(15, h-6, 17, h-4, colors.green)
scp(15,h-3)
 if colr == "colors.orange" then sbc(colors.orange) elseif colr == "colors.magneta" then sbc(colors.magneta) elseif colr ==
 "colors.lightBlue" then sbc(colors.lightBlue) elseif colr == "colors.yellow" then sbc(colors.yellow) elseif colr == "colors.lime" then
 sbc(colors.lime) elseif colr == "colors.pink" then sbc(colors.pink) elseif colr == "colors.gray" then sbc(colors.gray) elseif colr ==
 "colors.lightGray" then sbc(colors.lightGray) elseif colr == "colors.purple" then sbc(colors.purple) elseif colr == "colors.blue" then
 sbc(colors.blue) elseif colr == "colors.brown" then sbc(colors.brown) elseif colr == "colors.green" then sbc(colors.green) elseif colr
 == "colors.red" then sbc(colors.red) elseif colr == "colors.black" then sbc(colors.black) stc(colors.white) elseif colr ==
 "colors.white" then sbc(colors.white) stc(colors.black)  end
p(iko2pn)
end

if fse("/os/iko/.ico3") and fse("/os/iko/.ico3n") then
local iko3 = fs.open("/os/iko/.ico3", "r")
iko3p = iko3.readLine()
iko3.close()
local iko3n = fs.open("/os/iko/.ico3n", "r")
iko3pn = iko3n.readLine()
iko3n.close()
pfb(28, h-6, 30, h-4, colors.orange)
scp(28,h-3)
 if colr == "colors.orange" then sbc(colors.orange) elseif colr == "colors.magneta" then sbc(colors.magneta) elseif colr ==
 "colors.lightBlue" then sbc(colors.lightBlue) elseif colr == "colors.yellow" then sbc(colors.yellow) elseif colr == "colors.lime" then
 sbc(colors.lime) elseif colr == "colors.pink" then sbc(colors.pink) elseif colr == "colors.gray" then sbc(colors.gray) elseif colr ==
 "colors.lightGray" then sbc(colors.lightGray) elseif colr == "colors.purple" then sbc(colors.purple) elseif colr == "colors.blue" then
 sbc(colors.blue) elseif colr == "colors.brown" then sbc(colors.brown) elseif colr == "colors.green" then sbc(colors.green) elseif colr
 == "colors.red" then sbc(colors.red) elseif colr == "colors.black" then sbc(colors.black) stc(colors.white) elseif colr ==
 "colors.white" then sbc(colors.white) stc(colors.black)  end
p(iko3pn)
end

local event, click, x, y = os.pullEvent("mouse_click")
if x>14 and x<18 and y>3 and y<7 and fs.exists("/nshop/.dg") then r("/nshop/.dg") end
if x>27 and x<31 and y>3 and y<7 and fs.exists("/nshop/.tm") then r("/nshop/.tm") end
if x>1 and x<5 and y>7 and y<11 and fs.exists("/nshop/.calc") then r("/nshop/.calc") end
if x>1 and x<5 and y>h-7 and y<h-3 and fse("/os/iko/.ico1") and fse("/os/iko/.ico1n") then r(iko1p) end
if x>14 and x<18 and y>h-7 and y<h-3 and fse("/os/iko/.ico2") and fse("/os/iko/.ico2n") then r(iko2p) end
if x>27 and x<31 and y>h-7 and y<h-3 and fse("/os/iko/.ico3") and fse("/os/iko/.ico3n") then r(iko3p) end
if x == w and y == 1 then system() end
if x == 1 and y == 1 then bsodf() end

end
end

function apps()
while true do
sbc(colors.black)
tc()
sbc(colors.black)
pfb(6, h, w, h, colors.blue)
sbc(colors.green)
stc(colors.white)
scp(1,h)
if colr == "colors.orange" then sbc(colors.orange) elseif colr == "colors.magneta" then sbc(colors.magneta) elseif colr == "colors.lightBlue" then sbc(colors.lightBlue) elseif colr == "colors.yellow" then sbc(colors.yellow) elseif colr == "colors.lime" then sbc(colors.lime) elseif colr == "colors.pink" then sbc(colors.pink) elseif colr == "colors.gray" then sbc(colors.gray) elseif colr == "colors.lightGray" then sbc(colors.lightGray) elseif colr == "colors.purple" then sbc(colors.purple) elseif colr == "colors.blue" then sbc(colors.blue) elseif colr == "colors.brown" then sbc(colors.brown) elseif colr == "colors.green" then sbc(colors.green) elseif colr == "colors.red" then sbc(colors.red) elseif colr == "colors.black" then sbc(colors.black) stc(colors.white) elseif colr == "colors.white" then sbc(colors.white) stc(colors.black)  end
aw("Start")
pfb(1, 1, w, 1, colors.blue)
pdp(w, 1, colors.red)
pdp(w-1, h, colors.red)
pdp(w-1, h, colors.orange)
scp(1,1)
sbc(colors.blue)
stc(colors.white)
p("Zarzadzanie aplikacjami")
pfb(3, 3, 5, 3, colors.gray)
pdp(3, 3, colors.lightGray)
scp(6,3)
stc(colors.white)
sbc(colors.black)
miejsce = math.ceil(fs.getFreeSpace("/")/1024)
p("Dysk twardy   Wolne miejsce: ", miejsce, "KB")
scp(1,6)
p("Aplikacje:")
scp(6,8)
stc(colors.white)
sbc(colors.black)
if fs.exists("/nshop/") then rozmiar = math.ceil(getSize("/nshop/")/1024) else
scp(1,7) sbc(colors.black) stc(colors.white) p("Brak zainstalowanych aplikacji") end
scp(1,5)
p("Laczny rozmiar aplikacji na dysku: ", rozmiar, "KB")
if fs.exists("/nshop/.exp") then pfb(3, 8, 5, 8, colors.blue) scp(6,8) stc(colors.white) sbc(colors.black) p("Eksplorator") scp(1,8) stc(colors.white) sbc(colors.red) p("X") end
if fs.exists("/nshop/.dg") then pfb(3, 10, 5, 10, colors.gray) scp(6,10) stc(colors.white) sbc(colors.black) p("DGStatistics") scp(1,10) stc(colors.white) sbc(colors.red) p("X") end
if fs.exists("/nshop/.tm") then pfb(3, 12, 5, 12, colors.green) scp(6,12) stc(colors.white) sbc(colors.black) p("TimeMachine") scp(1,12) stc(colors.white) sbc(colors.red) p("X") end
if fs.exists("/nshop/.calc") then pfb(3, 14, 5, 14, colors.cyan) scp(6,14) stc(colors.white) sbc(colors.black) p("Kalkulator") scp(1, 14) stc(colors.white) sbc(colors.red) p("X") end
local event, click, x, y = os.pullEvent("mouse_click")
if x>0 and x<6 and y == h then start() end
if x == 1 and y == 8 then fs.delete("/nshop/.exp") s(1)  end
if x == 1 and y == 10 then fs.delete("/nshop/.dg") s(1)  end
if x == 1 and y == 12 then fs.delete("/nshop/.tm") s(1)  end
if x == 1 and y == 14 then fs.delete("/nshop/.calc") s(1) end
if x == w and y == 1 then nust() end
end
end

function calc()
scp(16,2)
sbc(colors.white)
stc(colors.black)
p("Kalkulator NextUI to prosta")
scp(16,3)
p("aplikacja pozwalajaca na szybsze")
scp(16,4)
p("wykonywanie dzialan matematycznych")
scp(16,10)
p("Wydawca: Microcraft")
pfb(16, h, w, h, colors.blue)
if fs.exists("/nshop/.calc") then
 scp(16,h)
 sbc(colors.blue)
 stc(colors.white)
 write("Usun      Uruchom")
 local event, click, x, y = os.pullEvent("mouse_click")
 if x>15 and x<21 and y == h then fs.delete("/nshop/.calc") end
 if x>25 and x<34 and y == h then r("/nshop/.calc") end
else
 scp(30,h)
 write("Pobierz")
 local event, click, x, y = os.pullEvent("mouse_click")
 if x>29 and x<40 and y == h then
  if pass == "" then r("pastebin get dMjjSaKY /nshop/.calc")
  else
  pfb(10, 5, 30, 9, colors.blue)
  scp(10,5) stc(colors.white)
  p("Wymagana autoryzacja.")
  scp(10,6)
  p("Wpisz haslo:")
  scp(10,7)
  write("")
  haslo = read()
  if haslo == pass then r("pastebin get dMjjSaKY /nshop/.calc")
  end
  end
  end
end
end



function rc()
scp(16,2)
sbc(colors.white)
stc(colors.black)
p("ReactorControl to aplikacja,")
scp(16,3)
p("stworzona dla latwiejszej")
scp(16,4)
p("kontroli reaktorow z modyfikacji")
scp(16,5)
p("do Minecraft nazwanej BigReactors.")
scp(16,10)
p("Wydawca: Microcraft")
pfb(16, h, w, h, colors.blue)
scp(16,h)
write("Aplikacja nie jest jeszcze dostepna")
local event, click, x, y = os.pullEvent("mouse_click")
end


function tm()
scp(16,2)
sbc(colors.white)
stc(colors.black)
p("TimeMashine to aplikacja")
scp(16,3)
p("uruchamiajaca starsze wersje")
scp(16,4)
p("MineCore oraz Minedows dzieki")
scp(16,5)
p("NextUI API! Poznaj starsze")
scp(16,6)
p("systemy Microcraft bez zbednego")
scp(16,7)
p("zajmowania miejsca na dysku!")
scp(16,8)
p("Aplikacja stworzona na rocznice")
scp(16,9)
p("wydania MineCore 1.0!")
scp(16,12)
p("Wydawca: Microcraft")
pfb(16, h, w, h, colors.blue)
if fs.exists("/nshop/.tm") then
 scp(16,h)
 sbc(colors.blue)
 stc(colors.white)
 write("Usun      Uruchom")
 local event, click, x, y = os.pullEvent("mouse_click")
 if x>15 and x<21 and y == h then fs.delete("/nshop/.tm") end
 if x>25 and x<34 and y == h then r("/nshop/.tm") end
else
 scp(30,h)
 write("Pobierz")
 local event, click, x, y = os.pullEvent("mouse_click")
 if x>29 and x<40 and y == h then
  if pass == "" then r("pastebin get kCQLpZQS /nshop/.tm")
  else
  pfb(10, 5, 30, 9, colors.blue)
  scp(10,5) stc(colors.white)
  p("Wymagana autoryzacja.")
  scp(10,6)
  p("Wpisz haslo:")
  scp(10,7)
  write("")
  haslo = read()
  if haslo == pass then r("pastebin get kCQLpZQS /nshop/.tm")
  end
  end
  end
end
end


function dg()
scp(16,2)
sbc(colors.white)
stc(colors.black)
p("DGStatistics to aplikacja,")
scp(16,3)
p("stworzona we wspolpracy z ")
scp(16,4)
p("serwerem Darkness Grounds ")
scp(16,5)
p("pokazujaca statystyki broni")
scp(16,6)
p("Z ich autorskiej modyfikacji!")
scp(16,7)
p("Pobierz juz dzis!")
scp(16,10)
p("Wydawca: Microcraft;DG")
pfb(16, h, w, h, colors.blue)
scp(16,h)
if fs.exists("/nshop/.dg") then
 scp(16,h)
 sbc(colors.blue)
 stc(colors.white)
 write("Usun      Uruchom")
 local event, click, x, y = os.pullEvent("mouse_click")
 if x>15 and x<21 and y == h then fs.delete("/nshop/.dg") end
 if x>25 and x<34 and y == h then r("/nshop/.dg") end
else
 scp(30,h)
 write("Pobierz")
 local event, click, x, y = os.pullEvent("mouse_click")
 if x>29 and x<40 and y == h then
  if pass == "" then r("pastebin get qRNinxW4 /nshop/.dg")
  else
  pfb(10, 5, 30, 9, colors.blue)
  scp(10,5) stc(colors.white)
  p("Wymagana autoryzacja.")
  scp(10,6)
  p("Wpisz haslo:")
  scp(10,7)
  write("")
  haslo = read()
  if haslo == pass then r("pastebin get qRNinxW4 /nshop/.dg")
  end
  end
  end
end
end

function tm2()
while true do
pfb(1,2,w,h-1)
scp(1,2)
p("TimeMashine")
p("Wydawca: Microcraft")
scp(1,6)
p("TimeMashine pozwala na ponowne odwiedzenie klasycznych systemow Microcraft dzieki NextAPI. Przezyj podroz w przeszlosc, ukazujaca rozwoj Microcraft, od Minedowsa XP Pro 2.3, az po MineCore March Update.")
if not fs.exists("/nshop/.tm") then
pfb(w-15, 14, w-5, 16, colors.green)
stc(colors.white)
scp(w-15,15)
p("Pobierz")
local event, click, x, y = os.pullEvent("mouse_click")
if x>w-14 and x<w-4 and y>13 and y<17 then r("pastebin get kCQLpZQS /nshop/.tm") end
if x == w and y == 1 then nextstore() end
else
pfb(w-15, 14, w-5, 16, colors.green)
stc(colors.white)
scp(w-15,15)
p("Uruchom")
local event, click, x, y = os.pullEvent("mouse_click")
if x>w-14 and x<w-4 and y>13 and y<17 then r("/nshop/.tm") end
if x == w and y == 1 then nextstore() end
end
end
end

function kolorw()
scp(1,5)
if colr == "colors.orange" then sbc(colors.orange) elseif colr == "colors.magneta" then sbc(colors.magneta) elseif colr == "colors.lightBlue" then sbc(colors.lightBlue) elseif colr == "colors.yellow" then sbc(colors.yellow) elseif colr == "colors.lime" then sbc(colors.lime) elseif colr == "colors.pink" then sbc(colors.pink) elseif colr == "colors.gray" then sbc(colors.gray) elseif colr == "colors.lightGray" then sbc(colors.lightGray) elseif colr == "colors.purple" then sbc(colors.purple) elseif colr == "colors.blue" then sbc(colors.blue) elseif colr == "colors.brown" then sbc(colors.brown) elseif colr == "colors.green" then sbc(colors.green) elseif colr == "colors.red" then sbc(colors.red) elseif colr == "colors.black" then sbc(colors.black) stc(colors.white) elseif colr == "colors.white" then sbc(colors.white) stc(colors.black) end
p("Obecny kolor wiodacy: ", colr)
p("Wybierz nowy kolor wiodacy:")
pdp(1, 7, colors.orange)
pdp(2, 7, colors.lightBlue)
pdp(3, 7, colors.yellow)
pdp(4, 7, colors.lime)
pdp(5, 7, colors.pink)
pdp(6, 7, colors.gray)
pdp(7, 7, colors.lightGray)
pdp(8, 7, colors.purple)
pdp(9, 7, colors.blue)
pdp(10, 7, colors.brown)
pdp(11, 7, colors.green)
pdp(12, 7, colors.red)
pdp(13, 7, colors.black)
pdp(14, 7, colors.white)
local event, click, x, y = os.pullEvent("mouse_click")
if x == 1 and y == 7 then r("rm /os/.kol") local colw = fs.open("/os/.kol", "w") colw.writeLine("colors.orange") colw.close() end
if x == 2 and y == 7 then r("rm /os/.kol") local colw = fs.open("/os/.kol", "w") colw.writeLine("colors.lightBlue") colw.close() end
if x == 3 and y == 7 then r("rm /os/.kol") local colw = fs.open("/os/.kol", "w") colw.writeLine("colors.yellow") colw.close() end
if x == 4 and y == 7 then r("rm /os/.kol") local colw = fs.open("/os/.kol", "w") colw.writeLine("colors.lime") colw.close() end
if x == 5 and y == 7 then r("rm /os/.kol") local colw = fs.open("/os/.kol", "w") colw.writeLine("colors.pink") colw.close() end
if x == 6 and y == 7 then r("rm /os/.kol") local colw = fs.open("/os/.kol", "w") colw.writeLine("colors.gray") colw.close() end
if x == 7 and y == 7 then r("rm /os/.kol") local colw = fs.open("/os/.kol", "w") colw.writeLine("colors.lightGray") colw.close() end
if x == 8 and y == 7 then r("rm /os/.kol") local colw = fs.open("/os/.kol", "w") colw.writeLine("colors.purple") colw.close() end
if x == 9 and y == 7 then r("rm /os/.kol") local colw = fs.open("/os/.kol", "w") colw.writeLine("colors.blue") colw.close() end
if x == 10 and y == 7 then r("rm /os/.kol") local colw = fs.open("/os/.kol", "w") colw.writeLine("colors.brown") colw.close() end
if x == 11 and y == 7 then r("rm /os/.kol") local colw = fs.open("/os/.kol", "w") colw.writeLine("colors.green") colw.close() end
if x == 12 and y == 7 then r("rm /os/.kol") local colw = fs.open("/os/.kol", "w") colw.writeLine("colors.red") colw.close() end
if x == 13 and y == 7 then r("rm /os/.kol") local colw = fs.open("/os/.kol", "w") colw.writeLine("colors.black") colw.close() end
if x == 14 and y == 7 then r("rm /os/.kol") local colw = fs.open("/os/.kol", "w") colw.writeLine("colors.white") colw.close() end
end

function deskust()
while true do
kolor()
if colr == "colors.orange" then sbc(colors.orange) elseif colr == "colors.magneta" then sbc(colors.magneta) elseif colr == "colors.lightBlue" then sbc(colors.lightBlue) elseif colr == "colors.yellow" then sbc(colors.yellow) elseif colr == "colors.lime" then sbc(colors.lime) elseif colr == "colors.pink" then sbc(colors.pink) elseif colr == "colors.gray" then sbc(colors.gray) elseif colr == "colors.lightGray" then sbc(colors.lightGray) elseif colr == "colors.purple" then sbc(colors.purple) elseif colr == "colors.blue" then sbc(colors.blue) elseif colr == "colors.brown" then sbc(colors.brown) elseif colr == "colors.green" then sbc(colors.green) elseif colr == "colors.red" then sbc(colors.red) elseif colr == "colors.black" then sbc(colors.black) stc(colors.white) elseif colr == "colors.white" then sbc(colors.white) stc(colors.black) end
tc()
if colr == "colors.orange" then sbc(colors.orange) elseif colr == "colors.magneta" then sbc(colors.magneta) elseif colr == "colors.lightBlue" then sbc(colors.lightBlue) elseif colr == "colors.yellow" then sbc(colors.yellow) elseif colr == "colors.lime" then sbc(colors.lime) elseif colr == "colors.pink" then sbc(colors.pink) elseif colr == "colors.gray" then sbc(colors.gray) elseif colr == "colors.lightGray" then sbc(colors.lightGray) elseif colr == "colors.purple" then sbc(colors.purple) elseif colr == "colors.blue" then sbc(colors.blue) elseif colr == "colors.brown" then sbc(colors.brown) elseif colr == "colors.green" then sbc(colors.green) elseif colr == "colors.red" then sbc(colors.red) elseif colr == "colors.black" then sbc(colors.black) stc(colors.white) elseif colr == "colors.white" then sbc(colors.white) stc(colors.black) end
pfb(1, 1, w, 1, colors.blue)
scp(1,1)
stc(colors.white)
p("Ustawienia NextUI")
pdp(w,1, colors.red)
if colr == "colors.orange" then sbc(colors.orange) elseif colr == "colors.magneta" then sbc(colors.magneta) elseif colr == "colors.lightBlue" then sbc(colors.lightBlue) elseif colr == "colors.yellow" then sbc(colors.yellow) elseif colr == "colors.lime" then sbc(colors.lime) elseif colr == "colors.pink" then sbc(colors.pink) elseif colr == "colors.gray" then sbc(colors.gray) elseif colr == "colors.lightGray" then sbc(colors.lightGray) elseif colr == "colors.purple" then sbc(colors.purple) elseif colr == "colors.blue" then sbc(colors.blue) elseif colr == "colors.brown" then sbc(colors.brown) elseif colr == "colors.green" then sbc(colors.green) elseif colr == "colors.red" then sbc(colors.red) elseif colr == "colors.black" then sbc(colors.black) stc(colors.white) elseif colr == "colors.white" then sbc(colors.white) stc(colors.black) end
 scp(1,2)
 p("Styl graficzny: Domyslny NextUI")
 p("Brak dostepnych stylow")
 p("Wybierz kolor wiodacy")
 local event, click, x, y = os.pullEvent("mouse_click")
 if x>0 and x<25 and y == 4 then kolorw() end
 if x == w and y == 1 then nust() end
end
end


function infust()
while true do
kolor()
if colr == "colors.orange" then sbc(colors.orange) elseif colr == "colors.magneta" then sbc(colors.magneta) elseif colr == "colors.lightBlue" then sbc(colors.lightBlue) elseif colr == "colors.yellow" then sbc(colors.yellow) elseif colr == "colors.lime" then sbc(colors.lime) elseif colr == "colors.pink" then sbc(colors.pink) elseif colr == "colors.gray" then sbc(colors.gray) elseif colr == "colors.lightGray" then sbc(colors.lightGray) elseif colr == "colors.purple" then sbc(colors.purple) elseif colr == "colors.blue" then sbc(colors.blue) elseif colr == "colors.brown" then sbc(colors.brown) elseif colr == "colors.green" then sbc(colors.green) elseif colr == "colors.red" then sbc(colors.red) elseif colr == "colors.black" then sbc(colors.black) stc(colors.white) elseif colr == "colors.white" then sbc(colors.white) stc(colors.black) end
tc()
if colr == "colors.orange" then sbc(colors.orange) elseif colr == "colors.magneta" then sbc(colors.magneta) elseif colr == "colors.lightBlue" then sbc(colors.lightBlue) elseif colr == "colors.yellow" then sbc(colors.yellow) elseif colr == "colors.lime" then sbc(colors.lime) elseif colr == "colors.pink" then sbc(colors.pink) elseif colr == "colors.gray" then sbc(colors.gray) elseif colr == "colors.lightGray" then sbc(colors.lightGray) elseif colr == "colors.purple" then sbc(colors.purple) elseif colr == "colors.blue" then sbc(colors.blue) elseif colr == "colors.brown" then sbc(colors.brown) elseif colr == "colors.green" then sbc(colors.green) elseif colr == "colors.red" then sbc(colors.red) elseif colr == "colors.black" then sbc(colors.black) stc(colors.white) elseif colr == "colors.white" then sbc(colors.white) stc(colors.black) end
pfb(1, 1, w, 1, colors.blue)
scp(1,1)
stc(colors.white)
p("Ustawienia NextUI")
pdp(w,1, colors.red)
if colr == "colors.orange" then sbc(colors.orange) elseif colr == "colors.magneta" then sbc(colors.magneta) elseif colr == "colors.lightBlue" then sbc(colors.lightBlue) elseif colr == "colors.yellow" then sbc(colors.yellow) elseif colr == "colors.lime" then sbc(colors.lime) elseif colr == "colors.pink" then sbc(colors.pink) elseif colr == "colors.gray" then sbc(colors.gray) elseif colr == "colors.lightGray" then sbc(colors.lightGray) elseif colr == "colors.purple" then sbc(colors.purple) elseif colr == "colors.blue" then sbc(colors.blue) elseif colr == "colors.brown" then sbc(colors.brown) elseif colr == "colors.green" then sbc(colors.green) elseif colr == "colors.red" then sbc(colors.red) elseif colr == "colors.black" then sbc(colors.black) stc(colors.white) elseif colr == "colors.white" then sbc(colors.white) stc(colors.black) end
scp(1,2)
p("Microcraft NextUI")
p("Wersja systemu: 1.8 Embedded Developers Update")
zajete = math.ceil(getSize("/")/1024)
wolne = math.ceil(fs.getFreeSpace("/")/1024)
p("Wolne miejsce na dysku:", wolne, "KB")
p("Obecna nazwa komputera: ", os.getComputerLabel())
if pass == "" then log = "nie" else log = "tak" end
p("Logowanie wlaczone: ", log)
p("Rozdzielczosc ekranu: ", w, h)
p("Wersja CraftOS: ", os.version())
local event, click, x, y = os.pullEvent("mouse_click")
if x == w and y == 1 then nust() end
end
end

function cmd()
s(1)
tc()
sbc(colors.black)
tc()
sbc(colors.black)
stc(colors.white)
scp(1,1)
p("MineCore Command Prompt")
p("2018 Microcraft")
p("Wpisz 'help', aby uzyskac pomoc")
while true do
write("./minecore/>")
comm = read()
if comm == "help" then
 p("'ver' - wersja MineCore")
 p("'next' - powrot do NextUI")
 p("'nextver' - wersja NextUI")
 p("'run' - uruchom plik")
 p("'log' - zmiana hasla")
 p("'reboot' - uruchom ponownie")
 p("'shutdown' - wylacz komputer")
 p("'store' - sklep z aplikacjami")
 p("'craft' - powrot do CraftOS")
 p("'update' - aktualizuj NextUI")
 p("'dir' - lista plikow w danym folderze")
 p("'res' - rozdzielczosc ekranu")
 p("'set' - Ustawienia NextUI")
 p("'app' - Aplikacje NextUI")
end
if comm == "reboot" then re() end
if comm == "shutdown" then su() end
if comm == "res" then p(w, h) end
if comm == "update" then r("/os/.update") end
if comm == "set" then nust() end
if comm == "app" then app() end
if comm == "dir" then
 write(".Podaj sciezke>")
 dir1 = read()
 r("dir", dir1)
end
if comm == "store" then sklep() end
if comm == "ver" then
 p("Microcraft MineCore 2.0 2020.")
 p("Microcraft MineUI D 1.5 2018.")
end
if comm == "nextver" then
 p("Microcraft NextUI 1.81 EM Developers Update 2020.")
end
if comm == "next" then system() end
if comm == "run" then
 write("Wpisz sciezke pliku: ")
 plik = read()
 if fs.exists(plik) then r(plik) end
end
if comm == "log" then
 write("Wpisz nowe haslo: ")
 passw = read()
 r("rm /os/.log2")
 local pas = fs.open("/os/.log2", "w")
 pass = pas.writeLine(passw)
 pas.close()
 p("Uruchamianie ponownie...")
 s(1)
 re()
end
end
end

function setust()
while true do
kolor()
if colr == "colors.orange" then sbc(colors.orange) elseif colr == "colors.magneta" then sbc(colors.magneta) elseif colr == "colors.lightBlue" then sbc(colors.lightBlue) elseif colr == "colors.yellow" then sbc(colors.yellow) elseif colr == "colors.lime" then sbc(colors.lime) elseif colr == "colors.pink" then sbc(colors.pink) elseif colr == "colors.gray" then sbc(colors.gray) elseif colr == "colors.lightGray" then sbc(colors.lightGray) elseif colr == "colors.purple" then sbc(colors.purple) elseif colr == "colors.blue" then sbc(colors.blue) elseif colr == "colors.brown" then sbc(colors.brown) elseif colr == "colors.green" then sbc(colors.green) elseif colr == "colors.red" then sbc(colors.red) elseif colr == "colors.black" then sbc(colors.black) stc(colors.white) elseif colr == "colors.white" then sbc(colors.white) stc(colors.black) end
tc()
if colr == "colors.orange" then sbc(colors.orange) elseif colr == "colors.magneta" then sbc(colors.magneta) elseif colr == "colors.lightBlue" then sbc(colors.lightBlue) elseif colr == "colors.yellow" then sbc(colors.yellow) elseif colr == "colors.lime" then sbc(colors.lime) elseif colr == "colors.pink" then sbc(colors.pink) elseif colr == "colors.gray" then sbc(colors.gray) elseif colr == "colors.lightGray" then sbc(colors.lightGray) elseif colr == "colors.purple" then sbc(colors.purple) elseif colr == "colors.blue" then sbc(colors.blue) elseif colr == "colors.brown" then sbc(colors.brown) elseif colr == "colors.green" then sbc(colors.green) elseif colr == "colors.red" then sbc(colors.red) elseif colr == "colors.black" then sbc(colors.black) stc(colors.white) elseif colr == "colors.white" then sbc(colors.white) stc(colors.black) end
pfb(1, 1, w, 1, colors.blue)
scp(1,1)
stc(colors.white)
p("Ustawienia NextUI")
pdp(w,1, colors.red)
if colr == "colors.orange" then sbc(colors.orange) elseif colr == "colors.magneta" then sbc(colors.magneta) elseif colr == "colors.lightBlue" then sbc(colors.lightBlue) elseif colr == "colors.yellow" then sbc(colors.yellow) elseif colr == "colors.lime" then sbc(colors.lime) elseif colr == "colors.pink" then sbc(colors.pink) elseif colr == "colors.gray" then sbc(colors.gray) elseif colr == "colors.lightGray" then sbc(colors.lightGray) elseif colr == "colors.purple" then sbc(colors.purple) elseif colr == "colors.blue" then sbc(colors.blue) elseif colr == "colors.brown" then sbc(colors.brown) elseif colr == "colors.green" then sbc(colors.green) elseif colr == "colors.red" then sbc(colors.red) elseif colr == "colors.black" then sbc(colors.black) stc(colors.white) elseif colr == "colors.white" then sbc(colors.white) stc(colors.black) end
p("Zmien nazwe komputera")
p("Aktualizuj system")
p("Wiersz polecen")
p("Zmien jezyk")
local event, click, x, y = os.pullEvent("mouse_click")
if x>0 and x<20 and y == 2 then
 scp(1,2)
  write("Wpisz nowa nazwe: ")
  nazwa = read()
  os.setComputerLabel(nazwa)
  setust()
end
if x>0 and x<20 and y == 3 then r("/os/.update") end
if x>0 and x<20 and y == 4 then cmd() end
if x>0 and x<20 and y == 5 then r("pastebin run JQvW06m6") end
if x == w and y == 1 then nust() end
end
end


function nust()
while true do
if colr == "colors.orange" then sbc(colors.orange) elseif colr == "colors.magneta" then sbc(colors.magneta) elseif colr == "colors.lightBlue" then sbc(colors.lightBlue) elseif colr == "colors.yellow" then sbc(colors.yellow) elseif colr == "colors.lime" then sbc(colors.lime) elseif colr == "colors.pink" then sbc(colors.pink) elseif colr == "colors.gray" then sbc(colors.gray) elseif colr == "colors.lightGray" then sbc(colors.lightGray) elseif colr == "colors.purple" then sbc(colors.purple) elseif colr == "colors.blue" then sbc(colors.blue) elseif colr == "colors.brown" then sbc(colors.brown) elseif colr == "colors.green" then sbc(colors.green) elseif colr == "colors.red" then sbc(colors.red) elseif colr == "colors.black" then sbc(colors.black) stc(colors.white) elseif colr == "colors.white" then sbc(colors.white) stc(colors.black) end
tc()
if colr == "colors.orange" then sbc(colors.orange) elseif colr == "colors.magneta" then sbc(colors.magneta) elseif colr == "colors.lightBlue" then sbc(colors.lightBlue) elseif colr == "colors.yellow" then sbc(colors.yellow) elseif colr == "colors.lime" then sbc(colors.lime) elseif colr == "colors.pink" then sbc(colors.pink) elseif colr == "colors.gray" then sbc(colors.gray) elseif colr == "colors.lightGray" then sbc(colors.lightGray) elseif colr == "colors.purple" then sbc(colors.purple) elseif colr == "colors.blue" then sbc(colors.blue) elseif colr == "colors.brown" then sbc(colors.brown) elseif colr == "colors.green" then sbc(colors.green) elseif colr == "colors.red" then sbc(colors.red) elseif colr == "colors.black" then sbc(colors.black) stc(colors.white) elseif colr == "colors.white" then sbc(colors.white) stc(colors.black) end
pfb(1, h, w, h, colors.blue)
scp(1,h)
stc(colors.white)
if colr == "colors.orange" then sbc(colors.orange) elseif colr == "colors.magneta" then sbc(colors.magneta) elseif colr == "colors.lightBlue" then sbc(colors.lightBlue) elseif colr == "colors.yellow" then sbc(colors.yellow) elseif colr == "colors.lime" then sbc(colors.lime) elseif colr == "colors.pink" then sbc(colors.pink) elseif colr == "colors.gray" then sbc(colors.gray) elseif colr == "colors.lightGray" then sbc(colors.lightGray) elseif colr == "colors.purple" then sbc(colors.purple) elseif colr == "colors.blue" then sbc(colors.blue) elseif colr == "colors.brown" then sbc(colors.brown) elseif colr == "colors.green" then sbc(colors.green) elseif colr == "colors.red" then sbc(colors.red) elseif colr == "colors.black" then sbc(colors.black) stc(colors.white) elseif colr == "colors.white" then sbc(colors.white) stc(colors.black) end
write("Start")
pdp(w-1,h, colors.red)
pdp(w,h, colors.orange)
pfb(1, 1, w, 1, colors.blue)
scp(1,1)
p("Ustawienia NextUI")
pdp(w,1, colors.red)
pfb(3, 4, 13, 6, colors.orange)
scp(3,5)
stc(colors.white)
p("Informacje")
pfb(27, 4, 37, 6, colors.cyan)
scp(27,5)
stc(colors.white)
p("Biurko")
pfb(15, 4, 25, 6, colors.green)
scp(15,5)
stc(colors.white)
p("Ustawienia")
pfb(39, 4, 49, 6, colors.red)
scp(39,5)
stc(colors.white)
p("Aplikacje")
local event, click, x, y = os.pullEvent("mouse_click")
if x == w and y == 1 then system() end
if x>0 and x<6 and y == h then start() end
if x>2 and x<14 and y>3 and y<7 then infust() end
if x>14 and x<26 and y>3 and y<7 then setust() end
if x>26 and x<38 and y>3 and y<7 then deskust() end
if x>38 and x<50 and y>3 and y<7 then apps() end
end
end

if fs.exists("/os/.ver") then
local wer = fs.open("/os/.ver", "r")
ver = wer.readLine()
wer.close()
end

function res()
if w<51 and h<19 then tc() p("NextUI wymaga monitora o rozdzielczosci 51x19 lub wiekszej. System nie moze dzialac na Twoim urzadzeniu. Rozdzielczosc Twojego monitora to:", w, h) elseif w == 51 and h == 19 then tryb = 1 elseif w>65 and h>25 then tryb = 2 end
end

function kolor()
local col = fs.open("/os/.kol", "r")
colr = col.readLine()
col.close()
end

function ikony()
while true do
tc()
if colr == "colors.orange" then sbc(colors.orange) elseif colr == "colors.magneta" then sbc(colors.magneta) elseif colr == "colors.lightBlue" then sbc(colors.lightBlue) elseif colr == "colors.yellow" then sbc(colors.yellow) elseif colr == "colors.lime" then sbc(colors.green) elseif colr == "colors.pink" then sbc(colors.pink) elseif colr == "colors.gray" then sbc(colors.gray) elseif colr == "colors.lightGray" then sbc(colors.lightGray) elseif colr == "colors.purple" then sbc(colors.purple) elseif colr == "colors.blue" then sbc(colors.blue) elseif colr == "colors.brown" then sbc(colors.brown) elseif colr == "colors.green" then sbc(colors.green) elseif colr == "colors.red" then sbc(colors.white) elseif colr == "colors.black" then sbc(colors.black) elseif colr == "colors.white" then sbc(colors.white) stc(colors.black) end
tc()
if colr == "colors.orange" then sbc(colors.orange) elseif colr == "colors.magneta" then sbc(colors.magneta) elseif colr == "colors.lightBlue" then sbc(colors.lightBlue) elseif colr == "colors.yellow" then sbc(colors.yellow) elseif colr == "colors.lime" then sbc(colors.green) elseif colr == "colors.pink" then sbc(colors.pink) elseif colr == "colors.gray" then sbc(colors.gray) elseif colr == "colors.lightGray" then sbc(colors.lightGray) elseif colr == "colors.purple" then sbc(colors.purple) elseif colr == "colors.blue" then sbc(colors.blue) elseif colr == "colors.brown" then sbc(colors.brown) elseif colr == "colors.green" then sbc(colors.green) elseif colr == "colors.red" then sbc(colors.white) elseif colr == "colors.black" then sbc(colors.black) elseif colr == "colors.white" then sbc(colors.white) stc(colors.black) end
stc(colors.white)
pfb(1, 1, w, 1, colors.gray)
pdp(w, 1, colors.red)
sbc(colors.gray)
scp(1,1)
p("Tworzenie ikon NextUI 2.0 Beta")
scp(1,2)
stc(colors.white)
if colr == "colors.orange" then sbc(colors.orange) elseif colr == "colors.magneta" then sbc(colors.magneta) elseif colr == "colors.lightBlue" then sbc(colors.lightBlue) elseif colr == "colors.yellow" then sbc(colors.yellow) elseif colr == "colors.lime" then sbc(colors.lime) elseif colr == "colors.pink" then sbc(colors.pink) elseif colr == "colors.gray" then sbc(colors.gray) elseif colr == "colors.lightGray" then sbc(colors.lightGray) elseif colr == "colors.purple" then sbc(colors.purple) elseif colr == "colors.blue" then sbc(colors.blue) elseif colr == "colors.brown" then sbc(colors.brown) elseif colr == "colors.green" then sbc(colors.green) elseif colr == "colors.red" then sbc(colors.red) elseif colr == "colors.black" then sbc(colors.black) elseif colr == "colors.white" then sbc(colors.white) stc(colors.black) end
p("Witamy w kreatorze ikon. Wybierz miejsce na ikone:")
if fs.exists("/os/iko/.ico1") then iko1 = "Zajete" else iko1 = "Wolne" end
if fs.exists("/os/iko/.ico2") then iko2 = "Zajete" else iko2 = "Wolne" end
if fs.exists("/os/iko/.ico3") then iko3 = "Zajete" else iko3 = "Wolne" end
scp(1,6)
p("Ikona 1: ", iko1)
p("Ikona 2: ", iko2)
p("Ikona 3: ", iko3)
local event, click, x, y = os.pullEvent("mouse_click")
if x == w and y == 1 then system() end

if x>0 and x<20 and y == 6 and iko1 == "Wolne" then
 scp(1,10)
 p("Wpisz sciezke skrotu: ")
 write(".>")
 sciezka = read()
 p("Wpisz nazwe skrotu: ")
 nazwa = read()
 local iko1s = fs.open("/os/iko/.ico1", "w")
 iko1s.writeLine(sciezka)
 iko1s.close()
 local iko1n = fs.open("/os/iko/.ico1n", "w")
 iko1n.writeLine(nazwa)
 iko1n.close()
end
if x>0 and x<20 and y == 8 and iko3 == "Wolne" then
 scp(1,10)
 p("Wpisz sciezke skrotu: ")
 write(".>")
 sciezka = read()
 p("Wpisz nazwe skrotu: ")
 nazwa = read()
 local ikon3 = fs.open("/os/iko/.ico3", "w")
 ikon3.writeLine(sciezka)
 ikon3.close()
 local ikon3n = fs.open("/os/iko/.ico3n", "w")
 ikon3n.writeLine(nazwa)
 ikon3n.close()
end
if x>0 and x<20 and y == 7 and iko2 == "Wolne" then
 scp(1,10)
 p("Wpisz sciezke skrotu: ")
 write(".>")
 sciezka = read()
 p("Wpisz nazwe skrotu: ")
 nazwa = read()
 local ikon2 = fs.open("/os/iko/.ico2", "w")
 ikon2.writeLine(sciezka)
 ikon2.close()
 local ikon2n = fs.open("/os/iko/.ico2n", "w")
 ikon2n.writeLine(nazwa)
 ikon2n.close()
end
if x>0 and x<20 and y == 6 and iko1 == "Zajete" then
 fs.delete("/os/iko/.ico1")
 fs.delete("/os/iko/.ico1n")
end
if x>0 and x<20 and y == 7 and iko2 == "Zajete" then
 fs.delete("/os/iko/.ico2")
 fs.delete("/os/iko/.ico2n")
end
if x>0 and x<20 and y == 8 and iko3 == "Zajete" then
 fs.delete("/os/iko/.ico3")
 fs.delete("/os/iko/.ico3n")
end
end
end


function start()
pfb(1, h-8, 20, h-1, colors.black)
scp(1, h-8)
sbc(colors.white)
stc(colors.black)
p("NextUI 1.8 EM Start ")
sbc(colors.black)
stc(colors.white)
scp(1, h-7)
p("nextStore 2.0       ")
p("Paint               ")
p("2048                ")
p("Snake               ")
p("Edytor              ")
p("Ustawienia          ")
p("Ikony pulpitu       ")
local event, click, x, y = os.pullEvent("mouse_click")
if x>0 and x<21 and y == h-1 then ikony() end
if x>0 and x<21 and y == h-2 then nust() end
if x>0 and x<21 and y == h-3 then
 if fse("/os/.luaide") then r("/os/.luaide") else bsodf()
 end
end
if x>0 and x<21 and y == h-4 then r("worm") end
if x>0 and x<21 and y == h-5 then r("/os/.2048") end
if x>0 and x<21 and y == h-6 then r("/os/.paint") end
if x>0 and x<21 and y == h-7 then nextstore() end
end
function pulpit()
sbc(colors.cyan)
tc()
sbc(colors.cyan)
local obraz = pul("/os/.pulpit")
pud(obraz, 5, 3)
pfb(1, 1, w, 1, colors.black)
scp(1,1)
stc(colors.white)
if w>=65 then p("Microcraft NextUI 1.86 EmbeddedOS. 2020 ") else p("Microcraft NextUI 1.86 EM") end
scp(1,h)
if colr == "colors.orange" then sbc(colors.orange) elseif colr == "colors.magneta" then sbc(colors.magneta) elseif colr == "colors.lightBlue" then sbc(colors.lightBlue) elseif colr == "colors.yellow" then sbc(colors.yellow) elseif colr == "colors.lime" then sbc(colors.lime) elseif colr == "colors.pink" then sbc(colors.pink) elseif colr == "colors.gray" then sbc(colors.gray) elseif colr == "colors.lightGray" then sbc(colors.lightGray) elseif colr == "colors.purple" then sbc(colors.purple) elseif colr == "colors.blue" then sbc(colors.blue) elseif colr == "colors.brown" then sbc(colors.brown) elseif colr == "colors.green" then sbc(colors.green) elseif colr == "colors.red" then sbc(colors.red) elseif colr == "colors.black" then sbc(colors.black) stc(colors.white) elseif colr == "colors.white" then sbc(colors.white) stc(colors.black) end
write("Start")
pfb(6, h, w, h, colors.blue)
scp(w-12,h)
if colr == "colors.orange" then sbc(colors.orange) elseif colr == "colors.magneta" then sbc(colors.magneta) elseif colr == "colors.lightBlue" then sbc(colors.lightBlue) elseif colr == "colors.yellow" then sbc(colors.yellow) elseif colr == "colors.lime" then sbc(colors.lime) elseif colr == "colors.pink" then sbc(colors.pink) elseif colr == "colors.gray" then sbc(colors.gray) elseif colr == "colors.lightGray" then sbc(colors.lightGray) elseif colr == "colors.purple" then sbc(colors.purple) elseif colr == "colors.blue" then sbc(colors.blue) elseif colr == "colors.brown" then sbc(colors.brown) elseif colr == "colors.green" then sbc(colors.green) elseif colr == "colors.red" then sbc(colors.red) elseif colr == "colors.black" then sbc(colors.black) stc(colors.white) elseif colr == "colors.white" then sbc(colors.white) stc(colors.black) end
write("Aplikacje")
pdp(w, h, colors.red)
pdp(w-1, h, colors.orange)
end

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

function nextstore()
while true do
res()
sbc(colors.white)
tc()
sbc(colors.white)

sbc(colors.black)
stc(colors.white)
scp(1,1)
p("Start")
pdp(w,h,colors.red)
pdp(w-1,h,colors.orange)
pfb(1,1,w,1,colors.blue)
scp(1,1)
stc(colors.white)
p("nextStore 2.0")
pdp(w,1, colors.red)
sbc(colors.white)
stc(colors.black)
scp(1,2)
p("DGStatistics")
p("ReactorControl")
p("TimeMashine")
p("Kalkulator")
scp(1,h-1)
p("Wolne miejsce:")
miejsce = math.ceil(fs.getFreeSpace("/")/1024)
write(fs.getFreeSpace("/")/1024, "KB")
local event, click, x, y = os.pullEvent("mouse_click")
if x>0 and x<16 and y == 2 then dg() end
if x>0 and x<16 and y == 3 then rc() end
if x>0 and x<16 and y == 4 then tm() end
if x>0 and x<16 and y == 5 then calc() end
if x == w and y == 1 then system() end
pdp(w,1, colors.red)
end
end

function mysz()
local event, click, x, y = os.pullEvent("mouse_click")
if x == w and y == h then su() end
if x == w-1 and y == h then re() end
if x>0 and x<6 and y == h then start() end
if x<w-1 and x>w-13 and y == h then app() end
end

function godz()
while true do
scp(w-6,1)
sbc(colors.black)
stc(colors.white)
print( textutils.formatTime(os.time("local"), true ) )
s(1)
end
end

function system()
while true do
kolor()
pulpit()
parallel.waitForAny(godz, mysz)
end
end

--function system()
--while true do
--kolor()
--pulpit()
--mysz()
--end
--end

res()
logo()
system()