API tools faq
paste
MagmaLP

Rank/Donation

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