API tools faq
paste
Advertisement
karelvysinka

msmusic

karelvysinka
May 18th, 2014
215
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 22.91 KB | None | 0 0
raw download clone embed print report
  1. local monitorSide="back"
  2. local diskDriveSide = "front"
  3. local ejectRedstoneSide = "left"
  4. local recordRedSide = "bottom"
  5.  
  6. function playRecord(diskDriveSide,recordRedSide,discName)
  7.                                
  8.                 if disk.isPresent(diskDriveSide) == true then
  9.                         eject(ejectRedstoneSide)
  10.                 end
  11.                
  12.                 h = fs.open("music-colors","r")
  13.                 line = tostring(h.readLine())
  14.                 action = nil
  15.                 while line ~= nil do
  16.                 value1,discColor = string.match(line,"(.+)%s?:%s?(.+)")
  17.                 if string.lower(value1) == string.lower(discName) then
  18.                         print("You want to play "..value1)
  19.                         print("It is on the "..discColor.." line")
  20.                         if string.lower(discColor) == "white" then theColor=1
  21.                                                 elseif string.lower(discColor) == "orange" then theColor=2
  22.                                         elseif string.lower(discColor) == "magenta" then theColor=4
  23.                                         elseif string.lower(discColor) == "lightblue" then theColor=8
  24.                                         elseif string.lower(discColor) == "yellow" then theColor=16
  25.                                         elseif string.lower(discColor) == "lime" then theColor=32
  26.                                         elseif string.lower(discColor) == "pink" then theColor=64
  27.                                         elseif string.lower(discColor) == "gray" then theColor=128
  28.                                         elseif string.lower(discColor) == "lightgray" then theColor=256
  29.                                         elseif string.lower(discColor) == "cyan" then theColor=512
  30.                                         elseif string.lower(discColor) == "purple" then theColor=1024
  31.                                         elseif string.lower(discColor) == "blue" then theColor=2048
  32.                                         elseif string.lower(discColor) == "brown" then theColor=4096
  33.                                         elseif string.lower(discColor) == "green" then theColor=8192
  34.                                         elseif string.lower(discColor) == "red" then theColor=16384
  35.                                         elseif string.lower(discColor) == "black" then theColor=32768
  36.                                         else print("Error: color out of range") return
  37.                                         end
  38.                                         print("loading track")
  39.                                         redstone.setBundledOutput(recordRedSide, theColor)
  40.                                         sleep(1)
  41.                                         redstone.setBundledOutput(recordRedSide, 0)
  42.                                         while not disk.isPresent(diskDriveSide) do
  43.                                                 sleep(.5)
  44.                                         end    
  45.                                         print("track loaded, playing track")
  46.                                         disk.playAudio(diskDriveSide)
  47.                 end
  48.                 line = h.readLine()
  49.         end
  50.                
  51.  
  52. end
  53.  
  54. function playButton(diskDriveSide)
  55.         if disk.isPresent(diskDriveSide) ~= true then
  56.                         setAction(monitorSide,"     No disc loaded     ")
  57.                         sleep(.5)
  58.                 else
  59.                         print("playing track")
  60.                         setAction(monitorSide,"     Playing disc...    ")
  61.                         sleep(.5)
  62.                         disk.playAudio(diskDriveSide)
  63.                 end
  64. end
  65.  
  66. function stop(diskDriveSide)
  67.         print("stopping track")
  68.         disk.stopAudio(diskDriveSide)
  69. end
  70.  
  71. function eject(ejectRedstoneSide)
  72.         print("ejecting track")
  73.         redstone.setOutput(ejectRedstoneSide, true)
  74.         sleep(1)
  75.         redstone.setOutput(ejectRedstoneSide, false)
  76. end
  77.  
  78.  
  79. function setAction(pSide,message)
  80.         m = peripheral.wrap(pSide)
  81.         m.setCursorPos(14,6)
  82.         m.setBackgroundColor(colors.orange)
  83.         m.write("                        ")
  84.         m.setCursorPos(14,7)
  85.         m.write("                        ")
  86.         m.setCursorPos(14,8)
  87.         m.write("                        ")
  88.         m.setCursorPos(14,9)
  89.         m.write("                        ")
  90.         m.setCursorPos(14,10)
  91.         m.write("                        ")
  92.         m.setCursorPos(14,11)
  93.         m.write("                        ")
  94.         m.setCursorPos(14,12)
  95.         m.write("                        ")
  96.         m.setCursorPos(14,13)
  97.         m.write("                        ")
  98.         m.setCursorPos(14,14)
  99.         m.write("                        ")
  100.         m.setCursorPos(14,10)
  101.         m.setTextColor(colors.black)
  102.         m.write(message)
  103.         m.setBackgroundColor(colors.black)
  104.        
  105.        
  106. end
  107.  
  108. function setGUI(pSide)
  109.         m = peripheral.wrap(pSide)
  110.         m.clear()
  111.         m.setCursorPos(18,1)
  112.         m.setBackgroundColor(colors.black)
  113.         m.setTextColor(colors.blue)
  114.         m.write("RAC Music Player")
  115.  
  116.         m.setCursorPos(3,3)
  117.         if disk.getLabel(diskDriveSide) =="C418 - cat" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.green) end
  118.         m.write("          ")
  119.         m.setBackgroundColor(colors.black)
  120.         m.setCursorPos(3,4)
  121.         if disk.getLabel(diskDriveSide) =="C418 - cat" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.green) end
  122.         m.setTextColor(colors.black)
  123.         m.write("    Cat   ")
  124.         m.setBackgroundColor(colors.black)
  125.         m.setCursorPos(3,5)
  126.         if disk.getLabel(diskDriveSide) =="C418 - cat" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.green) end
  127.         m.write("          ")
  128.         m.setBackgroundColor(colors.black)
  129.  
  130.         m.setCursorPos(15,3)
  131.         if disk.getLabel(diskDriveSide) =="C418 - 13" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.green) end
  132.         m.write("          ")
  133.         m.setBackgroundColor(colors.black)
  134.         m.setCursorPos(15,4)
  135.         if disk.getLabel(diskDriveSide) =="C418 - 13" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.green) end
  136.         m.setTextColor(colors.black)
  137.         m.write("    13    ")
  138.         m.setBackgroundColor(colors.black)
  139.         m.setCursorPos(15,5)
  140.         if disk.getLabel(diskDriveSide) =="C418 - 13" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.green) end
  141.         m.write("          ")
  142.         m.setBackgroundColor(colors.black)
  143.  
  144.         m.setCursorPos(27,3)
  145.         if disk.getLabel(diskDriveSide) =="C418 - blocks" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.green) end
  146.         m.write("          ")
  147.         m.setBackgroundColor(colors.black)
  148.         m.setCursorPos(27,4)
  149.         if disk.getLabel(diskDriveSide) =="C418 - blocks" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.green) end
  150.         m.setTextColor(colors.black)
  151.         m.write("  Blocks  ")
  152.         m.setBackgroundColor(colors.black)
  153.         m.setCursorPos(27,5)
  154.         if disk.getLabel(diskDriveSide) =="C418 - blocks" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.green) end
  155.         m.write("          ")
  156.         m.setBackgroundColor(colors.black)
  157.  
  158.         m.setCursorPos(39,3)
  159.         if disk.getLabel(diskDriveSide) =="C418 - chirp" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.green) end
  160.         m.write("          ")
  161.         m.setBackgroundColor(colors.black)
  162.         m.setCursorPos(39,4)
  163.         if disk.getLabel(diskDriveSide) =="C418 - chirp" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.green) end
  164.         m.setTextColor(colors.black)
  165.         m.write("   Chirp  ")
  166.         m.setBackgroundColor(colors.black)
  167.         m.setCursorPos(39,5)
  168.         if disk.getLabel(diskDriveSide) =="C418 - chirp" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.green) end
  169.         m.write("          ")
  170.         m.setBackgroundColor(colors.black)
  171.  
  172.         m.setCursorPos(3,7)
  173.         if disk.getLabel(diskDriveSide) =="C418 - far" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.green) end
  174.         m.write("          ")
  175.         m.setBackgroundColor(colors.black)
  176.         m.setCursorPos(3,8)
  177.         if disk.getLabel(diskDriveSide) =="C418 - far" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.green) end
  178.         m.setTextColor(colors.black)
  179.         m.write("    Far   ")
  180.         m.setBackgroundColor(colors.black)
  181.         m.setCursorPos(3,9)
  182.         if disk.getLabel(diskDriveSide) =="C418 - far" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.green) end
  183.         m.write("          ")
  184.         m.setBackgroundColor(colors.black)
  185.  
  186.         m.setCursorPos(15,7)
  187.         if disk.getLabel(diskDriveSide) =="C418 - mall" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.green) end
  188.         m.write("          ")
  189.         m.setBackgroundColor(colors.black)
  190.         m.setCursorPos(15,8)
  191.         if disk.getLabel(diskDriveSide) =="C418 - mall" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.green) end
  192.         m.setTextColor(colors.black)
  193.         m.write("   Mall   ")
  194.         m.setBackgroundColor(colors.black)
  195.         m.setCursorPos(15,9)
  196.         if disk.getLabel(diskDriveSide) =="C418 - mall" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.green) end
  197.         m.write("          ")
  198.         m.setBackgroundColor(colors.black)
  199.  
  200.         m.setCursorPos(27,7)
  201.         if disk.getLabel(diskDriveSide) =="C418 - mellohi" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.green) end
  202.         m.write("          ")
  203.         m.setBackgroundColor(colors.black)
  204.         m.setCursorPos(27,8)
  205.         if disk.getLabel(diskDriveSide) =="C418 - mellohi" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.green) end
  206.         m.setTextColor(colors.black)
  207.         m.write("  Mellohi ")
  208.         m.setBackgroundColor(colors.black)
  209.         m.setCursorPos(27,9)
  210.         if disk.getLabel(diskDriveSide) =="C418 - mellohi" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.green) end
  211.         m.write("          ")
  212.         m.setBackgroundColor(colors.black)
  213.  
  214.         m.setCursorPos(39,7)
  215.         if disk.getLabel(diskDriveSide) =="C418 - stal" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.green) end
  216.         m.write("          ")
  217.         m.setBackgroundColor(colors.black)
  218.         m.setCursorPos(39,8)
  219.         if disk.getLabel(diskDriveSide) =="C418 - stal" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.green) end
  220.         m.setTextColor(colors.black)
  221.         m.write("   Stal   ")
  222.         m.setBackgroundColor(colors.black)
  223.         m.setCursorPos(39,9)
  224.         if disk.getLabel(diskDriveSide) =="C418 - stal" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.green) end
  225.         m.write("          ")
  226.         m.setBackgroundColor(colors.black)
  227.  
  228.         m.setCursorPos(3,11)
  229.         if disk.getLabel(diskDriveSide) =="C418 - strad" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.green) end
  230.         m.write("          ")
  231.         m.setBackgroundColor(colors.black)
  232.         m.setCursorPos(3,12)
  233.         if disk.getLabel(diskDriveSide) =="C418 - strad" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.green) end
  234.         m.setTextColor(colors.black)
  235.         m.write("   Strad  ")
  236.         m.setBackgroundColor(colors.black)
  237.         m.setCursorPos(3,13)
  238.         if disk.getLabel(diskDriveSide) =="C418 - strad" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.green) end
  239.         m.write("          ")
  240.         m.setBackgroundColor(colors.black)
  241.  
  242.         m.setCursorPos(15,11)
  243.         if disk.getLabel(diskDriveSide) =="C418 - ward" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.green) end
  244.         m.write("          ")
  245.         m.setBackgroundColor(colors.black)
  246.         m.setCursorPos(15,12)
  247.         if disk.getLabel(diskDriveSide) =="C418 - ward" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.green) end
  248.         m.setTextColor(colors.black)
  249.         m.write("   Ward   ")
  250.         m.setBackgroundColor(colors.black)
  251.         m.setCursorPos(15,13)
  252.         if disk.getLabel(diskDriveSide) =="C418 - ward" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.green) end
  253.         m.write("          ")
  254.         m.setBackgroundColor(colors.black)
  255.  
  256.         m.setCursorPos(27,11)
  257.         if disk.getLabel(diskDriveSide) =="C418 - 11" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.green) end
  258.         m.write("          ")
  259.         m.setBackgroundColor(colors.black)
  260.         m.setCursorPos(27,12)
  261.         if disk.getLabel(diskDriveSide) =="C418 - 11" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.green) end
  262.         m.setTextColor(colors.black)
  263.         m.write("    11    ")
  264.         m.setBackgroundColor(colors.black)
  265.         m.setCursorPos(27,13)
  266.         if disk.getLabel(diskDriveSide) =="C418 - 11" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.green) end
  267.         m.write("          ")
  268.         m.setBackgroundColor(colors.black)
  269.  
  270.         m.setCursorPos(39,11)
  271.         if disk.getLabel(diskDriveSide) =="wait" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.green) end
  272.         m.write("          ")
  273.         m.setBackgroundColor(colors.black)
  274.         m.setCursorPos(39,12)
  275.         if disk.getLabel(diskDriveSide) =="wait" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.green) end
  276.         m.setTextColor(colors.black)
  277.         m.write("   Wait   ")
  278.         m.setBackgroundColor(colors.black)
  279.         m.setCursorPos(39,13)
  280.         if disk.getLabel(diskDriveSide) =="wait" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.green) end
  281.         m.write("          ")
  282.         m.setBackgroundColor(colors.black)
  283.  
  284.  
  285.  
  286.  
  287.  
  288.         m.setCursorPos(2,15)
  289.         if disk.getLabel(diskDriveSide) =="pg.stillalive" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.cyan) end
  290.         m.write("               ")
  291.         m.setBackgroundColor(colors.black)
  292.         m.setCursorPos(2,16)
  293.         if disk.getLabel(diskDriveSide) =="pg.stillalive" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.cyan) end
  294.         m.setTextColor(colors.black)
  295.         m.write("  Still Alive  ")
  296.         m.setBackgroundColor(colors.black)
  297.         m.setCursorPos(2,17)
  298.         if disk.getLabel(diskDriveSide) =="pg.stillalive" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.cyan) end
  299.         m.write("               ")
  300.         m.setBackgroundColor(colors.black)
  301.  
  302.         m.setCursorPos(18,15)
  303.         if disk.getLabel(diskDriveSide) =="pg.radioloop" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.cyan) end
  304.         m.write("                ")
  305.         m.setBackgroundColor(colors.black)
  306.         m.setCursorPos(18,16)
  307.         if disk.getLabel(diskDriveSide) =="pg.radioloop" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.cyan) end
  308.         m.setTextColor(colors.black)
  309.         m.write("   Radio Loop   ")
  310.         m.setBackgroundColor(colors.black)
  311.         m.setCursorPos(18,17)
  312.         if disk.getLabel(diskDriveSide) =="pg.radioloop" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.cyan) end
  313.         m.write("                ")
  314.         m.setBackgroundColor(colors.black)
  315.  
  316.         m.setCursorPos(35,15)
  317.         if disk.getLabel(diskDriveSide) =="pg.wantyougone" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.cyan) end
  318.         m.write("               ")
  319.         m.setBackgroundColor(colors.black)
  320.         m.setCursorPos(35,16)
  321.         if disk.getLabel(diskDriveSide) =="pg.wantyougone" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.cyan) end
  322.         m.setTextColor(colors.black)
  323.         m.write(" Want You Gone ")
  324.         m.setBackgroundColor(colors.black)
  325.         m.setCursorPos(35,17)
  326.         if disk.getLabel(diskDriveSide) =="pg.wantyougone" then m.setBackgroundColor(colors.yellow) else  m.setBackgroundColor(colors.cyan) end
  327.         m.write("               ")
  328.         m.setBackgroundColor(colors.black)
  329.  
  330.  
  331.         m.setCursorPos(12,19)
  332.         m.setBackgroundColor(colors.blue)
  333.         m.setTextColor(colors.white)
  334.         m.write(" Play ")
  335.         m.setBackgroundColor(colors.black)
  336.  
  337.         m.setCursorPos(19,19)
  338.         m.setBackgroundColor(colors.blue)
  339.         m.setTextColor(colors.white)
  340.         m.write(" Stop ")
  341.         m.setBackgroundColor(colors.black)
  342.  
  343.         m.setCursorPos(26,19)
  344.         m.setBackgroundColor(colors.blue)
  345.         m.setTextColor(colors.white)
  346.         m.write(" Eject ")
  347.         m.setBackgroundColor(colors.black)
  348.  
  349.         m.setCursorPos(34,19)
  350.         m.setBackgroundColor(colors.blue)
  351.         m.setTextColor(colors.white)
  352.         m.write(" Back ")
  353.         m.setBackgroundColor(colors.black)
  354.  
  355. end
  356.  
  357. setGUI(monitorSide)
  358.  
  359. m = peripheral.wrap(monitorSide)
  360.  
  361. while true do
  362.         event, side, xPos, yPos = os.pullEvent("monitor_touch")
  363.         --Play Button  
  364.         if (yPos == 19) and (xPos >= 12 and xPos <= 17) then
  365.                 setAction(monitorSide,"          Play!         ")
  366.                 playButton(diskDriveSide)
  367.                 setGUI(monitorSide)
  368.         --Stop Button  
  369.         elseif (yPos == 19) and (xPos >= 19 and xPos <= 24) then
  370.                 setAction(monitorSide,"          Stop!         ")
  371.                 sleep(.5)
  372.                 stop(diskDriveSide)
  373.                 setGUI(monitorSide)
  374.         --Eject Button
  375.         elseif (yPos == 19) and (xPos >= 26 and xPos <= 32) then
  376.                 setAction(monitorSide,"         Eject!         ")
  377.                 print("ejecting track")
  378.                 eject(ejectRedstoneSide)
  379.                 setGUI(monitorSide)
  380.         --Back Button  
  381.         elseif (yPos == 19) and (xPos >= 34 and xPos <= 40) then
  382.                 setAction(monitorSide,"        Goodbye!        ")
  383.                 sleep(2)
  384.                 m.clear()
  385.                 return
  386.                
  387.         --Cat  
  388.         elseif (yPos >= 3 and yPos <=6 ) and (xPos >= 2 and xPos <= 12) then
  389.                 setAction(monitorSide,"     Loading Cat...     ")
  390.                 playRecord(diskDriveSide,recordRedSide,"cat")
  391.                 setGUI(monitorSide)
  392.         --13
  393.         elseif (yPos >= 3 and yPos <=6 ) and (xPos >= 14 and xPos <= 24) then
  394.                 setAction(monitorSide,"      Loading 13...     ")
  395.                 playRecord(diskDriveSide,recordRedSide,"13")
  396.                 setGUI(monitorSide)
  397.         --Blocks
  398.         elseif (yPos >= 3 and yPos <=6 ) and (xPos >= 26 and xPos <= 36) then
  399.                 setAction(monitorSide,"    Loading Blocks...   ")
  400.                 playRecord(diskDriveSide,recordRedSide,"blocks")
  401.                 setGUI(monitorSide)
  402.         --Chirp
  403.         elseif (yPos >= 3 and yPos <=6 ) and (xPos >= 38 and xPos <= 48) then
  404.                 setAction(monitorSide,"    Loading Chirp...    ")
  405.                 playRecord(diskDriveSide,recordRedSide,"chirp")
  406.                 setGUI(monitorSide)
  407.         --Far
  408.         elseif (yPos >= 7 and yPos <= 9 ) and (xPos >= 2 and xPos <= 12) then
  409.                 setAction(monitorSide,"     Loading Far...     ")
  410.                 playRecord(diskDriveSide,recordRedSide,"far")
  411.                 setGUI(monitorSide)
  412.         --Mall
  413.         elseif (yPos >= 7 and yPos <= 9 ) and (xPos >= 14 and xPos <= 24) then
  414.                 setAction(monitorSide,"     Loading Mall...    ")
  415.                 playRecord(diskDriveSide,recordRedSide,"mall")
  416.                 setGUI(monitorSide)
  417.         --Mellohi
  418.         elseif (yPos >= 7 and yPos <= 9 ) and (xPos >= 26 and xPos <= 36) then
  419.                 setAction(monitorSide,"   Loading Mellohi...   ")
  420.                 playRecord(diskDriveSide,recordRedSide,"mellohi")
  421.                 setGUI(monitorSide)
  422.         --Stal
  423.         elseif (yPos >= 7 and yPos <= 9 ) and (xPos >= 38 and xPos <= 48) then
  424.                 setAction(monitorSide,"     Loading Stal...    ")
  425.                 playRecord(diskDriveSide,recordRedSide,"stal")
  426.                 setGUI(monitorSide)
  427.         --Strad
  428.         elseif (yPos >= 11 and yPos <= 14) and (xPos >= 2 and xPos <= 12) then
  429.                 setAction(monitorSide,"    Loading Strad...    ")
  430.                 playRecord(diskDriveSide,recordRedSide,"strad")
  431.                 setGUI(monitorSide)
  432.         --Ward
  433.         elseif (yPos >= 11 and yPos <= 14) and (xPos >= 14 and xPos <= 24) then
  434.                 setAction(monitorSide,"     Loading Ward...    ")
  435.                 playRecord(diskDriveSide,recordRedSide,"ward")
  436.                 setGUI(monitorSide)
  437.         --11
  438.         elseif (yPos >= 11 and yPos <= 14) and (xPos >= 26 and xPos <= 36) then
  439.                 setAction(monitorSide,"      Loading 11...     ")
  440.                 playRecord(diskDriveSide,recordRedSide,"11")
  441.                 setGUI(monitorSide)
  442.         --Wait
  443.         elseif (yPos >= 11 and yPos <= 14) and (xPos >= 38 and xPos <= 48) then
  444.                 setAction(monitorSide,"     Loading Wait...    ")
  445.                 playRecord(diskDriveSide,recordRedSide,"wait")
  446.                 setGUI(monitorSide)
  447.                
  448.         --Still Alive
  449.         elseif (yPos >= 15 and yPos <= 18) and (xPos >= 2 and xPos <= 16) then
  450.                 setAction(monitorSide," Loading Still Alive...")
  451.                 playRecord(diskDriveSide,recordRedSide,"still-alive")
  452.                 setGUI(monitorSide)
  453.         --Radio Loop
  454.         elseif (yPos >= 15 and yPos <= 18) and (xPos >= 18 and xPos <= 33) then
  455.                 setAction(monitorSide," Loading Radio Loop... ")
  456.                 playRecord(diskDriveSide,recordRedSide,"radio-loop")
  457.                 setGUI(monitorSide)
  458.         --Want You Gone
  459.         elseif (yPos >= 15 and yPos <= 18) and (xPos >= 35 and xPos <= 49) then
  460.                 setAction(monitorSide," Loading WantYouGone...")
  461.                 playRecord(diskDriveSide,recordRedSide,"want-you-gone")
  462.                 setGUI(monitorSide)
  463.         end
  464.  
  465.        
  466. end
  467.  
  468.  
  469. --m.setCursorPos(1,1)
  470. --m.clearLine()
  471. --while true do
  472. --      m.setCursorPos(1,1)
  473. --      event, side, xPos, yPos = os.pullEvent("monitor_touch")
  474. --      m.clearLine()
  475. --      m.write(event.." => Side: " .. tostring(side) .. ", " ..
  476. --                      "xPos: ".. xPos ..", " ..
  477. --                      "yPos: ".. yPos)
  478. --      setAction(monitorSide,"         test         ")
  479. --    
  480. --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!