NextStore

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 nextstore()
while true do
stc(colors.white)
sbc(colors.black)
tc()
sbc(colors.black)
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")
scp(w-7,1)
p("Motywy")
pdp(w,1, colors.red)
sbc(colors.black)
scp(1,2)
p("Eksplorator")
p("DGStatistics")
p("ReactorControl")
p("TimeMashine")
p("Kalkulator")
p("Message")
p("Bootloader")
scp(1,h-2)
p("Wolne miejsce:")
miejsce = math.ceil(fs.getFreeSpace("/")/1024)
p("KB", miejsce)
local event, click, x, y = os.pullEvent("mouse_click")
avc = w-7
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>0 and x<16 and y == 7 then mess() end
if x>0 and x<16 and y == 8 then bootl() end
if x>avc and x<w and y == 1 then motywy() end
if x == w and y == 1 then break end
pdp(w,1, colors.red)
end
end

function motywy()
while true do
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")
scp(w-7,1)
p("Appki")
pdp(w,1, colors.red)
sbc(colors.white)
stc(colors.black)
scp(1,2)
p("NextUI")
p("Prosty")
p("Minedows")
p("Ciemny")
scp(1,h-2)
p("Wolne miejsce:")
miejsce = math.ceil(fs.getFreeSpace("/")/1024)
p("KB", miejsce)
local event, click, x, y = os.pullEvent("mouse_click")
avc = w-7
if x>0 and x<16 and y == 2 then nx() end
if x>0 and x<16 and y == 3 then pr() end
if x>0 and x<16 and y == 4 then mi() end
if x>0 and x<16 and y == 5 then ci() end
if x>avc and x<w and y == 1 then nextstore() end
if x == w and y == 1 then break end
pdp(w,1, colors.red)
end
end

function nx()
scp(16,2)
sbc(colors.white)
stc(colors.black)
p("Podstawowy motyw NextUI")
scp(16,3)
p("Wydawca: Microcraft")
pfb(16,4,w,12,colors.cyan)
pfb(16,12,w,12,colors.blue)
pfb(16,12,19,12,colors.black)
pfb(w-6,12,w-3,12,colors.black)
pdp(w-1,12,colors.orange)
pdp(w,12,colors.red)
paintutils.drawBox(17,5,21,9,colors.black)
pfb(18,6,20,8,colors.yellow)
pfb(16, h, w, h, colors.blue)
scp(16,h)
scp(30,h)
write("Pobierz")
local event, click, x, y = os.pullEvent("mouse_click")
if x>29 and x<40 and y == h then
  fs.delete("/os/desktop")
  r("pastebin get PfAWshRt /os/desktop")
  s(1)
  re()
end
end

function ci()
scp(16,2)
sbc(colors.white)
stc(colors.black)
p("Ciemny motyw Minedows")
scp(16,3)
p("Wydawca: Microcraft")
pfb(16,4,w,12,colors.black)
pfb(16,12,w,12,colors.black)
pfb(16,12,19,12,colors.black)
pfb(w-6,12,w-3,12,colors.black)
pdp(w-1,12,colors.orange)
pdp(w,12,colors.red)
pfb(16, h, w, h, colors.blue)
scp(16,h)
scp(30,h)
write("Pobierz")
local event, click, x, y = os.pullEvent("mouse_click")
if x>29 and x<40 and y == h then
  fs.delete("/os/desktop")
  r("pastebin get MtAuw8Av /os/desktop")
  s(1)
  re()
end
end

function pr()
scp(16,2)
sbc(colors.white)
stc(colors.black)
p("Prosty motyw NextUI")
scp(16,3)
p("Wydawca: Microcraft")
pfb(16,4,w,12,colors.cyan)
pfb(16,12,w,12,colors.blue)
pfb(16,12,19,12,colors.black)
pfb(w-6,12,w-3,12,colors.black)
pdp(w-1,12,colors.orange)
pdp(w,12,colors.red)
pfb(16, h, w, h, colors.blue)
scp(16,h)
scp(30,h)
write("Pobierz")
local event, click, x, y = os.pullEvent("mouse_click")
if x>29 and x<40 and y == h then
  fs.delete("/os/desktop")
  r("pastebin get gCRpr6Ag /os/desktop")
  s(1)
  re()
end
end

function mi()
scp(16,2)
sbc(colors.white)
stc(colors.black)
p("Klasyczny motyw Minedows")
scp(16,3)
p("Wydawca: Microcraft")
pfb(16,12,19,12,colors.black)
pfb(w-6,12,w-3,12,colors.black)
pdp(w-1,12,colors.orange)
pdp(w,12,colors.red)
pfb(16, h, w, h, colors.blue)
scp(16,h)
scp(30,h)
write("Pobierz")
local event, click, x, y = os.pullEvent("mouse_click")
if x>29 and x<40 and y == h then
  fs.delete("/os/desktop")
  r("pastebin get sz185irB /os/desktop")
  s(1)
  re()
end
end


function ep()
scp(16,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("NextExplorer to potezne")
scp(16,3)
p("a zarazem proste narzedzie do")
scp(16,4)
p("przegladania zawartosci dysku")
scp(16,5)
p("twardego. Pobierz za darmo dzisiaj!")
scp(16,10)
p("Wydawca: Microcraft")
pfb(16, h, w, h, colors.blue)
if not fs.exists("/os/main/explorer") then
if fs.exists("/nshop/.exp") 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/.exp") end
 if x>25 and x<34 and y == h then r("/nshop/.exp") end
else
 scp(30,h)
 write("Pobierz")
 local event, click, x, y = os.pullEvent("mouse_click")
 if x>29 and x<40 then
  r("pastebin get za0ck7T5 /nshop/.exp")
 end
end
else
 scp(16,h)
 sbc(colors.blue)
 stc(colors.white)
 write("Zainstalowano")
 local event, click, x, y = os.pullEvent("mouse_click")
end
end


function rc()
scp(16,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("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)
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("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
  r("pastebin get kCQLpZQS /nshop/.tm")
 end
end
end


function dg()
scp(16,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("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
  r("pastebin get qRNinxW4 /nshop/.dg")
 end
end
end

function calc()
scp(16,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("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
  r("pastebin get dMjjSaKY /nshop/.calc")
 end
end
end

function mess()
scp(16,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("Message NextUI to komunikator")
scp(16,3)
p("tesktowy wykorzystujacy modem CC")
scp(16,4)
p("do komunikacji z innymi ludzmi!")
scp(16,10)
p("Wydawca: Microcraft")
pfb(16, h, w, h, colors.blue)
if fs.exists("/nshop/.mess") 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/.mess") end
 if x>25 and x<34 and y == h then r("/nshop/.mess") 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
  r("pastebin get uzZarCdG /nshop/.mess")
 end
end
end

function bootl()
scp(16,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("Microcraft Bootloader Flasher")
scp(16,3)
p("to narzedzie, ktore pozwala")
scp(16,4)
p("na zaawansowane zarzadzanie")
scp(16,5)
p("ustawieniami komputera.")
scp(16,10)
p("Wydawca: Microcraft")
pfb(16, h, w, h, colors.blue)
scp(30,h)
write("Pobierz")
local event, click, x, y = os.pullEvent("mouse_click")
if x>29 and x<40 and y == h then
r("pastebin run NqkQFiLr")
end
end

nextstore()