Open Source Sound Activity Logger

local Players = game:GetService("Players")
local player = Players.LocalPlayer

local gui = Instance.new("ScreenGui", player:WaitForChild("PlayerGui"))
gui.Name = "SoundLoggerGui"

local frame = Instance.new("Frame", gui)
frame.Size = UDim2.new(0, 420, 0, 220)
frame.Position = UDim2.new(0.5, -210, 0.5, -110)
frame.BackgroundColor3 = Color3.fromRGB(30, 30, 30)
frame.Active = true
frame.Draggable = true
Instance.new("UICorner", frame).CornerRadius = UDim.new(0, 10)

local title = Instance.new("TextLabel", frame)
title.Size = UDim2.new(1, -80, 0, 35)
title.Position = UDim2.new(0, 10, 0, 0)
title.BackgroundTransparency = 1
title.TextColor3 = Color3.new(1,1,1)
title.Font = Enum.Font.SourceSansBold
title.TextSize = 18
title.TextXAlignment = Enum.TextXAlignment.Center

local langBtn = Instance.new("TextButton", frame)
langBtn.Size = UDim2.new(0, 70, 0, 30)
langBtn.Position = UDim2.new(1, -80, 0, 2)
langBtn.BackgroundColor3 = Color3.fromRGB(50, 50, 50)
langBtn.TextColor3 = Color3.fromRGB(255, 255, 255)
langBtn.Font = Enum.Font.SourceSansBold
langBtn.TextSize = 14
Instance.new("UICorner", langBtn).CornerRadius = UDim.new(0, 6)

local box = Instance.new("TextLabel", frame)
box.Position = UDim2.new(0, 10, 0, 45)
box.Size = UDim2.new(1, -20, 1, -55)
box.BackgroundColor3 = Color3.fromRGB(20, 20, 20)
box.TextColor3 = Color3.fromRGB(0, 255, 150)
box.Font = Enum.Font.SourceSans
box.TextSize = 14
box.TextWrapped = true
box.TextYAlignment = Enum.TextYAlignment.Top
box.TextXAlignment = Enum.TextXAlignment.Left
box.Text = ""
Instance.new("UICorner", box).CornerRadius = UDim.new(0, 8)

local isArabic = false

local function log(text)
	box.Text = text .. "\n" .. box.Text
end

local function updateLanguage()
	if isArabic then
		title.Text = "🔊 مسجل الأصوات"
		langBtn.Text = "EN"
	else
		title.Text = "🔊 Sound Activity Logger"
		langBtn.Text = "AR"
	end
end

langBtn.MouseButton1Click:Connect(function()
	isArabic = not isArabic
	updateLanguage()
end)

for _, obj in ipairs(game:GetDescendants()) do
	if obj:IsA("Sound") then
		obj:GetPropertyChangedSignal("Playing"):Connect(function()
			if obj.Playing then
				if isArabic then
					log("🔊 تم تشغيل: " .. obj:GetFullName())
				else
					log("🔊 PLAYED: " .. obj:GetFullName())
				end
			end
		end)
	end
end

updateLanguage()
log("✅ Sound logger started")