SHARE
TWEET

SimSoft 3.1 - SappS

Simlor_GER May 16th, 2016 (edited) 634 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. --Alle Rechte an SimSoft 3 sind "SimlorLP" (oder in Minecraft auch nur "Simlor") vorbehalten.
  2.  
  3. local datei = http.get("http://pastebin.com/raw/LZch2Xnt")
  4. if not datei then
  5.  BC(128)
  6.  Clear()
  7.  TC(16384)
  8.  print("Please, check you internet connection!")
  9.  print("Or try it later again.")
  10.  sleep(3)
  11. else
  12.  
  13. fs.delete("SimSoft/Daten/StoreTemp/Temp")
  14. Download("MD0dmx9s", "SimSoft/Daten/StoreTemp/Temp")
  15.  
  16. BC(128)
  17. CP(15,18)
  18. print("Loading...")
  19.  
  20. function LiveSappSDar(nr)
  21.  
  22.  StoreCleaner()
  23.  
  24.  file = fs.open("SimSoft/Daten/StoreTemp/Temp","r")
  25.  local fileData = {}
  26.  local line = file.readLine()
  27.  repeat
  28.  table.insert(fileData,line)
  29.  line = file.readLine()
  30.  until line == nil
  31.  file.close()
  32.  
  33.  Sname = fileData[nr]
  34.  nr = (nr+1)
  35.  Sautor = fileData[nr]
  36.  nr = (nr+1)
  37.  Ssterne = fileData[nr]
  38.  nr = (nr+1)
  39.  PBCodeS = fileData[nr]
  40.  nr = (nr-3)
  41.  
  42.  CP(17,6) --17,6
  43.  TC(1)
  44.  print(Sname)
  45.  
  46.  CP(18,8)
  47.  TC(256)
  48.  print("Creator = "..Sautor)
  49.  
  50.  CP(18,10)
  51.  TC(256)
  52.  print("Stars = "..Ssterne)
  53.  
  54.  CP(18,13)
  55.  TC(1)
  56.  write("Download ")
  57.  TC(256)
  58.  print("("..PBCodeS..")")
  59.  
  60.  CP(14,18)
  61.  TC(256)
  62.  print("<")
  63.  
  64.  CP(50,18)
  65.  TC(256)
  66.  print(">")
  67.  
  68.  CP(27,18)
  69.  TC(256)
  70.  print(ggz.."/"..anzLS)
  71. end
  72.  
  73. auswahl = 0
  74.  
  75. BC(128)
  76. Clear()
  77.  
  78. SimSoftBalken("SimSoft 3 - Store", 17)
  79.  
  80. w, h = term.getSize()
  81.  
  82. CP(1,4)
  83. BC(256)
  84. TC(1)
  85. print("            ")
  86. write(" Store ")
  87. TC(128)
  88. print("BETA ")
  89. print("            ")
  90. TC(256)
  91. BC(128)
  92. print(" SappS-Code ")
  93. TC(128)
  94. BC(256)
  95. print(" Live-Store ")
  96. TC(256)
  97. BC(128)
  98. print(" Add a pro. ")
  99. BC(256)
  100.  
  101. z = 9
  102.  
  103. while true do
  104.  z = (z+1)
  105.  CP(1,z)
  106.  write("            ")
  107.  if z == h then
  108.  
  109.   TC(128)
  110.   z = (z-1)
  111.   CP(2,z)
  112.   print("Back")
  113.   break
  114.  end
  115. end
  116.  
  117. --StoreCleaner
  118.  
  119. function StoreCleaner()
  120.  BC(128)
  121.  ySC = 3
  122.  
  123.  while true do
  124.  
  125.   ySC = (ySC+1)
  126.   CP(13,ySC)
  127.   write("                                       ")
  128.  
  129.   if ySC == 19 then
  130.    break
  131.   end
  132.  end
  133. end
  134.  
  135.  
  136. --TouchMenu
  137.  
  138. function TouchMenu()
  139.  
  140.  while true do
  141.   event,side,ex,ry = os.pullEvent()
  142.   if event == "mouse_click" then
  143.  
  144.    if ex >= 1 and ex <= 12 and ry == 7 then
  145.     auswahl = 1
  146.    end
  147.  
  148.    if ex >= 1 and ex <= 12 and ry == 8 then
  149.     auswahl = 2
  150.    end
  151.  
  152.    if ex >= 1 and ex <= 12 and ry == 9 then
  153.     auswahl = 3
  154.    end
  155.    
  156.    if ex >= 2 and ex <= 5 and ry == z then
  157.     auswahl = 4
  158.    end
  159.   end
  160.  end
  161. end
  162.  
  163. --Anzeige Functionen
  164.  
  165.  --Kontrolle0
  166. function AnzeigeKontrolle0()
  167.  while true do
  168.   if auswahl == 0 then
  169.    sleep(0.1)
  170.   else
  171.    break
  172.   end
  173.  end
  174. end
  175.  
  176.  --Kontrolle1
  177. function AnzeigeKontrolle1()
  178.  while true do
  179.   if auswahl == 1 then
  180.    sleep(0.1)
  181.   else
  182.    break
  183.   end
  184.  end
  185. end
  186.  
  187.  --Kontrolle2
  188. function AnzeigeKontrolle2()
  189.  while true do
  190.   if auswahl == 2 then
  191.    sleep(0.1)
  192.   else
  193.    break
  194.   end
  195.  end
  196. end
  197.  
  198.  --Kontrolle3
  199. function AnzeigeKontrolle3()
  200.  while true do
  201.   if auswahl == 3 then
  202.    sleep(0.1)
  203.   else
  204.    break
  205.   end
  206.  end
  207. end
  208.    
  209.    
  210. --1 - SappS-Code
  211. function AnzeigeStore1()
  212.  
  213.  while true do
  214.  
  215.   StoreCleaner()
  216.  
  217.   CP(17,6)
  218.   BC(128)
  219.   TC(1)
  220.   print("Enter a SappS-Code")
  221.  
  222.   TC(256)
  223.  
  224.   CP(18,8)
  225.   print("SappS-Code")
  226.  
  227.   CP(15,18)
  228.   print("SappS-Code? simsoft-en.jimdo.com")
  229.  
  230.   while true do
  231.  
  232.    event,side,x,y = os.pullEvent()
  233.    if event == "mouse_click" then
  234.    
  235.     if x >= 18 and x <= 27 and y == 8 then
  236.      CP(18,8)
  237.      write("                                       ")
  238.      CP(18,8)
  239.      TC(256)
  240.      sappscode = read()
  241.      
  242.      CP(18,10)
  243.      shell.run("pastebin run "..sappscode)
  244.      CP(1,11)
  245.      BC(256)
  246.      print("            ")
  247.      auswahl = 4
  248.      break   
  249.     end
  250.    end
  251.   end
  252.  end  
  253. end
  254.  
  255.  
  256. --2 - Live-Store
  257. function AnzeigeStore2()
  258.  
  259.  while true do
  260.   StoreCleaner()
  261.  
  262.   BC(128)
  263.   CP(15,18)
  264.   print("Loading...")
  265.  
  266.   anzLS = 0
  267.  
  268.   file = fs.open("SimSoft/Daten/StoreTemp/Temp","r")
  269.   local fileData = {}
  270.   local line = file.readLine()
  271.   repeat
  272.   table.insert(fileData,line)
  273.   line = file.readLine()
  274.   until line == nil
  275.   file.close()
  276.  
  277.   anzLS = fileData[1]
  278.  
  279.   anzLS = (anzLS+1)
  280.   anzLS = (anzLS-1)
  281.  
  282.   sonderzahl = (anzLS*5-2)
  283.  
  284.   nr = 3
  285.   ggz = 1
  286.  
  287.   if anzLS == 0 then
  288.    CP(15,18)
  289.    print("          ")
  290.    CP(15,18)
  291.    TC(16384)
  292.    print("ERROR - Try later")
  293.    
  294.   elseif anzLS >= 1 then
  295.    nr = 3
  296.    ggz = 1
  297.    LiveSappSDar(nr)
  298.   end
  299.  
  300.   while true do
  301.    event,side,tx,ty = os.pullEvent()
  302.    if event == "mouse_click" then
  303.    
  304.     if tx == 14 and ty == 18 then
  305.      if nr >= 8 then
  306.       nr = (nr-5)
  307.       ggz = (ggz-1)
  308.       LiveSappSDar(nr)
  309.      elseif nr == 3 then
  310.       nr = sonderzahl
  311.       ggz = anzLS
  312.       LiveSappSDar(nr)
  313.      end
  314.     end
  315.    
  316.     if tx == 50 and ty == 18 then
  317.      if nr < sonderzahl then
  318.       nr = (nr+5)
  319.       ggz = (ggz+1)
  320.       LiveSappSDar(nr)
  321.      elseif nr == sonderzahl then
  322.       nr = 3
  323.       ggz = 1
  324.       LiveSappSDar(nr)
  325.      end
  326.     end
  327.    
  328.     if tx >= 18 and tx <= 25 and ty == 13 then
  329.      BC(128)
  330.      TC(32)
  331.      CP(15,14)
  332.      shell.run("pastebin run "..PBCodeS)
  333.      auswahl = 4
  334.      break
  335.     end
  336.    end 
  337.   end
  338.  end
  339. end
  340.  
  341.  
  342. --3 - Add a program
  343. function AnzeigeStore3()
  344.  
  345.  StoreCleaner()
  346.  
  347.  programname = ""
  348.  
  349.  programpfad = ""
  350.  
  351.  n = ""
  352.  
  353.  p = 13.0
  354.  
  355.  f = 1.0
  356.  
  357.  paste = false
  358.  
  359.  while true do
  360.  
  361.   CP(17,6)
  362.   BC(128)
  363.   TC(1)
  364.   print("Add your own program    ")
  365.  
  366.   TC(256)
  367.  
  368.   CP(18,8)
  369.   print("Program Name (6 characters)  ")
  370.  
  371.   CP(18,10)
  372.   print("Program path or Pastebin-Code")
  373.  
  374.  
  375.   CP(18,13)
  376.   TC(256)
  377.   print("<")
  378.   CP(23,13)
  379.   print(">")
  380.  
  381.   CP(26,13)
  382.   TC(1)
  383.   print("Pastebin")
  384.   CP(35,13)
  385.   BC(32768)
  386.   write(" ")
  387.   BC(256)
  388.   print("  ")
  389.  
  390.   BC(128)
  391.   CP(18,16)
  392.   TC(32768)
  393.   print("Create   ")
  394.  
  395.   AppG(n,p,f)
  396.  
  397.   while true do
  398.  
  399.    event,side,x,y = os.pullEvent()
  400.    if event == "mouse_click" then
  401.    
  402.     if x >= 18 and x <= 44 and y == 8 then
  403.      CP(18,8)
  404.      write("                                       ")
  405.      CP(18,8)
  406.      TC(256)
  407.      programname = read()
  408.     end
  409.    
  410.     if x >= 35 and x <= 37 and y == 13 then
  411.      if paste == false then
  412.       CP(35,13)
  413.       BC(2048)
  414.       write("  ")
  415.       BC(32768)
  416.       print(" ")
  417.       paste = true
  418.      elseif paste == true then
  419.       CP(35,13)
  420.       BC(32768)
  421.       write(" ")
  422.       BC(256)
  423.       print("  ")
  424.       paste = false
  425.      end
  426.      BC(128)
  427.     end
  428.    
  429.     if x >= 18 and x <= 46 and y == 10 then
  430.      CP(18,10)
  431.      write("                                       ")
  432.      CP(18,10)
  433.      TC(256)
  434.      programpfad = read()
  435.     end
  436.    
  437.     if x == 18 and y == 13 then
  438.      if f >= 2.0 then
  439.       f = (f-1)
  440.       AppG(n,p,f)
  441.      else
  442.       f = 20.0
  443.       AppG(n,p,f)
  444.      end
  445.     end
  446.    
  447.     if x == 23 and y == 13 then
  448.      if f <= 19.0 then
  449.       f = (f+1)
  450.       AppG(n,p,f)
  451.      else
  452.       f = 1.0
  453.       AppG(n,p,f)
  454.      end
  455.     end
  456.    
  457.     if x >= 18 and x <= 23 and y == 16 then
  458.      if programname == "" then
  459.       CP(18,16)
  460.       TC(16384)
  461.       print("You forget somthing!  ")
  462.       sleep(1)
  463.       CP(18,16)
  464.       TC(32768)
  465.       print("Create                ")
  466.      
  467.      elseif programpfad == "" then
  468.       CP(18,16)
  469.       TC(16384)
  470.       print("You forget somthing!  ")
  471.       sleep(1)
  472.       CP(18,16)
  473.       TC(32768)
  474.       print("Create                ")
  475.      
  476.      else
  477.       CP(18,16)
  478.       TC(32)
  479.       print("please wait...        ")
  480.      
  481.       term.setBackgroundColor(128)
  482.       local file = fs.open("SimSoft/Daten/SappS/A","r")
  483.       local fileData = {}
  484.       local line = file.readLine()
  485.       repeat
  486.       table.insert(fileData,line)
  487.       line = file.readLine()
  488.       until line == nil
  489.       file.close()
  490.       anz = fileData[1]
  491.      
  492.       anz = (anz+1)
  493.       anz = (anz-1)
  494.      
  495.       if anz >= 15.0 then
  496.        CP(18,16)
  497.        TC(16384)
  498.        print("Too many Apps.        ")
  499.        sleep(1)
  500.        CP(18,16)
  501.        TC(32768)
  502.        print("Create             ")
  503.       else
  504.        anz = (anz+1)
  505.        local file = fs.open("SimSoft/Daten/SappS/A","w")
  506.        file.write(anz)
  507.        file.close()
  508.        local file = fs.open("SimSoft/Daten/SappS/"..anz,"w")
  509.        file.writeLine(programname)
  510.        file.writeLine(anz)
  511.        file.writeLine(f)
  512.        file.writeLine("")
  513.        file.writeLine("sv")
  514.        file.writeLine("-")
  515.        if paste == false then
  516.         file.writeLine(programpfad)
  517.        elseif paste == true then
  518.         file.writeLine("SimSoft/SappS/Downloads/"..programpfad)
  519.         Download(programpfad, "SimSoft/SappS/Downloads/"..programpfad)
  520.        end
  521.        file.close()
  522.      
  523.        CP(18,16)
  524.        TC(32)
  525.        print("Finish!           ")
  526.        sleep(1)
  527.        auswahl = 4
  528.       end
  529.      end     
  530.     end
  531.    end
  532.   end
  533.  end
  534. end
  535.  
  536. --Store Start
  537.  
  538.  
  539. function StoreStart()
  540.  
  541.  while true do
  542.   if auswahl == 0 then
  543.    parallel.waitForAny(AnzeigeKontrolle0)
  544.   end
  545.  
  546.   if auswahl == 1 then
  547.    parallel.waitForAny(AnzeigeKontrolle1, AnzeigeStore1)
  548.   end
  549.  
  550.   if auswahl == 2 then
  551.    parallel.waitForAny(AnzeigeKontrolle2, AnzeigeStore2)
  552.   end
  553.  
  554.   if auswahl == 3 then
  555.    parallel.waitForAny(AnzeigeKontrolle3, AnzeigeStore3)
  556.   end
  557.  
  558.   if auswahl == 4 then
  559.    break
  560.   end
  561.  end
  562. end
  563.  
  564. --Start
  565.  
  566. parallel.waitForAny(TouchMenu, StoreStart)
  567.  
  568. end
  569. --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