API tools faq
paste
Advertisement
MagmaLP

Rank/Donation

MagmaLP
May 26th, 2024 (edited)
751
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 23.83 KB | None | 0 0
raw download clone embed print report
  1. mon = peripheral.wrap("left")
  2. mon.setTextScale(1.5)
  3. mon.setBackgroundColor(32768)
  4. mon.setCursorPos(1,1)
  5. mon.clear()
  6.  
  7. function calc_color(color)
  8.     return math.pow(2, color - 1)
  9. end
  10.  
  11. function msg(gap, line, color, groundb, text)
  12.     mon.setBackgroundColor(calc_color(groundb))
  13.     mon.setCursorPos(gap,line)
  14.     mon.setTextColor(calc_color(color))
  15.     text = mon.write(text)
  16. end
  17.  
  18. function Clear()
  19.     mon.setBackgroundColor(32768)
  20.     mon.setCursorPos(1,1)
  21.     mon.clear()
  22. end
  23.  
  24. function MainTopEnglish()
  25.     msg(17,03,01,16," please select ")
  26.  
  27.     for i = 6,10 do
  28.         msg(08,i,15,15,"               ")  msg(26,i,15,15,"               ")
  29.     end
  30.     msg(13,08,01,15,"Ranks")
  31.     msg(31,08,01,15,"Kits")
  32. end
  33.  
  34. function MainBotEnglish()
  35.     msg(01,14,09,16,"------------------------------------------------")
  36.     for i = 15,17 do
  37.         msg(03,i,16,01,"           ")  msg(19,i,16,01,"          ")  msg(35,i,16,01,"           ")
  38.     end
  39.     msg(05,16,16,01,"Deutsch")  msg(22,16,16,01,"back")  msg(37,16,16,01,"English")
  40. end
  41.  
  42. function MainTopDeutsch()
  43.     msg(18,03,01,16," bitte wählen ")
  44.  
  45.     for i = 6,10 do
  46.         msg(08,i,15,15,"               ")  msg(26,i,15,15,"               ")
  47.     end
  48.     msg(13,08,01,15,"Ränge")
  49.     msg(31,08,01,15,"Kits")
  50. end
  51.  
  52. function MainBotDeutsch()
  53.     msg(01,14,09,16,"------------------------------------------------")
  54.     for i = 15,17 do
  55.         msg(03,i,16,01,"           ")  msg(19,i,16,01,"          ")  msg(35,i,16,01,"           ")
  56.     end
  57.     msg(05,16,16,01,"Deutsch")  msg(21,16,16,01,"zurück")  msg(37,16,16,01,"English")
  58. end
  59. ------------------------------------------------------------------------------------------------------
  60. function Rank1English()
  61.     msg(02,02,06,16,"Resident")
  62.     msg(13,02,09,16,"Counted Blocks     -> /counter")
  63.     msg(13,03,09,16,"Warp Points        -> /warps")
  64.     msg(13,04,09,16,"Max Home Points 2  -> /sethome name")
  65.     msg(13,05,09,16,"Starter Kit        -> /kit starter")
  66.     msg(13,06,09,16,"Back Port Perms    -> /back")
  67.     msg(13,07,09,16,"Claims List        -> /claimslist")
  68.     msg(13,08,09,16,"Performance Info.  -> /performance")
  69.     msg(13,09,09,16,"Currencies/Money   -> /money")
  70.     msg(13,10,09,16,"")
  71.     msg(13,11,09,16,"")
  72.     msg(13,12,09,16,"")
  73. end
  74.  
  75. function Rank2English()
  76.     msg(02,04,01,16,"Iron")
  77.     msg(13,02,09,16,"Buyable for 40 Ingame Coupones or")
  78.     msg(13,03,09,16,"11.90 Euro Donation at lycodon.com")
  79.     msg(13,04,09,16,"")
  80.     msg(13,05,09,16,"- 7x Home")
  81.     msg(13,06,09,16,"- Keep-Inv + Keep-XP")
  82.     msg(13,07,09,16,"- /kit Iron (every 24h)")
  83.     msg(13,08,09,16,"    * 2x MV Solar Panel")
  84.     msg(13,09,09,16,"    * 2x LV Transformer")
  85.     msg(13,10,09,16,"    * 1x Reward Crate")
  86.     msg(13,11,09,16,"- 20000$")
  87.     msg(13,12,09,16,"- 16x Coupone")
  88. end
  89.  
  90. function Rank3English()
  91.     msg(02,06,02,16,"Gold")
  92.     msg(13,02,09,16,"Buyable for 100 Ingame Coupones or")
  93.     msg(13,03,09,16,"29.75 Euro Donation at lycodon.com")
  94.     msg(13,04,09,16,"")
  95.     msg(13,05,09,16,"- 10x Home + /fly + /heal + /god")
  96.     msg(13,06,09,16,"- Keep-Inv + Keep-XP")
  97.     msg(13,07,09,16,"- /kit Gold (every 24h)")
  98.     msg(13,08,09,16,"    * 4x MV Solar Panel")
  99.     msg(13,09,09,16,"    * 2x MV Transformer")
  100.     msg(13,10,09,16,"    * 1x Reward Crate")
  101.     msg(13,11,09,16,"- 45000$  +  30x Coupone")
  102.     msg(13,12,09,16,"- Landmark Perms for your Quarry")
  103. end
  104.  
  105. function Rank4English()
  106.     msg(02,08,04,16,"Diamond")
  107.     msg(13,02,09,16,"Buyable for 200 Ingame Coupones or")
  108.     msg(13,03,09,16,"59.50 Euro Donation at lycodon.com")
  109.     msg(13,04,09,16,"")
  110.     msg(13,05,09,16,"- 15x Home + /fly + /heal + /god")
  111.     msg(13,06,09,16,"- Keep-Inv + Keep-XP + /repair")
  112.     msg(13,07,09,16,"- /kit Diamond (every 24h)")
  113.     msg(13,08,09,16,"    * 1x HV Solar Panel")
  114.     msg(13,09,09,16,"    * 1x HV Transformer")
  115.     msg(13,10,09,16,"    * 1x Reward Crate")
  116.     msg(13,11,09,16,"- 95000$  +  60x Coupone")
  117.     msg(13,12,09,16,"- Landmark Perms for your Quarry")
  118. end
  119.  
  120. function Rank5English()
  121.     msg(02,10,10,16,"Stammi")
  122.     msg(13,02,09,16,"This rank can only be achieved")
  123.     msg(13,03,09,16,"Ingame with the achievement Stammi")
  124.     msg(13,04,09,16,"aptitude and 7 days of playtime.")
  125.     msg(13,05,09,16,"")
  126.     msg(13,06,09,16,"- 4x Home")
  127.     msg(13,07,09,16,"- Keep-Inv + Keep-XP")
  128.     msg(13,08,09,16,"- more counter Blocks")
  129.     msg(13,09,09,16,"")  
  130.     msg(13,10,09,16,"- Spotloader:")
  131.     msg(13,11,09,16,"  * a chunk remains loaded")
  132.     msg(13,12,09,16,"    as long as you are online.")
  133. end
  134.  
  135. function Rank6English()
  136.     msg(02,12,10,16,"Stammi+")
  137.     msg(13,02,09,16,"This rank can only be achieved")
  138.     msg(13,03,09,16,"Ingame with the achievement Stammi")
  139.     msg(13,04,09,16,"aptitude and 21 days of playtime.")
  140.     msg(13,05,09,16,"")
  141.     msg(13,06,09,16,"- 6x Home + /weather + /enderchest")
  142.     msg(13,07,09,16,"- Keep-Inv + Keep-XP")
  143.     msg(13,08,09,16,"- more counter Blocks")
  144.     msg(13,09,09,16,"- Turtles and Tradesigns useable")  
  145.     msg(13,10,09,16,"- Spotloader:")
  146.     msg(13,11,09,16,"  * a chunk remains loaded")
  147.     msg(13,12,09,16,"    as long as you are online.")
  148. end
  149.  
  150. function Rank1Deutsch()
  151.     msg(02,02,06,16,"Resident")
  152.     msg(13,02,09,16,"Limitierte Blöcke  -> /counter")
  153.     msg(13,03,09,16,"Warp Punkte        -> /warps")
  154.     msg(13,04,09,16,"Max Home Punkte 2  -> /sethome name")
  155.     msg(13,05,09,16,"Anfänger Kit       -> /kit starter")
  156.     msg(13,06,09,16,"Zurück TP-Rechte   -> /back")
  157.     msg(13,07,09,16,"Grundstücksliste   -> /claimslist")
  158.     msg(13,08,09,16,"Performance Info.  -> /performance")
  159.     msg(13,09,09,16,"Währungen / Geld   -> /money")
  160.     msg(13,10,09,16,"")
  161.     msg(13,11,09,16,"")
  162.     msg(13,12,09,16,"")
  163. end
  164.  
  165. function Rank2Deutsch()
  166.     msg(02,04,01,16,"Iron")
  167.     msg(13,02,09,16,"Kaufbar für 40 Ingame Coupones oder")
  168.     msg(13,03,09,16,"11.90 Euro Spende auf lycodon.com")
  169.     msg(13,04,09,16,"")
  170.     msg(13,05,09,16,"- 7x Home")
  171.     msg(13,06,09,16,"- Keep-Inv + Keep-XP")
  172.     msg(13,07,09,16,"- /kit Iron (alle 24h)")
  173.     msg(13,08,09,16,"    * 2x MV Solar Panel")
  174.     msg(13,09,09,16,"    * 2x LV Transformer")
  175.     msg(13,10,09,16,"    * 1x Reward Crate")
  176.     msg(13,11,09,16,"- 20000$")
  177.     msg(13,12,09,16,"- 16x Coupone")
  178. end
  179.  
  180. function Rank3Deutsch()
  181.     msg(02,06,02,16,"Gold")
  182.     msg(13,02,09,16,"Kaufbar für 100 Ingame Coupones oder")
  183.     msg(13,03,09,16,"29.75 Euro Spende auf lycodon.com")
  184.     msg(13,04,09,16,"")
  185.     msg(13,05,09,16,"- 10x Home + /fly + /heal + /god")
  186.     msg(13,06,09,16,"- Keep-Inv + Keep-XP")
  187.     msg(13,07,09,16,"- /kit Gold (alle 24h)")
  188.     msg(13,08,09,16,"    * 4x MV Solar Panel")
  189.     msg(13,09,09,16,"    * 2x MV Transformer")
  190.     msg(13,10,09,16,"    * 1x Reward Crate")
  191.     msg(13,11,09,16,"- 45000$  +  30x Coupone")
  192.     msg(13,12,09,16,"- Landmark Rechte für die Quarry")
  193. end
  194.  
  195. function Rank4Deutsch()
  196.     msg(02,08,04,16,"Diamond")
  197.     msg(13,02,09,16,"Kaufbar für 200 Ingame Coupones oder")
  198.     msg(13,03,09,16,"59.50 Euro Spende auf lycodon.com")
  199.     msg(13,04,09,16,"")
  200.     msg(13,05,09,16,"- 15x Home + /fly + /heal + /god")
  201.     msg(13,06,09,16,"- Keep-Inv + Keep-XP + /repair")
  202.     msg(13,07,09,16,"- /kit Diamond (alle 24h)")
  203.     msg(13,08,09,16,"  * 1x HV Solar Panel")
  204.     msg(13,09,09,16,"  * 1x HV Transformer")
  205.     msg(13,10,09,16,"  * 1x Reward Crate")
  206.     msg(13,11,09,16,"- 95000$  +  60x Coupone")
  207.     msg(13,12,09,16,"- Landmark Rechte für die Quarry")
  208. end
  209.  
  210. function Rank5Deutsch()
  211.     msg(02,10,10,16,"Stammi")
  212.     msg(13,02,09,16,"Dieser Rang ist nur Ingame")
  213.     msg(13,03,09,16,"erspielbar mit dem Achievment")
  214.     msg(13,04,09,16,"Stammi Eignung und 7 Tage Spielzeit")
  215.     msg(13,05,09,16,"")
  216.     msg(13,06,09,16,"- 4x Home")
  217.     msg(13,07,09,16,"- Keep-Inv + Keep-XP")
  218.     msg(13,08,09,16,"- Mehr Counter Blöcke")
  219.     msg(13,09,09,16,"")  
  220.     msg(13,10,09,16,"- Spotloader:")
  221.     msg(13,11,09,16,"  * Ein Chunk bleibt geladen")
  222.     msg(13,12,09,16,"    solange du online bist.")
  223. end
  224.  
  225. function Rank6Deutsch()
  226.     msg(02,12,10,16,"Stammi+")
  227.     msg(13,02,09,16,"Dieser Rang ist nur Ingame")
  228.     msg(13,03,09,16,"erspielbar mit dem Achievment")
  229.     msg(13,04,09,16,"Stammi Eignung und 21 Tage Spielzeit")
  230.     msg(13,05,09,16,"")
  231.     msg(13,06,09,16,"- 6x Home + /weather + /enderchest")
  232.     msg(13,07,09,16,"- Keep-Inv + Keep-XP")
  233.     msg(13,08,09,16,"- Mehr Counter Blöcke")
  234.     msg(13,09,09,16,"- Turtles und Tradesigns nutzbar")  
  235.     msg(13,10,09,16,"- Spotloader:")
  236.     msg(13,11,09,16,"  * Ein Chunk bleibt geladen")
  237.     msg(13,12,09,16,"    solange du online bist.")
  238. end
  239. ------------------------------------------------------------------------------------------------------
  240. function Kit1English()
  241.     msg(02,02,01,16,"Machines")
  242.     msg(15,02,09,16,"Buyable for 4.76 Euro only at")
  243.     msg(15,03,09,16,"lyco.buycraft.net")
  244.     msg(15,05,09,16,"1x Macerator + 1x Compressor")
  245.     msg(15,06,09,16,"1x Extractor + 1x Elec. Furnance")
  246.     msg(15,07,09,16,"3x MV Solar Panel + 1x MFE")
  247.     msg(15,09,09,16,"64x Glasfibre Cable")
  248.     msg(15,10,09,16,"8x Overlocker Upgrade")
  249.     msg(15,11,09,16,"8x Transformer Upgrade")
  250.     msg(15,12,09,16,"8x Energy Storage Upgrade")
  251. end
  252.  
  253. function Kit2English()
  254.     msg(02,03,01,16,"ME-System")
  255.     msg(15,02,09,16,"Buyable for 2.98 Euro only at")
  256.     msg(15,03,09,16,"lyco.buycraft.net")
  257.     msg(15,05,09,16,"1x ME Controller")
  258.     msg(15,06,09,16,"1x ME Drive")
  259.     msg(15,07,09,16,"1x ME Access Terminal")
  260.     msg(15,08,09,16,"3x ME Storage Monitor")
  261.     msg(15,09,09,16,"32x ME Cable")
  262.     msg(15,10,09,16,"2x 16k Storage")
  263.     msg(15,11,09,16,"5x ME Import/Export Bus")
  264. end
  265.  
  266. function Kit3English()
  267.     msg(02,04,01,16,"ME-System+")
  268.     msg(15,02,09,16,"Buyable for 8.93 Euro only at")
  269.     msg(15,03,09,16,"lyco.buycraft.net")
  270.     msg(15,05,09,16,"")
  271.     msg(15,06,09,16,"")
  272.     msg(15,07,09,16,"")
  273.     msg(15,08,09,16,"zu viele Kits xD")
  274.     msg(15,09,09,16,"")
  275.     msg(15,10,09,16,"")
  276.     msg(15,11,09,16,"")
  277.     msg(15,12,09,16,"")
  278.     msg(43,13,16,01," --> ")
  279. end
  280.  
  281. function Kit4English()
  282.     msg(02,05,01,16,"Energy")
  283.     msg(15,02,09,16,"Buyable for 2.98 Euro only at")
  284.     msg(15,03,09,16,"lyco.buycraft.net")
  285.     msg(15,05,09,16,"")
  286.     msg(15,06,09,16,"2x HV Solar Panel")
  287.     msg(15,07,09,16,"4x MV Solar Panel")
  288.     msg(15,08,09,16,"128x Glassfibre Cable")
  289.     msg(15,09,09,16,"1x MFSU")
  290.     msg(15,11,09,16,"")
  291.     msg(15,12,09,16,"")
  292. end
  293.  
  294. function Kit5English()
  295.     msg(02,06,01,16,"Energy+")
  296.     msg(15,02,09,16,"Buyable for 5.95 Euro only at")
  297.     msg(15,03,09,16,"lyco.buycraft.net")
  298.     msg(15,05,09,16,"")
  299.     msg(15,06,09,16,"5x HV Solar Panel")
  300.     msg(15,07,09,16,"256x Glassfibre Cable")
  301.     msg(15,08,09,16,"2x MFSU")
  302.     msg(15,10,09,16,"")
  303.     msg(15,11,09,16,"")
  304.     msg(15,12,09,16,"")
  305. end
  306.  
  307. function Kit6English()
  308.     msg(02,07,01,16,"Farmer")
  309.     msg(15,02,09,16,"Buyable for 4,76 Euro only at")
  310.     msg(15,03,09,16,"lyco.buycraft.net")
  311.     msg(15,02,09,16,"Buyable for 2.38 Euro only at")
  312.     msg(15,03,09,16,"lyco.buycraft.net")
  313.     msg(15,05,09,16,"1x Harvester + 1x Planter")
  314.     msg(15,06,09,16,"1x Fertilizer + 1x Composter")
  315.     msg(15,07,09,16,"1x Sawage Collector + 1x Rancher")
  316.     msg(15,08,09,16,"1x MV Solar Panel + 6x Cow")
  317.     msg(15,09,09,16,"64x Fence + 6x Wooden Pipe")
  318.     msg(15,10,09,16,"64x Glassfibre Cable")
  319.     msg(15,11,09,16,"32x Gold Pipe + 1x Gold Chest")
  320.     msg(15,12,09,16,"3x Redstone Engine")
  321. end
  322.  
  323. function Kit7English()
  324.     msg(02,08,01,16,"Miner")
  325.     msg(15,02,09,16,"Buyable for 5.95 Euro only at")
  326.     msg(15,03,09,16,"lyco.buycraft.net")
  327.     msg(15,05,09,16,"1x Quarry + 2x Item Tesseract")
  328.     msg(15,06,09,16,"1x MV Consumer + 1x Energy Bridge")
  329.     msg(15,07,09,16,"1x BC Producer")
  330.     msg(15,08,09,16,"2x Teleport Pipes")
  331.     msg(15,09,09,16,"8x Waterproof Pipes")
  332.     msg(15,10,09,16,"2x Pump + 10x Tanks")
  333.     msg(15,11,09,16,"2x MV Solar Panel + 1x MFE")
  334.     msg(15,12,09,16,"8x Redstone Engine")
  335. end
  336.  
  337. function Kit8English()
  338.     msg(02,09,01,16,"AE")
  339.     msg(15,02,09,16,"Buyable for 11.90 Euro only at")
  340.     msg(15,03,09,16,"lyco.buycraft.net")
  341.     msg(15,05,09,16,"1x Adjustable Emitter")
  342.     msg(15,07,09,16,"Max output of 32.768 eu/t.")
  343.     msg(15,08,09,16,"Is the same as 64 x Hv Solar Panel")
  344.     msg(15,09,09,16,"in one Block.")
  345.     msg(15,10,09,16,"")
  346.     msg(15,11,09,16,"")
  347.     msg(15,12,09,16,"")
  348. end
  349.  
  350. function Kit9English()
  351.     msg(02,10,01,16,"SMF")
  352.     msg(15,02,09,16,"Buyable for 17.85 Euro only at")
  353.     msg(15,03,09,16,"lyco.buycraft.net")
  354.     msg(15,05,09,16,"Our Super Mass Fabricator (SMF) is")
  355.     msg(15,06,09,16,"a new machine. It prod. UU-Matter,")
  356.     msg(15,07,09,16,"Solarpanels or LV-Solars depending")
  357.     msg(15,08,09,16,"on the level you upgrade the SMF.")
  358.     msg(15,09,09,16,"")
  359.     msg(15,10,09,16,"1x Adjustable Emitter")
  360.     msg(15,11,09,16,"1x MAssfabricator + 32x Ash")
  361.     msg(15,12,09,16,"16x Minium Dust + 8x Verdan Dust")
  362. end
  363.  
  364. function Kit10English()
  365.     msg(02,11,01,16,"MF+")
  366.     msg(15,02,09,16,"Buyable for 5.95 Euro only at")
  367.     msg(15,03,09,16,"lyco.buycraft.net")
  368.     msg(15,05,09,16,"")
  369.     msg(15,06,09,16,"+1 Massfabricator Counter Block")
  370.     msg(15,07,09,16,"Lasts for one month (31 days)")
  371.     msg(15,08,09,16,"Multiple purchases add up the time")
  372.     msg(15,09,09,16,"")
  373.     msg(15,10,09,16,"You can buy it individually")
  374.     msg(15,11,09,16,"or as a subscription every month.")
  375. end
  376.  
  377. function Kit11English()
  378.     msg(02,12,01,16,"Money")
  379.     msg(15,02,09,16,"Buyable for 5.95 Euro only at")
  380.     msg(15,03,09,16,"lyco.buycraft.net")
  381.     msg(15,05,09,16,"25000$ Ingame currencie")
  382.     msg(15,06,09,16,"view with /money")
  383.     msg(15,07,09,16,"")
  384.     msg(15,09,09,16,"")
  385.     msg(15,10,09,16,"")
  386.     msg(15,11,09,16,"")
  387.     msg(15,12,09,16,"")
  388. end
  389.  
  390. function Kit1Deutsch()
  391.     msg(02,02,01,16,"Machines")
  392. end
  393.  
  394. function Kit2Deutsch()
  395.     msg(02,03,01,16,"ME-System")
  396. end
  397.  
  398. function Kit3Deutsch()
  399.     msg(02,04,01,16,"ME-System+")
  400. end
  401.  
  402. function Kit4Deutsch()
  403.     msg(02,05,01,16,"Energy")
  404. end
  405.  
  406. function Kit5Deutsch()
  407.     msg(02,06,01,16,"Energy+")
  408. end
  409.  
  410. function Kit6Deutsch()
  411.     msg(02,07,01,16,"Farmer")
  412. end
  413.  
  414. function Kit7Deutsch()
  415.     msg(02,08,01,16,"Miner")
  416. end
  417.  
  418. function Kit8Deutsch()
  419.     msg(02,09,01,16,"AE")
  420. end
  421.  
  422. function Kit9Deutsch()
  423.     msg(02,10,01,16,"SMF")
  424. end
  425.  
  426. function Kit10Deutsch()
  427.     msg(02,11,01,16,"MF+")
  428. end
  429.  
  430. function Kit11Deutsch()
  431.     msg(02,12,01,16,"Money")
  432. end
  433.  
  434.  
  435.  
  436. while true do
  437.     mon.setBackgroundColor(32768)
  438.     mon.setCursorPos(1,1)
  439.     mon.clear()
  440.    
  441.     local file = fs.open("Language", "r")
  442.     local Language = tonumber(file.readLine())
  443.     file.close()
  444.     local file = fs.open("Rank", "r")
  445.     local Rank = tonumber(file.readLine())
  446.     file.close()
  447.    
  448.     if Language == 1 then
  449.         MainTopEnglish()
  450.         MainBotEnglish()
  451.     elseif Language == 2 then
  452.         MainTopDeutsch()
  453.         MainBotDeutsch()
  454.     end
  455.    
  456.     event, side, x, y = os.pullEvent("monitor_touch")
  457.     if x >= 03 and x <= 13 and y >= 15 and y <= 17 then         -- Deutsch
  458.         file = fs.open("Language", "w")
  459.         file.write(2)
  460.         file.close()
  461.     elseif x >= 35 and x <= 45 and y >= 15 and y <= 17 then     --English
  462.         file = fs.open("Language", "w")
  463.         file.write(1)
  464.         file.close()
  465.     elseif x >= 08 and x <= 22 and y >= 06 and y <= 10 then    -- Ranks Button
  466.         while true do
  467.             Clear()
  468.             local file = fs.open("Language", "r")
  469.             local Language = tonumber(file.readLine())
  470.             file.close()
  471.             local file = fs.open("Rank", "r")
  472.             local Rank = tonumber(file.readLine())
  473.             file.close()
  474.            
  475.             for i = 1,13 do
  476.                 msg(11,i,09,16,"|")
  477.             end
  478.             msg(02,02,08,16,"Resident")
  479.             msg(02,04,08,16,"Iron")
  480.             msg(02,06,08,16,"Gold")
  481.             msg(02,08,08,16,"Diamond")
  482.             msg(02,10,08,16,"Stammi")
  483.             msg(02,12,08,16,"Stammi+")
  484.            
  485.             if Language == 1 then
  486.                 MainBotEnglish()
  487.                 if Rank == 1 then
  488.                     Rank1English()
  489.                 elseif Rank == 2 then
  490.                     Rank2English()
  491.                 elseif Rank == 3 then
  492.                     Rank3English()
  493.                 elseif Rank == 4 then
  494.                     Rank4English()
  495.                 elseif Rank == 5 then
  496.                     Rank5English()
  497.                 elseif Rank == 6 then
  498.                     Rank6English()
  499.                 end
  500.             elseif Language == 2 then
  501.                 MainBotDeutsch()
  502.                 if Rank == 1 then
  503.                     Rank1Deutsch()
  504.                 elseif Rank == 2 then
  505.                     Rank2Deutsch()
  506.                 elseif Rank == 3 then
  507.                     Rank3Deutsch()
  508.                 elseif Rank == 4 then
  509.                     Rank4Deutsch()
  510.                 elseif Rank == 5 then
  511.                     Rank5Deutsch()
  512.                 elseif Rank == 6 then
  513.                     Rank6Deutsch()
  514.                 end
  515.             end
  516.            
  517.             event, side, x, y = os.pullEvent("monitor_touch")
  518.             if x >= 01 and x <= 10 and y >= 02 and y <= 02 then         --Resident
  519.                 file = fs.open("Rank", "w")
  520.                 file.write(1)
  521.                 file.close()
  522.             elseif x >= 01 and x <= 10 and y >= 04 and y <= 04 then     --Iron
  523.                 file = fs.open("Rank", "w")
  524.                 file.write(2)
  525.                 file.close()
  526.             elseif x >= 01 and x <= 10 and y >= 06 and y <= 06 then     --Gold
  527.                 file = fs.open("Rank", "w")
  528.                 file.write(3)
  529.                 file.close()
  530.             elseif x >= 01 and x <= 10 and y >= 08 and y <= 08 then     --Diamond
  531.                 file = fs.open("Rank", "w")
  532.                 file.write(4)
  533.                 file.close()
  534.             elseif x >= 01 and x <= 10 and y >= 10 and y <= 10 then     --Stammi
  535.                 file = fs.open("Rank", "w")
  536.                 file.write(5)
  537.                 file.close()
  538.             elseif x >= 01 and x <= 10 and y >= 12 and y <= 12 then     --Stammi+
  539.                 file = fs.open("Rank", "w")
  540.                 file.write(6)
  541.                 file.close()
  542.             elseif x >= 19 and x <= 28 and y >= 15 and y <= 17 then     --back
  543.                 shell.run("1")
  544.             elseif x >= 03 and x <= 13 and y >= 15 and y <= 17 then     -- Deutsch
  545.                 file = fs.open("Language", "w")
  546.                 file.write(2)
  547.                 file.close()
  548.             elseif x >= 35 and x <= 45 and y >= 15 and y <= 17 then     --English
  549.                 file = fs.open("Language", "w")
  550.                 file.write(1)
  551.                 file.close()
  552.             end
  553.         end
  554.     elseif x >= 26 and x <= 40 and y >= 06 and y <= 10 then    -- Kits Button    
  555.         while true do
  556.             Clear()
  557.             local file = fs.open("Language", "r")
  558.             local Language = tonumber(file.readLine())
  559.             file.close()
  560.             local file = fs.open("Kit", "r")
  561.             local Kit = tonumber(file.readLine())
  562.             file.close()
  563.            
  564.             for i = 1,13 do
  565.                 msg(13,i,09,16,"|")
  566.             end
  567.             msg(02,02,08,16,"Machines")
  568.             msg(02,03,08,16,"ME-System")
  569.             msg(02,04,08,16,"ME-System+")
  570.             msg(02,05,08,16,"Energy")
  571.             msg(02,06,08,16,"Energy+")
  572.             msg(02,07,08,16,"Farmer")
  573.             msg(02,08,08,16,"Miner")
  574.             msg(02,09,08,16,"AE")
  575.             msg(02,10,08,16,"SMF")
  576.             msg(02,11,08,16,"MF+")
  577.             msg(02,12,08,16,"Money")
  578.             msg(02,13,08,16,"")
  579.            
  580.             if Language == 1 then
  581.                 MainBotEnglish()
  582.                 if Kit == 1 then
  583.                     Kit1English()
  584.                 elseif Kit == 2 then
  585.                     Kit2English()
  586.                 elseif Kit == 3 then
  587.                     Kit3English()
  588.                 elseif Kit == 4 then
  589.                     Kit4English()
  590.                 elseif Kit == 5 then
  591.                     Kit5English()
  592.                 elseif Kit == 6 then
  593.                     Kit6English()
  594.                 elseif Kit == 7 then
  595.                     Kit7English()
  596.                 elseif Kit == 8 then
  597.                     Kit8English()
  598.                 elseif Kit == 9 then
  599.                     Kit9English()
  600.                 elseif Kit == 10 then
  601.                     Kit10English()
  602.                 elseif Kit == 11 then
  603.                     Kit11English()
  604.                 end
  605.             elseif Language == 2 then
  606.                 MainBotDeutsch()
  607.                 if Kit == 1 then
  608.                     Kit1Deutsch()
  609.                 elseif Kit == 2 then
  610.                     Kit2Deutsch()
  611.                 elseif Kit == 3 then
  612.                     Kit3Deutsch()
  613.                 elseif Kit == 4 then
  614.                     Kit4Deutsch()
  615.                 elseif Kit == 5 then
  616.                     Kit5Deutsch()
  617.                 elseif Kit == 6 then
  618.                     Kit6Deutsch()
  619.                 elseif Kit == 7 then
  620.                     Kit7Deutsch()
  621.                 elseif Kit == 8 then
  622.                     Kit8Deutsch()
  623.                 elseif Kit == 9 then
  624.                     Kit9Deutsch()
  625.                 elseif Kit == 10 then
  626.                     Kit10Deutsch()
  627.                 elseif Kit == 11 then
  628.                     Kit11Deutsch()
  629.                 end
  630.             end
  631.  
  632.  
  633.             event, side, x, y = os.pullEvent("monitor_touch")
  634.             if x >= 01 and x <= 12 and y >= 02 and y <= 02 then         --Machines
  635.                 file = fs.open("Kit", "w")
  636.                 file.write("1 ")
  637.                 file.close()
  638.             elseif x >= 01 and x <= 12 and y >= 03 and y <= 03 then     --ME-System
  639.                 file = fs.open("Kit", "w")
  640.                 file.write("2 ")
  641.                 file.close()
  642.             elseif x >= 01 and x <= 12 and y >= 04 and y <= 04 then     --ME-System+
  643.                 file = fs.open("Kit", "w")
  644.                 file.write("3 ")
  645.                 file.close()
  646.             elseif x >= 01 and x <= 12 and y >= 05 and y <= 05 then     --Energy
  647.                 file = fs.open("Kit", "w")
  648.                 file.write("4 ")
  649.                 file.close()
  650.             elseif x >= 01 and x <= 12 and y >= 06 and y <= 06 then     --Energy+
  651.                 file = fs.open("Kit", "w")
  652.                 file.write("5 ")
  653.                 file.close()
  654.             elseif x >= 01 and x <= 12 and y >= 07 and y <= 07 then     --Farmer
  655.                 file = fs.open("Kit", "w")
  656.                 file.write("6 ")
  657.                 file.close()
  658.             elseif x >= 01 and x <= 12 and y >= 08 and y <= 08 then     --Miner
  659.                 file = fs.open("Kit", "w")
  660.                 file.write("7 ")
  661.                 file.close()
  662.             elseif x >= 01 and x <= 12 and y >= 09 and y <= 09 then     --AE
  663.                 file = fs.open("Kit", "w")
  664.                 file.write("8 ")
  665.                 file.close()
  666.             elseif x >= 01 and x <= 12 and y >= 10 and y <= 10 then     --SMF
  667.                 file = fs.open("Kit", "w")
  668.                 file.write("9 ")
  669.                 file.close()
  670.             elseif x >= 01 and x <= 12 and y >= 11 and y <= 11 then     --MF+
  671.                 file = fs.open("Kit", "w")
  672.                 file.write(10)
  673.                 file.close()
  674.             elseif x >= 01 and x <= 12 and y >= 12 and y <= 12 then     --Money
  675.                 file = fs.open("Kit", "w")
  676.                 file.write(11)
  677.                 file.close()
  678.             elseif x >= 19 and x <= 28 and y >= 15 and y <= 17 then     --back
  679.                 shell.run("1")
  680.             elseif x >= 03 and x <= 13 and y >= 15 and y <= 17 then     --Deutsch
  681.                 file = fs.open("Language", "w")
  682.                 file.write(2)
  683.                 file.close()
  684.             elseif x >= 35 and x <= 45 and y >= 15 and y <= 17 then     --English
  685.                 file = fs.open("Language", "w")
  686.                 file.write(1)
  687.                 file.close()
  688.             end
  689.         end
  690.     end
  691.     sleep(0.5)
  692. end
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!