PolskiWisnia

NextStartup

Jul 21st, 2019 (edited)
454
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 2.31 KB | None | 0 0
  1. -- NextUI Startup --
  2. local function s(...) return sleep(...) end
  3. local function aw(...) return write(...) end
  4. local function p(...) return print(...) end
  5. local function tw(...) return term.write(...) end
  6. local function scp(...) return term.setCursorPos(...) end
  7. local function sbc(...) return term.setBackgroundColor(...) end
  8. local function stc(...) return term.setTextColor(...) end
  9. local function tc(...) return term.clear(...) end
  10. local function tcl(...) return term.clearLine(...) end
  11. local function r(...) return shell.run(...) end
  12. local function sp(...) return textutils.slowPrint(...) end
  13. local function sw(...) return textutils.slowWrite(...) end
  14. local function fse(...) return fs.exists(...) end
  15. local function pul(...) return paintutils.loadImage(...) end
  16. local function pud(...) return paintutils.drawImage(...) end
  17. local function pfb(...) return paintutils.drawFilledBox(...) end
  18. local function su(...) return os.shutdown(...) end
  19. local function re(...) return os.reboot(...) end
  20. local function pdp(...) return paintutils.drawPixel(...) end
  21. local w, h = term.getSize()
  22. os.pullEvent = os.pullEventRaw
  23. sbc(colors.black)
  24. tc()
  25. sbc(colors.black)
  26.  
  27. a = w/2
  28. scp(a-3,5)
  29. sbc(colors.gray)
  30. stc(colors.white)
  31. p("NextUI")
  32. scp(a-9,10)
  33. sbc(colors.blue)
  34. stc(colors.blue)
  35. sp("000000000000000000", 14)
  36. s(1)
  37. if fse("/os/.19") then
  38. tSides = {"left","right","bottom","top","front","back"}
  39.  
  40. for i = 1, #tSides do
  41.   monitor = peripheral.wrap(tSides[i])
  42.   if monitor then
  43.                 side = tSides[i]
  44.                 break
  45.   end
  46. end  
  47.  if monitor then
  48.    tc()
  49.    pfb(1,1,w,h,colors.black)
  50.    stc(colors.white)
  51.    scp(1,1)
  52.    p("Wykryto ekran zewnetrzny.")
  53.    p("Wybierz 1 aby uzyc go jako wyswietlacza NextUI")
  54.    write(".>")
  55.    wybor = read()
  56.    if wybor == "1" then r("monitor", side, "/os/.next")
  57.    else r("/os/.next")
  58.    end
  59.  else
  60.  if fse("/.microcraft") then
  61. tc()
  62. scp(1,1)
  63. sbc(colors.black)
  64. tc()
  65. sbc(colors.black)
  66. stc(colors.white)
  67. p("MICROCRAFT BOOTLOADER DETECTED")
  68. p("Booting into Microcraft BIOS")
  69. s(1)
  70. r(".microcraft")
  71. else
  72. r("/os/.next")
  73. end
  74.  end
  75. else
  76.  
  77. if fse("/.microcraft") then
  78. tc()
  79. scp(1,1)
  80. sbc(colors.black)
  81. tc()
  82. sbc(colors.black)
  83. stc(colors.white)
  84. p("MICROCRAFT BOOTLOADER DETECTED")
  85. p("Booting into Microcraft BIOS")
  86. s(1)
  87. r(".microcraft")
  88. else
  89. r("/os/.next")
  90. end
  91. end
Add Comment
Please, Sign In to add comment