Audio Logger

print[[


	   Audio Logger
	-------------------
	Made by pigeon#1818
	-------------------
	  Press P to start
	-------------------
	  Press K to save
]]




local function tableContains(tbl, element)
	for _, v in ipairs(tbl) do
	    if (rawequal(v, element)) then
	        return true;
	    end
	end
	return false;
end

s = {}
function audioLogPlayers()
	for i,plr in pairs(game.Players:GetDescendants()) do
		if plr:IsA("Sound") then
			if string.len(plr.SoundId) <= 50 then
				local soundSplit = plr.SoundId:split("=")
				if tableContains(s,soundSplit[2]) ~= true and soundSplit[2] ~= nil then
					s[#s+1] = soundSplit[2]
					print(soundSplit[2])
				end
			end
		end
	end
end

local playerMouse = game.Players.LocalPlayer:GetMouse()
playerMouse.KeyDown:connect(function(key)
	if key:lower() == "p" then
		repeat wait()
			audioLogPlayers()
		until audioLogger == false
	elseif key:lower() == "k" then
		audioLogger = false
		local GetName = game:GetService("MarketplaceService"):GetProductInfo(game.PlaceId)
		local filename = GetName.Name.." audiolog"..math.random(1,10000)
		audioIds = game:GetService("HttpService"):JSONEncode(s)
        writefile(filename..".CMD-X", audioIds)
	end
end)