SOUND ID FINDER (OPEN SOURCE)

if game.CoreGui:FindFirstChild("SoundFinderUI") then
    game.CoreGui.SoundFinderUI:Destroy()
end

local sg = Instance.new("ScreenGui", game.CoreGui)
sg.Name = "SoundFinderUI"

local frame = Instance.new("Frame", sg)
frame.Size = UDim2.new(0, 400, 0, 300)
frame.Position = UDim2.new(0.5, -200, 0.5, -150)
frame.BackgroundColor3 = Color3.fromRGB(30, 30, 30)
frame.Active = true
frame.Draggable = true 

local title = Instance.new("TextLabel", frame)
title.Size = UDim2.new(1, 0, 0, 30)
title.Text = "XENO SOUND FINDER (CLICK ID TO COPY)"
title.TextColor3 = Color3.new(1, 1, 1)
title.BackgroundColor3 = Color3.fromRGB(50, 50, 50)

local scroll = Instance.new("ScrollingFrame", frame)
scroll.Size = UDim2.new(1, -10, 1, -40)
scroll.Position = UDim2.new(0, 5, 0, 35)
scroll.BackgroundTransparency = 1
scroll.CanvasSize = UDim2.new(0, 0, 0, 0)

local layout = Instance.new("UIListLayout", scroll)
layout.SortOrder = Enum.SortOrder.LayoutOrder

-- Hàm lấy và hiển thị Sound
local function refresh()
    for _, v in pairs(game:GetDescendants()) do
        if v:IsA("Sound") and v.SoundId ~= "" then
            local cleanId = string.match(v.SoundId, "%d+") or "0"
            
            local btn = Instance.new("TextButton", scroll)
            btn.Size = UDim2.new(1, -10, 0, 25)
            btn.Text = "🔊 " .. v.Name .. " | ID: " .. cleanId
            btn.BackgroundColor3 = Color3.fromRGB(45, 45, 45)
            btn.TextColor3 = Color3.new(0.8, 0.8, 0.8)
            btn.TextXAlignment = Enum.TextXAlignment.Left
            
            btn.MouseButton1Click:Connect(function()
                setclipboard(cleanId)
                btn.Text = "✅ COPIED: " .. cleanId
                wait(1)
                btn.Text = "🔊 " .. v.Name .. " | ID: " .. cleanId
            end)
        end
    end
    scroll.CanvasSize = UDim2.new(0, 0, 0, layout.AbsoluteContentSize.Y)
end

refresh()


local close = Instance.new("TextButton", frame)
close.Size = UDim2.new(0, 30, 0, 30)
close.Position = UDim2.new(1, -30, 0, 0)
close.Text = "X"
close.BackgroundColor3 = Color3.new(0.7, 0, 0)
close.TextColor3 = Color3.new(1, 1, 1)
close.MouseButton1Click:Connect(function() sg:Destroy() end)