API tools faq
paste
MagmaLP

Einzahl-Computer Deutsch

MagmaLP
Mar 28th, 2021 (edited)
454
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 6.98 KB | None | 0 0
raw download clone embed print report
  1. os.loadAPI("ocs/apis/sensor")
  2. local s = sensor.wrap("top")
  3. rednet.open("front")
  4. mon = peripheral.wrap("back")      
  5. side = "back"       --Bildschirmseite für Button-Abfrage setzen
  6. mon.setBackgroundColor(32768)
  7. mon.setTextScale(1.5)
  8. mon.clear()
  9.  
  10. --Hilfs-Funktionen--
  11.  
  12. function calc_color(color)
  13.     return math.pow(2, color - 1)
  14. end
  15. function msg(gap, line, color, groundb, text)
  16.     mon.setBackgroundColor(calc_color(groundb))
  17.     mon.setCursorPos(gap,line)
  18.     mon.setTextColor(calc_color(color))
  19.     text = mon.write(text)
  20. end
  21.  
  22. function firstlayer()
  23.     rednet.send(6324, "abfrage")
  24.     rednet.send(6324, name)
  25.     id, coins, z = rednet.receive()
  26.     mon.setBackgroundColor(32768)
  27.     mon.clear()
  28.     msg(01,1,4,16,"Willkommen " ..name.. "          ")
  29.     msg(27,1,6,16,"Coins: " ..coins.. "          ")
  30.     msg(01,2,5,16,"------------------------------------------------------------")
  31. end
  32.  
  33. function keinbutton1()
  34.     msg(01,17,01,15,"  An dieser Stelle ist kein Button xD   ")
  35.     sleep(1)
  36.     msg(01,17,16,16,"                                        ")
  37.     msg(33,17,01,15," zurück ")
  38.     msg(01,17,01,15," -> logout <- ")
  39.     deutsch1()
  40. end
  41. function keinbutton2()
  42.         msg(01,17,01,15,"  An dieser Stelle ist kein Button xD   ")
  43.         sleep(1)
  44.         msg(01,17,16,16,"                                        ")
  45.         msg(33,17,01,15," zurück ")
  46.         count1()
  47. end
  48. function keinbutton3()
  49.         msg(01,17,01,15,"  An dieser Stelle ist kein Button xD   ")
  50.         sleep(1)
  51.         msg(01,17,16,16,"                                        ")
  52.         count2()
  53. end
  54.  
  55. function deutsch1()
  56.     firstlayer()
  57.     msg(01,4,10,16,"Was möchtest du einzahlen?")
  58.     msg(01,5,10,16,"Klick einfach auf den Namen des Items.")
  59.    
  60.     msg(02,07,01,16,"Menge|       Item        |  Gegenwert")
  61.     msg(01,8,01,16,"~~~~~~|~~~~~~~~~~~~~~~~~~~|~~~~~~~~~~~~")
  62.     msg(02,09,01,16," 1x  |  Shard of Minium  |   25 Coins")
  63.     msg(02,10,09,16," 1x  |  Lead Ingot       |   10 Coins")
  64.     msg(02,11,01,16," 1x  |  Lead Ore         |   20 Coins")
  65.     msg(02,12,09,16," 1x  |  Shiny Ingot      |  100 Coins")
  66.     msg(02,13,01,16," 1x  |  Ferrous Ore      |   10 Coins")
  67.     msg(02,14,09,16," 1x  |  Quartz Crystal   |   25 Coins")
  68.     msg(02,15,01,16," 1x  |  Silver Ore       |   12 Coins")
  69.      
  70.     msg(33,17,01,15," zurück ")
  71.     msg(01,17,01,15," -> logout <- ")
  72.  
  73.     local event, side, X, Y = os.pullEvent("monitor_touch")
  74.     if X >= 33 and X <=40 and Y >= 17 and Y <= 18 and side == side then         -- zurück Button
  75.         fs.delete("Player")
  76.         shell.run("startup")
  77.     elseif X >= 1 and X <=40 and Y >= 1 and Y <= 8 and side == side then
  78.         keinbutton1()
  79.     elseif X >= 1 and X <=40 and Y >= 16 and Y <= 16 and side == side then
  80.         keinbutton1()
  81.     elseif X >= 15 and X <=32 and Y >= 17 and Y <= 18 and side == side then
  82.         keinbutton1()
  83.  
  84.     elseif X >= 1 and X <=40 and Y >= 9 and Y <= 9 and side == side then
  85.         item = "Shard of Minium"
  86.         ID = 6311
  87.         itemwert = 25
  88.         count1()
  89.     elseif X >= 1 and X <=40 and Y >= 10 and Y <= 10 and side == side then
  90.         item = "Lead Ingot"
  91.         ID = 6313
  92.         itemwert = 10
  93.         count1()
  94.     elseif X >= 1 and X <=40 and Y >= 11 and Y <= 11 and side == side then
  95.         item = "Lead Ore"
  96.         ID = 6316
  97.         itemwert = 20
  98.         count1()
  99.     elseif X >= 1 and X <=40 and Y >= 12 and Y <= 12 and side == side then
  100.         item = "Shiny Ingot"
  101.         ID = 6317
  102.         itemwert = 100
  103.         count1()
  104.     elseif X >= 1 and X <=40 and Y >= 13 and Y <= 13 and side == side then
  105.         item = "Ferrous Ore"
  106.         ID = 6318
  107.         itemwert = 10
  108.         count1()
  109.     elseif X >= 1 and X <=40 and Y >= 14 and Y <= 14 and side == side then
  110.         item = "Quartz Crystal"
  111.         ID = 6319
  112.         itemwert = 25
  113.         count1()
  114.     elseif X >= 1 and X <=40 and Y >= 15 and Y <= 15 and side == side then
  115.         item = "Silver Ore"
  116.         ID = 6320
  117.         itemwert = 12
  118.         count1()
  119.     elseif X >= 1 and X <=14 and Y >= 17 and Y <= 18 and side == side then          --logout Button
  120.         fs.delete("Player")
  121.         shell.run("startup")                               
  122.     end
  123. end
  124.  
  125. function count1()
  126.     firstlayer()
  127.     msg(33,17,01,15," zurück ")
  128.  
  129.     msg(01,4,10,16,"Bitte werf nun "..item.." in den")
  130.     msg(01,5,10,16,"Input und klick danach hier auf OK ")
  131.  
  132.     msg(01,7,02,16,"Bitte nur maximal 16 Stacks einwerfen! ")
  133.    
  134.     msg(17,09,16,01,"        ")
  135.     msg(17,10,16,01,"        ")
  136.     msg(17,11,16,01,"   OK   ")
  137.     msg(17,12,16,01,"        ")
  138.     msg(17,13,16,01,"        ")
  139.  
  140.     local event, side, X, Y = os.pullEvent("monitor_touch")
  141.     if X >= 1 and X <=40 and Y >= 1 and Y <= 8 and side == side then
  142.         keinbutton2()
  143.     elseif X >= 01 and X <=40 and Y >= 14 and Y <= 16 and side == side then
  144.         keinbutton2()
  145.     elseif X >= 01 and X <=32 and Y >= 17 and Y <= 18 and side == side then
  146.         keinbutton2()
  147.     elseif X >= 01 and X <=16 and Y >= 09 and Y <= 13 and side == side then
  148.         keinbutton2()
  149.     elseif X >= 25 and X <=40 and Y >= 09 and Y <= 13 and side == side then
  150.         keinbutton2()
  151.  
  152.     elseif X >= 33 and X <=40 and Y >= 17 and Y <= 18 and side == side then     --zurück
  153.         deutsch1()
  154.     elseif X >= 17 and X <=24 and Y >= 9 and Y <= 13 and side == side then  --OK
  155.         count2()
  156.     end
  157. end
  158.  
  159. function count2()
  160.     y = 1
  161.     rednet.send(ID,y)
  162.     x, y, z = rednet.receive()
  163.  
  164.     if y > 0 then
  165.         firstlayer()
  166.         wert = y * itemwert
  167.         msg(01,04,10,16,"Es wurden "..y.." "..item.." erkannt.")
  168.         msg(01,05,10,16,"Das entspricht einem Wert von "..wert.."     ")
  169.         msg(01,06,10,16,"Coins.")
  170.         msg(01,08,10,16,"Möchetest du diese jetzt einzahlen?")
  171.  
  172.         msg(8,10,1,6,"           ")     msg(23,10,1,15,"           ")
  173.         msg(8,11,1,6,"    JA     ")     msg(23,11,1,15,"   NEIN    ")
  174.         msg(8,12,1,6,"           ")     msg(23,12,1,15,"           ")
  175.  
  176.         local event, side, X, Y = os.pullEvent("monitor_touch")
  177.         if X >= 01 and X <=40 and Y >= 01 and Y <= 09 and side == side then
  178.             keinbutton3()
  179.         elseif X >= 01 and X <=07 and Y >= 10 and Y <= 12 and side == side then
  180.             keinbutton3()
  181.         elseif X >= 19 and X <=22 and Y >= 10 and Y <= 12 and side == side then
  182.             keinbutton3()
  183.         elseif X >= 33 and X <=40 and Y >= 10 and Y <= 12 and side == side then
  184.             keinbutton3()
  185.         elseif X >= 01 and X <=40 and Y >= 13 and Y <= 18 and side == side then
  186.             keinbutton3()
  187.  
  188.  
  189.         elseif X >= 08 and X <=18 and Y >= 10 and Y <= 12 and side == side then         -- Klick JA
  190.             rednet.send(6324, "einzahlen")
  191.             sleep(0.5)
  192.             rednet.send(6324, name)
  193.             sleep(0.5)
  194.             rednet.send(6324, wert)
  195.             id, coins, z = rednet.receive()
  196.                
  197.             y = 1000000                                         --Shards an mich
  198.             rednet.send(ID,y)
  199.  
  200.             msg(01,1,4,16,"Willkommen " ..name.. "          ")
  201.             msg(27,1,6,16,"Coins: " ..coins.. "          ")
  202.  
  203.             msg(01,14,10,16,"Es wurden "..wert.." Coins eingezahlt.")
  204.             sleep(3)
  205.             deutsch1()
  206.  
  207.         elseif X >= 23 and X <=33 and Y >= 09 and Y <= 11 and side == side then --Klick NEIN
  208.             y = 0
  209.             rednet.send(ID,y)
  210.             msg(01,14,10,16,"--> Itemrückgabe")
  211.             sleep(3)
  212.             deutsch1() 
  213.         end
  214.  
  215.     elseif y == 0 then
  216.         firstlayer()   
  217.         msg(01,07,15,16,"Es wurden kein "..item.." erkannt.")                       --keine shards drin
  218.         sleep(3)
  219.         count1()   
  220.     end
  221. end
  222.  
  223.  
  224. ------------- Programm START -------------
  225.  
  226. file = fs.open("Player", "r")
  227. name = file.readLine()
  228. file.close()
  229.  
  230. deutsch1()
  231.  
  232.  
  233.  
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!