Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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()
Add Comment
Please, Sign In to add comment