API tools faq
paste
Advertisement
MagmaLP

v1

MagmaLP
Oct 14th, 2023 (edited)
654
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 21.42 KB | None | 0 0
raw download clone embed print report
  1. os.loadAPI("ocs/apis/sensor")
  2. sen = sensor.wrap("top")
  3.  
  4. function calc_color(color)
  5.     return math.pow(2, color - 1)
  6. end
  7.  
  8. function msg(gap, line, color, groundb, text)
  9.     term.setBackgroundColor(calc_color(groundb))
  10.     term.setCursorPos(gap,line)
  11.     term.setTextColor(calc_color(color))
  12.     text = term.write(text)
  13. end
  14.  
  15.  
  16.  
  17. ---------------------------------------------------------------------------------
  18. term.setBackgroundColor(colors.gray)
  19. term.setTextColor(colors.black)
  20. term.setCursorPos(1,1)
  21. term.clear()
  22.                                                                   --")
  23. msg(01,01,01,08,"   Solar Calculation System         Tutorial  ->  X")
  24. msg(01,02,10,16,"-----------------------------+---------------------")
  25. for i = 3,19 do
  26.     msg(30,i,10,16,"|")
  27. end
  28. msg(01,03,01,08,"          Settings           ") msg(31,03,01,08,"      On Stock       ")
  29. msg(01,04,01,08,"                             ") msg(31,04,01,08,"                     ")
  30. msg(01,05,01,08,"     Include UU-Matter       ") msg(31,05,01,08,"                     ")
  31. msg(01,06,01,08,"     Cobble Furnace Recipe   ") msg(31,06,01,08,"                     ")
  32. msg(01,07,01,08,"     Calc. Output in Solars  ") msg(31,07,01,08,"                     ")
  33. msg(01,08,01,08,"     Calc. Output in LVs     ") msg(31,08,01,08,"                     ")
  34. msg(01,09,01,08,"     Calc. Output in MVs     ") msg(31,09,01,08,"                     ")
  35. msg(01,10,01,08,"     Calc. Output in HVs     ") msg(31,10,01,08,"                     ")
  36. msg(01,11,01,08,"     Calc. Output in AEs     ") msg(31,11,01,08,"                     ")
  37. msg(01,12,01,08,"     Refresh every 10 Sec.   ") msg(31,12,01,08,"                     ")
  38. msg(01,13,01,08,"     Smart but Slow burning  ") msg(31,13,01,08,"                     ")
  39. msg(01,14,01,08,"     Include Solars on Stock ") msg(31,14,01,08,"                     ")
  40. msg(01,15,01,08,"                             ") msg(31,15,01,08,"                     ")
  41. msg(01,16,10,16,"-----------------------------+---------------------")
  42. msg(01,17,01,08,"    Craftable Solar Panels   ") msg(31,17,01,15,"                     ")
  43. msg(01,18,01,08,"                             ") msg(31,18,01,15,"   click to reload   ")
  44. msg(01,19,01,08,"                             ") msg(31,19,01,15,"                     ")
  45.  
  46. msg(02,05,01,09," ") msg(03,05,16,08,":") msg(04,05,01,09," ")
  47. msg(02,06,01,09," ") msg(03,06,16,08,":") msg(04,06,01,09," ")
  48. msg(02,07,01,09," ") msg(03,07,16,08,":") msg(04,07,01,09," ")
  49. msg(02,08,01,09," ") msg(03,08,16,08,":") msg(04,08,01,09," ")
  50. msg(02,09,01,09," ") msg(03,09,16,08,":") msg(04,09,01,09," ")
  51. msg(02,10,01,09," ") msg(03,10,16,08,":") msg(04,10,01,09," ")
  52. msg(02,11,01,09," ") msg(03,11,16,08,":") msg(04,11,01,09," ")
  53. msg(02,12,01,09," ") msg(03,12,16,08,":") msg(04,12,01,09," ")
  54. msg(02,13,01,09," ") msg(03,13,16,08,":") msg(04,13,01,09," ")
  55. msg(02,14,01,09," ") msg(03,14,16,08,":") msg(04,14,01,09," ")
  56.  
  57. ---------------------------------------------------------------------------------
  58. Solar_Panel_Amount = 0
  59. Low_Voltage_Solar_Array_Amount = 0
  60. Medium_Voltage_Solar_Array_Amount = 0
  61. High_Voltage_Solar_Array_Amount = 0
  62. Cobblestone_Amount = 0
  63. Glass_Amount = 0
  64. Redstone_Amount = 0
  65. Coal_Amount = 0
  66. Tin_Dust_Amount = 0
  67. Copper_Dust_Amount = 0
  68. Sticky_Resin_Amount = 0
  69. Tin_Amount = 0
  70. Copper_Amount = 0
  71. Iron_Ingot_Amount = 0
  72. Rubber_amount = 0
  73. Coal_Dust_Amount = 0
  74. Refined_Iron_Amount = 0
  75. UU_Matter_Amount = 0
  76. Iron_Ore_Amount = 0
  77. Gold_Ore_Amount = 0
  78. Copper_Ore_Amount = 0
  79. Tin_Ore_Amount = 0
  80. Block_Of_Iron_Amount = 0
  81. Block_Of_Gold_Amount = 0
  82. Block_Of_Diamond_Amount = 0
  83. Block_Of_Silver_Amount = 0
  84. Tin_Block_Amount = 0
  85. Copper_Block_Amount = 0
  86. Redstone_Block_Amount = 0
  87. Oak_Wood_Amount = 0
  88. Spruce_Wood_Amount = 0
  89. Birch_Wood_Amount = 0
  90. Jungle_Wood_Amount = 0
  91. Oak_Wood_Planks_Amount = 0
  92. Spruce_Wood_Planks_Amount = 0
  93. Birch_Wood_Planks_Amount = 0
  94. Jungle_Wood_Planks_Amount = 0
  95.  
  96.  
  97. s = sen.getTargets()
  98. function getS()
  99.     for v, k  in pairs(s) do
  100.         if k.Name == "ME Wireless Access Point" then  
  101.             target = v
  102.         end
  103.     end
  104.     return target
  105. end
  106.  
  107. f = getS()
  108. s1 = sen.getTargetDetails(target)
  109. for v, k in pairs(s1.Items) do
  110.     --sleep(0.1)
  111.    
  112. ---ME Inventar Abfrage----
  113.     if k.Name == "Solar Panel" then
  114.         Solar_Panel_Amount = k.Size
  115.     elseif k.Name == "Low Voltage Solar Array" then
  116.         Low_Voltage_Solar_Array_Amount = k.Size
  117.     elseif k.Name == "Medium Voltage Solar Array" then
  118.         Medium_Voltage_Solar_Array_Amount = k.Size
  119.     elseif k.Name == "High Voltage Solar Array" then
  120.         High_Voltage_Solar_Array_Amount = k.Size
  121.     elseif k.Name == "Adjustable Emitter" then
  122.         Adjustable_Emitter_Amount = k.Size
  123.     elseif k.Name == "Cobblestone" then    
  124.         Cobblestone_Amount = k.Size
  125.        
  126.     elseif k.Name == "Glass" then
  127.         Glass_Amount = k.Size
  128.     elseif k.Name == "Redstone" then
  129.         Redstone_Amount = k.Size
  130.     elseif k.Name == "Coal" then
  131.         Coal_Amount = k.Size
  132.     elseif k.Name == "Tin Dust" then
  133.         Tin_Dust_Amount = k.Size
  134.     elseif k.Name == "Copper Dust" then
  135.         Copper_Dust_Amount = k.Size
  136.     elseif k.Name == "Sticky Resin" then
  137.         Sticky_Resin_Amount = k.Size
  138.  
  139.     elseif k.Name == "Tin" then
  140.         Tin_Amount = k.Size
  141.     elseif k.Name == "Copper" then
  142.         Copper_Amount = k.Size
  143.     elseif k.Name == "Iron Ingot" then
  144.         Iron_Ingot_Amount = k.Size  
  145.     elseif k.Name == "Rubber" then
  146.         Rubber_Amount = k.Size
  147.     elseif k.Name == "Coal Dust" then
  148.         Coal_Dust_Amount = k.Size
  149.     elseif k.Name == "Refined Iron" then
  150.         Refined_Iron_Amount = k.Size
  151.  
  152.     elseif k.Name == "UU-Matter" then
  153.         UU_Matter_Amount = k.Size
  154.          
  155.     elseif k.Name == "Iron Ore" then
  156.         Iron_Ore_Amount = k.Size
  157.     elseif k.Name == "Gold Ore" then
  158.         Gold_Ore_Amount = k.Size
  159.     elseif k.Name == "Copper Ore" then
  160.         Copper_Ore_Amount = k.Size
  161.     elseif k.Name == "Tin Ore" then
  162.         Tin_Ore_Amount = k.Size
  163.            
  164.     elseif k.Name == "Block of Iron" then
  165.         Block_Of_Iron_Amount = k.Size  
  166.     elseif k.Name == "Block of Gold" then
  167.         Block_Of_Gold_Amount = k.Size
  168.     elseif k.Name == "Block of Diamond" then
  169.         Block_Of_Diamond_Amount = k.Size
  170.     elseif k.Name == "Block of Silver" then
  171.         Block_Of_Silver_Amount = k.Size
  172.     elseif k.Name == "Tin Block" then
  173.         Tin_Block_Amount = k.Size
  174.     elseif k.Name == "Copper Block" then
  175.         Copper_Block_Amount = k.Size    
  176.     elseif k.Name == "Redstone Block" then
  177.         Redstone_Block_Amount = k.Size  
  178.        
  179.     elseif k.Name == "Oak Wood" then
  180.         Oak_Wood_Amount = k.Size          
  181.     elseif k.Name == "Spruce Wood" then
  182.         Spruce_Wood_Amount = k.Size        
  183.     elseif k.Name == "Birch Wood" then
  184.         Birch_Wood_Amount = k.Size
  185.     elseif k.Name == "Jungle Wood" then
  186.         Jungle_Wood_Amount = k.Size
  187.     elseif k.Name == "Oak Wood Planks" then
  188.         Oak_Wood_Planks_Amount = k.Size
  189.     elseif k.Name == "Spruce Wood Planks" then
  190.         Spruce_Wood_Planks_Amount = k.Size
  191.     elseif k.Name == "Birch Wood Planks" then
  192.         Birch_Wood_Planks_Amount = k.Size
  193.     elseif k.Name == "Jungle Wood Planks" then
  194.         Jungle_Wood_Planks_Amount = k.Size
  195.        
  196.  
  197.     end
  198. end
  199.  
  200. ---Update On Stock Display---
  201. msg(31,05,01,08,"    Solars: "..Solar_Panel_Amount)
  202. msg(31,07,01,08,"    LV Sol: "..Low_Voltage_Solar_Array_Amount)
  203. msg(31,09,01,08,"    MV Sol: "..Medium_Voltage_Solar_Array_Amount)
  204. msg(31,11,01,08,"    HV Sol: "..High_Voltage_Solar_Array_Amount)
  205. msg(31,13,01,08,"    Adjust: "..Adjustable_Emitter_Amount)
  206.  
  207. local file = fs.open("UU-Matter", "r")
  208. Setting_1 = file.readLine()
  209. file.close()
  210.  
  211. local file = fs.open("Cobblestone", "r")
  212. Setting_2 = file.readLine()
  213. file.close()
  214.  
  215. local file = fs.open("Setting_3", "r")
  216. Setting_3 = file.readLine()
  217. file.close()
  218.  
  219. if Setting_3 == "3" then
  220.     msg(02,07,01,09," ") msg(04,07,01,06," ")
  221.     msg(02,08,01,15," ") msg(04,08,01,09," ")
  222.     msg(02,09,01,15," ") msg(04,09,01,09," ")
  223.     msg(02,10,01,15," ") msg(04,10,01,09," ")
  224.     msg(02,11,01,15," ") msg(04,11,01,09," ")
  225. elseif Setting_3 == "4" then
  226.     msg(02,08,01,09," ") msg(04,08,01,06," ")
  227.     msg(02,07,01,15," ") msg(04,07,01,09," ")
  228.     msg(02,09,01,15," ") msg(04,09,01,09," ")
  229.     msg(02,10,01,15," ") msg(04,10,01,09," ")
  230.     msg(02,11,01,15," ") msg(04,11,01,09," ")
  231. elseif Setting_3 == "5" then
  232.     msg(02,09,01,09," ") msg(04,09,01,06," ")
  233.     msg(02,07,01,15," ") msg(04,07,01,09," ")
  234.     msg(02,08,01,15," ") msg(04,08,01,09," ")
  235.     msg(02,10,01,15," ") msg(04,10,01,09," ")
  236.     msg(02,11,01,15," ") msg(04,11,01,09," ")
  237. elseif Setting_3 == "6" then
  238.     msg(02,10,01,09," ") msg(04,10,01,06," ")
  239.     msg(02,07,01,15," ") msg(04,07,01,09," ")
  240.     msg(02,08,01,15," ") msg(04,08,01,09," ")
  241.     msg(02,09,01,15," ") msg(04,09,01,09," ")
  242.     msg(02,11,01,15," ") msg(04,11,01,09," ")
  243. elseif Setting_3 == "7" then
  244.     msg(02,11,01,09," ") msg(04,11,01,06," ")
  245.     msg(02,07,01,15," ") msg(04,07,01,09," ")
  246.     msg(02,08,01,15," ") msg(04,08,01,09," ")
  247.     msg(02,09,01,15," ") msg(04,09,01,09," ")
  248.     msg(02,10,01,15," ") msg(04,10,01,09," ")
  249. end
  250.  
  251.  
  252.  
  253.  
  254. ---Berechnung: wie viele Solars kann das ME craften kann mit der jeweiligen gegebenen Recource ---
  255. if Setting_3 == "3" then    --Solar Panel
  256.     Solar_Array_Glass_Amount = Glass_Amount / 3
  257.     Solar_Array_Redstone_Amount = ((Redstone_Block_Amount * 9) + Redstone_Amount) / 6
  258.     Solar_Array_Coal_Dust_Amount = (Coal_Amount + Coal_Dust_Amount) / 3
  259.     Solar_Array_Rubber_Amount = ((Sticky_Resin_Amount * 3) + Rubber_Amount) / 18
  260.     Solar_Array_Copper_Amount = ((Copper_Amount + Copper_Dust_Amount) + (Copper_Ore_Amount * 2) + (Copper_Block_Amount * 9)) / 7
  261.     Solar_Array_Tin_Amount = (Tin_Amount + Tin_Dust_Amount + (Tin_Ore_Amount * 2) + (Tin_Block_Amount * 9)) / 4
  262.     if Setting_2 == "1" then
  263.         msg(02,06,01,09," ") msg(04,06,01,06," ")
  264.         Solar_Array_Iron_Amount = ((Refined_Iron_Amount + Iron_Ingot_Amount) + (Iron_Ore_Amount * 2) + (Block_Of_Iron_Amount * 9)) / 10
  265.         Solar_Array_Cobblestone_Amount = Cobblestone_Amount / 8
  266.        
  267.         if Setting_1 == "1" then
  268.     ---Berechnung: wie viele Solars kann das ME craften mit den gegebenen Recourcen mit UU-Matter---
  269.             msg(02,05,01,09," ") msg(04,05,01,06," ")
  270.             Solar_Array_UU_Matter_Amount = UU_Matter_Amount / 19.55
  271.             Solar_Min_Mit_UU_Matter = math.min(Solar_Array_Glass_Amount, Solar_Array_Redstone_Amount, Solar_Array_Coal_Dust_Amount, Solar_Array_Rubber_Amount, Solar_Array_Iron_Amount, Solar_Array_Copper_Amount, Solar_Array_Tin_Amount, Solar_Array_Cobblestone_Amount)
  272.             Solar_Array_UU_Matter_Amount = Solar_Array_UU_Matter_Amount + Solar_Min_Mit_UU_Matter
  273.             msg(10,19,01,08,""..Solar_Array_UU_Matter_Amount)
  274.  
  275.         elseif Setting_1 == "0" then
  276.         ---Berechnung: wie viele Solars kann das ME craften mit den gegebenen Recourcen ohne UU-Matter---
  277.             msg(02,05,01,15," ") msg(04,05,01,09," ")
  278.             Solar_Min_Ohne_UU_Matter = math.min(Solar_Array_Glass_Amount, Solar_Array_Redstone_Amount, Solar_Array_Coal_Dust_Amount, Solar_Array_Rubber_Amount, Solar_Array_Iron_Amount, Solar_Array_Copper_Amount, Solar_Array_Tin_Amount, Solar_Array_Cobblestone_Amount)
  279.             Solar_Array_UU_Matter_Amount = Solar_Min_Ohne_UU_Matter
  280.             msg(10,19,01,08,""..Solar_Array_UU_Matter_Amount)
  281.         end  
  282.        
  283.     elseif Setting_2 == "0" then
  284.         msg(02,06,01,15," ") msg(04,06,01,09," ")
  285.         Solar_Array_Iron_Amount = ((Refined_Iron_Amount + Iron_Ingot_Amount) + (Iron_Ore_Amount * 2) + (Block_Of_Iron_Amount * 9)) / 13
  286.        
  287.         if Setting_1 == "1" then
  288.     ---Berechnung: wie viele Solars kann das ME craften mit den gegebenen Recourcen mit UU-Matter---
  289.             msg(02,05,01,09," ") msg(04,05,01,06," ")
  290.             Solar_Array_UU_Matter_Amount = UU_Matter_Amount / 19.55
  291.             Solar_Min_Mit_UU_Matter = math.min(Solar_Array_Glass_Amount, Solar_Array_Redstone_Amount, Solar_Array_Coal_Dust_Amount, Solar_Array_Rubber_Amount, Solar_Array_Iron_Amount, Solar_Array_Copper_Amount, Solar_Array_Tin_Amount)
  292.             Solar_Array_UU_Matter_Amount = Solar_Array_UU_Matter_Amount + Solar_Min_Mit_UU_Matter
  293.             msg(10,19,01,08,""..Solar_Array_UU_Matter_Amount)
  294.  
  295.         elseif Setting_1 == "0" then
  296.         ---Berechnung: wie viele Solars kann das ME craften mit den gegebenen Recourcen ohne UU-Matter---
  297.             msg(02,05,01,15," ") msg(04,05,01,09," ")
  298.             Solar_Min_Ohne_UU_Matter = math.min(Solar_Array_Glass_Amount, Solar_Array_Redstone_Amount, Solar_Array_Coal_Dust_Amount, Solar_Array_Rubber_Amount, Solar_Array_Iron_Amount, Solar_Array_Copper_Amount, Solar_Array_Tin_Amount)
  299.             Solar_Array_UU_Matter_Amount = Solar_Min_Ohne_UU_Matter
  300.             msg(10,19,01,08,""..Solar_Array_UU_Matter_Amount)
  301.         end    
  302.     end
  303.    
  304.    
  305.    
  306.    
  307.    
  308. elseif Setting_3 == "4" then        --LV Solar Panel
  309.     Solar_Array_Glass_Amount = Glass_Amount / 24
  310.     Solar_Array_Redstone_Amount = ((Redstone_Block_Amount * 9) + Redstone_Amount) / 48
  311.     Solar_Array_Coal_Dust_Amount = (Coal_Amount + Coal_Dust_Amount) / 24
  312.     Solar_Array_Rubber_Amount = ((Sticky_Resin_Amount * 3) + Rubber_Amount) / 146
  313.     Solar_Array_Copper_Amount = ((Copper_Amount + Copper_Dust_Amount) + (Copper_Ore_Amount * 2) + (Copper_Block_Amount * 9)) / 61
  314.     Solar_Array_Tin_Amount = (Tin_Amount + Tin_Dust_Amount + (Tin_Ore_Amount * 2) + (Tin_Block_Amount * 9)) / 32
  315.     Solar_Array_Wood_Planks_Amount = (((Oak_Wood_Amount + Spruce_Wood_Amount + Birch_Wood_Amount + Jungle_Wood_Amount) * 4) + (Oak_Wood_Planks_Amount + Spruce_Wood_Planks_Amount + Birch_Wood_Planks_Amount + Jungle_Wood_Planks_Amount)) / 4
  316.     if Setting_2 == "1" then
  317.         msg(02,06,01,09," ") msg(04,06,01,06," ")
  318.         Solar_Array_Iron_Amount = ((Refined_Iron_Amount + Iron_Ingot_Amount) + (Iron_Ore_Amount * 2) + (Block_Of_Iron_Amount * 9)) / 80
  319.         Solar_Array_Cobblestone_Amount = Cobblestone_Amount / 64
  320.        
  321.         if Setting_1 == "1" then
  322.     ---Berechnung: wie viele Solars kann das ME craften mit den gegebenen Recourcen mit UU-Matter---
  323.             msg(02,05,01,09," ") msg(04,05,01,06," ")
  324.             Solar_Array_UU_Matter_Amount = UU_Matter_Amount / 158.452
  325.             Solar_Min_Mit_UU_Matter = math.min(Solar_Array_Glass_Amount, Solar_Array_Redstone_Amount, Solar_Array_Coal_Dust_Amount, Solar_Array_Rubber_Amount, Solar_Array_Iron_Amount, Solar_Array_Copper_Amount, Solar_Array_Tin_Amount, Solar_Array_Cobblestone_Amount, Solar_Array_Wood_Planks_Amount)
  326.             Solar_Array_UU_Matter_Amount = Solar_Array_UU_Matter_Amount + Solar_Min_Mit_UU_Matter
  327.             msg(10,19,01,08,""..Solar_Array_UU_Matter_Amount)
  328.  
  329.         elseif Setting_1 == "0" then
  330.         ---Berechnung: wie viele Solars kann das ME craften mit den gegebenen Recourcen ohne UU-Matter---
  331.             msg(02,05,01,15," ") msg(04,05,01,09," ")
  332.             Solar_Min_Ohne_UU_Matter = math.min(Solar_Array_Glass_Amount, Solar_Array_Redstone_Amount, Solar_Array_Coal_Dust_Amount, Solar_Array_Rubber_Amount, Solar_Array_Iron_Amount, Solar_Array_Copper_Amount, Solar_Array_Tin_Amount, Solar_Array_Cobblestone_Amount, Solar_Array_Wood_Planks_Amount)
  333.             Solar_Array_UU_Matter_Amount = Solar_Min_Ohne_UU_Matter
  334.             msg(10,19,01,08,""..Solar_Array_UU_Matter_Amount)
  335.         end  
  336.        
  337.     elseif Setting_2 == "0" then
  338.         msg(02,06,01,15," ") msg(04,06,01,09," ")
  339.         Solar_Array_Iron_Amount = ((Refined_Iron_Amount + Iron_Ingot_Amount) + (Iron_Ore_Amount * 2) + (Block_Of_Iron_Amount * 9)) / 104
  340.        
  341.         if Setting_1 == "1" then
  342.     ---Berechnung: wie viele Solars kann das ME craften mit den gegebenen Recourcen mit UU-Matter---
  343.             msg(02,05,01,09," ") msg(04,05,01,06," ")
  344.             Solar_Array_UU_Matter_Amount = UU_Matter_Amount / 158.452
  345.             Solar_Min_Mit_UU_Matter = math.min(Solar_Array_Glass_Amount, Solar_Array_Redstone_Amount, Solar_Array_Coal_Dust_Amount, Solar_Array_Rubber_Amount, Solar_Array_Iron_Amount, Solar_Array_Copper_Amount, Solar_Array_Tin_Amount, Solar_Array_Wood_Planks_Amount)
  346.             Solar_Array_UU_Matter_Amount = Solar_Array_UU_Matter_Amount + Solar_Min_Mit_UU_Matter
  347.             msg(10,19,01,08,""..Solar_Array_UU_Matter_Amount)
  348.  
  349.         elseif Setting_1 == "0" then
  350.         ---Berechnung: wie viele Solars kann das ME craften mit den gegebenen Recourcen ohne UU-Matter---
  351.             msg(02,05,01,15," ") msg(04,05,01,09," ")
  352.             Solar_Min_Ohne_UU_Matter = math.min(Solar_Array_Glass_Amount, Solar_Array_Redstone_Amount, Solar_Array_Coal_Dust_Amount, Solar_Array_Rubber_Amount, Solar_Array_Iron_Amount, Solar_Array_Copper_Amount, Solar_Array_Tin_Amount, Solar_Array_Wood_Planks_Amount)
  353.             Solar_Array_UU_Matter_Amount = Solar_Min_Ohne_UU_Matter
  354.             msg(10,19,01,08,""..Solar_Array_UU_Matter_Amount)
  355.         end    
  356.     end
  357.    
  358.    
  359.    
  360.    
  361. elseif Setting_3 == "5" then        --MV Solar Panel
  362. elseif Setting_3 == "6" then        --HV Solar Panel
  363. elseif Setting_3 == "7" then        --AE
  364. end
  365.    
  366. --------------------------------------------------------------------------------------------------------------------------------
  367.  
  368.    
  369.  
  370. --------------------------------------------------------------------------------------------------------------------------------
  371.  
  372.  
  373.  
  374.  
  375.  
  376.  
  377.  
  378.  
  379.  
  380.  
  381.  
  382.  
  383.  
  384.  
  385.  
  386.  
  387. --------------------------------Buttonabfragen-------------------------------
  388. while true do
  389.     local event, button, X, Y = os.pullEvent("mouse_click")
  390.     if X >= 31 and X <= 51 and Y >= 17 and Y <= 19 then         --Reload
  391.         shell.run(1)
  392.     elseif X >= 50 and X <= 51 and Y == 01 then                 --Tutorial
  393.         term.setBackgroundColor(colors.black)
  394.         term.setTextColor(colors.black)
  395.         term.setCursorPos(1,1)
  396.         term.clear()
  397.         sleep(2)
  398.         shell.run("1")
  399. ---Setting-Buttons---        
  400.     elseif X == 4 and Y == 5 then                               --Include UU-Matter AN
  401.         msg(02,05,01,09," ") msg(04,05,01,06," ")
  402.         local file = fs.open("UU-Matter", "w")
  403.         file.write("1")
  404.         file.close()
  405.     elseif X == 2 and Y == 5 then                               --Include UU-Matter AUS
  406.         msg(02,05,01,15," ") msg(04,05,01,09," ")
  407.         local file = fs.open("UU-Matter", "w")
  408.         file.write("0")
  409.         file.close()
  410.     elseif X == 4 and Y == 6 then                               --Cobble Furnace Recipe AN
  411.         msg(02,06,01,09," ") msg(04,06,01,06," ")
  412.         local file = fs.open("Cobblestone", "w")
  413.         file.write("1")
  414.         file.close()
  415.     elseif X == 2 and Y == 6 then                               --Cobble Furnace Recipe AUS
  416.         msg(02,06,01,15," ") msg(04,06,01,09," ")
  417.         local file = fs.open("Cobblestone", "w")
  418.         file.write("0")
  419.         file.close()        
  420.     elseif X == 4 and Y == 07 and Setting_3 ~= 3 then       --Calc. Output in Solars AN
  421.         Setting_3 = 3
  422.         msg(02,07,01,09," ") msg(04,07,01,06," ")
  423.         msg(02,08,01,15," ") msg(04,08,01,09," ")
  424.         msg(02,09,01,15," ") msg(04,09,01,09," ")
  425.         msg(02,10,01,15," ") msg(04,10,01,09," ")
  426.         msg(02,11,01,15," ") msg(04,11,01,09," ")
  427.         local file = fs.open("Setting_3", "w")
  428.         file.write("3")
  429.         file.close()
  430.     elseif X == 4 and Y == 08 and Setting_3 ~= 4 then       --Calc. Output in LVs AN
  431.         Setting_3 = 4
  432.         msg(02,08,01,09," ") msg(04,08,01,06," ")
  433.         msg(02,07,01,15," ") msg(04,07,01,09," ")
  434.         msg(02,09,01,15," ") msg(04,09,01,09," ")
  435.         msg(02,10,01,15," ") msg(04,10,01,09," ")
  436.         msg(02,11,01,15," ") msg(04,11,01,09," ")
  437.         local file = fs.open("Setting_3", "w")
  438.         file.write("4")
  439.         file.close()        
  440.     elseif X == 4 and Y == 09 and Setting_3 ~= 5 then       --Calc. Output in MVs AN
  441.         Setting_3 = 5
  442.         msg(02,09,01,09," ") msg(04,09,01,06," ")
  443.         msg(02,07,01,15," ") msg(04,07,01,09," ")
  444.         msg(02,08,01,15," ") msg(04,08,01,09," ")
  445.         msg(02,10,01,15," ") msg(04,10,01,09," ")
  446.         msg(02,11,01,15," ") msg(04,11,01,09," ")
  447.         local file = fs.open("Setting_3", "w")
  448.         file.write("5")
  449.         file.close()
  450.     elseif X == 4 and Y == 10 and Setting_3 ~= 6 then       --Calc. Output in HVs AN  
  451.         Setting_3 = 6
  452.         msg(02,10,01,09," ") msg(04,10,01,06," ")
  453.         msg(02,07,01,15," ") msg(04,07,01,09," ")
  454.         msg(02,08,01,15," ") msg(04,08,01,09," ")
  455.         msg(02,09,01,15," ") msg(04,09,01,09," ")
  456.         msg(02,11,01,15," ") msg(04,11,01,09," ")
  457.         local file = fs.open("Setting_3", "w")
  458.         file.write("6")
  459.         file.close()
  460.     elseif X == 4 and Y == 11 and Setting_3 ~= 7 then       --Calc. Output in AEs AN
  461.         Setting_3 = 7
  462.         msg(02,11,01,09," ") msg(04,11,01,06," ")
  463.         msg(02,07,01,15," ") msg(04,07,01,09," ")
  464.         msg(02,08,01,15," ") msg(04,08,01,09," ")
  465.         msg(02,09,01,15," ") msg(04,09,01,09," ")
  466.         msg(02,10,01,15," ") msg(04,10,01,09," ")
  467.         local file = fs.open("Setting_3", "w")
  468.         file.write("7")
  469.         file.close()
  470.        
  471.        
  472.        
  473.        
  474.        
  475.     elseif X >= 31 and X <= 51 and Y >= 17 and Y <= 19 then     --Refresh every 10 Sec. AN
  476.     elseif X >= 31 and X <= 51 and Y >= 17 and Y <= 19 then     --Refresh every 10 Sec. AUS
  477.     elseif X >= 31 and X <= 51 and Y >= 17 and Y <= 19 then     --Smart but Slow burning AN  
  478.     elseif X >= 31 and X <= 51 and Y >= 17 and Y <= 19 then     --Smart but Slow burning AUS
  479.     elseif X >= 31 and X <= 51 and Y >= 17 and Y <= 19 then     --Include Solars on Stock AN  
  480.     elseif X >= 31 and X <= 51 and Y >= 17 and Y <= 19 then     --Include Solars on Stock AUS
  481.        
  482.        
  483.        
  484.     end
  485.     sleep(0.5)
  486. end
  487.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!