API tools faq
paste
Advertisement
Guest User

startup

a guest
Oct 8th, 2023
77
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 9.69 KB | None | 0 0
raw download clone embed print report
  1.  
  2. -- DECLARING
  3. local mn = peripheral.wrap("back")
  4. local mnn = peripheral.wrap("top")
  5. local spk = peripheral.find("speaker")
  6. -- FUNCTIONS
  7.  
  8. local function clear()
  9.   mn.clear()
  10. end
  11. local function setTextColor(clr)
  12.   mn.setTextColor(clr)
  13. end
  14. local function setCursorPos(x,y)
  15.   mn.setCursorPos(x,y)
  16. end
  17. local function setBackgroundColor(clr)
  18.   mn.setBackgroundColor(clr)
  19. end
  20. local function write(txt)
  21.   mn.write(txt)
  22. end
  23. local function playNote(sound,vol,ptc)
  24.   spk.playNote(sound,vol,ptc)
  25. end
  26. local function Nclear()
  27.     mnn.clear()
  28. end
  29. local function NsetTextColor(clr)
  30.   mnn.setTextColor(clr)
  31. end
  32. local function NsetCursorPos(x,y)
  33.   mnn.setCursorPos(x,y)
  34. end
  35. local function NsetBackgroundColor(clr)
  36.   mnn.setBackgroundColor(clr)
  37. end
  38. local function Nwrite(txt)
  39.   mnn.write(txt)
  40. end
  41. local sx,sy = mn.getSize()
  42. local octabeL = 12
  43. local octaveC = 6
  44. local octave = {0,1,0,1,0,0,1,0,1,0,1,0}
  45. local notes = {"C", "#","D", "#","E","F","#","G","#","A","#","H"}
  46. local swf = 0
  47. for i=1,sx do
  48.   for g=1,sy do
  49.     if (g == 1) then
  50.       setBackgroundColor(colors.brown)
  51.     else
  52.       setBackgroundColor(colors.white)
  53.     end
  54.     setCursorPos(i,g)
  55.     write(" ")
  56.   end
  57.   if (swf == 1) then
  58.     swf = 0
  59.   else
  60.     swf = 1
  61.   end
  62. end
  63. local color = 0
  64. local startingY = 1
  65. local startingX = 1
  66. for o=1,octaveC do
  67. setCursorPos(startingX, startingY)
  68. --print("SX"..startingX.." | SY: "..startingY.."O: "..o )
  69. for i=1,octabeL do
  70.   color = octave[i]
  71.   if (color == 1) then
  72.     setCursorPos(startingX + i-1, startingY + 1)
  73.     setBackgroundColor(colors.black)
  74.     for h=1,2 do
  75.       setCursorPos(startingX + i-1, startingY + 1 + h)  
  76.       if (h == 1) then
  77.         write(" ")  
  78.         setCursorPos(startingX + i-1, startingY + 1 + h-1)
  79.         setBackgroundColor(colors.black)
  80.         setTextColor(colors.black)
  81.         write(notes[i])
  82.         setCursorPos(startingX + i-1, startingY + 1 + h)
  83.         setBackgroundColor(colors.black)
  84.       else
  85.         write(" ")  
  86.       end
  87.     end
  88.   else
  89.     setBackgroundColor(colors.white)
  90.     setTextColor(colors.white)
  91.     local px, py = mn.getCursorPos()
  92.     setCursorPos(px,2)
  93.     write(notes[i])
  94.   end
  95.   setCursorPos(startingX + i, startingY)
  96. end
  97. startingY = 1
  98. startingX = 1
  99. startingX =  startingX + (octabeL * o)
  100. end
  101. local instrument = "harp"
  102. --123
  103. local nsx,nsy = mnn.getSize()
  104. NsetBackgroundColor(colors.white)
  105. Nclear()
  106. function drawBT(colorm, txt, line)
  107. NsetBackgroundColor(colorm)
  108. NsetCursorPos(1,line)
  109. for i=1,7 do
  110.     NsetBackgroundColor(colorm)
  111.     for g=1,2 do
  112.         Nwrite(" ")
  113.     end
  114.     NsetCursorPos(1+i,line)
  115. end
  116. NsetCursorPos(1,line)
  117. Nwrite(txt)
  118.    
  119. local lastWrite = nil
  120. local waitTime = nil
  121. end
  122. -- write to notesheet
  123. function writeToNotes(name, pitch)
  124.     local file = fs.open("disk/"..name, "r")
  125.     local txt = file.readAll()
  126.     file.close()
  127.     local file = fs.open("disk/"..name, "w")
  128.     if (lastWrite ~= nil) then
  129.       waitTime = os.time() *50 - lastWrite
  130.     else
  131.       waitTime = 1
  132.     end
  133.     file.write(txt..pitch.."-"..waitTime.."-"..instrument.." ")
  134.     file.close()
  135.     lastWrite = os.time() * 50
  136. end
  137. -- end func
  138.  
  139. -- recs screen
  140. function drawRSC()
  141.     NsetBackgroundColor(colors.white)
  142.     Nclear()
  143.     local recsf = fs.open("disk/recs", "r")
  144.     local recsn  = recsf.readAll()
  145.     recsf.close()
  146.     print(recsn)
  147.     for i=1,tonumber(recsn) do
  148.         if (tonumber(recsn) < 4) then
  149.             NsetCursorPos(i,1)
  150.         elseif (tonumber(recsn) < 7) then
  151.             NsetCursorPos(i,2)
  152.         elseif tonumber(recsn) < 10 then
  153.             NsetCursorPos(i,3)
  154.         end
  155.         NsetBackgroundColor(colors.green)
  156.         NsetTextColor(colors.white)
  157.         Nwrite(tostring(i))
  158.     end
  159.     NsetCursorPos(1,nsy)
  160.     NsetBackgroundColor(colors.blue)
  161.     NsetTextColor(colors.white)
  162.     Nwrite("back")
  163. end
  164. -- end
  165. drawBT(colors.green, "Record",1)
  166. drawBT(colors.blue, "Recs",2)
  167. drawBT(colors.orange, "Instrs",4)
  168. drawBT(colors.brown, "Hide",5)
  169. --123
  170. local recState = false
  171. local recName = nil
  172. local screen = 1
  173. while (true) do
  174.     event, side, xPos, yPos = os.pullEvent("monitor_touch")
  175.     if (side == "back") then
  176.         if (yPos > 1) then
  177.             local noteMBR = xPos
  178.             if (xPos > 12 and xPos < 24) then
  179.                 noteMBR = noteMBR - octabeL
  180.             elseif (xPos > 23) then
  181.                 noteMBR = (noteMBR - (octabeL *2))
  182.             end
  183.             if (xPos == 24) then
  184.                 noteMBR = 1
  185.             end
  186.             print(noteMBR.." | "..xPos)
  187.             if (string.find(notes[noteMBR], "#")) then
  188.               playNote(instrument, 1, xPos-1+0.5)
  189.               if (recState) then
  190.                 writeToNotes(tostring(recName), xPos-1+0.5)
  191.             end
  192.               for j=2,4 do
  193.                 setCursorPos(xPos,j)
  194.                 setBackgroundColor(colors.gray)
  195.                 write(" ")
  196.               end
  197.             os.sleep(0.2)
  198.             for j=2,4 do
  199.                 setCursorPos(xPos,j)
  200.                 setBackgroundColor(colors.black)
  201.                 write(" ")
  202.             end
  203.             else
  204.                 if (recState) then
  205.                     writeToNotes(tostring(recName), xPos-1)
  206.                 end
  207.                 playNote(instrument, 1, xPos-1)
  208.                 for j=2,5 do
  209.                     setCursorPos(xPos,j)
  210.                     setBackgroundColor(colors.lightGray)
  211.                     write(" ")
  212.                 end
  213.                 os.sleep(0.2)
  214.                 for j=2,5 do
  215.                     setCursorPos(xPos,j)
  216.                     setBackgroundColor(colors.white)
  217.                     write(" ")
  218.                 end
  219.             end
  220.         end
  221.     elseif (side == "top") then
  222.         if (screen == 1) then
  223.         if (yPos == 1) then
  224.             if (recState == true) then
  225.                recState = false
  226.                drawBT(colors.green, "Record",1)
  227.             else
  228.                 recState = true
  229.                 local recsf = fs.open("disk/recs", "r")
  230.                 local recsn  = recsf.readAll()
  231.                 recsf.close()
  232.                 local recsf = fs.open("disk/recs", "w")
  233.                 recsf.write(tostring(tonumber(recsn) + 1))
  234.                 recsf.close()
  235.                 recName = tonumber(recsn) + 1
  236.                 local recfile = fs.open("disk/"..tostring(recName), "w")
  237.                 recfile.close()
  238.                 drawBT(colors.red, "STOP",1)
  239.             end
  240.         elseif (yPos == 2) then
  241.             drawRSC()
  242.             screen = 2
  243.         elseif (yPos == 4) then
  244.             screen =3
  245.             NsetBackgroundColor(colors.white)
  246.             Nclear()
  247.             if (instrument == "harp") then
  248.             drawBT(colors.orange, "Piano",1)
  249.             drawBT(colors.red, "Guitar",2)
  250.             drawBT(colors.red, "Cowbell",3)
  251.             elseif (instrument == "guitar") then
  252.                 drawBT(colors.red, "Piano",1)
  253.                 drawBT(colors.orange, "Guitar",2)
  254.                 drawBT(colors.red, "Cowbell",3)
  255.             elseif (instrument == "cowbell") then
  256.                 drawBT(colors.red, "Piano",1)
  257.                 drawBT(colors.red, "Guitar",2)
  258.                 drawBT(colors.orange, "Cowbell",3)
  259.             else
  260.                 drawBT(colors.red, "Piano",1)
  261.                 drawBT(colors.red, "Guitar",2)
  262.                 drawBT(colors.red, "Cowbell",3)
  263.             end
  264.             drawBT(colors.blue, "back",5)
  265.         elseif (yPos == 5)  then
  266.             screen = 4
  267.             setBackgroundColor(colors.brown)
  268.             clear()
  269.             NsetBackgroundColor(colors.brown)
  270.             Nclear()
  271.         end
  272.     elseif (screen == 2) then
  273.         if (yPos == 5 and xPos < 6) then
  274.             screen =1
  275.             NsetBackgroundColor(colors.white)
  276.             Nclear()
  277.             drawBT(colors.green, "Record",1)
  278.             drawBT(colors.blue, "Recs",2)
  279.             drawBT(colors.orange, "Instrs",4)
  280.             drawBT(colors.brown, "Hide",5)
  281.         else
  282.             local rec = fs.open("disk/"..xPos, "r")
  283.             local recN  = rec.readAll()
  284.             local wait = nil
  285.             local noteN = nil
  286.             local instrName = nil
  287.             rec.close()
  288.             line = {} --Define a empty table for our words
  289.             for word in string.gmatch(recN, "%S+") do --We go thru the string word by word ("%w+") and give one word at a time the value word
  290.                 local ii = 1
  291.                 for wordd in string.gmatch(word, "[^-]+") do
  292.                     print(tonumber(wordd))
  293.                     if (ii == 2) then
  294.                         wait = tonumber(wordd)
  295.                     elseif (ii==3) then
  296.                         instrName = wordd
  297.                     else
  298.                         print("NOTE")
  299.                         noteN = tonumber(wordd)
  300.                     end
  301.                     ii = ii + 1
  302.                 end
  303.                 print("wait secs:"..wait)
  304.                 print("note: "..noteN)
  305.                 print("RECORDING: "..xPos.." | NOTE: "..noteN.." WAITTIME: "..wait)
  306.                 playNote(instrName,1,tonumber(noteN))
  307.                 local waitTimeinSeconds = wait
  308.                 os.sleep(tonumber(waitTimeinSeconds))
  309.             end --end our for loop
  310.         end
  311.     elseif (screen == 3) then
  312.         if (yPos == 1) then
  313.             instrument = "harp"
  314.         elseif (yPos == 2) then
  315.             instrument = "guitar"
  316.         elseif (yPos == 3) then
  317.             instrument = "cow_bell"
  318.         end
  319.         screen =1
  320.         NsetBackgroundColor(colors.white)
  321.         Nclear()
  322.         drawBT(colors.green, "Record",1)
  323.         drawBT(colors.blue, "Recs",2)
  324.         drawBT(colors.orange, "Instrs",4)
  325.         drawBT(colors.brown, "Hide",5)
  326.     end
  327. end
  328. 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!