NextUI 1.8 ENG

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 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 encountered a fatal error and had to shutdown. If you see this screen for the first time reboot your computer, but if problem persists report it to Microcraft.")
p("STOP Code: 0x302525503149")
p("Error name: APP_MSNG")
system = "NextUI"
kernel = "MineCore"
kod = "0x302525503149"
nazwa = "APP_MSNG"
p("Saving error details in /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("Your PC will reboot in 10 seconds")
s(10)
re()
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("NextUI")
p("Enter your password")
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("Apps")
pdp(w,1,colors.red)
if fs.exists("/nshop/.exp") then
pfb(2, 4, 2, 6, colors.orange)
pfb(3, 4, 3, 6, colors.yellow)
pfb(4, 4, 4, 6, colors.red)
scp(2,7)
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
p("Explorer")
end

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("Calculator")
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>1 and x<5 and y>3 and y<7 and fs.exists("/nshop/.exp") then r("/nshop/.exp") end
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

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("Apps management")
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("Hard drive   Free space: ", miejsce, "KB")
scp(1,6)
p("Apps:")
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("Apps sizes: ", 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)
scp(16,10)
p("Publisher: Microcraft")
pfb(16, h, w, h, colors.blue)
if fs.exists("/nshop/.calc") then
 scp(16,h)
 sbc(colors.blue)
 stc(colors.white)
 write("Remove    Run")
 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("Download")
 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("Pasword required.")
  scp(10,6)
  p("Enter password:")
  scp(10,7)
  write("")
  haslo = read()
  if haslo == pass then r("pastebin get dMjjSaKY /nshop/.calc")
  end
  end
  end
end
end

function ep()
sbc(colors.white)
stc(colors.black)
scp(16,2)
p("App only supports")
scp(16,3)
p("51x19 resolution.")
scp(16,10)
p("Publisher: Microcraft")
pfb(16, h, w, h, colors.blue)
if fs.exists("/nshop/.exp") then
 scp(16,h)
 sbc(colors.blue)
 stc(colors.white)
 write("Remove    Run")
 local event, click, x, y = os.pullEvent("mouse_click")
 if x>15 and x<21 and y == h then fs.delete("/nshop/.exp") end
 if x>25 and x<34 and y == h then r("/nshop/.exp") end
else
 scp(30,h)
 write("Download")
 local event, click, x, y = os.pullEvent("mouse_click")
 if x>29 and x<40 then
  if pass == "" then r("pastebin get zbzF7Zu4 /nshop/.exp")
  else
  pfb(10, 5, 30, 9, colors.blue)
  scp(10,5) stc(colors.white)
  p("Pasword required.")
  scp(10,6)
  p("Enter password:")
  scp(10,7)
  write("")
  haslo = read()
  if haslo == pass then r("pastebin get zbzF7Zu4 /nshop/.exp")
  end
  end
  end
end
end


function rc()
sbc(colors.white)
stc(colors.black)
scp(16,10)
p("Wydawca: Publisher")
pfb(16, h, w, h, colors.blue)
scp(16,h)
write("App is not yet available")
local event, click, x, y = os.pullEvent("mouse_click")
end


function tm()
scp(16,2)
sbc(colors.white)
stc(colors.black)
p("App is available in Polish")
scp(16,3)
p("only")
scp(16,12)
p("Publisher: Microcraft")
pfb(16, h, w, h, colors.blue)
if fs.exists("/nshop/.tm") then
 scp(16,h)
 sbc(colors.blue)
 stc(colors.white)
 write("Remove    Run")
 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("Download")
 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("Pasword required.")
  scp(10,6)
  p("Enter password:")
  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("App is available in Polish")
scp(16,3)
p("only")
scp(16,10)
p("Publisher: 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("Pasword required.")
  scp(10,6)
  p("Enter password:")
  scp(10,7)
  write("")
  haslo = read()
  if haslo == pass then r("pastebin get qRNinxW4 /nshop/.dg")
  end
  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("Main OS color: ", colr)
p("Choose new main OS color:")
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("NextUI Settings")
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("UI Style: Domyslny NextUI")
 p("No styles are available")
 p("Choose main OS color")
 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("NextUI Settings")
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("OS version: 1.81 Developers Update")
zajete = math.ceil(getSize("/")/1024)
wolne = math.ceil(fs.getFreeSpace("/")/1024)
p("Free space:", wolne, "KB")
p("Computer label: ", os.getComputerLabel())
if pass == "" then log = "off" else log = "on" end
p("Login system: ", log)
p("Screen resolution: ", w, h)
p("CraftOS version: ", 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("Type 'help' to get help")
while true do
write("./minecore/>")
comm = read()
if comm == "help" then
 p("'ver' - MineCore version")
 p("'next' - NextUI Desktop")
 p("'nextver' - NextUI version")
 p("'run' - run file")
 p("'log' - password change")
 p("'reboot' - reboot PC")
 p("'shutdown' - shutdown PC")
 p("'store' - nextStore")
 p("'craft' - CraftOS")
 p("'update' - NextUI Update")
 p("'dir' - list files in directory")
 p("'res' - screen resolution")
 p("'set' - NextUI Settings")
 p("'app' - NextUI Apps")
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 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("Rebooting...")
 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("NextUI Settings")
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("Change computer label")
p("OS update")
p("Command prompt")
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 == 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("NextUI Settings")
pdp(w,1, colors.red)
pfb(3, 4, 13, 6, colors.orange)
scp(3,5)
stc(colors.white)
p("Information")
pfb(27, 4, 37, 6, colors.cyan)
scp(27,5)
stc(colors.white)
p("Desktop")
pfb(15, 4, 25, 6, colors.green)
scp(15,5)
stc(colors.white)
p("Settings")
pfb(39, 4, 49, 6, colors.red)
scp(39,5)
stc(colors.white)
p("Apps")
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("NextUI Icons 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("Welcome to shortcut creator. Choose shortcut place:")
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("Choose path to file: ")
 write(".>")
 sciezka = read()
 p("Type name of shortcut: ")
 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("Choose path to file: ")
 write(".>")
 sciezka = read()
 p("Type name of shortcut: ")
 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("Choose path to file: ")
 write(".>")
 sciezka = read()
 p("Type name of shortcut: ")
 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-9, 20, h-1, colors.black)
scp(1, h-9)
sbc(colors.white)
stc(colors.black)
p("NextUI 1.8 Start    ")
sbc(colors.black)
stc(colors.white)
scp(1, h-8)
p("nextStore 2.0       ")
p("Paint               ")
p("2048                ")
p("Snake               ")
p("Editor              ")
p("CraftOS             ")
p("Settings            ")
p("Shortcuts           ")
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 error("Opuszczono NextUI 1.8") end
if x>0 and x<21 and y == h-4 then
 if fse("/os/.luaide") then r("/os/.luaide") else bsodf()
 end
end
if x>0 and x<21 and y == h-5 then r("worm") end
if x>0 and x<21 and y == h-6 then r("/os/.2048") end
if x>0 and x<21 and y == h-7 then r("/os/.paint") end
if x>0 and x<21 and y == h-8 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("NextUI 1.81 Developers Update. 2020 Microcraft.") else p("NextUI 1.81 Developers Update. Microcraft.") 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("Apps")
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("Explorer      ")
p("DGStatistics")
p("ReactorControl")
p("TimeMashine")
p("Calculator")
scp(1,h-1)
p("Free space:")
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 ep() end
if x>0 and x<16 and y == 3 then dg() end
if x>0 and x<16 and y == 4 then rc() end
if x>0 and x<16 and y == 5 then tm() end
if x>0 and x<16 and y == 6 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()