SHARE
TWEET

SimSoft Yellow (english) - AppStore

Simlor_GER Jun 11th, 2017 (edited) 2,110 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. --SimSoft Yellow -  Copyright by Simlor (http://www.computercraft.info/forums2/index.php?/user/55655-simlor/)
  2.  
  3. --AppStore
  4.  
  5. AppLink = nil
  6. AppName = nil
  7.  
  8. seite = 1
  9.  
  10. AppStoreEXIT = false
  11.  
  12. AppStoreAnzeigeC = 2
  13. MaximaleAppSeitenC = 3
  14. IsPastebin = false
  15.  
  16.  
  17. function IsPastebinANZEIGE()
  18.  
  19.     if IsPastebin == true then
  20.        
  21.         CP(13,10)
  22.        
  23.         BC(SystemColor)
  24.         write("  ")
  25.        
  26.         BC(128)
  27.         print(" ")
  28.        
  29.     elseif IsPastebin == false then
  30.                
  31.         CP(13,10)
  32.                
  33.         BC(SystemColor)
  34.         write(" ")
  35.                
  36.         BC(128)
  37.         print("  ")
  38.            
  39.     end
  40. end
  41.  
  42. function AppListe_ANZEIGE()
  43.  
  44.     BC(1)
  45.     Clear()
  46.    
  47.     file = fs.open("SimSoft/Data/SystemColor","r")
  48.     local fileData = {}
  49.     local line = file.readLine()
  50.     repeat
  51.     table.insert(fileData,line)
  52.     line = file.readLine()
  53.     until line == nil
  54.     file.close()
  55.  
  56.     SystemColor = fileData[3]
  57.  
  58.     SystemColor = ((SystemColor-1)+1)
  59.  
  60.     w, h = term.getSize()
  61.  
  62.     wC = 0
  63.     hC = 1
  64.    
  65.     while true do
  66.  
  67.         wC = (wC+1)
  68.    
  69.         CP(wC, hC)
  70.         BC(SystemColor)
  71.         write(" ")
  72.    
  73.         if wC == w then
  74.             if hC == 3 then
  75.                 break
  76.             else
  77.                 hC = (hC+1)
  78.                 wC = 0
  79.             end
  80.         end
  81.    
  82.     end
  83.  
  84.     anzeige = "App Store - App List"
  85.  
  86.     TC(1)
  87.     CP(((w/2)-((#anzeige)/2)),2)
  88.  
  89.     print(anzeige)
  90.    
  91.    
  92.     CP(2,2)
  93.     BC(SystemColor)
  94.     TC(1)
  95.     write("<")
  96.    
  97.     CP((w-1),2)
  98.     BC(SystemColor)
  99.     TC(1)
  100.     write(">")
  101.    
  102.     CP(1,1)
  103.    
  104.     BC(SystemColor)
  105.     TC(1)
  106.    
  107.     CP((w-11), (h-3))
  108.     print("           ")
  109.     CP((w-11), (h-2))
  110.     print("  Desktop  ")
  111.     CP((w-11), (h-1))
  112.     print("           ")
  113.    
  114.     AppListLoader()
  115.    
  116.     AppListANZEIGE(seite)
  117.    
  118. end
  119.  
  120. function SelfMadeApp_ANZEIGE()
  121.  
  122.     BC(1)
  123.     Clear()
  124.    
  125.     file = fs.open("SimSoft/Data/SystemColor","r")
  126.     local fileData = {}
  127.     local line = file.readLine()
  128.     repeat
  129.     table.insert(fileData,line)
  130.     line = file.readLine()
  131.     until line == nil
  132.     file.close()
  133.  
  134.     SystemColor = fileData[3]
  135.  
  136.     SystemColor = ((SystemColor-1)+1)
  137.  
  138.     w, h = term.getSize()
  139.  
  140.     wC = 0
  141.     hC = 1
  142.    
  143.     while true do
  144.  
  145.         wC = (wC+1)
  146.    
  147.         CP(wC, hC)
  148.         BC(SystemColor)
  149.         write(" ")
  150.    
  151.         if wC == w then
  152.             if hC == 3 then
  153.                 break
  154.             else
  155.                 hC = (hC+1)
  156.                 wC = 0
  157.             end
  158.         end
  159.    
  160.     end
  161.  
  162.     anzeige = "App Store - Create Your Own App"
  163.  
  164.     TC(1)
  165.     CP(((w/2)-((#anzeige)/2)),2)
  166.  
  167.     print(anzeige)
  168.    
  169.    
  170.     CP(2,2)
  171.     BC(SystemColor)
  172.     TC(1)
  173.     write("<")
  174.    
  175.     CP((w-1),2)
  176.     BC(SystemColor)
  177.     TC(1)
  178.     write(">")
  179.    
  180.     CP(1,1)
  181.    
  182.     BC(SystemColor)
  183.     TC(1)
  184.    
  185.     CP((w-11), (h-3))
  186.     print("           ")
  187.     CP((w-11), (h-2))
  188.     print("  Desktop  ")
  189.     CP((w-11), (h-1))
  190.     print("           ")
  191.    
  192.     BC(1)
  193.    
  194.     if (AppName == nil) then
  195.         TC(SystemColor)
  196.         CP(4,6)
  197.         write("Program Name ")
  198.         TC(128)
  199.         print("(9 Character)")
  200.     else
  201.        
  202.         TC(SystemColor)
  203.         CP(4,6)
  204.         print("                                               ")
  205.         CP(4,6)
  206.         print(AppName)
  207.        
  208.     end
  209.    
  210.     if (AppLink == nil) then
  211.         TC(SystemColor)
  212.         CP(4,8)
  213.         write("Program Path Or Pastebin-Code")
  214.     else
  215.         TC(SystemColor)
  216.         CP(4,8)
  217.         print("                                               ")
  218.         CP(4,8)
  219.         print(AppLink)
  220.     end
  221.        
  222.        
  223.     if not (AppName == nil) and not (AppLink == nil) then
  224.         TC(32)
  225.         CP(4,(h-2))
  226.         write("Create")
  227.     else
  228.         TC(128)
  229.         CP(4,(h-2))
  230.         write("Create")
  231.     end
  232.    
  233.    
  234.     TC(128)
  235.     CP(4,10)
  236.     write("Pastebin")
  237.    
  238.     TC(256)
  239.     CP(4,12)
  240.     write("Activate Pastebin First")
  241.     CP(4,13)
  242.     write("If You Want To Use It.")
  243.     TC(128)
  244.    
  245.     IsPastebinANZEIGE()
  246.    
  247. end
  248.  
  249. function AnzeigeLoader()
  250.     if AppStoreAnzeigeC == 1 and AppStoreEXIT == false then
  251.        
  252.         AppListe_ANZEIGE()
  253.        
  254.        
  255.     elseif AppStoreAnzeigeC == 2 and AppStoreEXIT == false then
  256.        
  257.         SelfMadeApp_ANZEIGE()
  258.        
  259.     elseif AppStoreAnzeigeC == 3 and AppStoreEXIT == false then
  260.        
  261.         STD_GUI_ANZEIGE()
  262.        
  263.     end
  264. end
  265.  
  266. function STD_GUI_ANZEIGE()
  267.    
  268.     BC(1)
  269.     Clear()
  270.    
  271.     file = fs.open("SimSoft/Data/SystemColor","r")
  272.     local fileData = {}
  273.     local line = file.readLine()
  274.     repeat
  275.     table.insert(fileData,line)
  276.     line = file.readLine()
  277.     until line == nil
  278.     file.close()
  279.  
  280.     SystemColor = fileData[3]
  281.  
  282.     SystemColor = ((SystemColor-1)+1)
  283.  
  284.     w, h = term.getSize()
  285.  
  286.     wC = 0
  287.     hC = 1
  288.    
  289.     while true do
  290.  
  291.         wC = (wC+1)
  292.    
  293.         CP(wC, hC)
  294.         BC(SystemColor)
  295.         write(" ")
  296.    
  297.         if wC == w then
  298.             if hC == 3 then
  299.                 break
  300.             else
  301.                 hC = (hC+1)
  302.                 wC = 0
  303.             end
  304.         end
  305.    
  306.     end
  307.  
  308.     anzeige = "App Store - STD-GUI"
  309.  
  310.     TC(1)
  311.     CP(((w/2)-((#anzeige)/2)),2)
  312.  
  313.     print(anzeige)
  314.    
  315.     CP(2,2)
  316.     BC(SystemColor)
  317.     TC(1)
  318.     write("<")
  319.    
  320.     CP((w-1),2)
  321.     BC(SystemColor)
  322.     TC(1)
  323.     write(">")
  324.    
  325.     CP(1,1)
  326.    
  327.     BC(SystemColor)
  328.     TC(1)
  329.    
  330.     CP((w-11), (h-3))
  331.     print("           ")
  332.     CP((w-11), (h-2))
  333.     print("  Desktop  ")
  334.     CP((w-11), (h-1))
  335.     print("           ")
  336.    
  337.    
  338.     BC(SystemColor)
  339.     TC(1)
  340.    
  341.     anzeige = "    STD-GUI    "
  342.    
  343.     CP(((w/2)-((#anzeige)/2)),7)
  344.     print("               ")
  345.     CP(((w/2)-((#anzeige)/2)),8)
  346.     print(anzeige)
  347.     CP(((w/2)-((#anzeige)/2)),9)
  348.     print("               ")
  349.    
  350.     BC(1)
  351.    
  352.     TC(128)
  353.    
  354.     anzeige = "STD-GUI Is An App Store Optimized For SimSoft."
  355.    
  356.     CP((((w/2)-((#anzeige)/2))+2),12)
  357.     print(anzeige)
  358.    
  359.     anzeige = "Store by LDDestroier"
  360.    
  361.     TC(128)
  362.     CP((((w/2)-((#anzeige)/2))+1),14)
  363.     write("Store By ")
  364.     TC(SystemColor)
  365.     print("LDDestroier")
  366.    
  367.    
  368.    
  369. end
  370.  
  371.  
  372. function AppListLoader()
  373.    
  374.     fs.delete("SimSoft/Data/StoreTemp")
  375.    
  376.     local datei = http.get("http://pastebin.com/raw/VGVnVK4j")
  377.     datei = datei.readAll()
  378.  
  379.     local file = fs.open("SimSoft/Data/StoreTemp", "w")
  380.     file.write(datei)
  381.     file.close()
  382.    
  383.     file = fs.open("SimSoft/Data/StoreTemp","r")
  384.     local fileData = {}
  385.     local line = file.readLine()
  386.     repeat
  387.     table.insert(fileData,line)
  388.     line = file.readLine()
  389.     until line == nil
  390.     file.close()
  391.    
  392.     C = 0
  393.     StoreTempData = nil
  394.     StoreTempData = {}
  395.    
  396.     while true do
  397.        
  398.         C = (C+1)
  399.        
  400.         if fileData[C] == nil or fileData[C] == "" then
  401.            
  402.             MaxStoreApp = ((C-1)/3)
  403.             break
  404.            
  405.         else
  406.        
  407.             table.insert(StoreTempData, (fileData[C]))
  408.            
  409.         end
  410.        
  411.     end
  412.    
  413. end
  414.  
  415. function AppListANZEIGE(seite)
  416.    
  417.     w, h = term.getSize()
  418.    
  419.     BC(1)
  420.    
  421.     CP(4,(h-2))
  422.     TC(SystemColor)
  423.     print("<  >")
  424.    
  425.     CP(6,6)
  426.     print("                                 ")
  427.    
  428.     TC(SystemColor)
  429.     CP(4,6)
  430.     print((StoreTempData[((seite*3)-2)]))
  431.    
  432.     CP(6,9)
  433.     print("                                 ")
  434.    
  435.     TC(128)
  436.     CP(6,9)
  437.     write("App by ")
  438.     TC(SystemColor)
  439.     print((StoreTempData[((seite*3)-1)]))
  440.    
  441.     CP(6,11)
  442.     print("                                 ")
  443.    
  444.     TC(128)
  445.     CP(6,11)
  446.     write("Copy ")
  447.     TC(SystemColor)
  448.     print("("..(StoreTempData[((seite*3)-0)])..")")
  449.    
  450.     TC(256)
  451.     CP(6,13)
  452.     print("Click On 'Copy' To Copy The Pastebin-Code")
  453.     CP(6,14)
  454.     print("Into App Creator.")
  455.    
  456.    
  457.    
  458. end
  459.  
  460.  
  461.  
  462. w, h = term.getSize()
  463.  
  464. AnzeigeLoader()
  465.  
  466. while true do
  467.  
  468.     event, side, x, y = os.pullEvent()
  469.     if event == "mouse_click" then
  470.        
  471.         --Anzeige 1
  472.        
  473.         if x >= (w-11) and x <= (w-1) and y >= (h-3) and y <= (h-1) and AppStoreEXIT == false then
  474.            
  475.             AppStoreEXIT = true
  476.            
  477.         end
  478.        
  479.         if AppStoreEXIT == false and AppStoreAnzeigeC == 1 and x >= 1 and x <= w and y >= 3 and y <= h and not (x >= (w-11) and x <= (w-1) and y >= (h-3) and y <= (h-1)) then
  480.            
  481.             if x == 4 and y == (h-2) then
  482.            
  483.                 if seite == 1 then
  484.                     seite = MaxStoreApp
  485.                 else
  486.                     seite = (seite-1)
  487.                 end
  488.                
  489.                 AppListANZEIGE(seite)
  490.                
  491.             end
  492.            
  493.             if x == 7 and y == (h-2) then
  494.            
  495.                 if seite == MaxStoreApp then
  496.                     seite = 1
  497.                 else
  498.                     seite = (seite+1)
  499.                 end
  500.                
  501.                 AppListANZEIGE(seite)
  502.                
  503.             end
  504.            
  505.             if x >= 6 and x <= 20 and y == 11 then
  506.                
  507.                 IsPastebin = true
  508.                 AppLink = (StoreTempData[((seite*3)-0)])
  509.                
  510.                 AppName = nil
  511.                
  512.                 TC(256)
  513.                 CP(6,11)
  514.                 write("Copy ")
  515.                 TC(256)
  516.                 print("("..(StoreTempData[((seite*3)-0)])..")")
  517.                 sleep(0.2)
  518.                
  519.                
  520.                 TC(128)
  521.                 CP(6,11)
  522.                 write("Copy ")
  523.                 TC(SystemColor)
  524.                 print("("..(StoreTempData[((seite*3)-0)])..")")
  525.                
  526.             end
  527.            
  528.         end
  529.        
  530.         --Anzeige 2
  531.        
  532.         if AppStoreEXIT == false and AppStoreAnzeigeC == 2 and x >= 1 and x <= w and y >= 3 and y <= h and not (x >= (w-11) and x <= (w-1) and y >= (h-3) and y <= (h-1)) then
  533.            
  534.            
  535.             if x >= 4 and x <= (w-1) and y == 6 then
  536.                
  537.                 BC(1)
  538.                 CP(4,6)
  539.                 print("                                               ")
  540.                 CP(4,6)
  541.                 TC(SystemColor)
  542.                 AppName = read()
  543.                
  544.                 if AppName == "" then
  545.                     CP(4,6)
  546.                     print("                                               ")
  547.                     CP(4,6)
  548.                     TC(SystemColor)
  549.                     print("Please Enter A Name.")
  550.                     AppName = nil
  551.                    
  552.                     sleep(1)
  553.                    
  554.                     SelfMadeApp_ANZEIGE()
  555.                    
  556.                 end
  557.                
  558.             end
  559.            
  560.             if x >= 4 and x <= (w-1) and y == 8 then
  561.                
  562.                 BC(1)
  563.                 CP(4,8)
  564.                 print("                                               ")
  565.                 CP(4,8)
  566.                 TC(SystemColor)
  567.                 AppLink = read()
  568.                
  569.                 AppLinkA = fs.exists(AppLink)
  570.                
  571.                 if IsPastebin == false and (AppLink == "" or AppLinkA == false) then
  572.                     CP(4,8)
  573.                     print("                                               ")
  574.                     CP(4,8)
  575.                     TC(SystemColor)
  576.                     print("The Path Was Not Found.")
  577.                     AppLink = nil
  578.                    
  579.                     sleep(1)
  580.                    
  581.                     SelfMadeApp_ANZEIGE()
  582.                    
  583.                 end
  584.                
  585.                 if IsPastebin == true and AppLink == "" then
  586.                    
  587.                     CP(4,8)
  588.                     print("                                               ")
  589.                     CP(4,8)
  590.                     TC(SystemColor)
  591.                     print("Please Enter Something.")
  592.                     AppLink = nil
  593.                    
  594.                     sleep(1)
  595.                    
  596.                     SelfMadeApp_ANZEIGE()
  597.                    
  598.                 end
  599.                
  600.             end
  601.            
  602.             if x >= 13 and x <= 15 and y == 10 then
  603.                
  604.                 if IsPastebin == true then
  605.                     IsPastebin = false
  606.                 elseif IsPastebin == false then
  607.                     IsPastebin = true
  608.                 end
  609.                
  610.                 IsPastebinANZEIGE()
  611.                
  612.             end
  613.            
  614.             if not (AppName == nil) and not (AppLink == nil) then
  615.                
  616.                 TC(32)
  617.                 CP(4,(h-2))
  618.                 BC(1)
  619.                 write("Create")
  620.                
  621.                
  622.                
  623.                
  624.             end
  625.            
  626.             if x >= 4 and x <= 9 and y == (h-2) and not (AppName == nil) and not (AppLink == nil) and not (AppName == "") and not (AppLink == "") then
  627.                
  628.                 fs.makeDir("SimSoft/SappS/"..AppName)
  629.                
  630.                 if IsPastebin == true then
  631.                     local file = fs.open("SimSoft/SappS/"..AppName.."/SappS", "w")
  632.                     file.writeLine("SimSoft App System (SappS)")
  633.                     file.writeLine("SimSoft/SappS/"..AppName.."/"..AppLink)
  634.                     file.writeLine(AppName)
  635.                     file.close()
  636.                    
  637.                     local datei = http.get("http://pastebin.com/raw/"..AppLink)
  638.                     datei = datei.readAll()
  639.                    
  640.                     local file = fs.open("SimSoft/SappS/"..AppName.."/"..AppLink, "w")
  641.                     file.writeLine(datei)
  642.                     file.close()
  643.                 else
  644.                     local file = fs.open("SimSoft/SappS/"..AppName.."/SappS", "w")
  645.                     file.writeLine("SimSoft App System (SappS)")
  646.                     file.writeLine(AppLink)
  647.                     file.writeLine(AppName)
  648.                     file.close()
  649.                 end
  650.                
  651.                 AppStoreEXIT = true
  652.                
  653.             end
  654.            
  655.         end
  656.        
  657.         --Anzeige 3
  658.        
  659.         if AppStoreEXIT == false and AppStoreAnzeigeC == 3 and x >= 1 and x <= w and y >= 3 and y <= h and not (x >= (w-11) and x <= (w-1) and y >= (h-3) and y <= (h-1)) then
  660.            
  661.             anzeige = "    STD-GUI    "
  662.            
  663.             if x >= ((w/2)-((#anzeige)/2)) and x <= (((w/2)-((#anzeige)/2))+((#anzeige)-1)) and y >= 7 and y <= 9 then
  664.                
  665.                 fs.delete("SimSoft/Data/STDGUI_Temp")
  666.                
  667.                 local datei = http.get("http://pastebin.com/raw/P9dDhQ2m")
  668.                 datei = datei.readAll()
  669.                
  670.                 local file = fs.open("SimSoft/Data/STDGUI_Temp", "w")
  671.                 file.write(datei)
  672.                 file.close()
  673.                
  674.                 shell.run("SimSoft/Data/STDGUI_Temp")
  675.                
  676.                 STD_GUI_ANZEIGE()
  677.                
  678.             end
  679.            
  680.            
  681.            
  682.         end
  683.        
  684.         if x == 2 and y == 2 then
  685.            
  686.             if AppStoreAnzeigeC == 1 then
  687.                 AppStoreAnzeigeC = MaximaleAppSeitenC
  688.             else
  689.                 AppStoreAnzeigeC = (AppStoreAnzeigeC-1)
  690.             end
  691.            
  692.             AnzeigeLoader()
  693.            
  694.         end
  695.        
  696.         if x == (w-1) and y == 2 then
  697.            
  698.             if AppStoreAnzeigeC == MaximaleAppSeitenC then
  699.                 AppStoreAnzeigeC = 1
  700.             else
  701.                 AppStoreAnzeigeC = (AppStoreAnzeigeC+1)
  702.             end
  703.            
  704.             AnzeigeLoader()
  705.            
  706.         end
  707.        
  708.         if AppStoreEXIT == true then
  709.             break
  710.         end
  711.        
  712.        
  713.     end
  714. end
  715.  
  716.  
  717.  
  718.  
  719.  
  720.  
  721.  
  722.  
  723. --end
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