Project Hydra

local function s(...) return sleep(...) end
local function w(...) return write(...) end
local function p(...) return print(...) end
local function tw(...) return term.write(...) end
local function scp(...) return term.setCursorPos(...) end
local function sbc(...) return term.setBackgroundColor(...) end
local function stc(...) return term.setTextColor(...) end
local function tc(...) return term.clear(...) end
local function tcl(...) return term.clearLine(...) end
local function r(...) return shell.run(...) end
local function sp(...) return textutils.slowPrint(...) end
local function sw(...) return textutils.slowWrite(...) end
local function fse(...) return fs.exists(...) end
local function pul(...) return paintutils.loadImage(...) end
local function pud(...) return paintutils.drawImage(...) end
local function pfb(...) return paintutils.drawFilledBox(...) end
local function su(...) return os.shutdown(...) end
local function re(...) return os.reboot(...) end
local function pdp(...) return paintutils.drawPixel(...) end
w,h = term.getSize()


function obraz()
tc()
sbc(colors.black)
tc()
sbc(colors.black)
pfb(1,1,w,1,colors.blue)
scp(1,1)
stc(colors.white)
p("Microcraft HydraUI 1.0")
scp(1,2)
sbc(colors.black)
p("Aplikacje      ")
p("Gry            ")
p("Ustawienia     ")
p("Appki nextStore")
p("nextStore      ")
pfb(16,2,16,h,colors.blue)
pdp(w-1,h,colors.orange)
pdp(w,h,colors.red)
end


function mysz()
local event, click, x, y = os.pullEvent("mouse_click")
stc(colors.white)
if x>0 and x<15 and y == 2 then apps() end
if x>0 and x<15 and y == 3 then apps1() end
if x>0 and x<15 and y == 4 then nust() end
if x>0 and x<15 and y == 5 then app() end
if x>0 and x<15 and y == 6 then nextstore() end
if x == w and y == h then su() end
if x == w-1 and y == h then re() end
end

function bsodf()
tc()
sbc(colors.blue)
tc()
sbc(colors.blue)
stc(colors.white)
ac = w/2
scp(ac,5)
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")
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(kod)
a.writeLine(nazwa)
a.close()
p("Twoj komputer uruchomi sie ponownie za 10 sekund")
s(10)
re()
end

function apps()
pfb(18,3,20,5,colors.orange)
scp(18,6)
sbc(colors.black)
stc(colors.white)
p("LuaIDE")
pfb(25,3,27,5,colors.green)
scp(25,6)
sbc(colors.black)
stc(colors.white)
p("Paint")
local event, click, x, y = os.pullEvent("mouse_click")
if x == w and y == 1 then system() end
if x>17 and x<24 and y>2 and y<7 then r("/os/.luaide") obraz() end
if x>24 and x<30 and y>2 and y<7 then r("/os/.paint") obraz() end
end

function apps1()
pfb(18,3,20,5,colors.cyan)
scp(18,6)
sbc(colors.black)
stc(colors.white)
p("2048")
pfb(25,3,27,5,colors.blue)
scp(25,6)
sbc(colors.black)
stc(colors.white)
p("Snake")
local event, click, x, y = os.pullEvent("mouse_click")
if x == w and y == 1 then system() end
if x>17 and x<24 and y>2 and y<7 then r("/os/.2048") obraz() end
if x>24 and x<30 and y>2 and y<7 then r("worm") obraz() end
end

function nextstore()
while true do
sbc(colors.black)
tc()
sbc(colors.black)
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")
stc(colors.white)
pdp(w,1, colors.red)
stc(colors.white)
sbc(colors.black)
stc(colors.white)
scp(1,2)
p("Eksplorator")
p("DGStatistics")
p("ReactorControl")
p("Message")
scp(1,h-1)
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 co() end
if x == w and y == 1 then system() end
pdp(w,1, colors.red)
end
end

function ep()
scp(16,2)
sbc(colors.black)
stc(colors.white)
p("Eksplorator dla NextUI 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)
scp(16,h)
write("Aplikacja nie jest jeszcze dostepna")
local event, click, x, y = os.pullEvent("mouse_click")
end


function rc()
scp(16,2)
sbc(colors.black)
stc(colors.white)
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 dg()
scp(16,2)
sbc(colors.black)
stc(colors.white)
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 co()
scp(16,2)
sbc(colors.black)
stc(colors.white)
p("Microcraft Message to")
scp(16,3)
p("aplikacja pozwalajaca na")
scp(16,4)
p("bezprzewodowa komunikacje")
scp(16,5)
p("graczy uzywajacych systemow")
scp(16,6)
p("Microcraft!")
scp(16,7)
p("Pobierz juz dzis!")
scp(16,10)
p("Wydawca: Microcraft")
pfb(16, h, w, h, colors.blue)
scp(16,h)
if fs.exists("/nshop/.co") 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/.co") end
 if x>25 and x<34 and y == h then r("/nshop/.co") 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/.co")
 end
end
end

function app()
while true do
sbc(colors.black)
tc()
sbc(colors.black)
pfb(1, 1, w, 1, colors.blue)
pdp(w,h,colors.red)
pdp(w-1,h,colors.orange)
sbc(colors.blue)
scp(1,1)
stc(colors.white)
p("Aplikacje nextStore")
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)
 sbc(colors.black)
