PolskiWisnia

Untitled

Mar 14th, 2023 (edited)
844
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 1.88 KB | None | 0 0
  1. -- Next Desktop --
  2.  
  3. local function s(...) return sleep(...) end
  4. local function aw(...) return write(...) end
  5. local function p(...) return print(...) end
  6. local function tw(...) return term.write(...) end
  7. local function scp(...) return term.setCursorPos(...) end
  8. local function sbc(...) return term.setBackgroundColor(...) end
  9. local function stc(...) return term.setTextColor(...) end
  10. local function tc(...) return term.clear(...) end
  11. local function tcl(...) return term.clearLine(...) end
  12. local function r(...) return shell.run(...) end
  13. local function sp(...) return textutils.slowPrint(...) end
  14. local function sw(...) return textutils.slowWrite(...) end
  15. local function fse(...) return fs.exists(...) end
  16. local function pul(...) return paintutils.loadImage(...) end
  17. local function pud(...) return paintutils.drawImage(...) end
  18. local function pfb(...) return paintutils.drawFilledBox(...) end
  19. local function su(...) return os.shutdown(...) end
  20. local function re(...) return os.reboot(...) end
  21. local function pdp(...) return paintutils.drawPixel(...) end
  22.  
  23. function wyswietl_foldery(sciezka, y)
  24.     local files = fs.list(sciezka)
  25.     for i,file in ipairs(files) do
  26.         scp(2,y)
  27.         if fs.isDir(fs.combine(sciezka,file)) then
  28.             stc(colors.blue)
  29.             term.write("[["..file.."]]")
  30.             stc(colors.white)
  31.         end
  32.     y = y+1
  33.     end
  34. end
  35.  
  36. function desktop_folders()
  37. pfb(1,3,35,10,colors.white)
  38. pfb(2,4,34,9,colors.black)
  39. wyswietl_foldery("/os/desktop",4)
  40. end
  41.  
  42. function main()
  43.     sbc(colors.cyan)
  44.     tc()
  45.     sbc(colors.cyan)
  46.     scp(1,1)
  47.     pfb(1,1,w,1,colors.black)
  48. scp(1,1)
  49.     stc(colors.white)
  50.     p("NextFinder")
  51.     pfb(6,h,w,h,colors.blue)
  52.     pfb(1,h,6,h,colors.black)
  53. end
  54.  
  55. function mysz()
  56.  local event, button, x, y = os.pullEvent("mouse_click")
  57. klik = {x, y, button}
  58. return klik
  59. end
  60.  
  61. sciezka = "/"
  62.  
  63. while true do
  64. main()
  65. desktop_folders()
  66. mysz()
  67. end
Advertisement
Add Comment
Please, Sign In to add comment