SHARE
TWEET

Untitled

Vzurxy Nov 20th, 2018 (edited) 52 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. aa = game:GetObjects("rbxassetid://01997056190")[1]
  2. aa.Parent = game.CoreGui
  3. GUI = aa.PopupFrame.PopupFrame
  4. pos = 0
  5.  
  6. ignore = {
  7.     "rbxasset://sounds/action_get_up.mp3",
  8.     "rbxasset://sounds/uuhhh.mp3",
  9.     "rbxasset://sounds/action_falling.mp3",
  10.     "rbxasset://sounds/action_jump.mp3",
  11.     "rbxasset://sounds/action_jump_land.mp3",
  12.     "rbxasset://sounds/impact_water.mp3",
  13.     "rbxasset://sounds/action_swim.mp3",
  14.     "rbxasset://sounds/action_footsteps_plastic.mp3"
  15. }
  16.  
  17. GUI.Close.MouseButton1Click:connect(function()
  18.     GUI:TweenSize(UDim2.new(0, 360, 0, 0),"Out","Quad",0.5,true) wait(0.6)
  19.     GUI.Parent:TweenSize(UDim2.new(0, 0, 0, 20),"Out","Quad",0.5,true) wait(0.6)
  20.     aa:Destroy()
  21. end)
  22.  
  23. local min = false
  24. GUI.Minimize.MouseButton1Click:connect(function()
  25.     if min == false then
  26.         GUI:TweenSize(UDim2.new(0, 360, 0, 20),"Out","Quad",0.5,true) min = true
  27.     else
  28.         GUI:TweenSize(UDim2.new(0, 360, 0, 260),"Out","Quad",0.5,true) min = false
  29.     end
  30. end)
  31.  
  32. function printTable(tbl)
  33.     if type(tbl) ~= 'table' then return nil end
  34.     local depthCount = -15
  35.  
  36.     local function run(val, inPrefix)
  37.         depthCount = depthCount + 15
  38.         for i,v in pairs(val) do
  39.             if type(v) == 'table' then
  40.                 GUI.Store.Text = GUI.Store.Text..'\n'..string.rep(' ', depthCount) .. ' [' .. tostring(i) .. '] = {'
  41.                 run(v, false)
  42.                 wait()
  43.             else
  44.                 GUI.Store.Text = GUI.Store.Text..'\n'..string.rep(' ', depthCount) .. ' [' .. tostring(i) .. '] = ' .. tostring(v)
  45.                 wait()
  46.             end
  47.         end
  48.         depthCount = depthCount - 15
  49.     end
  50.     run(tbl, true)
  51. end
  52.  
  53. function refreshlist()
  54.     pos = 0
  55.     GUI.Logs.CanvasSize = UDim2.new(0,0,0,0)
  56.     for i,v in pairs(GUI.Logs:GetChildren()) do
  57.         v.Position = UDim2.new(0,0,0, pos)
  58.         GUI.Logs.CanvasSize = UDim2.new(0,0,0, pos+20)
  59.         pos = pos+20
  60.     end
  61. end
  62.  
  63. GUI.Minimize.AutoButtonColor = false
  64. GUI.Close.AutoButtonColor = false
  65. GUI.Minimize.Position = UDim2.new(0, 20, 0, -5)
  66.  
  67. function FindTable(Table, Name)
  68.     for i,v in pairs(Table) do
  69.         if v == Name then
  70.             return true
  71.         end end
  72.     return false
  73. end
  74.  
  75. function writefileExploit()
  76.     if writefile then
  77.         return true
  78.     end
  79. end
  80.  
  81. writeaudio = {}
  82. running = false
  83. GUI.SS.MouseButton1Click:connect(function()
  84.     if writefileExploit() then
  85.         if running == false then
  86.             GUI.Load.Visible = true running = true
  87.             GUI.Load:TweenSize(UDim2.new(0, 360, 0, 20),"Out","Quad",0.5,true) wait(0.3)
  88.             for _, child in pairs(GUI.Logs:GetChildren()) do
  89.                 if child:FindFirstChild('ImageButton') then local bttn = child:FindFirstChild('ImageButton')
  90.                     if bttn.BackgroundTransparency == 0 then
  91.                         writeaudio[#writeaudio + 1] = {NAME = child.NAME.Value, ID = child.ID.Value}
  92.                     end
  93.                 end
  94.             end
  95.             GUI.Store.Visible = true
  96.             printTable(writeaudio)
  97.             wait(0.2)
  98.             local filename = 0
  99.             local function write()
  100.                 local file
  101.                 pcall(function() file = readfile("Audios"..filename..".txt") end)
  102.                 if file then
  103.                     filename = filename+1
  104.                     write()
  105.                 else
  106.                     local text = tostring(GUI.Store.Text)
  107.                     text = text:gsub('\n', '\r\n')
  108.                     writefile("Audios"..filename..".txt", text)
  109.                 end
  110.             end
  111.             write()
  112.             for rep = 1,10 do
  113.             GUI.Load.BackgroundTransparency = GUI.Load.BackgroundTransparency + 0.1
  114.             wait(0.05)
  115.             end
  116.             GUI.Load.Visible = false
  117.             GUI.Load.BackgroundTransparency = 0
  118.             GUI.Load.Size = UDim2.new(0, 0, 0, 20)
  119.             running = false
  120.             GUI.Store.Visible = false
  121.             GUI.Store.Text = ''
  122.             writeaudio = {}
  123.             game:FindService('StarterGui'):SetCore('SendNotification', {
  124.                 Title = 'Audio Logger',
  125.                 Text = 'Saved audios\n(Audios'..filename..'.txt)',
  126.                 Icon = 'http://www.roblox.com/asset/?id=176572847',
  127.                 Duration = 5,
  128.             })
  129.         end
  130.     else
  131.         game:FindService('StarterGui'):SetCore('SendNotification', {
  132.             Title = 'Audio Logger',
  133.             Text = 'Exploit cannot writefile :(',
  134.             Icon = 'http://www.roblox.com/asset/?id=176572847',
  135.             Duration = 5,
  136.         })
  137.     end
  138. end)
  139.  
  140. GUI.SA.MouseButton1Click:connect(function()
  141.     if writefileExploit() then
  142.         if running == false then
  143.             GUI.Load.Visible = true running = true
  144.             GUI.Load:TweenSize(UDim2.new(0, 360, 0, 20),"Out","Quad",0.5,true) wait(0.3)
  145.             for _, child in pairs(GUI.Logs:GetChildren()) do
  146.                 writeaudio[#writeaudio + 1] = {NAME = child.NAME.Value, ID = child.ID.Value}
  147.             end
  148.             GUI.Store.Visible = true
  149.             printTable(writeaudio)
  150.             wait(0.2)
  151.             local filename = 0
  152.             local function write()
  153.                 local file
  154.                 pcall(function() file = readfile("Audios"..filename..".txt") end)
  155.                 if file then
  156.                     filename = filename+1
  157.                     write()
  158.                 else
  159.                     local text = tostring(GUI.Store.Text)
  160.                     text = text:gsub('\n', '\r\n')
  161.                     writefile("Audios"..filename..".txt", text)
  162.                 end
  163.             end
  164.             write()
  165.             for rep = 1,10 do
  166.                 GUI.Load.BackgroundTransparency = GUI.Load.BackgroundTransparency + 0.1
  167.                 wait(0.05)
  168.             end
  169.             GUI.Load.Visible = false
  170.             GUI.Load.BackgroundTransparency = 0
  171.             GUI.Load.Size = UDim2.new(0, 0, 0, 20)
  172.             running = false
  173.             GUI.Store.Visible = false
  174.             GUI.Store.Text = ''
  175.             writeaudio = {}
  176.             game:FindService('StarterGui'):SetCore('SendNotification', {
  177.                 Title = 'Audio Logger',
  178.                 Text = 'Saved audios\n(Audios'..filename..'.txt)',
  179.                 Icon = 'http://www.roblox.com/asset/?id=176572847',
  180.                 Duration = 5,
  181.             })
  182.         end
  183.     else
  184.         game:FindService('StarterGui'):SetCore('SendNotification', {
  185.             Title = 'Audio Logger',
  186.             Text = 'Exploit cannot writefile :(',
  187.             Icon = 'http://www.roblox.com/asset/?id=176572847',
  188.             Duration = 5,
  189.         })
  190.     end
  191. end)
  192.  
  193. selectedaudio = nil
  194. function getaudio(place)
  195.     if running == false then
  196.         GUI.Load.Visible = true running = true
  197.         GUI.Load:TweenSize(UDim2.new(0, 360, 0, 20),"Out","Quad",0.5,true) wait(0.3)
  198.         for _, child in pairs(place:GetDescendants()) do
  199.             spawn(function()
  200. wait(0.001)
  201.                 if child:IsA("Sound") and not GUI.Logs:FindFirstChild(child.SoundId) and not FindTable(ignore,child.SoundId) then
  202.                     local id = string.match(child.SoundId, "rbxasset://sounds.+") or string.match(child.SoundId, "&hash=.+") or string.match(child.SoundId, "%d+")
  203.                     if id ~= nil then
  204.                         local newsound = GUI.Audio:Clone()
  205.                         if string.sub(id, 1, 6) == "&hash=" or string.sub(id, 1, 7) == "&0hash=" then
  206.                             id = string.sub(id, (string.sub(id, 1, 6) == "&hash=" and 7) or (string.sub(id, 1, 7) == "&0hash=" and 8), string.len(id))
  207.                             newsound.ImageButton.Image = 'rbxassetid://1453863294'
  208.                         end
  209.                         newsound.Parent = GUI.Logs
  210.                         newsound.Name = child.SoundId
  211.                         newsound.Visible = true
  212.                         newsound.Position = UDim2.new(0,0,0, pos)
  213.                         GUI.Logs.CanvasSize = UDim2.new(0,0,0, pos+20)
  214.                         pos = pos+20
  215.                         local function findname()
  216.                             Asset = game:GetService("MarketplaceService"):GetProductInfo(id)
  217.                         end
  218. wait(0.001)
  219.                         local audioname = 'error'
  220.                         local success, message = pcall(findname)
  221.                         if success then
  222.                             newsound.TextLabel.Text = Asset.Name
  223.                             audioname = Asset.Name
  224.                         else
  225.                             newsound.TextLabel.Text = child.Name
  226.                             audioname = child.Name
  227.                         end
  228.                         local data = Instance.new('StringValue') data.Parent = newsound data.Value = child.SoundId data.Name = 'ID'
  229.                         local data2 = Instance.new('StringValue') data2.Parent = newsound data2.Value = audioname data2.Name = 'NAME'
  230.                         local soundselected = false
  231.                         newsound.ImageButton.MouseButton1Click:Connect(function()
  232.                             if GUI.Info.Visible ~= true then
  233.                                 if soundselected == false then soundselected = true
  234.                                     newsound.ImageButton.BackgroundTransparency = 0
  235.                                 else soundselected = false
  236.                                     newsound.ImageButton.BackgroundTransparency = 1
  237.                                 end
  238.                             end
  239.                         end)
  240.                         newsound.Click.MouseButton1Click:Connect(function()
  241.                             if GUI.Info.Visible ~= true then
  242.                                 GUI.Info.TextLabel.Text = "Name: " ..audioname.. "\n\nID: " .. child.SoundId .. "\n\nWorkspace Name: " .. child.Name
  243.                                 selectedaudio = child.SoundId
  244.                                 GUI.Info.Visible = true
  245.                             end
  246.                         end)
  247.                     end
  248.                 end
  249.             end)
  250.         end
  251.     end
  252.     for rep = 1,10 do
  253.         GUI.Load.BackgroundTransparency = GUI.Load.BackgroundTransparency + 0.1
  254.         wait(0.05)
  255.     end
  256.     GUI.Load.Visible = false
  257.     GUI.Load.BackgroundTransparency = 0
  258.     GUI.Load.Size = UDim2.new(0, 0, 0, 20)
  259.     running = false
  260. end
  261.  
  262. GUI.All.MouseButton1Click:connect(function() getaudio(game)end)
  263. GUI.Workspace.MouseButton1Click:connect(function() getaudio(workspace)end)
  264. GUI.Lighting.MouseButton1Click:connect(function() getaudio(game:GetService('Lighting'))end)
  265. GUI.SoundS.MouseButton1Click:connect(function() getaudio(game:GetService('SoundService'))end)
  266. GUI.Clr.MouseButton1Click:connect(function()
  267.     for _, child in pairs(GUI.Logs:GetChildren()) do
  268.         if child:FindFirstChild('ImageButton') then local bttn = child:FindFirstChild('ImageButton')
  269.             if bttn.BackgroundTransparency == 1 then
  270.                 bttn.Parent:Destroy()
  271.                 refreshlist()
  272.             end
  273.         end
  274.     end
  275. end)
  276. GUI.ClrS.MouseButton1Click:connect(function()
  277.     for _, child in pairs(GUI.Logs:GetChildren()) do
  278.         if child:FindFirstChild('ImageButton') then local bttn = child:FindFirstChild('ImageButton')
  279.             if bttn.BackgroundTransparency == 0 then
  280.                 bttn.Parent:Destroy()
  281.                 refreshlist()
  282.             end
  283.         end
  284.     end
  285. end)
  286.  
  287. autoscan = false
  288. GUI.AutoScan.MouseButton1Click:connect(function()
  289.     if autoscan == false then autoscan = true
  290.         GUI.AutoScan.BackgroundTransparency = 0.5
  291.         game:FindService('StarterGui'):SetCore('SendNotification', {
  292.             Title = 'Audio Logger',
  293.             Text = 'Auto Scan Enabled',
  294.             Icon = 'http://www.roblox.com/asset/?id=176572847',
  295.             Duration = 5,
  296.         })
  297.     else autoscan = false
  298.         GUI.AutoScan.BackgroundTransparency = 0
  299.         game:FindService('StarterGui'):SetCore('SendNotification', {
  300.             Title = 'Audio Logger',
  301.             Text = 'Auto Scan Disabled',
  302.             Icon = 'http://www.roblox.com/asset/?id=176572847',
  303.             Duration = 5,
  304.         })
  305.     end
  306. end)
  307.  
  308. game.DescendantAdded:connect(function(added)
  309. wait(0.01)
  310.     if autoscan == true and added:IsA('Sound') and not GUI.Logs:FindFirstChild(added.SoundId) and not FindTable(ignore,added.SoundId) then
  311.         local id = string.match(added.SoundId, "rbxasset://sounds.+") or string.match(added.SoundId, "&hash=.+") or string.match(added.SoundId, "%d+")
  312.         if id ~= nil then
  313.             local newsound = GUI.Audio:Clone()
  314.                 if string.sub(id, 1, 6) == "&hash=" or string.sub(id, 1, 7) == "&0hash=" then
  315.                     id = string.sub(id, (string.sub(id, 1, 6) == "&hash=" and 7) or (string.sub(id, 1, 7) == "&0hash=" and 8), string.len(id))
  316.                     newsound.ImageButton.Image = 'rbxassetid://1453863294'
  317.                 end
  318.                 local scrolldown = false
  319.                 newsound.Parent = GUI.Logs
  320.                 newsound.Name = added.SoundId
  321.                 newsound.Visible = true
  322.                 newsound.Position = UDim2.new(0,0,0, pos)
  323.                 if GUI.Logs.CanvasPosition.Y == GUI.Logs.CanvasSize.Y.Offset - 230 then
  324.                     scrolldown = true
  325.                 end
  326.                 GUI.Logs.CanvasSize = UDim2.new(0,0,0, pos+20)
  327.                 pos = pos+20
  328.                 local function findname()
  329.                     Asset = game:GetService("MarketplaceService"):GetProductInfo(id)
  330.                 end
  331.                 local audioname = 'error'
  332.                 local success, message = pcall(findname)
  333.                 if success then
  334.                     newsound.TextLabel.Text = Asset.Name
  335.                     audioname = Asset.Name
  336.                 else
  337.                     newsound.TextLabel.Text = added.Name
  338.                     audioname = added.Name
  339.                 end
  340.                 local data = Instance.new('StringValue') data.Parent = newsound data.Value = added.SoundId data.Name = 'ID'
  341.                 local data2 = Instance.new('StringValue') data2.Parent = newsound data2.Value = audioname data2.Name = 'NAME'
  342.                 local soundselected = false
  343.                 newsound.ImageButton.MouseButton1Click:Connect(function()
  344.                     if GUI.Info.Visible ~= true then
  345.                         if soundselected == false then soundselected = true
  346.                             newsound.ImageButton.BackgroundTransparency = 0
  347.                         else soundselected = false
  348.                             newsound.ImageButton.BackgroundTransparency = 1
  349.                         end
  350.                     end
  351.                 end)
  352.                 newsound.Click.MouseButton1Click:Connect(function()
  353.                     if GUI.Info.Visible ~= true then
  354.                         GUI.Info.TextLabel.Text = "Name: " ..audioname.. "\n\nID: " .. added.SoundId .. "\n\nWorkspace Name: " .. added.Name
  355.                         selectedaudio = added.SoundId
  356.                         GUI.Info.Visible = true
  357.                     end
  358.                 end)
  359.             if scrolldown == true then
  360.                 GUI.Logs.CanvasPosition = Vector2.new(0, 9999999999999999999999999999999999999999999, 0, 0)
  361.             end
  362.         end
  363.     end
  364. end)
  365.  
  366. aa.PopupFrame.Active = true
  367. aa.PopupFrame.Draggable = true
  368.  
  369. GUI.Info.Copy.MouseButton1Click:Connect(function()
  370.     if pcall(function() Synapse:Copy(selectedaudio) end) then  
  371.     else
  372.         local clip = setclipboard or Clipboard.set
  373.         clip(selectedaudio)
  374.     end
  375.     game:FindService('StarterGui'):SetCore('SendNotification', {
  376.         Title = 'Audio Logger',
  377.         Text = 'Copied to clipboard',
  378.         Icon = 'http://www.roblox.com/asset/?id=176572847',
  379.         Duration = 5,
  380.     })
  381. end)
  382.  
  383. GUI.Info.Close.MouseButton1Click:Connect(function()
  384.     GUI.Info.Visible = false
  385.     for _, sound in pairs(game:GetService('Players').LocalPlayer.PlayerGui:GetChildren()) do
  386.         if sound.Name == 'SampleSound' then
  387.             sound:Destroy()
  388.         end
  389.     end
  390.     GUI.Info.Listen.Text = 'Listen'
  391. end)
  392.  
  393. GUI.Info.Listen.MouseButton1Click:Connect(function()
  394.     if GUI.Info.Listen.Text == 'Listen' then
  395.         local samplesound = Instance.new('Sound') samplesound.Parent = game:GetService('Players').LocalPlayer.PlayerGui
  396.         samplesound.Looped = true samplesound.SoundId = selectedaudio samplesound:Play() samplesound.Name = 'SampleSound'
  397.         samplesound.Volume = 5
  398.         GUI.Info.Listen.Text = 'Stop'
  399.     else
  400.         for _, sound in pairs(game:GetService('Players').LocalPlayer.PlayerGui:GetChildren()) do
  401.             if sound.Name == 'SampleSound' then
  402.                 sound:Destroy()
  403.             end
  404.         end
  405.         GUI.Info.Listen.Text = 'Listen'
  406.     end
  407. end)
  408.  
  409. function drag(gui)
  410.     spawn(function()
  411.         local UserInputService = game:GetService("UserInputService")
  412.         local dragging
  413.         local dragInput
  414.         local dragStart
  415.         local startPos
  416.         local function update(input)
  417.             local delta = input.Position - dragStart
  418.             gui:TweenPosition(UDim2.new(startPos.X.Scale, startPos.X.Offset + delta.X, startPos.Y.Scale, startPos.Y.Offset + delta.Y), "InOut", "Quart", 0.04, true, nil)
  419.         end
  420.         gui.InputBegan:Connect(function(input)
  421.             if input.UserInputType == Enum.UserInputType.MouseButton1 or input.UserInputType == Enum.UserInputType.Touch then
  422.             dragging = true
  423.             dragStart = input.Position
  424.             startPos = gui.Position
  425.         input.Changed:Connect(function()
  426.             if input.UserInputState == Enum.UserInputState.End then
  427.                 dragging = false
  428.             end
  429.         end)
  430.     end
  431. end)
  432. gui.InputChanged:Connect(function(input)
  433.     if input.UserInputType == Enum.UserInputType.MouseMovement or input.UserInputType == Enum.UserInputType.Touch then
  434.         dragInput = input
  435.     end
  436. end)
  437. UserInputService.InputChanged:Connect(function(input)
  438.     if input == dragInput and dragging then
  439.         update(input)
  440.     end
  441. end)
  442. end)
  443. end
  444. drag(aa.PopupFrame)
RAW Paste Data
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!
 
Top