SHARE
TWEET

App vzor

pepeknamornik Jun 20th, 2019 (edited) 66 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. local nastaveni={barva=colors.blue}
  2. local f=fs.open("system/.core/colors","r")
  3. local cnt=f.readAll()
  4. f.close()
  5. local nastaveni=textutils.unserialize(cnt)    
  6. local f=fs.open("system/.core/textcol","r")
  7. local tnt=f.readAll()
  8. f.close()
  9. local text=textutils.unserialize(tnt)
  10. local function prc(text, y)
  11.   local w = term.getSize()
  12.   local _, cy = term.getCursorPos()
  13.   term.setCursorPos(math.ceil((w-#text)/2), y or cy)
  14.   write(text)
  15. end
  16. local f=fs.open("system/RAM/user","r")
  17. user=f.readLine()
  18. f.close()
  19.    
  20. -- zamenit XXX 
  21.    
  22. function minimalizace ()
  23.  
  24.     if not fs.exists ("/system/.core/setting/mineditor") then
  25.     shell.run ("pastebin get EiKMubhV /system/.core/setting/mineditor")
  26.     minimalizace()
  27.     end
  28.    
  29.     if fs.exists ("/system/RAM/"..user.."/XXX") then
  30.     fs.delete ("/system/RAM/"..user.."/XXX")
  31.     end
  32.    
  33.     local data = fs.open ("/system/RAM/"..user.."/XXX", "w")
  34.     data.writeLine(funkce)
  35.     data.close ()
  36.     local data = fs.open ("/system/RAM/"..user.."/prlists", "w")
  37.         data.writeLine ("XXX")
  38.         data.close ()
  39.     shell.run ("/system/.core/setting/mineditor")
  40. end
  41.  
  42. function ukonceni ()
  43.     fs.delete ("/system/RAM/XXX")
  44.     desktop()
  45. end
  46.  
  47. function resus ()
  48.     if fs.exists ("/system/RAM/XXX") then
  49.     local data = fs.open ("/system/RAM/XXX", "r")
  50.             local funkce = data.readLine ()
  51.             data.close ()
  52.            
  53.         local myFuncs = {
  54.             ["funkce1"] = function()
  55.             funkce1 ()
  56.             end,
  57.  
  58.         }
  59.  
  60.         myFuncs[funkce]()
  61.         menu ()
  62.     end
  63. end
  64.  
  65.  
  66. function start ()
  67.     resus ()
  68.     term.setBackgroundColor(colors.white)
  69.     term.setTextColor(colors.black)
  70.     term.clear ()
  71.         if not fs.exists ("/Programs/PepekSoft/XXX.nft") then
  72.         shell.run("pastebin get DUNBNhMh /Programs/PepekSoft/XXX.nft")
  73.         end
  74.     local image = paintutils.loadImage("/Programs/PepekSoft/XXX.nft")
  75.     paintutils.drawImage(image, 18, 4)
  76.     prc ("Programs manager", 16)
  77.     sleep (1)
  78.     menu ()
  79. end
  80.  
  81.  
  82. function menu()
  83. term.setBackgroundColor(colors.white)
  84. term.setTextColor(colors.black)
  85. term.clear ()
  86. term.setBackgroundColor(colors.lightGray)
  87. term.setTextColor(colors.black)
  88. term.setCursorPos(5,7)
  89. write "funkce1"
  90.  
  91. term.setBackgroundColor(colors.white)
  92. term.setTextColor(colors.blue)
  93. term.setCursorPos(20,19)
  94. write"  Pepek"
  95. term.setCursorPos(28,19)
  96. write"Soft  "
  97. term.setCursorPos(27,19)
  98. term.setTextColor(colors.lime)
  99. write"@"
  100.  
  101.      while true do
  102.     local event, button, x, y = os.pullEvent("mouse_click")
  103.     xy = x..","..y
  104.      
  105.         if x >= 5 and x <= 28 and y == 7 and button == 1 then
  106.             funkce1()
  107.             elseif x >= 5 and x <= 16 and y == 9 and button == 1 then
  108.  
  109.  
  110.             elseif x >= 5 and x <= 14 and y == 11 and button == 1 then
  111.  
  112.  
  113.             elseif x >= 5 and x <= 14 and y == 13 and button == 1 then
  114.  
  115.  
  116.             elseif x >= 5 and x <= 14 and y == 15 and button == 1 then
  117.            
  118.            
  119.             elseif x >= 5 and x <= 14 and y == 17 and button == 1 then
  120.            
  121.            
  122.             else
  123.             paintutils.drawLine(1, 1, 51, 1, colors.black)
  124.             paintutils.drawPixel (51,1, colors.red)
  125.             term.setCursorPos (51,1)
  126.                 term.setTextColor(text.barva)
  127.             print "*"
  128.                     while true do
  129.                         local event, button, x, y = os.pullEvent("mouse_click")
  130.                         xy = x..","..y
  131.                
  132.                         if x == 51 and y == 1 then
  133.                             ukonceni ()
  134.                         else
  135.                         return
  136.                         end
  137.                     end
  138.             break
  139.         end
  140.     end
  141. end
  142.  
  143. function editmenu()
  144.  
  145. term.setBackgroundColor(colors.white)
  146. term.setTextColor(colors.blue)
  147. term.setCursorPos(20,19)
  148. write"  Pepek"
  149. term.setCursorPos(28,19)
  150. write"Soft  "
  151. term.setCursorPos(27,19)
  152. term.setTextColor(colors.lime)
  153. write"@"
  154.      while true do
  155.     local event, button, x, y = os.pullEvent("mouse_click")
  156.     xy = x..","..y
  157.      
  158.     if x >= 5 and x <= 28 and y == 7 and button == 1 then
  159.     instalace = 1
  160.     else
  161.     paintutils.drawLine(1, 1, 51, 1, colors.black)
  162.     paintutils.drawPixel (51,1, colors.red)
  163.     term.setTextColor(colors.white)
  164.     term.setCursorPos (51,1)
  165.     print "*"
  166.     paintutils.drawPixel (50,1, colors.lightGray)
  167.     term.setCursorPos (50,1)
  168.     print "<"
  169.     paintutils.drawPixel (49,1, colors.lightGray)
  170.     term.setCursorPos (49,1)
  171.     print "_"
  172.              while true do
  173.         local event, button, x, y = os.pullEvent("mouse_click")
  174.         xy = x..","..y
  175.        
  176.         if x == 51 and y == 1 then
  177.             ukonceni ()
  178.         elseif x == 50 and y == 1 then
  179.             menud ()
  180.         elseif x == 49 and y == 1 then
  181.             minimalizace ()
  182.         else
  183.         editmenu()
  184.             end
  185.             end
  186.     break
  187.     end
  188.     end
  189. end
  190.  
  191. function funkce1()
  192.     funkce = "funkce1"
  193.     term.setBackgroundColor(colors.white)
  194.     term.setTextColor(colors.black)
  195.     term.clear ()
  196.    
  197.     term.setBackgroundColor(colors.lightGray)
  198.     term.setTextColor(colors.black)
  199.     term.setCursorPos(5,7)
  200.     write "Stranka 2"
  201.    
  202.     while true do
  203.        
  204.         local event, button, x, y = os.pullEvent("mouse_click")
  205.         xy = x..","..y
  206.    
  207.             if x >= 5 and x <= 45 and y == 10 and button == 1 then
  208.  
  209.  
  210.             elseif x >= 41 and x <= 51 and y == 18 and button == 1 then
  211.            
  212.            
  213.             else
  214.             paintutils.drawLine(1, 1, 51, 1, colors.black)
  215.             paintutils.drawPixel (51,1, colors.red)
  216.             term.setTextColor(colors.white)
  217.             term.setCursorPos (51,1)
  218.             print "*"
  219.             paintutils.drawPixel (50,1, colors.lightGray)
  220.             term.setCursorPos (50,1)
  221.             print "<"
  222.             paintutils.drawPixel (49,1, colors.lightGray)
  223.             term.setCursorPos (49,1)
  224.             print "_"
  225.            
  226.                 while true do
  227.                     local event, button, x, y = os.pullEvent("mouse_click")
  228.                     xy = x..","..y
  229.                    
  230.                         if x == 51 and y == 1 then
  231.                                 ukonceni ()
  232.                             elseif x == 50 and y == 1 then
  233.                                 menud ()    -- predchozi stranka
  234.                             elseif x == 49 and y == 1 then
  235.                                 minimalizace ()
  236.                             else
  237.                             return
  238.                         end
  239.                 end
  240.             end
  241.     end
  242. end
  243.  
  244. start ()
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top