p("Eksplorator")
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)
 sbc(colors.black)
 scp(15,7)
 p("DGStatistics")
end


if fs.exists("/nshop/.co") then
 pfb(2, 8, 4, 8, colors.blue)
 pfb(2, 9, 4, 10, colors.cyan)
 stc(colors.white)
 sbc(colors.black)
 scp(2,11)
 p("Message")
end

local event, button, x, y = os.pullEvent("mouse_click")
if x>14 and x<18 and y>3 and y<7 and fs.exists("/nshop/.dg") and button == 1 then r("/nshop/.dg") end
if x>1 and x<5 and y>7 and y<11 and fs.exists("/nshop/.calc") and button == 1 then r("/nshop/.co") end
if x>14 and x<18 and y>3 and y<7 and fs.exists("/nshop/.dg") and button == 2 then fs.delete("/nshop/.dg") end
if x>1 and x<5 and y>7 and y<11 and fs.exists("/nshop/.calc") and button == 2 then fs.delete("/nshop/.co") end
if x == w and y == 1 then system() end
if x == w and y == h then su() end
if x == w-1 and y == h then re() end

end
end

function nust()
while true do
sbc(colors.black)
tc()
sbc(colors.black)
pdp(w-1,h, colors.red)
pdp(w,h, colors.orange)
pfb(1, 1, w, 1, colors.blue)
scp(1,1)
p("Ustawienia HydraUI")
pdp(w,1, colors.red)
pfb(3, 4, 13, 6, colors.orange)
scp(3,5)
stc(colors.white)
p("Informacje")
pfb(15, 4, 25, 6, colors.green)
scp(15,5)
stc(colors.white)
p("Ustawienia")
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
end
end

function setust()
while true do
sbc(colors.black)
tc()
sbc(colors.black)
pfb(1, 1, w, 1, colors.blue)
scp(1,1)
stc(colors.white)
p("Ustawienia HydraUI")
pdp(w,1, colors.red)
sbc(colors.black)
p("Zmien nazwe komputera")
p("Aktualizuj system")
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("pastebin run Jau0aFS0") end
if x == w and y == 1 then nust() end
end
end

function infust()
while true do
sbc(colors.black)
tc()
sbc(colors.black)
pfb(1, 1, w, 1, colors.blue)
scp(1,1)
stc(colors.white)
p("Ustawienia NextUI")
pdp(w,1, colors.red)
sbc(colors.black)
scp(1,2)
p("Microcraft HydraUI")
p("Wersja systemu: 1.0")
p("Obecna nazwa komputera: ", os.getComputerLabel())
p("Rozdzielczosc ekranu: ", w, h)
p("Wersja CraftOS: ", os.version())
if fse("/nextpc/.nextpc") then
 local num = fs.open("/nextpc/.nextpc", "r")
 numerseryjny = num.readLine()
 num.close()
 p("Microcraft NextPC Basic")
 p("Ten system zostal aktywowany przez: Microcraft.")
 p("Numer seryjny urzadzenia:")
 p(numerseryjny)
elseif fse("/hydrapc/.info") then
 local num = fs.open("/hydrapc/.info", "r")
 numerseryjny = num.readLine()
 num.close()
 local pro = fs.open("/hydrapc/.manufact", "r")
 producent = pro.readLine()
 pro.close()
 p("NextPC compatible computer")
 if fse("/hydrapc/.wer") then p("Ten system zostal aktywowany przez: Microcraft Software.") else p("Ten system nie zostal jeszcze zweryfikowany. Skontaktuj sie z Microcraft, aby dokonac weryfikacji.") end
 p("Numer seryjny urzadzenia:")
 p(numerseryjny)
 p("Producent komputera:")
 p(producent)
end
local event, click, x, y = os.pullEvent("mouse_click")
if x == w and y == 1 then nust() end
end
end





function system()
while true do
tc()
obraz()
mysz()
end
end


system()