GMADYN ò_¿Q     Simple Sound Browser A simple sound browsing menu that lists all sound files that are available to use in-game. The menu also includes buttons for copying the filepath to the clipboard, playing/stopping the sound, and binding the sound to a key.

To use, type 'soundmenu_open' in the console.

Notes:
-You can use the spacebar instead of having to hit the Play Sound button
-A ConVar has been added for the file limit. You can change by using 'soundmenu_filelimit' in the console.
-As of 06/05/13, mp3's are no longer supported in GMod. Therefore, this addon will only support wav's and ogg's. author       lua/autorun/client/soundmenu.lua ã      aWºâ    //Clientside file only
local fileLimit = CreateClientConVar("SoundMenu_fileLimit", "1000") //Limit of files in a folder before we start cutting it off
local SM
local binds = {}
local soundPlaying = false
local formats = {".wav", ".ogg", ".mp3"}

local function SoundMenu()

    local keyDown = false
    
    hook.Add("Think", "SM_PressedSpace", function()
        if input.IsKeyDown(KEY_SPACE) and !keyDown then
            SM.Btn1.DoClick()
            keyDown = true
            timer.Simple(0.1, function() keyDown = false end)
        end
    end)
    
    if SM then SM.Frame:SetVisible(true) return end
    
    SM = {}
    
    SM.Frame = vgui.Create("DFrame")
    SM.Frame:SetTitle("Sound Browser")
    SM.Frame:SetSize(ScrW()/3, 2/3 * ScrH() + 30)
    SM.Frame:SetPos(ScrW()/2 - SM.Frame:GetWide()/2, ScrH()/2 - SM.Frame:GetTall()/2)
    SM.Frame:SetDraggable(true)
    SM.Frame:ShowCloseButton(true)
    SM.Frame:SetDeleteOnClose(false)
    SM.Frame:MakePopup()
    
    SM.Tree = vgui.Create("DTree", SM.Frame)
    SM.Tree:SetPos(15, 40)
    SM.Tree:SetSize(SM.Frame:GetWide() - 30, SM.Frame:GetTall() - 131)
    SM.Tree:SetPadding(5)
    
    SM.Btn1 = vgui.Create("DButton", SM.Frame)
    SM.Btn1:SetPos(15, SM.Frame:GetTall() - 73)
    SM.Btn1:SetSize(SM.Tree:GetWide()/3 - 2, 28)
    SM.Btn1:SetText("Play Sound")
    SM.Btn1:SetTooltip("Use the spacebar as a hotkey!")
    
    SM.Btn2 = vgui.Create("DButton", SM.Frame)
    SM.Btn2:SetPos(SM.Tree:GetWide()/3 + 17, SM.Frame:GetTall() - 73)
    SM.Btn2:SetSize(SM.Tree:GetWide()/3 - 2, 28)
    SM.Btn2:SetText("Stop Sound")

    SM.Btn3 = vgui.Create("DButton", SM.Frame)
    SM.Btn3:SetPos(SM.Tree:GetWide()*2/3 + 18, SM.Frame:GetTall() - 73)
    SM.Btn3:SetSize(SM.Tree:GetWide()/3 - 2, 28)
    SM.Btn3:SetText("Copy Filepath")

    SM.Btn4 = vgui.Create("DButton", SM.Frame)
    SM.Btn4:SetPos(15, SM.Frame:GetTall() - 90)
    SM.Btn4:SetSize(SM.Tree:GetWide(), 15)
    SM.Btn4:SetText("Refresh List")
    
    SM.Btn5 = vgui.Create("DBinder", SM.Frame)
    SM.Btn5:SetPos(15, SM.Frame:GetTall() - 43)
    SM.Btn5:SetSize(SM.Tree:GetWide()/3 - 2, 28)
    SM.Btn5:SetTooltip("Bind this sound to a key")
    SM.Btn5:SetDisabled(true)
    
    SM.Btn6 = vgui.Create("DButton", SM.Frame)
    SM.Btn6:SetPos(SM.Tree:GetWide()/3 + 17, SM.Frame:GetTall() - 43)
    SM.Btn6:SetSize(SM.Tree:GetWide()/3 - 2, 28)
    SM.Btn6:SetText("Unbind")
    SM.Btn6:SetDisabled(true)
        
    SM.ChkBox = vgui.Create("DCheckBoxLabel", SM.Frame)
    SM.ChkBox:SetText("Disable All Bindings")
    SM.ChkBox:SizeToContents()
    SM.ChkBox:SetPos(SM.Tree:GetWide()*2/3 + 18, SM.Frame:GetTall() + SM.ChkBox:GetTall()/2 - 43)
    
    SM.TreeNode = SM.Tree:AddNode("sound")
    SM.TreeNode.dir  = "sound/"
    SM.TreeNode.gen = false

    //
    local function FindSounds(node, dir)
        local files, dirs = file.Find(dir.."*", "GAME")
    
        for _,v in pairs(dirs) do
            local newNode = node:AddNode(v)
            newNode.dir = dir..v
            newNode.gen = false
        
            newNode.DoClick = function()
                if !newNode.gen then
                    FindSounds(newNode, dir..v.."/")
                    newNode.gen = true
                end
            end
        end
    
        local function GenerateNodes()
            local fileCount = 0

            for k,v in pairs(files) do
                if fileCount > fileLimit:GetInt() then break end
                local format = string.sub(v, -4)
                if format and table.HasValue(formats, format) then
                    fileCount = fileCount + 1

                    local newNode = node:AddNode(v)
                    newNode.file   = v
                    newNode.dir    = dir
                    newNode.IsFile = true
                    newNode.format = format
                    newNode.Icon:SetImage("icon16/sound.png")

                    files[k] = ""
                end
            end
        
            if fileCount > fileLimit:GetInt() then
                local newNode = node:AddNode("Click to load more files...")
                newNode.Icon:SetImage("icon16/sound_add.png")
                newNode.DoClick = function() 
                    newNode:Remove()
                    GenerateNodes()
                end
            end
        end
        GenerateNodes()
    end
    FindSounds(SM.TreeNode, "sound/")
    //
    
    SM.Btn1.DoClick = function()
        local item = SM.Tree:GetSelectedItem()
        if !item or !item.IsFile then return end
        local file = string.sub(item.dir, 7)..item:GetText()
        RunConsoleCommand("stopsound")
        timer.Simple(0.1, function() surface.PlaySound(file) end)
    end
    
    SM.Btn2.DoClick = function()
        RunConsoleCommand("stopsound")
    end

    SM.Btn3.DoClick = function()
        local item = SM.Tree:GetSelectedItem()
        if !item or !item.IsFile then return end
        local file = string.sub(item.dir, 7)..item:GetText()
        SetClipboardText(file)
    end
    
    SM.Btn4.DoClick = function()
        SM.TreeNode:Remove()
        SM.TreeNode = SM.Tree:AddNode("sound")
        SM.TreeNode.dir  = "sound/"
        SM.TreeNode.gen = false
    
        FindSounds(SM.TreeNode, "sound/")
    end
    
    local oldClick = SM.Btn5.DoClick
    
    SM.Btn5.DoClick = function()
        oldClick(SM.Btn5)
        local item = SM.Tree:GetSelectedItem()
        local value = SM.Btn5:GetValue()
        hook.Add("Think", "SM_CheckValue", function()
            if SM.Btn5:GetValue() != value then
                hook.Remove("Think", "SM_CheckValue")
                local file = string.sub(item.dir, 7)..item:GetText()
                binds[file] = SM.Btn5:GetValue()
                SM.Btn6:SetDisabled(false)
            end
        end)
    end
    
    SM.Btn6.DoClick = function()
        local item = SM.Tree:GetSelectedItem()
        local file = string.sub(item.dir, 7)..item:GetText()
        if binds[file] then binds[file] = nil end
        SM.Btn5:SetValue(0)
        SM.Btn6:SetDisabled(true)
    end
    
    SM.Tree.DoClick = function()
        local item = SM.Tree:GetSelectedItem()
        if !item then return end
        if item.IsFile then
            local file = string.sub(item.dir, 7)..item:GetText()
            SM.Btn5:SetDisabled(false)
            if binds[file] and binds[file] != 0 then 
                SM.Btn5:SetValue(binds[file])
                SM.Btn6:SetDisabled(false)
            else
                SM.Btn5:SetValue(0)
            end
        else
            SM.Btn5:SetDisabled(true)
        end
    end
    
    SM.Frame.OnClose = function()
        hook.Remove("Think", "SM_PressedSpace")
        hook.Remove("Think", "SM_CheckValue")
    end 
    
    hook.Add("Think", "SM_CheckBind", function()
        if SM.ChkBox:GetChecked() then return end
        for k,v in pairs(binds) do
            if input.IsKeyDown(v) and !soundPlaying then
                soundPlaying = true
                timer.Simple(0.25, function() soundPlaying = false end)
                surface.PlaySound(k)
            end
        end
    end)
    
end
concommand.Add("SoundMenu_Open", SoundMenu)