API tools faq
paste
Advertisement
Upscalefanatic3

MiDi Player

Upscalefanatic3
Oct 15th, 2016
254
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 45.91 KB | None | 0 0
raw download clone embed print report
  1. local function UD(a,b)
  2. return UDim2.new(a,0,b,0)
  3. end
  4. --Type in your username here vv
  5. user = "Upscalegaming"
  6.  
  7.  
  8. local Max_SLength = 9e99999--131070
  9.  
  10. local neon=false
  11.  
  12. local admunz={"Upscalegaming","EIdra","oxcool1",'ClassyUmadbro2bad','MakerModelLua','Nexure','Diitto',user}
  13.  
  14. local songlist={'AOT','Apple','Awoken','Bard','Bats','Can','Carnival','Cave','CaveStory','Cordy','Cotn','Discord','Dragonborn','Earth','FONR','Fire','Force','Georgia','Good','Haunt','Jack','Killla','Lob','Mario','Necro','OneP','Pirate','Rainbow','Smil','Storms','Stronger','Tetris','Times','Viva','Waltz','RadioG','BSwing','CatG','ANight'}
  15.  
  16. local cmdlist={'!fixs','!list','!cmds','!song> ID','!link> ID','!stop','!songb> ByteCode','!rvb> num or name','!goto> name','!tmp> num','!adds> name','!3d> on/off'}
  17.  
  18. local songvol = 50
  19.  
  20. local fme= user-- starter following person
  21.  
  22. local mid = ""
  23.  
  24. local store = ""
  25.  
  26. local guis={}
  27.  
  28. local playDebounce = false
  29.  
  30. local xnum = 2
  31.  
  32. local ynum = 3
  33.  
  34. local znum = 0
  35.  
  36. local bars = false
  37.  
  38. local soundscape = {}
  39.  
  40. function FindPlayer(name,Speaker)
  41. local found,rand = {},math.random(1,game.Players.NumPlayers)
  42. for word in name:gmatch("%S+")do
  43. for i,player in pairs(Game.Players:GetPlayers())do
  44. if player.Name:lower():find(word:lower())== 1
  45. or word:lower()== "all"
  46. or word:lower()== "everyone"
  47. or word:lower()== "everybody"
  48. or word:lower()== "everypony"
  49. or word:lower()== "local" and player == Speaker
  50. or word:lower()== "me" and player == Speaker
  51. or word:lower()== "others" and player ~= Speaker
  52. or word:lower()== "random" and i == rand then
  53. table.insert(found,player)
  54. end
  55. end
  56. end
  57. return found
  58. end
  59.  
  60. function lerp(a,b,c)
  61. return a+(b-a)*c
  62. end
  63.  
  64.  
  65. function addSS()
  66. local p = Instance.new("Part",workspace)
  67. p.Anchored = true
  68. p.FormFactor = "Custom"
  69. if neon then
  70. p.Material="Neon"
  71. end
  72. p:BreakJoints()
  73. p.TopSurface,p.BottomSurface = 0,0
  74. p.CanCollide = false
  75. p.Size = Vector3.new(1,1,1)
  76. p.Locked = true
  77. p.CFrame = getMiddleCFrame()
  78. local PL=Instance.new("PointLight",p)
  79. PL.Color= BrickColor.new("Royal purple").Color
  80. PL.Brightness=0
  81. local SM = Instance.new("SpecialMesh",p)
  82. SM.MeshId = "http://www.roblox.com/Asset/?id=9856898"
  83. SM.TextureId = "rbxassetid://3319251"
  84. SM.VertexColor = Vector3.new(0,0,0)
  85. SM.Scale = Vector3.new()
  86. table.insert(soundscape,p)
  87. return p
  88. end
  89. local oc = oc or function(func)
  90. return function(...)
  91. local ___a,___b = ypcall(func,...)
  92. if ____a == false then
  93. Notify(___b)
  94. end
  95. end
  96. end
  97. local acNotify = Notify
  98. function Notify(...)
  99. local t = ""
  100. for i = 1,select("#",...) do
  101. t = t..tostring(select(i,...) or "nil").."\t"
  102. end
  103. local plrs=game.Players:GetPlayers()
  104. local pnum=#plrs/10+.1
  105. local gnum=#guis/10
  106. if #guis < 1 then
  107. movenum=0
  108. else
  109. movenum=gnum-pnum
  110. end
  111. for _,Player in pairs(game.Players:GetPlayers()) do
  112. if Player:findFirstChild("PlayerGui") then
  113. local pgui = Player.PlayerGui
  114. local sg = Instance.new("ScreenGui",pgui)
  115. sg.Name = "Message"
  116. local frm = Instance.new("Frame",sg)
  117. frm.Size = UD(.1,0.075)
  118. frm.BackgroundColor = BrickColor.new("Really black")
  119. frm.BackgroundTransparency = 0.5
  120. frm.Style="DropShadow"
  121. frm.ZIndex = 6
  122. frm.Position = UD(1.1,0.85)
  123. table.insert(guis,frm)
  124. local msg = Instance.new("TextLabel",frm)
  125. msg.Name = "msg"
  126. msg.TextScaled=true
  127. msg.Text = tostring(t)
  128. msg.Font = "ArialBold"
  129. msg.FontSize = "Size18"
  130. msg.TextColor = BrickColor.new("White")
  131. msg.Size = UD(1,1)
  132. msg.Position = UD(0,0)
  133. msg.BackgroundTransparency = 1
  134. msg.TextXAlignment = "Center"
  135. msg.ZIndex = 6
  136. frm:TweenPosition(UD(.9,0.85+movenum), "Out", "Quad", 2.5)
  137. Spawn(function() wait(4)
  138. for i=1,#guis do
  139. if guis[i]==frm then
  140. table.remove(guis,i)
  141. end
  142. end
  143. frm:TweenPosition(UD(1.1,0.85), "Out", "Quad", 2.5)
  144. wait(4)
  145. sg:Destroy()
  146. end)
  147. --game.Debris:AddItem(sg,3)
  148. end
  149. end
  150. end
  151.  
  152. function strhex(str)
  153. local res='';
  154. local hnt=Instance.new('Hint',workspace)
  155. hnt.Text='Decoding'
  156. for port in str:gmatch'.'do
  157. res=res..string.format('%02x',port:byte());
  158. end;
  159. hnt:Destroy()
  160. return(res);
  161. end;
  162.  
  163. function GetSongList(persn)
  164. local listtime=20
  165. local plr=persn
  166. local pgui = plr.PlayerGui
  167. local sg = Instance.new("ScreenGui",pgui)
  168. sg.Name = "Message"
  169. local frm = Instance.new("Frame",sg)
  170. frm.Size = UD(.1,0.2)
  171. frm.BackgroundColor = BrickColor.new("Really black")
  172. frm.BackgroundTransparency = 0.5
  173. frm.Style="DropShadow"
  174. frm.ZIndex = 6
  175. frm.Position = UD(1.1,0.85)
  176. msg = Instance.new("TextLabel",frm)
  177. msg.Name = "msg"
  178. msg.TextScaled=true
  179. msg.Font = "ArialBold"
  180. msg.Text=""
  181. msg.FontSize = "Size18"
  182. msg.TextColor = BrickColor.new("White")
  183. msg.Size = UD(1,1)
  184. msg.Position = UD(0,0)
  185. msg.BackgroundTransparency = 1
  186. msg.TextXAlignment = "Center"
  187. msg.ZIndex = 6
  188. frm:TweenPosition(UD(.9,0.6), "Out", "Quad", 2.5)
  189. for i=1,#songlist do
  190. if i==#songlist then
  191. msg.Text=msg.Text..songlist[i]
  192. elseif i<#songlist then
  193. msg.Text=msg.Text..songlist[i]..', '
  194. end
  195. end
  196. Spawn(function()
  197. local tellr=msg
  198. local text=msg.Text
  199. for i=1,listtime do
  200. tellr.Text="Song list "..listtime..": "..text
  201. wait(1)
  202. listtime=listtime-1
  203. end
  204. frm:TweenPosition(UD(1.1,0.85), "Out", "Quad", 2.5)
  205. wait(4)
  206. sg:Destroy()
  207. end)
  208. --game.Debris:AddItem(sg,3)
  209. end
  210.  
  211. function GetCmdList(persn)
  212. local listtime=20
  213. local plr=persn
  214. local pgui = plr.PlayerGui
  215. local sg = Instance.new("ScreenGui",pgui)
  216. sg.Name = "Message"
  217. local frm = Instance.new("Frame",sg)
  218. frm.Size = UD(.1,0.2)
  219. frm.BackgroundColor = BrickColor.new("Really black")
  220. frm.BackgroundTransparency = 0.5
  221. frm.Style="DropShadow"
  222. frm.ZIndex = 6
  223. frm.Position = UD(1.1,0.85)
  224. msg = Instance.new("TextLabel",frm)
  225. msg.Name = "msg"
  226. msg.TextScaled=true
  227. msg.Font = "ArialBold"
  228. msg.Text=""
  229. msg.FontSize = "Size18"
  230. msg.TextColor = BrickColor.new("White")
  231. msg.Size = UD(1,1)
  232. msg.Position = UD(0,0)
  233. msg.BackgroundTransparency = 1
  234. msg.TextXAlignment = "Center"
  235. msg.ZIndex = 6
  236. frm:TweenPosition(UD(.9,0.6), "Out", "Quad", 2.5)
  237. for i=1,#cmdlist do
  238. if i==#cmdlist then
  239. msg.Text=msg.Text..cmdlist[i]
  240. elseif i<#cmdlist then
  241. msg.Text=msg.Text..cmdlist[i]..', '
  242. end
  243. end
  244. Spawn(function()
  245. local tellr=msg
  246. local text=msg.Text
  247. for i=1,listtime do
  248. tellr.Text="Song list "..listtime..": "..text
  249. wait(1)
  250. listtime=listtime-1
  251. end
  252. frm:TweenPosition(UD(1.1,0.85), "Out", "Quad", 2.5)
  253. wait(4)
  254. sg:Destroy()
  255. end)
  256. --game.Debris:AddItem(sg,3)
  257. end
  258.  
  259. local debris = game:GetService("Debris")
  260. function newSS(am)
  261. for i,v in pairs(soundscape) do for _,x in pairs(v:GetChildren()) do debris:AddItem(x,0) end debris:AddItem(v,.05) end
  262. soundscape = {}
  263. for i=1,am do
  264. addSS()
  265. end
  266. end
  267.  
  268. function ClrLerp(Mesh,Clr2,Step)
  269. Clr1 = Mesh.VertexColor
  270. Mesh.VertexColor = Vector3.new(lerp(Clr1.X,Clr2.X,Step),lerp(Clr1.Y,Clr2.Y,Step),lerp(Clr1.Z,Clr2.Z,Step))
  271. end
  272.  
  273. function getMiddleCFrame()
  274. if bars==true then
  275. cf = workspace:FindFirstChild(fme) and workspace[fme]:FindFirstChild("Torso") and workspace[fme].Torso:IsA("Part") and workspace[fme].Torso.CFrame - Vector3.new(0,3,0) or CFrame.new(0,0,0)
  276. else
  277. cf = workspace:FindFirstChild(fme) and workspace[fme]:FindFirstChild("Torso") and workspace[fme].Torso:IsA("Part") and workspace[fme].Torso.CFrame + Vector3.new(0,3,0) or CFrame.new(0,10,0)
  278. end
  279. return CFrame.new(cf.p)
  280. end
  281.  
  282. do
  283. local function QuaternionFromCFrame(cf) local mx, my, mz, m00, m01, m02, m10, m11, m12, m20, m21, m22 = cf:components() local trace = m00 + m11 + m22 if trace > 0 then local s = math.sqrt(1 + trace) local recip = 0.5/s return (m21-m12)*recip, (m02-m20)*recip, (m10-m01)*recip, s*0.5 else local i = 0 if m11 > m00 then i = 1 end if m22 > (i == 0 and m00 or m11) then i = 2 end if i == 0 then local s = math.sqrt(m00-m11-m22+1) local recip = 0.5/s return 0.5*s, (m10+m01)*recip, (m20+m02)*recip, (m21-m12)*recip elseif i == 1 then local s = math.sqrt(m11-m22-m00+1) local recip = 0.5/s return (m01+m10)*recip, 0.5*s, (m21+m12)*recip, (m02-m20)*recip elseif i == 2 then local s = math.sqrt(m22-m00-m11+1) local recip = 0.5/s return (m02+m20)*recip, (m12+m21)*recip, 0.5*s, (m10-m01)*recip end end end
  284.  
  285. local function QuaternionToCFrame(px, py, pz, x, y, z, w) local xs, ys, zs = x + x, y + y, z + z local wx, wy, wz = w*xs, w*ys, w*zs local xx = x*xs local xy = x*ys local xz = x*zs local yy = y*ys local yz = y*zs local zz = z*zs return CFrame.new(px, py, pz,1-(yy+zz), xy - wz, xz + wy,xy + wz, 1-(xx+zz), yz - wx, xz - wy, yz + wx, 1-(xx+yy)) end
  286.  
  287. local function QuaternionSlerp(a, b, t) local cosTheta = a[1]*b[1] + a[2]*b[2] + a[3]*b[3] + a[4]*b[4] local startInterp, finishInterp; if cosTheta >= 0.0001 then if (1 - cosTheta) > 0.0001 then local theta = math.acos(cosTheta) local invSinTheta = 1/math.sin(theta) startInterp = math.sin((1-t)*theta)*invSinTheta finishInterp = math.sin(t*theta)*invSinTheta else startInterp = 1-t finishInterp = t end else if (1+cosTheta) > 0.0001 then local theta = math.acos(-cosTheta) local invSinTheta = 1/math.sin(theta) startInterp = math.sin((t-1)*theta)*invSinTheta finishInterp = math.sin(t*theta)*invSinTheta else startInterp = t-1 finishInterp = t end end return a[1]*startInterp + b[1]*finishInterp, a[2]*startInterp + b[2]*finishInterp, a[3]*startInterp + b[3]*finishInterp, a[4]*startInterp + b[4]*finishInterp end
  288.  
  289. function clerp(a,b,t)
  290. local qa = {QuaternionFromCFrame(a)}
  291. local qb = {QuaternionFromCFrame(b)}
  292. local ax, ay, az = a.x, a.y, a.z
  293. local bx, by, bz = b.x, b.y, b.z
  294.  
  295. local _t = 1-t
  296. return QuaternionToCFrame(_t*ax + t*bx, _t*ay + t*by, _t*az + t*bz,QuaternionSlerp(qa, qb, t))
  297. end
  298. end
  299. Num = 0
  300. Rnd = math.random
  301. game:GetService("RunService").Stepped:connect(function()
  302. if bars==true then
  303. local mcf = getMiddleCFrame()
  304. for i,v in pairs(soundscape) do
  305. local snd,m,pl=v:FindFirstChild("Sound"),v:FindFirstChild("Mesh"),v:FindFirstChild("PointLight")
  306. if snd and m then
  307. pl.Brightness=snd.Volume
  308. ClrLerp(m,Vector3.new(snd.Volume/2,0,snd.Volume),.05)
  309. m.Scale = Vector3.new(.2,math.max(.02,lerp(m.Scale.Y+snd.Volume/2*1.3,snd.Volume,.3)),.2)
  310. elseif m then
  311. pl.Brightness=0
  312. m.Scale = Vector3.new(1,.02,1)
  313. ClrLerp(m,Vector3.new(0,0,0),.3)
  314. end
  315. if m then
  316. m.Offset = Vector3.new(0,m.Scale.Y/2*v.Size.Y,0)
  317. end
  318. --[[
  319. local ran = 4
  320. local ang;
  321. repeat
  322. ran = ran + .25
  323. ang = math.atan(v.Size.X/ran) + math.rad(1)
  324. until (#soundscape)*ang < math.pi*2]]
  325. ang = math.pi*2 / #soundscape
  326. ran = math.max(3,(v.Size.X / math.tan(ang)) + .5)
  327. v.CFrame = clerp(v.CFrame,mcf * CFrame.Angles(0,(#soundscape-1)*ang/2+(i-1)*ang,0) * CFrame.new(0,0,-ran-v.Size.Z/2) * CFrame.Angles(-math.pi/2,0,0),.1)
  328. --v.CFrame = clerp(v.CFrame,mcf*CFrame.Angles(0,math.pi*2/#soundscape*(i-1),0)*CFrame.new(0,0,-#soundscape*.3)+Vector3.new(0,math.sin((tick()+i)*5),0),.1)
  329. end
  330. else
  331. Num = Num + .01
  332. local mcf = getMiddleCFrame()
  333. local Dist = #soundscape/math.pi/2
  334. for i,v in pairs(soundscape) do
  335. v.Anchored = true
  336. local snd,m,pl = v:FindFirstChild("Sound"),v:FindFirstChild("Mesh"),v:FindFirstChild("PointLight")
  337. if snd and m then
  338. pl.Brightness=snd.Volume
  339. m.Scale = Vector3.new(xnum,ynum,znum)*lerp(m.Scale.X/2,snd.Volume,.3)
  340. ClrLerp(m,Vector3.new(snd.Volume/2,0,snd.Volume),.05)
  341. elseif m then
  342. pl.Brightness=0
  343. m.Scale = Vector3.new(1,.01,.01)
  344. ClrLerp(m,Vector3.new(0,0,0),.3)
  345. end
  346. if m then
  347. m.Offset = Vector3.new(0,0,0)
  348. end
  349. --v.CFrame = clerp(v.CFrame,mcf*CFrame.Angles(0,0,0)*CFrame.Angles(0,math.pi*2/#soundscape*(i-1),0)*CFrame.new(0,m.Scale.Y/2,Dist),.1)
  350. if ynum == 2 then
  351. v.CFrame = clerp(v.CFrame,mcf*CFrame.Angles(0,math.pi*2/#soundscape*(i-1),0)*CFrame.new(0,0,-#soundscape*.3)*CFrame.Angles(math.sin((tick()+i)*5),math.sin((tick()+i)*5),math.sin((tick()+i)*5))+Vector3.new(0,math.sin((tick()+i)*5),0),.1)
  352. else
  353. v.CFrame = clerp(v.CFrame,mcf*CFrame.Angles(0,math.pi*2/#soundscape*(i-1),0)*CFrame.new(0,0,-#soundscape*.3)+Vector3.new(0,math.sin((tick()+i)*5),0),.1)
  354. end
  355. end
  356. end
  357. end)
  358.  
  359. if not soundscape then return end
  360.  
  361. --for i,v in pairs(soundscape:GetChildren()) do if v:IsA("Sound") then v:Destroy() end end
  362. --soundscape.AmbientReverb = "ConcertHall"
  363.  
  364.  
  365. midiplayer = script.Parent
  366.  
  367. sounds = {}
  368. midichecksum = 365
  369. waitloop = true
  370. tracksOn = 0
  371.  
  372. tempo = 250
  373. snap = 12222140
  374. ping = 12221990
  375. bass = 12221831
  376. button = 12221967
  377. clickf = "rbxasset://sounds//clickfast.wav"
  378. clunk = "rbxasset://sounds//flashbulb.wav"
  379.  
  380. url = "http://www.roblox.com/asset/?id="
  381.  
  382. -- M_INS
  383. programs = {
  384. {{"12857654",0.3,0,66,0.5},{"12857804",-7,67,71,0.5},{"12857664",-11.5,72,127,0.8}}, -- Banjo
  385. {{"12857637",-3.9,0,64,0.5},{"12857660",-8.4,65,127,0.5}}, -- Banjo 2
  386. {{"13114759",-6,0,127,1}}, -- ding
  387. {{"19344667",-8.6,0,127,0.5}}, -- bell
  388. {{"15666462",-13.5,0,127,0.4}}, -- Beep
  389. {{"13424334",-23.2,0,127,0.5,0,0.5}}, -- piccolo
  390. {{"1089407",8.2,0,57,0.5},{"1089403",3.2,58,127,1}}, -- Electric Guitar
  391. {{"13032199",8.2,0,57,0.5},{"13032178",3.2,58,127,1}}, -- Space Guitar
  392. {{"60661796",-2.5,0,127,0.5,0.3,0.2}}, -- Metal Guitar
  393. {{"13019281",11.2,0,127,0.5}}, -- Ninja Guitar (Twang Twang!)
  394. {{"13019300",11.3,0,127,0.5}}, -- Ninja Guitar (T-T-Twang Twang!)
  395. {{"12892216",-7,0,127,0.5}}, -- Jungle Guitar
  396. {{"10209668",6.5,0,127,0.5}}, -- synth sound 1
  397. {{"11998777",12,0,127,0.5}}, -- synth sound 2
  398. {{"11998796",4.8,0,127,0.5,0,0.15}}, -- synth sound 3
  399. {{bass,11.8,0,127,0.5}}, -- Bass
  400. {{"rbxasset://sounds//uuhhh.wav",0.2,0,127,0.5}}, -- Robloxian Death
  401. {{button,6.7,0,127,0.4}}, -- Button
  402. {{ping,-21.7,0,127,0.5,0,0.2}}, -- Ping!
  403. {{"rbxasset://sounds//Kid saying Ouch.wav",0.9,0,127,0.5}}, -- 'Ouch'
  404. {{"11984351",16.8,0,127,0.3,0.02,0.2}}, -- Long Destructive Synth
  405. -- v V Drumset V v
  406. {{"rbxasset://music//ufofly.wav",59,1,1,0.5},{"13114759",39.7,26,26,0.5},{snap,37,27,27,0.5,0,0.25},
  407. {"108553903",38,28,28,0.5,0,0,0},
  408. {"18426149",41,29,29,0.4,0,0.25},{"18426149",34,30,30,0.4,0,0.25},{snap,37,31,31,0.2},
  409. {clickf,40,31,31,0.7},{clunk,40,32,32,0.5},{clickf,38,33,34,0.5},
  410. {"56524816",24,34,34,0.3},{"31173820",20,35,35,0.5},{"31173820",24,36,36,0.5},
  411. {"14863866",16,37,37,1},{"31173799",20,38,38,0.7},{"2101148",54,39,39,0.7},{"31173799",20,40,40,0.5},
  412. {"31173881",17,41,41,0.5},
  413. {snap,45,42,42,0.25,0,0.25},{"31173881",19,43,43,0.5},{snap,52,44,44,0.25,0,0.25},
  414. {"31173881",21,45,45,0.5},{"31173735",14,46,46,0.5},{"31173881",23,47,47,0.5},{"31173844",13,48,48,0.5},
  415. {"31173771",14,49,49,0.5},{"31173844",15,50,50,0.5},{"31173898",8,51,51,0.5},{"31173771",5,52,52,0.5},
  416. {"11113679",9.5,53,53,0.5},{snap,34,54,54,0.15,0,0.25},{"31173771",24,55,55,0.5},{snap,14,56,56,0.2},{"57802055",1,56,56,0.3},
  417. {"31173771",7,57,57,0.5},{"31173898",1,59,59,0.5},{"57801983",3,60,60,0.5,0,0.25},{"57801983",-10,61,61,0.5,0,0.25}, -- tuning was -5
  418. {"101088307",24,62,62,0.5,0,0,0},{"57802055",-16,63,63,0.5,0,0.25},{"57802055",-22,64,64,0.5,0,0.25},{"57801983",-15,65,65,0.5,0,0.25}
  419. ,{"57801983",-21,66,66,0.5,0,0.25},
  420. {"13114759",-8,67,67,0.5,0,0.25},{"13114759",-14,68,68,0.5,0,0.25},
  421. {snap,22,69,69,0.4},
  422. {snap,32,70,70,0.5,0,0.25},{"28510547",-14.4,71,71,0.4,0,0.25},{"28510547",-18.4,72,72,0.4,0,0.25},{"101180005",-3.4,73,73,0.3,0,0,0},
  423. {"100391463",-4,74,74,0.4,0,0,0},{"15666462",8,75,75,0.4},{"57802055",-2,76,76,0.4},{"57802055",-5,77,77,0.4},{"75338648",-13,78,78,0.6,0,1,0},{"75338648",-31.7,79,79,0.5,0,0,0},
  424. {"19344667",2.5,80,80,0.25,0,0.25},{"19344667",1.5,81,81,0.2},{snap,12,82,82,0.3,0,0.25},{"101093314",-22,83,83,0.4,0,0.25},
  425. {"13061809",-4,84,84,0.4},{"57802055",8,85,85,0.4},{"31173844",-35,86,86,0.4},{"31173844",-36,87,87,0.4}},
  426. -- Horror SFX v v v
  427. {{"13061809",-2,56,64,0.5},{"13061802",-10,65,74,0.5},{"13061810",-23,75,84,0.5},{"11984254",-34,85,127,0.5},
  428. {"rbxasset://sounds//HalloweenThunder.wav",8,48,55,0.5},{"rbxasset://sounds//HalloweenGhost.wav",27,0,47,0.5}},
  429. {{"21338895",0,0,127,0.5}}, -- Maraca
  430. {{"11949128",10,0,127,0.5}}, -- Big Drum (Even though it isn't.)
  431. {{"10209888",13.4,0,127,0.3},{"10209888",14.2,61,127,0.3}}, -- Popcorn
  432. {{"45885030",1.4,0,127,0.3}}, -- KatanaSlash
  433. {{"75421988",33.75,0,80,0.3,0,0.2,1},{"75338648",-24.7,81,127,0.5,0,0.4,1},
  434. {"75338648",-0.7,81,127,0.4,0,0.4,1},{"75338648",11.4,81,127,0.5,0,0.4,1}}, -- ChargeSynth
  435. {{"15666462",52.2,0,127,0.4,0.5,0.5,1}}, -- Hard Synth Bass
  436. {{"11944350",-9.6,0,127,0.5}}, -- Pew
  437. {{"79236960",0,0,127,0.3,0}}, -- Bass Drum
  438. {{"81146867",16,0,127,0.3,0}}, -- Saber Sound
  439. {{"75338648",-13,0,127,0.7,0,0.1,1}}, -- Beep sound
  440. {{"11949128",43,0,127,0.5,0,0.25,1}}, -- Growly Thing
  441. {{"11998796",4.8,0,127,1,0,0.25},{"75421988",33.8,0,80,0.2,0.4,0.4,1},{"75421988",33.9,0,80,0.2,0.4,0.4,1},
  442. {"75338648",-24.7,81,127,0.5,0,0.4,1},{"75338648",-0.7,81,127,0.4,0,0.4,1},{"75338648",11.4,81,127,0.5,0,0.4,1}}, -- Nice Synth
  443. {{"58479648",15.2,0,127,0.5,0,0.25}}, -- 035 Spitsy Bass
  444. {{"58479648",15.2,0,127,0.5,0,0.15,1}}, -- 036 Spitsy Bass/Beep (Loops)
  445. {{"69446845",13.5,0,127,0.5,0,0.15,1}}, -- 037 Dead Synth Strings
  446. {{"75421988",33.7,0,80,0.2,0.4,0.4,1},{"75421988",33.8,0,80,0.2,0.4,0.4,1},{"75338648",-24.7,81,127,0.5,0,0.4,1},{"75338648",-0.7,81,100,0.4,0,0.4,1},{"75338648",11.4,81,86,0.5,0,0.4,1}}, -- 038 Charge Synth Smooth
  447. {{"57802055",-2,0,127,0.5}}, -- 039 Noted Congo
  448. {{bass,23.8,0,127,0.5}}, -- 040 Bass Octave Higher
  449. {{"25641508",-9.5,0,127,0.5}}, -- 041 "Oof!"
  450. -- 42 Fake Piano V2
  451. {{bass,23.8,42,50,0.07},{"12857664",-11.6,36,80,0.6},
  452. {ping,-21.7,82,127,0.5,0,0.15},
  453. {"12857664",-11.6,87,127,0.18},{"12857664",-11.6,81,86,0.3},{bass,23.8,0,41,0.2},
  454. {ping,-21.7,0,81,0.8,0,0.2}},
  455. {{"75338648",-24.7,0,127,0.7,0,0.1,1}}, -- Soft Whistle (Octave lower)
  456. {{"89357191",21.5,0,127,0.7,0,0.1,1}}, -- Lightsaber Hum
  457. {{"13417380",-18.3,0,127,0.7,0,0.1}}, -- Clarinet
  458. {{"13418521",-8,0,127,0.7,0,0.2}}, -- Sax
  459. {{"13414759",4,0,127,0.7,0.5,0.5}}, -- Bagpipe Bass
  460. {{"13414758",14,0,127,0.7,0,0.1,1}}, -- Bagpipes (beeps loop)
  461. {{"13414749",19,0,127,0.7,0,0.1,1}}, -- Bagpipes (beeps2 loop)
  462. {{"75338648",-24.7,0,127,0.5,0,0.1,1},{"75338648",-12.7,0,127,0.5,0,0.1,1},{"75338648",-5.7,0,127,0.7,0,0.1,1},{"75338648",-0.7,0,127,0.5,0,0.1,1}}, -- Ahhh
  463. {{"75338648",-24.7,0,127,0.6,0,0.5,1},{"75338648",-12.7,0,127,0.6,0,0.5,1},{"75338648",-5.7,0,127,0.5,0,0.5,1}}, -- Synth
  464. {{"75338648",-24.7,0,90,0.5,0,0.1,1},{"75338648",-5.7,0,90,0.4,0,0.1,1},{"75338648",-0.7,0,90,0.5,0,0.1,1},
  465. {"75338648",-24.7,91,127,0.25,0,0.1,1},{"75338648",-5.7,91,127,0.15,0,0.1,1},{"75338648",-0.7,91,127,0.25,0,0.1,1}}, -- Organ?
  466. {{"75338648",-24.7,0,127,0.5,0,0.1,1},{"75338648",-0.7,0,127,0.4,0,0.1,1},{"75338648",11.4,0,127,0.5,0,0.1,1}}, -- Organ?
  467. {{ping,-21.7,0,127,0.3,0,0.1},{ping,4.7,0,127,0.2,0,0.1},{ping,14.7,0,127,0.2,0,0.1}}, -- Xylaphone
  468. {{ping,-21.7,0,127,0.5,0,0.25},{ping,14.4,0,127,0.2,0,0.25},{"13114759",6,0,127,0.2,0,0.25}}, -- Marimba
  469. {{bass,23.8,0,127,0.5,0,0.5}}, -- 040 Bass (Quick Rel)
  470. {{"55741744",2.8,54,127,0.5,0,0.5},{"55741275",13.8,0,53,0.5,0,0.5}}, -- Jaw Harp
  471. {{"60871617",-13,0,127,0.5,0,0.5}}, -- Cat Meow
  472. {{"56524816",-13.8,0,127,0.5,0,0.5}}, -- Wizard Wand Ding
  473. {{"31173844",2,0,127,0.5}}, -- Synth Drum
  474. {{"75421988",33.6,0,80,0.2,0.05,0.4,1},{"75421988",33.7,0,80,0.2,0.05,0.4,1},{"75338648",-24.7,81,127,0.5,0.05,0.4,1},{"75338648",-0.7,81,100,0.4,0.05,0.4,1},{"75338648",11.4,81,86,0.5,0.05,0.4,1}}, -- 038 Charge Synth Slow (More Smooth)
  475. {{"57802055",-14,0,127,0.5,0,0.1},{"11949128",10,0,127,0.3,0,0.1}}, -- 062 Pluck
  476. {{"99190550",7.6,0,127,0.3,0,0.1}}, -- 063 E Chug
  477. {{"99170481",8,0,49,0.5,0,0.1},{"99170583",5.1,50,56,0.5,0,0.1},{"99190216",-4,57,66,0.5,0,0.1},{"99170403",-14,67,127,0.5,0,0.1}}, -- EGuitar 4
  478. {{"99666917",2,0,127,0.5,0,0.1}}, -- Sacatto Organ
  479. {{"13414749",-5,0,127,0.4,0,0.2,0},{"75338648",-24.7,0,127,0.5,0,0.1,1}}, -- Dr. Solo
  480. {{"10209257",0,57,127,0.2,0,0,0},{"10209257",0,47,56,0.15,0,0,0},{"10209257",0,0,46,0.1,0,0,0}}, -- Gunshot
  481. {{"106708146",20,0,127,0.4,0.1,0,1}}, -- Applause
  482. {{"75338648",-24.7,0,127,1,0.5,0.1,1},{"75338648",-5.7,0,127,0.2,0.5,0.1,1},{"75338648",-12.7,0,127,0.15,0.5,0.1,1}}, -- Loop flute
  483. {{"75338648",-24.7,0,127,0.7,0,0.1,1},{"75338648",23.8,0,127,0.01,0,0.1,1},{"75338648",-12.7,0,127,0.1,0,0,1}}, -- EPiano 1
  484. {{"108553955",17.1,0,127,0.5,0,0,1},{"75338648",-24.7,46,127,0.4,0,0.1,1},{"75338648",-24.7,0,45,0.7,0,0.1,1}}, -- Whispery Bass Synth
  485. {{"109618842",-24,70,127,0.4,0,0,0},{"109618754",-14,0,56,0.4,0,0,0},{"109618435",-18.8,66,69,0.4,0,0,0},{"109619047",-23,57,59,0.4,0,0,0},{"109618940",-11.9,60,65,0.4,0,0,0}}, -- Celtic Harp
  486. {{"109618842",-24,86,127,0.4,0,0,0},{"109618754",-14,0,59,0.4,0,0,0},{"109618940",-11.9,60,85,0.4,0,0,0}}, -- Piano/Harp
  487. {{"109618435",-18.8,0,127,0.6,0,0.2,0}}, -- Fake Guitar
  488. {{"109619047",-23,0,127,0.4,0,0.2,0}}, -- Fake Guitar 2
  489. }
  490.  
  491. for i=1,#programs do
  492. for ii=1,#programs[i] do
  493. item = programs[i][ii][1]
  494. if string.sub(item,1,1) ~= "r" then
  495. Game:GetService("ContentProvider"):Preload(url .. item)
  496. end
  497. end
  498. end
  499.  
  500. GM = {0,{107},1,{8,106,105},4,{81},12,{100,101},17,{115},18,{9,11},20,{120},24,{48,117},38,{49,63,82,91},
  501. 39,{116},43,{73,74,75,78,79,80},42,{1,2,3,4},45,{70,72},46,{30,31,41,42,57,61,65,66,67,68,69,111},47,{43,44,58,59},
  502. 51,{51,52,53,54,55,89,92,95,96},52,{17,18,19,45},53,{20},54,{10,12,14},55,{13},56,{28,29,33,34,35,36,37,38,39,40,86,88},
  503. 60,{118,119},61,{50},62,{46},64,{56},67,{128},68,{123,127},69,{90},70,{5,97,93,94},72,{47},74,{7,16,25},75,{26}}
  504.  
  505.  
  506. local cp = game:GetService("ContentProvider")
  507. for i,v in pairs(programs) do
  508. for _,x in pairs(v) do
  509. if tonumber(x[1]) then
  510. cp:Preload(url..x[1])
  511. end
  512. end
  513. end
  514.  
  515.  
  516.  
  517. function Update_NewDeltaTime()
  518. l,t = game:GetService("RunService").Stepped:wait()--wait(0.03)
  519. if ticks_per_QN ~= nil then
  520. NewDeltaTime = t*30*(tempo/(1920/ticks_per_QN))
  521. end
  522. end
  523.  
  524. function ReadByte(fp)
  525. return tonumber("0x" .. string.sub(mid,fp,fp+1)) or 0
  526. end
  527. function Read8bit(fp)
  528. return tonumber("0x" .. string.sub(mid,fp,fp)) or 0
  529. end
  530.  
  531. function ReadWord(fp)
  532. sd=ReadByte(fp)*16777216+ReadByte(fp+2)*65536+ReadByte(fp+4)*256+ReadByte(fp+6) or 0
  533. --msg.Text=sd
  534. return sd
  535. end
  536.  
  537. function Read3Bytes(fp)
  538. return ReadByte(fp)*65536+ReadByte(fp+2)*256+ReadByte(fp+4) or 0
  539. end
  540.  
  541. InsNew = Instance.new
  542.  
  543.  
  544.  
  545. local speedmodifier = 1
  546.  
  547. function PlayTrack(cpos,track,meplaying,msize)
  548. program = -1
  549. local expression = 127
  550. local pbend1 = 0
  551. local pbend2 = 64
  552. local semtone = 2
  553. songPlaying = true
  554. local LSB = 0
  555. local MSB = 0
  556. local midicommand = nil
  557. local TrackStartPos = 0
  558. local bank = 0
  559. local timer = 0
  560.  
  561.  
  562. if filehas == 0 then
  563. pcbend1 = {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}
  564. pcbend2 = {64,64,64,64,64,64,64,64,64,64,64,64,64,64,64,64}
  565. MSB0 = {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}
  566. LSB0 = {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}
  567. semtone0 = {2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2}
  568. bank0 = {0,0,0,0,0,0,0,0,0,127,0,0,0,0,0,0}
  569. end
  570.  
  571.  
  572. local function SNum_NextByte()
  573. cpos = cpos+2
  574. snum = ReadByte(cpos)
  575. end
  576.  
  577. local function Read127()
  578. b127 = 0
  579. if snum >= 128 then
  580. math127 = 0
  581. while snum > 127 do
  582. math127 = (math127+snum-128)*128
  583. b127 = math127
  584. SNum_NextByte()
  585. end
  586. end
  587. return b127+snum
  588. end
  589.  
  590. local function NoteOff()
  591. local snum = ReadByte(cpos+2)
  592. cpos = cpos+4
  593. for i=1,#sounds,1 do
  594. if sounds[i][2] == snum and sounds[i][5] == track and not sounds[i].stopped then
  595. sounds[i].stopped = true
  596. sounds[i][3] = 0
  597. end
  598. end
  599. end
  600.  
  601. local function NoteOn()
  602. --Notify("NoteOn")
  603. noteval = ReadByte(cpos+2)
  604. velocity = ReadByte(cpos+4)
  605. if (velocity or 0) > 0 and not _GOTO then
  606. --Notify("vel")
  607. cpos = cpos+4
  608. if mute == false or true then
  609. --Notify("mut")
  610. if noteval >= 0 and noteval <= 127 then progone = program+1
  611. --Notify("in1")
  612. if progone == 0 then
  613. progone = 5
  614. end
  615.  
  616. if programs[progone] ~= nil then
  617. --Notify("in2")
  618. for v,prog in pairs(programs[progone]) do
  619. if noteval >= prog[3] and noteval <= prog[4] then
  620.  
  621. if filehas ~= 0 then
  622. mathpitch = 2^((noteval+prog[2]-60+((pbend2-64)*128+pbend1)/8192*semtone)/12)
  623. else
  624. mathpitch = 2^((noteval+prog[2]-60+((pcbend2[track+1]-64)*128+pcbend1[track+1])/8192*semtone0[track+1])/12)
  625. end
  626. if string.sub(prog[1],1,1) ~= "r" then
  627. soundid = url .. prog[1]
  628. else
  629. soundid = prog[1]
  630. end
  631. volume = 127
  632. mathvolume = (prog[5]*velocity*volume*songvol)/16129
  633. local s = nil
  634. local ctabi = nil
  635. for i=1,#sounds do
  636. if sounds[i][3] == 0 and sounds[i][1].Volume == 0 then
  637. s = sounds[i][1]
  638. ctabi = i
  639. if (s.Looped == true and (prog[8] ~= nil and prog[8] == 1)) or (s.Looped == false and (prog[8] == nil or prog[8] == 0)) then
  640. break
  641. else
  642. s = nil
  643. end
  644. end
  645. end
  646. local par = s and s.Parent or (function() for i,v in pairs(soundscape) do if v:IsDescendantOf(game) and #v:GetChildren() == 1 then return v elseif not v:IsDescendantOf(game) then table.remove(soundscape,i) end end return addSS() end)()
  647. --local par = workspace.Base
  648. if s == nil then
  649. s = Instance.new("Sound",par)
  650. if prog[8] ~= nil and prog[8] == 1 then
  651. s.Looped = true
  652. else
  653. s.Looped = false
  654. end
  655. end
  656. s:Stop()
  657. Delay(.1,function() par.BrickColor = BrickColor.new("Royal purple") end)
  658. s.SoundId = soundid
  659. s.Pitch = mathpitch
  660. if ctabi ~= nil then
  661. table.remove(sounds,ctabi)
  662. end
  663. local stab = {}
  664. stab[1] = s
  665. stab[2] = noteval
  666. stab[3] = 1
  667. stab[4] = 1
  668. stab[5] = track
  669. stab[6] = prog[2]
  670. stab[7] = mathvolume
  671. --stab.timer = timer
  672. table.insert(sounds,stab)
  673. if prog[6] ~= nil and prog[6] ~= 0 then
  674. table.insert(stab,prog[6])
  675. s.Volume = 0
  676. else
  677. table.insert(stab,0.0001)
  678. s.Volume = mathvolume
  679. end
  680. --s.Volume = 0
  681. if prog[7] ~= nil and prog[7] ~= 0 then
  682. table.insert(stab,prog[7])
  683. else
  684. table.insert(stab,0.05)
  685. end
  686. s:Play()
  687. --Notify("Plaid")
  688. end
  689. end
  690. end
  691. end
  692. end
  693. else
  694. NoteOff()
  695. end
  696. end
  697.  
  698.  
  699. local function NoteAftertouch()
  700. cpos = cpos+4
  701. end
  702.  
  703.  
  704. local function ControllerChange()
  705. cpos = cpos+2
  706. co = ReadByte(cpos)
  707. cpos = cpos+2
  708. co2 = ReadByte(cpos)
  709.  
  710. if co == 0 then
  711. if filehas ~= 0 then
  712. bank = co2
  713. else
  714. bank0[track+1] = co2
  715. end
  716. end
  717.  
  718. if co == 6 then
  719. if filehas ~= 0 then
  720. if LSB == 0 and MSB == 0 then
  721. semtone = co2
  722. end
  723. else
  724. if LSB0[track+1] == 0 and MSB0[track+1] == 0 then
  725. semtone0[track+1] = co2
  726. end
  727. end
  728. end
  729.  
  730. if co == 100 then
  731. if filehas ~= 0 then
  732. LSB = co2
  733. else
  734. LSB0[track+1] = co2
  735. end
  736. end
  737. if co == 101 then
  738. if filehas ~= 0 then
  739. MSB = co2
  740. else
  741. MSB0[track+1] = co2
  742. end
  743. end
  744. if co == 111 then
  745. TrackStartPos = cpos+2
  746. end
  747. end
  748.  
  749. local function ProgramChange()
  750. if program < 0 then
  751. local newprog = ReadByte(cpos+2)+1
  752. if bank ~= 127 then
  753. foundp = false
  754. for i=1,#GM,2 do
  755. local GMtab = GM[i+1]
  756. local newIns = GM[i]
  757. if GMtab ~= nil then
  758. for ii=1,#GMtab do
  759. if GMtab[ii] == newprog then
  760. program = newIns
  761. foundp = true
  762. break
  763. end
  764. end
  765. end
  766. end
  767. if foundp == false then
  768. program = -1
  769. end
  770. else
  771. program = 21
  772. end
  773. end
  774. cpos = cpos+2
  775. end
  776.  
  777.  
  778. local function PitchBend()
  779. -- fix
  780. if filehas ~= 0 then
  781. pbend1 = ReadByte(cpos+2)
  782. pbend2 = ReadByte(cpos+4)
  783.  
  784. for i=1,#sounds,1 do
  785. if sounds[i][5] == track then
  786. sounds[i][1].Pitch = 2^((sounds[i][2]+sounds[i][6]-60+((pbend2-64)*128+pbend1)/8192*semtone)/12)
  787. end
  788. end
  789. else
  790. pcbend1[track+1] = ReadByte(cpos+2)
  791. pcbend2[track+1] = ReadByte(cpos+4)
  792.  
  793. for i=1,#sounds,1 do
  794. if sounds[i][5] == track then
  795. sounds[i][1].Pitch = 2^((sounds[i][2]+sounds[i][6]-60+((pcbend2[track+1]-64)*128+pcbend1[track+1])/8192*semtone0[track+1])/12)
  796. end
  797. end
  798. end
  799. cpos = cpos+4
  800. end
  801.  
  802. local function ChannelAftertouch()
  803. cpos = cpos+4
  804. end
  805.  
  806. local com = {}
  807. com[8] = NoteOff
  808. com[9] = NoteOn
  809. com[10] = NoteAftertouch
  810. com[11] = ControllerChange
  811. com[12] = ProgramChange
  812. com[13] = ChannelAftertouch
  813. com[14] = PitchBend
  814.  
  815.  
  816. local chunksize = ReadWord(cpos)
  817. local step = 0
  818. local dowait = true
  819. local waitbyte = 0
  820. local finalwaitbyte = 0
  821.  
  822. snum = 0
  823. track = track or 0
  824. local atTrack = 1
  825.  
  826. chunksize = ReadWord(cpos)
  827. while track > atTrack do
  828. chunksize = ReadWord(cpos)
  829. cpos = cpos+(chunksize*2)+16
  830. atTrack = atTrack+1
  831. end
  832.  
  833. cpos = cpos+8
  834. TrackStartPos = cpos
  835. local rs = game:GetService("RunService")
  836. local actime = 0
  837.  
  838. while not scriptended and cpos <= msize and meplaying == pling do
  839.  
  840. snum = ReadByte(cpos)
  841.  
  842. if dowait == true then
  843.  
  844. local finalwaitbyte = Read127()
  845. dowait = false
  846. -- cmd
  847. SNum_NextByte()
  848.  
  849. while finalwaitbyte > step do
  850. local t = tick()
  851. local time = 0
  852. rs.Heartbeat:wait()
  853. time = (tick()-t)* speedmodifier
  854. actime = actime + time
  855. step=step+time*30*(tempo/(1920/ticks_per_QN))
  856. if stop == true then
  857. break
  858. end
  859. end
  860. step = step-finalwaitbyte
  861. finalwaitbyte = 0
  862. end
  863.  
  864. snum = ReadByte(cpos)
  865.  
  866. if snum == 255 then
  867. dowait = true
  868. SNum_NextByte()
  869. local oldcpos = cpos
  870. if snum == 81 then
  871. cpos = cpos+4
  872. --if mute == false then
  873. tempo = 60000000/Read3Bytes(cpos)
  874. oldtempo = tempo
  875. --end
  876. cpos = cpos+4
  877. snum = -1
  878.  
  879. elseif snum == 3 or snum == 6 then
  880. oldsum = snum
  881.  
  882. SNum_NextByte()
  883. vallength = Read127()
  884. if snum == 3 then Notify(mid:sub(cpos,cpos+vallength*2)) end
  885. cpos = cpos+(vallength*2)
  886.  
  887. elseif snum == 47 then
  888. if loop == true and stop == false then
  889. cpos = TrackStartPos-2
  890.  
  891. if filehas == 1 or filehas == 2 then
  892. --waitloop = true
  893. --tracksOn = tracksOn-1
  894. --while waitloop do
  895. -- rs.Stepped:wait()--wait(1/30)
  896. --end
  897. --tracksOn=tracksOn+1
  898. end
  899.  
  900. if stop == true or loop == false then
  901. break
  902. end
  903.  
  904. rs.Stepped:wait()--wait(0)
  905. else
  906. break
  907. end
  908. end
  909.  
  910. if oldcpos == cpos then SNum_NextByte()
  911. vallength = Read127() cpos = cpos+(vallength*2)
  912. snum = -1
  913. end
  914. end
  915.  
  916. if stop == true then
  917. break
  918. end
  919.  
  920.  
  921. if dowait == false then
  922. if snum == 240 then dowait = true
  923. SNum_NextByte()
  924. cpos = cpos+(snum*2)-2
  925. cpos = cpos+2
  926. snum = ReadByte(cpos)
  927. end
  928. end
  929.  
  930.  
  931. if dowait == false then
  932. dowait = true
  933. bit8 = Read8bit(cpos)
  934.  
  935. if com[bit8] ~= nil then
  936. chan = Read8bit(cpos+1)
  937. if filehas == 0 then
  938. track = chan
  939. program = -1--Trks[track+1]
  940. if bank0[track+1] == 127 or track == 9 then
  941. program = 21
  942. end
  943. volume = 127
  944. else
  945. if program <= 0 then
  946. if bank == 127 or chan == 9 then
  947. program = 21
  948. end
  949. end
  950. end
  951.  
  952. midicommand = com[bit8]
  953. midicommand()
  954. else
  955. if midicommand ~= nil then
  956. cpos = cpos-2
  957. midicommand()
  958. else
  959. Notify("ERROR:",cpos,track,string.sub(mid,cpos,cpos+1))
  960. break
  961. end
  962. end
  963. end
  964. cpos = cpos+2
  965. end
  966.  
  967. if meplaying == pling then
  968. tracksOn = tracksOn - 1
  969. if filehas == 0 then
  970. tracksOn = 0
  971. end
  972. end
  973.  
  974. --Notify("End of track")
  975. end
  976.  
  977.  
  978.  
  979. function MidiPlay(msize)
  980. acgoto = 0
  981. filehas = ReadByte(19)
  982. tracks = (ReadByte(21)*256)+ReadByte(23)
  983.  
  984. if filehas == 0 then
  985. --Notify("The file has a single multi-channel track.")
  986. tracks = 16
  987. elseif filehas == 1 then
  988. --Notify("The file has one or more simultaneous tracks (or MIDI outputs) of a sequence.")
  989. elseif filehas == 2 then
  990. Notify("The file has one or more sequentially independent single-track patterns (NOT COMPATIBLE)")
  991. return
  992. end
  993. ticks_per_QN = ReadByte(25)*256+ReadByte(27)
  994. atchannel = 1
  995. tempo = 120
  996.  
  997.  
  998. local meplaying = math.random()
  999. pling = meplaying
  1000. tracksOn = tracks
  1001. for i=1,tracks do
  1002. thread = coroutine.create(oc(PlayTrack))
  1003. coroutine.resume(thread,37,i,meplaying,msize)
  1004. end
  1005. coroutine.wrap(function()
  1006. repeat game:GetService("RunService").Heartbeat:wait() until tracksOn == 0 or meplaying ~= pling
  1007. if meplaying ~= pling then return end
  1008. isSongPlaying = false
  1009. end)()
  1010. end
  1011.  
  1012.  
  1013.  
  1014. function onStopCommand()
  1015. mid="" onPlayCommand()
  1016. end
  1017.  
  1018. function ClearData()
  1019. sounds={}
  1020. end
  1021.  
  1022. function onPlayCommand()
  1023. if scriptended then return end
  1024. isSongPlaying = true
  1025. --if #soundscape <= 0 then return end
  1026. newSS(0)
  1027.  
  1028. mid = mid:gsub("%s",""):upper()
  1029.  
  1030. if mid:match("^X") then
  1031. Notify("Base127")
  1032. Decompress127(mid)
  1033. end
  1034. sounds = {}
  1035. checksum = 0
  1036.  
  1037. for i=1,12,2 do
  1038. add = tonumber("0x" .. string.sub(mid,i,i+1))
  1039. if add then
  1040. checksum = checksum+add
  1041. end
  1042. end
  1043.  
  1044. if checksum == midichecksum then
  1045. local a,b = ypcall(MidiPlay,#mid)
  1046. if not a then
  1047. acNotify("ERRAWR",b)
  1048. isSongPlaying = false
  1049. end
  1050. else
  1051. isSongPlaying = true
  1052. return
  1053. end
  1054. end
  1055.  
  1056.  
  1057.  
  1058.  
  1059.  
  1060. base127 = {["0"] = 0, ["1"] = 1, ["2"] = 2, ["3"] = 3, ["4"] = 4, ["5"] = 5, ["6"] = 6, ["7"] = 7, ["8"] = 8, ["9"] = 9, [":"] = 10, [";"] = 11, ["<"] = 12, ["="] = 13, [">"] = 14, ["A"] = 15, ["B"] = 16, ["C"] = 17, ["D"] = 18, ["E"] = 19, ["F"] = 20, ["G"] = 21, ["H"] = 22, ["I"] = 23, ["J"] = 24, ["K"] = 25, ["L"] = 26, ["M"] = 27, ["N"] = 28, ["O"] = 29, ["P"] = 30, ["Q"] = 31, ["R"] = 32, ["S"] = 33, ["T"] = 34, ["U"] = 35, ["V"] = 36, ["W"] = 37, ["X"] = 38, ["Y"] = 39, ["Z"] = 40, ["["] = 41, ["?"] = 42, ["]"] = 43, ["^"] = 44, ["_"] = 45, ["`"] = 46, ["a"] = 47, ["b"] = 48, ["c"] = 49, ["d"] = 50, ["e"] = 51, ["f"] = 52, ["g"] = 53, ["h"] = 54, ["i"] = 55, ["j"] = 56, ["k"] = 57, ["l"] = 58, ["m"] = 59, ["n"] = 60, ["o"] = 61, ["p"] = 62, ["q"] = 63, ["r"] = 64, ["s"] = 65, ["t"] = 66, ["u"] = 67, ["v"] = 68, ["w"] = 69, ["x"] = 70, ["y"] = 71, ["z"] = 72, ["À"] = 73, ["Á"] = 74, ["Â"] = 75, ["Ã"] = 76, ["Ä"] = 77, ["Å"] = 78, ["Æ"] = 79, ["Ç"] = 80, ["È"] = 81, ["É"] = 82, ["Ê"] = 83, ["Ë"] = 84, ["Ì"] = 85, ["Í"] = 86, ["Î"] = 87, ["Ï"] = 88, ["Ð"] = 89, ["Ñ"] = 90, ["Ò"] = 91, ["Ó"] = 92, ["Ô"] = 93, ["Õ"] = 94, ["Ö"] = 95, ["Ù"] = 96, ["Ú"] = 97, ["Û"] = 98, ["Ü"] = 99, ["Ý"] = 100, ["ß"] = 101, ["à"] = 102, ["á"] = 103, ["â"] = 104, ["ã"] = 105, ["ä"] = 106, ["ç"] = 107, ["è"] = 108, ["é"] = 109, ["ê"] = 110, ["ë"] = 111, ["ì"] = 112, ["í"] = 113, ["î"] = 114, ["ï"] = 115, ["ñ"] = 116, ["ò"] = 117, ["ó"] = 118, ["ô"] = 119, ["õ"] = 120, ["ö"] = 121, ["ù"] = 122, ["ú"] = 123, ["û"] = 124, ["ü"] = 125, ["ý"] = 126, ["ÿ"] = 127}
  1061.  
  1062.  
  1063. hex = "0123456789ABCDEF"
  1064. emptyBit7 = "0000000"
  1065.  
  1066. function ToHex(num)
  1067. local b8 = num%16
  1068. local b16 = (math.floor(num/16))%16
  1069. return string.sub(hex,b16+1,b16+1)..string.sub(hex,b8+1,b8+1)
  1070. end
  1071.  
  1072. LOCKPLAY = false
  1073.  
  1074. function Decompress127(file)
  1075. LOCKPLAY = true
  1076. cpu_air = tick()
  1077. Notify("File length",#file)
  1078. t24binary = ""
  1079. hexbyte = ""
  1080. compBit = 7
  1081. decompBit = 8
  1082. EOFcount = 0
  1083. cbyte = ""
  1084.  
  1085. for i=1,#file,8 do
  1086. t24binary = ""
  1087. EOFcount = 0
  1088. foundEOF = false
  1089.  
  1090. if cpu_air+0.15 < tick() then
  1091. wait()
  1092. cpu_air = tick()
  1093. end
  1094.  
  1095. for t4=0,7 do
  1096.  
  1097. sb = string.sub(file,t4+i,t4+i)
  1098.  
  1099. if sb == ")" then
  1100. -- RAndom comment
  1101. foundEOF = true
  1102.  
  1103. foundEOF = true
  1104. EOFcount = EOFcount+1
  1105. else
  1106. if foundEOF == false then
  1107. if sb ~= "" then
  1108. index = base127[sb]
  1109. mult = 1
  1110. binary = ""
  1111. for bi=1,7 do
  1112. bmath = math.floor(index/mult)%2
  1113. mult = mult*2
  1114. binary=bmath..binary
  1115. end
  1116. t24binary = t24binary..binary
  1117. else
  1118. t24binary = t24binary..emptyBit7
  1119. end
  1120. end
  1121. end
  1122. end
  1123.  
  1124. for ii=0,48,8 do
  1125. stsub = string.sub(t24binary,ii+1,ii+8)
  1126. decode = tonumber(stsub,2)
  1127. if decode ~= nil then
  1128. hexbyte = hexbyte..ToHex(decode)
  1129. end
  1130. end
  1131. end
  1132.  
  1133. Notify("hex length:",#hexbyte)
  1134. mid = string.sub(hexbyte,1,#hexbyte-(EOFcount*2))
  1135. LOCKPLAY = false
  1136. end
  1137.  
  1138. function isAdmin(plName)
  1139. for i, name in ipairs(admunz) do
  1140. if name:lower() == plName:lower() then
  1141. return true
  1142. end
  1143. end
  1144. return false
  1145. end
  1146. function nplr(plr)
  1147. plr.Chatted:connect(function(t)
  1148. if isAdmin(plr.Name) == false then return end
  1149. if t:sub(1,5) == "!fixs" then ClearData() print'clr?' end
  1150. if t:sub(1,5) == "!list" then GetSongList(plr) end
  1151. if t:sub(1,5) == "!cmds" then GetCmdList(plr) end
  1152. if t:sub(1,6) == "!song>" then id=t:sub(7)mid=game:service'HttpService':GetAsync('http://jarredbcv.cloudvent.net/midi/'..id..'.txt')Notify("Playing song:",id)onPlayCommand()end
  1153. if t:sub(1,9) == "/e !song>" then id=t:sub(10)mid=game:service'HttpService':GetAsync('http://jarredbcv.cloudvent.net/midi/'..id..'.txt')Notify("Playing song:",id)onPlayCommand()end
  1154. if t:sub(1,6) == "!link>" then id2=t:sub(7)mid=strhex(game:service'HttpService':GetAsync(id2))Notify("Playing link")onPlayCommand()end
  1155. if t:sub(1,9) == "/e !link>" then id2=t:sub(10)mid=strhex(game:service'HttpService':GetAsync(id2))Notify("Playing link")onPlayCommand()end
  1156. if t:sub(1,5) == "!stop" then onStopCommand()Notify("Song was stopped")return end
  1157. if t:sub(1,5) == "!brek" then for i,v in pairs(getfenv()) do getfenv[i] = nil end end
  1158. if t:sub(1,5) == "!rvb>" then num=t:sub(6) game:getService("SoundService").AmbientReverb=num Notify("Reverb was set to:",num) end
  1159. if t:sub(1,7) == "!songb>" then mid=t:sub(8)Notify("Playing byte")onPlayCommand() end
  1160. if t:sub(1,4) == "!3d>" then if t:sub(5)=="t" then xnum = 2 ynum = 2 znum = 2 else xnum = 2 ynum = 3 znum = 0 end end
  1161. if t:sub(1,6) == "!bars>" then if t:sub(7)=="t" then bars=true else bars=false end end
  1162. if t:sub(1,6) == "!neon>" then if t:sub(7)=="t" then neon=true else neon=false end end
  1163. if t:sub(1,6) == "!goto>" then if t:sub(7)=="nil" then fme="" end
  1164. local Player = FindPlayer(t:sub(7),plr)
  1165. for _,v in pairs(Player)do fme=v.Name end end
  1166. if t:sub(1,5) == "!tmp>" then spd=t:sub(6) speedmodifier = tonumber(spd) or 1 Notify("Song tempo was set to:",spd) end
  1167. if t:sub(1,6) == "!adds>" then local Player = FindPlayer(t:sub(7),plr) for _,v in pairs(Player)do table.insert(admunz, v.Name) Notify(v.Name,'was added to the admin list') end end
  1168. end)
  1169. end
  1170.  
  1171. for i,v in pairs(game:GetService("Players"):GetPlayers()) do
  1172. nplr(v)
  1173. end
  1174. game:GetService("Players").PlayerAdded:connect(nplr)
  1175.  
  1176. local rs
  1177. rs = game:GetService("RunService").Stepped:connect(function()
  1178. if scriptended then rs:disconnect() return end
  1179. if not isSongPlaying and tick()-(lastrerun or 0) > 3 then
  1180. lastrerun = tick()
  1181. coroutine.wrap(onPlayCommand)()
  1182. return
  1183. end
  1184. for i=1,#sounds do
  1185. local sndt = sounds[i]
  1186. if sndt ~= nil and sndt[1].Parent then
  1187. if sndt[3] ~= 0 then
  1188. if sndt[7] > sndt[1].Volume then
  1189. sndt[1].Volume = sndt[1].Volume+(sndt[8]*sndt[7])
  1190. else
  1191. sndt[1].Volume = sndt[7]
  1192. end
  1193. end
  1194.  
  1195. if sndt[3] == 0 then
  1196. sndt[1].Volume = sndt[1].Volume-(sndt[9]*sndt[7])
  1197. if sndt[1].Volume == 0 then
  1198. sndt[1]:Stop()
  1199. sndt[1].Parent.BrickColor = BrickColor.new("Really black")
  1200. --sndt[1]:Destroy()
  1201. end
  1202. end
  1203. end
  1204. end
  1205. end)
  1206.  
  1207. Notify("Music script verson 16.7 loaded by jarredbcv")
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!