loadstring([[
local MarketplaceService = game:GetService("MarketplaceService")
local TweenService = game:GetService("TweenService")
local RunService = game:GetService("RunService")
local Players = game:GetService("Players")
local Workspace = game:GetService("Workspace")
local LocalPlayer = Players.LocalPlayer

local setclipboard = setclipboard or toclipboard or set_clipboard or function(text) print("[BoomboxTracker] Copied: " .. text) end

local C_BG, C_CARD, C_NEON = Color3.fromRGB(8, 9, 11), Color3.fromRGB(14, 16, 20), Color3.fromRGB(0, 255, 128)
local C_WHITE, C_MUTED, C_RED = Color3.fromRGB(255, 255, 255), Color3.fromRGB(150, 160, 170), Color3.fromRGB(255, 40, 60)

local function applyAnimatedBorder(targetFrame, thickness)
    local Stroke = Instance.new("UIStroke")
    Stroke.Color, Stroke.Thickness, Stroke.ApplyStrokeMode = Color3.fromRGB(20, 35, 28), thickness or 1.5, Enum.ApplyStrokeMode.Border
    Stroke.Parent = targetFrame

    local LightSegment = Instance.new("Frame")
    LightSegment.Name, LightSegment.Size, LightSegment.BackgroundColor3 = "NeonPulse", UDim2.new(0, 90, 0, thickness or 2), C_NEON
    LightSegment.BorderSizePixel, LightSegment.ZIndex, LightSegment.Parent = 0, 10, targetFrame

    local progress, speed = 0, 2.8
    local conn
    conn = RunService.RenderStepped:Connect(function(dt)
        if not targetFrame or not targetFrame.Parent or not targetFrame.Visible then return end
        progress = (progress + dt * speed) % 4
        local segLen = 90
        if progress < 1 then LightSegment.Size, LightSegment.Position = UDim2.new(0, segLen, 0, thickness or 2), UDim2.new(progress, -segLen / 2, 0, 0)
        elseif progress < 2 then LightSegment.Size, LightSegment.Position = UDim2.new(0, thickness or 2, 0, segLen), UDim2.new(1, -(thickness or 2), progress - 1, -segLen / 2)
        elseif progress < 3 then LightSegment.Size, LightSegment.Position = UDim2.new(0, segLen, 0, thickness or 2), UDim2.new(1 - (progress - 2), -segLen / 2, 1, -(thickness or 2))
        else LightSegment.Size, LightSegment.Position = UDim2.new(0, thickness or 2, 0, segLen), UDim2.new(0, 0, 1 - (progress - 3), -segLen / 2) end
    end)
    return Stroke
end

local ScreenGui = Instance.new("ScreenGui")
ScreenGui.Name, ScreenGui.ResetOnSpawn = "BoomboxTrackerGui", false
ScreenGui.Parent = LocalPlayer:FindFirstChild("PlayerGui") or game:GetService("CoreGui") or Workspace

local MainFrame = Instance.new("Frame")
MainFrame.Name, MainFrame.Size, MainFrame.Position = "MainFrame", UDim2.new(0, 360, 0, 430), UDim2.new(0.05, 0, 0.2, 0)
MainFrame.BackgroundColor3, MainFrame.BorderSizePixel, MainFrame.Active, MainFrame.ClipsDescendants, MainFrame.Draggable = C_BG, 0, true, true, true
MainFrame.Parent = ScreenGui
applyAnimatedBorder(MainFrame, 2)

local HeaderFrame = Instance.new("Frame")
HeaderFrame.Size, HeaderFrame.BackgroundTransparency, HeaderFrame.Parent = UDim2.new(1, 0, 0, 40), 1, MainFrame

local TitleLabel = Instance.new("TextLabel")
TitleLabel.Size, TitleLabel.Position, TitleLabel.BackgroundTransparency = UDim2.new(0.65, 0, 1, 0), UDim2.new(0, 12, 0, 0), 1
TitleLabel.Text, TitleLabel.TextColor3, TitleLabel.TextSize, TitleLabel.Font, TitleLabel.TextXAlignment = "Boombox tracker", C_WHITE, 15, Enum.Font.Code, Enum.TextXAlignment.Left
TitleLabel.Parent = HeaderFrame

local MinBtn = Instance.new("TextButton")
MinBtn.Size, MinBtn.Position, MinBtn.BackgroundColor3 = UDim2.new(0, 26, 0, 26), UDim2.new(1, -62, 0, 7), C_CARD
MinBtn.Text, MinBtn.TextColor3, MinBtn.TextSize, MinBtn.Font, MinBtn.BorderSizePixel, MinBtn.Parent = "_", C_WHITE, 13, Enum.Font.Code, 0, HeaderFrame

local CloseBtn = Instance.new("TextButton")
CloseBtn.Size, CloseBtn.Position, CloseBtn.BackgroundColor3 = UDim2.new(0, 26, 0, 26), UDim2.new(1, -32, 0, 7), C_CARD
CloseBtn.Text, CloseBtn.TextColor3, CloseBtn.TextSize, CloseBtn.Font, CloseBtn.BorderSizePixel, CloseBtn.Parent = "X", C_RED, 12, Enum.Font.Code, 0, HeaderFrame

local TabBar = Instance.new("Frame")
TabBar.Size, TabBar.Position, TabBar.BackgroundTransparency, TabBar.Parent = UDim2.new(1, -20, 0, 28), UDim2.new(0, 10, 0, 42), 1, MainFrame

local BoomboxTabBtn = Instance.new("TextButton")
BoomboxTabBtn.Size, BoomboxTabBtn.Position, BoomboxTabBtn.BackgroundColor3 = UDim2.new(0.48, 0, 1, 0), UDim2.new(0, 0, 0, 0), C_NEON
BoomboxTabBtn.Text, BoomboxTabBtn.TextColor3, BoomboxTabBtn.TextSize, BoomboxTabBtn.Font, BoomboxTabBtn.BorderSizePixel, BoomboxTabBtn.Parent = "BOOMBOXES", C_BG, 11, Enum.Font.Code, 0, TabBar

local GameTabBtn = Instance.new("TextButton")
GameTabBtn.Size, GameTabBtn.Position, GameTabBtn.BackgroundColor3 = UDim2.new(0.48, 0, 1, 0), UDim2.new(0.52, 0, 0, 0), C_CARD
GameTabBtn.Text, GameTabBtn.TextColor3, GameTabBtn.TextSize, GameTabBtn.Font, GameTabBtn.BorderSizePixel, GameTabBtn.Parent = "GAME SFX", C_MUTED, 11, Enum.Font.Code, 0, TabBar

local ScrollFrame = Instance.new("ScrollingFrame")
ScrollFrame.Size, ScrollFrame.Position, ScrollFrame.BackgroundColor3 = UDim2.new(1, -20, 1, -85), UDim2.new(0, 10, 0, 75), C_CARD
ScrollFrame.BorderSizePixel, ScrollFrame.CanvasSize, ScrollFrame.ScrollBarThickness, ScrollFrame.ScrollBarImageColor3 = 0, UDim2.new(0, 0, 0, 0), 3, C_NEON
ScrollFrame.Parent = MainFrame

local UIListLayout = Instance.new("UIListLayout")
UIListLayout.SortOrder, UIListLayout.Padding, UIListLayout.Parent = Enum.SortOrder.LayoutOrder, UDim.new(0, 6), ScrollFrame

local UIPadding = Instance.new("UIPadding")
UIPadding.PaddingTop, UIPadding.PaddingLeft, UIPadding.PaddingRight, UIPadding.Parent = UDim.new(0, 6), UDim.new(0, 6), UDim.new(0, 6), ScrollFrame

local MinBadge = Instance.new("TextButton")
MinBadge.Name, MinBadge.Size, MinBadge.Position, MinBadge.BackgroundColor3 = "MinBadge", UDim2.new(0, 0, 0, 0), MainFrame.Position, C_BG
MinBadge.Text, MinBadge.TextColor3, MinBadge.TextSize, MinBadge.Font = "♫", C_NEON, 18, Enum.Font.Code
MinBadge.Visible, MinBadge.Active, MinBadge.Draggable, MinBadge.BorderSizePixel, MinBadge.ClipsDescendants, MinBadge.Parent = false, true, true, 0, true, ScreenGui
applyAnimatedBorder(MinBadge, 2)

local tweenInfo = TweenInfo.new(0.25, Enum.EasingStyle.Quad, Enum.EasingDirection.Out)

MinBtn.MouseButton1Click:Connect(function()
    MinBadge.Position, MinBadge.Size, MinBadge.Visible = MainFrame.Position, UDim2.new(0, 0, 0, 0), true
    TweenService:Create(MainFrame, tweenInfo, {Size = UDim2.new(0, 0, 0, 0), BackgroundTransparency = 1}):Play()
    TweenService:Create(MinBadge, tweenInfo, {Size = UDim2.new(0, 48, 0, 48)}):Play()
end)

MinBadge.MouseButton1Click:Connect(function()
    MainFrame.Visible, MainFrame.Position = true, MinBadge.Position
    TweenService:Create(MainFrame, tweenInfo, {Size = UDim2.new(0, 360, 0, 430), BackgroundTransparency = 0}):Play()
    local b = TweenService:Create(MinBadge, tweenInfo, {Size = UDim2.new(0, 0, 0, 0)})
    b:Play()
    b.Completed:Connect(function() MinBadge.Visible = false end)
end)

CloseBtn.MouseButton1Click:Connect(function() ScreenGui:Destroy() end)

local activeSounds, titleCache, currentTab = {}, {}, "Boomboxes"
local IGNORED_CHARACTER_SFX = {["GettingUp"]=true,["Died"]=true,["FreeFalling"]=true,["Jumping"]=true,["Landing"]=true,["Running"]=true,["Swimming"]=true,["Climbing"]=true,["Splash"]=true}

local function getAssetTitle(id)
    if titleCache[id] then return titleCache[id] end
    titleCache[id] = "Fetching Title..."
    task.spawn(function()
        local s, info = pcall(function() return MarketplaceService:GetProductInfo(tonumber(id), Enum.InfoType.Asset) end)
        titleCache[id] = (s and info and info.Name) or "Unknown Sound"
        refreshUI()
    end)
    return titleCache[id]
end

local function cleanSoundId(raw)
    if not raw or raw == "" then return nil end
    local id = string.match(raw, "%d+")
    return (id and #id >= 3) and id or nil
end

local function isPlayerSound(sound)
    local cur = sound.Parent
    while cur and cur ~= Workspace do
        if cur:IsA("Model") and Players:GetPlayerFromCharacter(cur) then return true, Players:GetPlayerFromCharacter(cur).DisplayName
        elseif cur:IsA("Tool") then
            local char = cur.Parent
            if char and Players:GetPlayerFromCharacter(char) then return true, Players:GetPlayerFromCharacter(char).DisplayName end
            return true, cur.Name
        end
        cur = cur.Parent
    end
    return false, sound.Parent and sound.Parent.Name or "Map Environment"
end

function refreshUI()
    for _, c in ipairs(ScrollFrame:GetChildren()) do if c:IsA("Frame") then c:Destroy() end end
    for soundObj, info in pairs(activeSounds) do
        if (currentTab == "Boomboxes" and info.isPlayer) or (currentTab == "GameSFX" and not info.isPlayer) then
            local EntryFrame = Instance.new("Frame")
            EntryFrame.Size, EntryFrame.BackgroundColor3, EntryFrame.BorderSizePixel, EntryFrame.Parent = UDim2.new(1, 0, 0, 42), C_BG, 0, ScrollFrame

            local TitleLabel = Instance.new("TextLabel")
            TitleLabel.Size, TitleLabel.Position, TitleLabel.BackgroundTransparency = UDim2.new(0.68, -5, 0, 20), UDim2.new(0, 8, 0, 3), 1
            TitleLabel.Text, TitleLabel.TextColor3, TitleLabel.TextSize, TitleLabel.Font, TitleLabel.TextXAlignment, TitleLabel.TextTruncate = getAssetTitle(info.id), C_WHITE, 12, Enum.Font.Code, Enum.TextXAlignment.Left, Enum.TextTruncate.AtEnd
            TitleLabel.Parent = EntryFrame

            local SubLabel = Instance.new("TextLabel")
            SubLabel.Size, SubLabel.Position, SubLabel.BackgroundTransparency = UDim2.new(0.68, -5, 0, 16), UDim2.new(0, 8, 0, 22), 1
            SubLabel.Text, SubLabel.TextColor3, SubLabel.TextSize, SubLabel.Font, SubLabel.TextXAlignment, SubLabel.TextTruncate = info.owner .. " | " .. info.id, C_MUTED, 10, Enum.Font.Code, Enum.TextXAlignment.Left, Enum.TextTruncate.AtEnd
            SubLabel.Parent = EntryFrame

            local SingleCopy = Instance.new("TextButton")
            SingleCopy.Size, SingleCopy.Position, SingleCopy.BackgroundColor3 = UDim2.new(0.26, 0, 0.7, 0), UDim2.new(0.71, 0, 0.15, 0), C_CARD
            SingleCopy.Text, SingleCopy.TextColor3, SingleCopy.TextSize, SingleCopy.Font, SingleCopy.BorderSizePixel, SingleCopy.Parent = "COPY", C_NEON, 11, Enum.Font.Code, 0, EntryFrame

            SingleCopy.MouseButton1Click:Connect(function()
                setclipboard(info.id)
                SingleCopy.Text, SingleCopy.BackgroundColor3, SingleCopy.TextColor3 = "COPIED", C_NEON, C_BG
                task.wait(1)
                SingleCopy.Text, SingleCopy.BackgroundColor3, SingleCopy.TextColor3 = "COPY", C_CARD, C_NEON
            end)
        end
    end
    ScrollFrame.CanvasSize = UDim2.new(0, 0, 0, UIListLayout.AbsoluteContentSize.Y + 10)
end

BoomboxTabBtn.MouseButton1Click:Connect(function()
    currentTab = "Boomboxes"
    BoomboxTabBtn.BackgroundColor3, BoomboxTabBtn.TextColor3, GameTabBtn.BackgroundColor3, GameTabBtn.TextColor3 = C_NEON, C_BG, C_CARD, C_MUTED
    refreshUI()
end)

GameTabBtn.MouseButton1Click:Connect(function()
    currentTab = "GameSFX"
    GameTabBtn.BackgroundColor3, GameTabBtn.TextColor3, BoomboxTabBtn.BackgroundColor3, BoomboxTabBtn.TextColor3 = C_NEON, C_BG, C_CARD, C_MUTED
    refreshUI()
end)

local function evaluateSound(sound)
    if not sound:IsA("Sound") or IGNORED_CHARACTER_SFX[sound.Name] then return end
    local soundId, isPlayer, ownerName = cleanSoundId(sound.SoundId), isPlayerSound(sound)
    if soundId and sound.IsPlaying then activeSounds[sound] = {id = soundId, owner = ownerName, isPlayer = isPlayer}
    else activeSounds[sound] = nil end
    refreshUI()
end

local function trackSound(sound)
    if not sound:IsA("Sound") then return end
    evaluateSound(sound)
    sound:GetPropertyChangedSignal("IsPlaying"):Connect(function() evaluateSound(sound) end)
    sound:GetPropertyChangedSignal("SoundId"):Connect(function() evaluateSound(sound) end)
    sound.AncestryChanged:Connect(function(_, parent) if not parent then activeSounds[sound] = nil refreshUI() end end)
end

for _, desc in ipairs(Workspace:GetDescendants()) do if desc:IsA("Sound") then trackSound(desc) end end
Workspace.DescendantAdded:Connect(function(desc) if desc:IsA("Sound") then trackSound(desc) end end)
]])()