View difference between Paste ID: cuVuWc8W and xcMEyG4R

-local com = require("component")
+local com = require("component")
-local thread = require("threads")
+local thread = require("threads")
-local c = true;
+local fs = require("filesystem")
-j = com.list("note_block")
+local NBlocks = com.list("note_block")
-jk = {}
+local NBlockList = {}
-jkt = {}
+_G.CalibrationNBlocks = {}
-
+
-for k,v in pairs(j) do
+print("Введите путь к файлу (*.nbp)")
-  table.insert(jk,k)
+local nepath=io.read()
-end
+
-
+if fs.exists(nepath) then
--- 1 - piano
+  local path=nepath
--- 2 - Double Bass
+else
--- 3 - Bass Drum
+  print("Такого файла нет")
--- 4 - Snare Drum
+  os.exit()
--- 5 - Click
+end
-
+
-print("в какой последовательность проигрываются нотные блоки?")
+if _G.da==nil then
-
+
-function posl()
+for k,v in pairs(NoteBlock) do
-    for i=1,5 do
+  table.insert(NoteBlockList,k)
-        com.invoke(jk[i],"trigger")
+end
-        os.sleep(1)
+
-    end
+-- 1 - piano
-end
+-- 2 - Double Bass
-
+-- 3 - Bass Drum
-
+-- 4 - Snare Drum
-for o=1,5 do
+-- 5 - Click
-    posl()
+
-    io.write("на каком месте "..o.." блок: ")
+print("в какой последовательность проигрываются нотные блоки?")
-    vbr=io.read()
+
-    table.insert(jkt,jk[tonumber(vbr)])
+
-end
+local function posl()
-
+    for i=1,5 do
-thread.init()
+        com.invoke(NoteBlockList[i],"trigger")
-
+        os.sleep(1)
-her="/Night.lua"
+    end
-
+end
-local tbl = {
+
-    [0] = 1,
+
-    [1] = 3,
+for o=1,5 do
-    [2] = 4,
+    posl()
-    [3] = 5,
+    io.write("на каком месте "..o.." блок: ")
-    [4] = 2,
+    table.insert(_G.CalibrationNBlocks,NoteBlockList[tonumber(io.read())])
-}
+end
-
+_G.da=true
-function countnotes(test)
+end
-    for i = 1,1000 do
+
-        local subs = string.sub(test,1,3*i)
+thread.init()
-        local lens = string.len(subs)
+
-        local subs2 = string.sub(test,1,3*i+1)
+local tbl = {
-        local lens2 = string.len(subs2)
+    [0] = 1,
-        if lens==lens2 then
+    [1] = 3,
-            return i
+    [2] = 4,
-        end
+    [3] = 5,
-    end
+    [4] = 2,
-end
+}
-
+
-local function thirding(linen,mi)
+local function countnotes(test)
-    local n1 = (3*mi)-2
+    for i = 1, math.huge do
-    local n2 = 3*mi
+        local subs = string.sub(test, 1, 3*i)
-    local subs = string.sub(linen,n1,n2)
+        local lens = string.len(subs)
-    return subs
+        local subs2 = string.sub(test, 1, 3*i+1)
-end
+        local lens2 = string.len(subs2)
-
+        if lens==lens2 then
-function parse(i)
+            return i
-    local file = io.open(her)
+        end
-    for line in file:lines() do
+    end
-        local line = thirding(line,i)
+end
-        if line ~= "" and line ~= " " and line ~= nil then
+
-            local instrum = tonumber(string.sub(line,1,1))
+local function thirding(linen,mi)
-            local Notes = tonumber(string.sub(line,2,3))
+    return string.sub(linen, 3*mi - 2, 3*mi)
-            com.invoke(jkt[tbl[instrum]],"setPitch",Notes)
+end
-            com.invoke(jkt[tbl[instrum]],"trigger")
+
-        end
+local function max()
-        os.sleep(0.05)
+    local fil = io.open(path)
-    end
+    local maxn=0
-    file:close()
+    for line in fil:lines() do
-end
+        local v=countnotes(line)
-
+        if v>maxn then
-function check()
+            maxn=v
-    local file = io.open(her)
+        end
-    local line3 = file:read("*l")
+    end
-    local cln3 = countnotes(line3)
+    fil:close()
-    if line3 ~= nil then
+    return maxn
-        for hg = 1, cln3 do
+end
-            thread.create(parse, hg)
+
-        end
+local function parse(i)
-    end
+    local file = io.open(path)
-    file:close()
+    for line in file:lines() do
-end
+        local line = thirding(line,i)
-
+        if line ~= "" and line ~= " " and line ~= nil then
-thread.create(check)
+            local instrum = tonumber(string.sub(line,1,1))
             local Notes = tonumber(string.sub(line,2,3))
             com.invoke(_G.CalibrationNBlocks[tbl[instrum]],"setPitch",Notes)
             com.invoke(_G.CalibrationNBlocks[tbl[instrum]],"trigger")
         end
         os.sleep(0.05)
     end
     file:close()
 end
 
 local function check()
     local file = io.open(path)
     local line3 = file:read("*l")
     local maxn=max()
     if line3 ~= nil then
         for hg = 1, maxn do
             thread.create(parse, hg)
         end
     end
     file:close()
 end
 
 thread.create(check)
 thread.waitForAll()