if ( CLIENT ) then

    MsgN( "End Round Music by Cobalt loaded!" )

end

-- ULX Commands
function ulx.playurl( calling_ply, url, volume )

    umsg.Start( "playurl", player.GetAll() )
        umsg.String( url )
        umsg.Long ( volume )
    umsg.End()

    ulx.fancyLogAdmin( calling_ply, "#A played URL #s (type !stop to stop)", url )

end
local playurl = ulx.command( "Fun", "ulx playurl", ulx.playurl, "!playurl" )
playurl:addParam{ type=ULib.cmds.StringArg, hint="url" }
playurl:addParam{ type=ULib.cmds.NumArg, min=0, max=100, default=50, hint="volume", ULib.cmds.optional, ULib.cmds.round }
playurl:defaultAccess( ULib.ACCESS_ADMIN )
playurl:help( "Play a sound from a URL." )

function ulx.playurlcl( calling_ply, url, volume )

    umsg.Start( "playurlcl", calling_ply )
        umsg.String( url )
        umsg.Long( volume )
    umsg.End()

    ulx.fancyLog( { calling_ply }, "URL #s playing locally (type !stop to stop)", url )

end
local playurlcl = ulx.command( "Fun", "ulx playurlcl", ulx.playurlcl, "!playurlcl" )
playurlcl:addParam{ type=ULib.cmds.StringArg, hint="url" }
playurlcl:addParam{ type=ULib.cmds.NumArg, min=0, max=100, default=50, hint="volume", ULib.cmds.optional, ULib.cmds.round }
playurlcl:defaultAccess( ULib.ACCESS_ALL )
playurlcl:help( "Play a sound from a URL for yourself." )

function ulx.playvolume( calling_ply, volume )

    umsg.Start( "playvolume", player.GetAll() )
        umsg.Long( volume )
    umsg.End()

    ulx.fancyLogAdmin( calling_ply, "#A set volume #s", volume )

end


local playvolume = ulx.command( "Fun", "ulx playvolume", ulx.playvolume, "!playvolume" )
playvolume:addParam{ type=ULib.cmds.NumArg, min=0, max=100, default=50, hint="times", ULib.cmds.optional, ULib.cmds.round }
playvolume:defaultAccess( ULib.ACCESS_ADMIN )
playvolume:help( "Sets the volume." )

function ulx.stopurl( calling_ply )

    umsg.Start( "stopurl", player.GetAll() )
    umsg.End()

    ulx.fancyLogAdmin( calling_ply, "#A stopped the URL for the server" )

end
local stopurl = ulx.command( "Fun", "ulx stopurl", ulx.stopurl, "!stopurl" )
stopurl:defaultAccess( ULib.ACCESS_ADMIN )
stopurl:help( "Play a sound from a URL." )

function ulx.endroundmenu( calling_ply )

    umsg.Start( "open_endround_menu", calling_ply )
    umsg.End()

end
local endroundmenu = ulx.command( "Fun", "ulx endroundmenu", ulx.endroundmenu, "!endround" )
endroundmenu:defaultAccess( ULib.ACCESS_ALL )
endroundmenu:help( "Open the end round music menu." )

function ulx.queuesong( calling_ply )

    if calling_ply:GetPData( "Cooldown" ) and tonumber( calling_ply:GetPData( "Cooldown" ) ) > 0 then
        calling_ply:ChatPrint( "You are unable to queue a song right now. Try again in " .. calling_ply:GetPData( "Cooldown" ) .. " minute(s)." )
        return
    end

    umsg.Start( "EnterInfo", calling_ply )
    umsg.End()

end
local queuesong = ulx.command( "Fun", "ulx queuesong", ulx.queuesong, { "!queuesong", "!queue" } )
queuesong:defaultAccess( ULib.ACCESS_ADMIN )
queuesong:help( "Queue a song for the end of the round." )

function ulx.stopurlcl( calling_ply )

    umsg.Start( "stopurl", calling_ply )
    umsg.End()

end
local stopurlcl = ulx.command( "Fun", "ulx stopurlcl", ulx.stopurlcl, { "!stop", "!stopurlcl" } )
stopurlcl:defaultAccess( ULib.ACCESS_ALL )
stopurlcl:help( "Stop sounds for yourself." )

-- Serverside Networking
if ( SERVER ) then

    util.AddNetworkString( "RequestTables" )
    util.AddNetworkString( "RequestTablesCallback" )
    util.AddNetworkString( "SendQueueInfo" )
    util.AddNetworkString( "RequestQueue" )
    util.AddNetworkString( "RequestQueueCallback" )
    util.AddNetworkString( "Queue_Remove" )
    util.AddNetworkString( "SendCooldownInfo" )

    local QueueTable = {}

    if GetConVar( "gamemode" ):GetString() == "terrortown" then

        hook.Add( "TTTEndRound", "PlayMusicOnEndRound", function( win )

            if table.Count( QueueTable ) > 0 then

                local toPlay = QueueTable[ 1 ]

                umsg.Start( "playurl", player.GetAll() )
                    umsg.String( toPlay[ 3 ] )
                    umsg.Long ( 50 )
                umsg.End()

                umsg.Start( "SendSongName", player.GetAll() )
                    umsg.String( toPlay[ 2 ] )
                umsg.End()

                ulx.fancyLog( player.GetAll(), "Playing queued song #s requested by #s", toPlay[ 2 ], toPlay[ 1 ] )

                table.remove( QueueTable, 1 )

            else

                if win == WIN_INNOCENT then

                    local toPlay = table.Random( innowinsounds )

                    umsg.Start( "playurl", player.GetAll() )
                        umsg.String( toPlay[ 1 ] )
                        umsg.Long ( 50 )
                    umsg.End()

                    umsg.Start( "SendSongName", player.GetAll() )
                        umsg.String( toPlay[ 2 ] )
                    umsg.End()

                elseif win == WIN_TRAITOR then

                    local toPlay = table.Random( traitorwinsounds )

                    umsg.Start( "playurl", player.GetAll() )
                        umsg.String( toPlay[ 1 ] )
                        umsg.Long ( 50 )
                    umsg.End()

                    umsg.Start( "SendSongName", player.GetAll() )
                        umsg.String( toPlay[ 2 ] )
                    umsg.End()

                elseif win == WIN_TIMELIMIT then

                    local toPlay = table.Random( timelimitsounds )

                    umsg.Start( "playurl", player.GetAll() )
                        umsg.String( toPlay[ 1 ] )
                        umsg.Long ( 50 )
                    umsg.End()

                    umsg.Start( "SendSongName", player.GetAll() )
                        umsg.String( toPlay[ 2 ] )
                    umsg.End()

                end

            end

        end )

        hook.Add( "TTTPrepareRound", "StopSounds", function()

            umsg.Start( "stop_preround", player.GetAll() )
            umsg.End()

            umsg.Start( "StopHUDPaint", player.GetAll() )
            umsg.End()

        end )

    end

    concommand.Add( "endround_menu", function( ply, cmd, args )

        umsg.Start( "open_endround_menu", ply )
        umsg.End()

    end )

    net.Receive( "RequestTables", function( len, ply )

        net.Start( "RequestTablesCallback" )
            net.WriteTable( innowinsounds )
            net.WriteTable( traitorwinsounds )
            net.WriteTable( timelimitsounds )
            net.WriteTable( extrasounds )
        net.Send( ply )

    end )

    net.Receive( "SendQueueInfo", function( len, ply )

        local sName = net.ReadString()
        local sUrl = net.ReadString()

        if sName:len() > 0 and sUrl:len() > 0 then
            table.insert( QueueTable, { ply:Nick(), sName, sUrl } )
        end

        ulx.fancyLog( player.GetAll(), "#s queued song #s", ply:Nick(), sName )

    end )

    net.Receive( "RequestQueue", function( len, ply )

        if ply:IsValid() then

            net.Start( "RequestQueueCallback" )
                net.WriteTable( QueueTable )
            net.Send( ply )

        end

    end )

    net.Receive( "Queue_Remove", function( len, ply )

        if not ply:IsAdmin() then
            ply:ChatPrint( "You don't have access to this command, " .. ply:Nick() .. "!" )
            return
        end

        local name = net.ReadString()
        local pos = net.ReadDouble()

        table.remove( QueueTable, pos )

        ulx.fancyLog( player.GetAll(), "#s removed song #s from the queue", ply:Nick(), name )

    end )

    net.Receive( "SendCooldownInfo", function( len, ply )

        ply:SetPData( "Cooldown", 3 )

    end )

    timer.Create( "CooldownTimer", 60, 0, function()

        for k, v in pairs( player.GetAll() ) do

            if v:GetPData( "Cooldown" ) and tonumber( v:GetPData( "Cooldown" ) ) > 0  then

                if tonumber( v:GetPData( "Cooldown" ) ) - 1 == 0 then

                    v:RemovePData( "Cooldown" )
                    v:ChatPrint( "You are now able to request a song again." )

                else
                    v:SetPData( "Cooldown", tonumber( v:GetPData( "Cooldown" ) ) - 1 )
                end

            end

        end

    end )

end


-- Clientside networking and GUI
if ( CLIENT ) then

    CreateClientConVar( "ttt_eor_music_enabled", "1", FCVAR_ARCHIVE )

    if not file.Exists( "radio", "DATA" ) then
        file.CreateDir( "radio" )
    end

    if not file.Exists( "radio/stations.txt", "DATA" ) then
        file.Write( "radio/stations.txt" )
    end

    usermessage.Hook( "playurlcl", function( um )

        local url = um:ReadString()
        local volume = um:ReadLong() / 100
        local ply = LocalPlayer()

        if ply.channel and IsValid( ply.channel ) then
            ply.channel:Stop()
        end

        sound.PlayURL( url, "", function( station )
            if station and IsValid( station ) then
                station:Play()
                LocalPlayer().channel = station
                LocalPlayer().channel:SetVolume(volume)
            end
        end )

    end )

    usermessage.Hook( "playurl", function( um )

        local url = um:ReadString()
        local volume = um:ReadLong() / 100
        local isEOR = um:ReadBool()

        if isEOR == false and GetConVar( "ttt_eor_music_enabled" ):GetInt() == 0 then
            return
        end

        local ply = LocalPlayer()

        if ply.channel and IsValid( ply.channel ) then
            ply.channel:Stop()
        end

        sound.PlayURL( url, "", function( station )
            if station and IsValid( station ) then
                station:Play()
                LocalPlayer().channel = station
                LocalPlayer().channel:SetVolume(volume)
            end
        end )

    end )

    usermessage.Hook( "playvolume", function( um )

        local volume = um:ReadLong() / 100
        local ply = LocalPlayer()

        if ply.channel and IsValid( ply.channel ) then
            ply.channel:SetVolume(volume)
        end

    end )

    usermessage.Hook( "stopurl", function( um )

        local ply = LocalPlayer()

        if ply.channel and IsValid( ply.channel ) then
            ply.channel:Stop()
            chat.AddText( "Sound stopped." )
        else
            chat.AddText( "No music playing!" )
        end

    end )

    usermessage.Hook( "SendSongName", function( um )

        local name = um:ReadString()

        hook.Add( "HUDPaint", "DrawSongName", function()

            local width

            if string.len( name ) >= 15 then
                width = 18 * string.len( name )
            else
                width = 270
            end

            draw.WordBox( 8, 5, 5, "Now Playing: " .. name, "Trebuchet24", Color( 0, 0, 0, 100 ), Color( 255, 255, 255, 200 ) )

        end )

    end )

    usermessage.Hook( "StopHUDPaint", function( um )

        hook.Remove( "HUDPaint", "DrawSongName" )

    end )

    usermessage.Hook( "stop_preround", function( um )

        if GetConVar( "ttt_eor_music_enabled" ):GetInt() == 0 then
            return
        end

        local ply = LocalPlayer()

        if ply.channel and IsValid( ply.channel ) then
            ply.channel:Stop()
        end

    end )

    usermessage.Hook( "EnterInfo", function()

        local name = ""
        local url = ""

        Derma_StringRequest(
            "Request Song",
            "Enter the artist and song title",
            "",

            function( text )

                name = text

                if text:len() >= 10 then

                    Derma_StringRequest(
                        "Request Song",
                        "Enter the .mp3 URL of the song",
                        "",

                        function( text2 )

                            if string.sub( text2, 1, 4 ) == "http" then

                                url = text2

                                net.Start( "SendQueueInfo" )
                                    net.WriteString( name )
                                    net.WriteString( url )
                                net.SendToServer()

                                net.Start( "SendCooldownInfo" )
                                net.SendToServer()

                            else
                                chat.AddText( "Invalid URL!" )
                            end

                        end,

                        function()
                            chat.AddText( "Song Queue Canceled." )
                        end,
                        "Finish"

                    )

                else
                    chat.AddText( "This text must be ten or more characters." )
                end

            end,

            function()
                chat.AddText( "Song Queue Canceled." )
            end,
            "Next"
        )

    end )

    usermessage.Hook( "open_endround_menu", function()

        local main = vgui.Create( "DFrame" )

        main:SetPos( 50,50 )
        main:SetSize( 700, 500 )
        main:SetTitle( "End Round Music Menu" )
        main:SetVisible( true )
        main:SetDraggable( true )
        main:ShowCloseButton( true )
        main:MakePopup()
        main:Center()

        local PropertySheet = vgui.Create( "DPropertySheet", main )
            PropertySheet:SetPos( 0, 25 )
            PropertySheet:SetSize( 700, 475 )

        local ulist = vgui.Create( "DListView", PropertySheet )
            ulist:SetPos( 4, 27 )
            ulist:SetSize( 692, 469 )
            ulist:SetMultiSelect( false )
            ulist:AddColumn( "Type" ):SetMaxWidth( 40 )
            ulist:AddColumn( "Song Title" ):SetMaxWidth( 275 )
            ulist:AddColumn( "URL" )

                net.Start( "RequestTables" )
                net.SendToServer()

                net.Receive( "RequestTablesCallback", function()

                    local innowinsound = net.ReadTable()
                    local traitorwinsound = net.ReadTable()
                    local timelimitsound = net.ReadTable()
                    local extrasound = net.ReadTable()
                    ulist:Clear()

                    for k, v in ipairs( innowinsound ) do
                        ulist:AddLine( "Inno", v[ 2 ], v[ 1 ] )
                    end

                    for k, v in ipairs( traitorwinsound ) do
                        ulist:AddLine( "Trator", v[ 2 ], v[ 1 ] )
                    end

                    for k, v in ipairs( timelimitsound ) do
                        ulist:AddLine( "Time", v[ 2 ], v[ 1 ] )
                    end

                    if table.Count( extrasound ) > 0 then
                        for k, v in ipairs( extrasound ) do
                            ulist:AddLine( "Extra", v[ 2 ], v[ 1 ] )
                        end
                    end

                end )

            ulist.OnRowRightClick = function( main, line )

                local menu = DermaMenu()

                    menu:AddOption( "Play for all", function()
                        RunConsoleCommand( "ulx", "playurl", ulist:GetLine( line ):GetValue( 3 ) )
                    end ):SetIcon( "icon16/control_play_blue.png" )

                    menu:AddOption( "Play for self", function()
                        RunConsoleCommand( "ulx", "playurlcl" , ulist:GetLine( line ):GetValue( 3 ) )
                    end ):SetIcon( "icon16/control_play.png")

                    menu:AddOption( "Stop all sounds", function()
                        RunConsoleCommand( "ulx", "stopurl" )
                    end ):SetIcon( "icon16/control_stop_blue.png" )

                    menu:AddOption( "Stop sounds for self", function()

                        local ply = LocalPlayer()

                        if ply.channel and IsValid( ply.channel ) then
                            ply.channel:Stop()
                            chat.AddText( "Sound stopped." )
                        else
                            chat.AddText( "No music playing!" )
                        end

                    end ):SetIcon("icon16/control_stop.png")

                    menu:AddOption( "Queue Song", function()

                        if ULib.ucl.query( LocalPlayer(), "ulx queuesong" ) then
                            net.Start( "SendQueueInfo" )
                                net.WriteString( ulist:GetLine( line ):GetValue( 2 ) )
                                net.WriteString( ulist:GetLine( line ):GetValue( 3 ) )
                            net.SendToServer()

                            net.Start( "SendCooldownInfo" )
                            net.SendToServer()
                        else
                            chat.AddText( "You don't have access to this command!" )
                        end

                    end ):SetIcon( "icon16/table_row_insert.png" )

                menu:Open()

            end

        PropertySheet:AddSheet( "Music", ulist, "icon16/music.png", false, false, "Show all songs in the webserver" )

        local queuetab = vgui.Create( "DPanel", PropertySheet )

            queuetab:SetPos( 4, 27 )
            queuetab:SetSize( 692, 469 )

        local queue = vgui.Create( "DListView", queuetab )

            queue:SetPos( 4, 4 )
            queue:SetSize( 572, 431 )
            queue:SetMultiSelect( false )
            queue:AddColumn( "User" )
            queue:AddColumn( "Song Title" )
            queue:AddColumn( "URL" )
            queue:SetSortable( false )

                net.Start( "RequestQueue" )
                net.SendToServer()

                net.Receive( "RequestQueueCallback", function()

                    local queuetab = net.ReadTable()
                    queue:Clear()

                    for k, v in ipairs( queuetab ) do
                        queue:AddLine( v[ 1 ], v[ 2 ], v[ 3 ] )
                    end

                end )

            queue.OnRowRightClick = function( main, line, number )

                local menu = DermaMenu()

                    menu:AddOption( "Play for all", function()
                        RunConsoleCommand( "ulx", "playurl", queue:GetLine( line ):GetValue( 3 ) )
                    end ):SetIcon( "icon16/control_play_blue.png" )

                    menu:AddOption( "Play for self", function()
                        RunConsoleCommand( "ulx", "playurlcl", queue:GetLine( line ):GetValue( 3 ) )
                    end ):SetIcon( "icon16/control_play.png" )

                    menu:AddOption( "Remove", function()

                        net.Start( "Queue_Remove" )
                            net.WriteString( queue:GetLine( line ):GetValue( 2 ) )
                            net.WriteDouble( tonumber( queue:GetSelectedLine( number ) ) )
                        net.SendToServer()

                        net.Start( "RequestQueue" )
                        net.SendToServer()

                        net.Receive( "RequestQueueCallback", function()

                            local queuetab = net.ReadTable()

                            queue:Clear()

                            for k, v in ipairs( queuetab ) do
                                queue:AddLine( v[ 1 ], v[ 2 ], v[ 3 ] )
                            end

                        end )

                    end ):SetIcon( "icon16/table_row_delete.png" )

                menu:Open()

            end

            local browse = vgui.Create( "DButton", queuetab )
                browse:SetSize( 100, 30 )
                browse:SetPos( 580, 4 )
                browse:SetText( "Browse .mp3s" )
                browse.DoClick = function( browse )
                    gui.OpenURL( "http://mp3skull.com/" )
            end

            local q = vgui.Create( "DButton", queuetab )
                q:SetSize( 100, 30 )
                q:SetPos( 580, 40 )
                q:SetText( "Queue a song" )
                q.DoClick = function( q )
                    RunConsoleCommand( "ulx", "queuesong" )
            end

        PropertySheet:AddSheet( "Queue", queuetab, "icon16/table_go.png", false, false, "View Queued Songs" )

        local radio = vgui.Create( "DPanel", PropertySheet )

            radio:SetPos( 4, 27 )
            radio:SetSize( 692, 469 )

        local stations = vgui.Create( "DListView", radio )

            stations:SetPos( 4, 4 )
            stations:SetSize( 572, 431 )
            stations:SetMultiSelect( false )
            stations:AddColumn( "Station" )

                local toAdd = file.Read( "radio/stations.txt", "DATA" )

                if toAdd:len() > 0 then

                    local tab = string.Explode( "\n", toAdd )

                    for k, v in ipairs( tab ) do
                        if v ~= "" then
                            stations:AddLine( v )
                        end
                    end

                end

            stations.OnRowRightClick = function( main, line, number )

                local menu = DermaMenu()

                    menu:AddOption( "Start Radio", function()
                        RunConsoleCommand( "ulx", "playurlcl", string.sub( stations:GetLine( line ):GetValue( 1 ), string.find( stations:GetLine( line ):GetValue( 1 ), "|" ) + 2 ) )
                    end ):SetIcon( "icon16/control_play.png" )

                    menu:AddOption( "Stop Radio", function()
                        RunConsoleCommand( "ulx", "stopurlcl" )
                    end ):SetIcon( "icon16/control_stop.png" )

                    menu:AddOption( "Copy URL", function()
                        SetClipboardText( string.sub( stations:GetLine( line ):GetValue( 1 ), string.find( stations:GetLine( line ):GetValue( 1 ), "|" ) + 2 ) )
                        chat.AddText( "URL Copied." )
                    end ):SetIcon( "icon16/tag_blue_edit.png" )

                    menu:AddOption( "Remove Station", function()

                        chat.AddText( "Station \"" .. string.sub( stations:GetLine( line ):GetValue( 1 ), 1, string.find( stations:GetLine( line ):GetValue( 1 ), "|" ) - 2 ) .. "\" removed." )
                        stations:RemoveLine( line )

                        local newTab2 = {}

                        for k, v in pairs( stations:GetLines() ) do
                            local url = v:GetValue( 1 )
                            table.insert( newTab2, url )
                        end

                        file.Delete( "radio/stations.txt" )
                        file.Write( "radio/stations.txt" )

                        for k, v in pairs( newTab2 ) do
                            file.Append( "radio/stations.txt", v .. "\n" )
                        end

                        stations:Clear()

                        local toAdd = file.Read( "radio/stations.txt", "DATA" )

                        if toAdd:len() > 0 then

                            local tab = string.Explode( "\n", toAdd )

                            for k, v in ipairs( tab ) do
                                stations:AddLine( v )
                            end

                        end

                    end ):SetIcon( "icon16/table_row_delete.png" )

                menu:Open()

            end

        local browse = vgui.Create( "DButton", radio )
            browse:SetSize( 100, 30 )
            browse:SetPos( 580, 4 )
            browse:SetText( "Browse Stations" )
            browse.DoClick = function( browse )
                gui.OpenURL( "http://www.shoutcast.com/" )
        end

        local add = vgui.Create( "DButton", radio )
            add:SetSize( 100, 30 )
            add:SetPos( 580, 40 )
            add:SetText( "Add Station by URL" )
            add.DoClick = function( add )

                local name = ""

                Derma_StringRequest(
                    "Add Station",
                    "Name this station",
                    "",

                    function( text )

                        name = text

                        Derma_StringRequest(
                            "Add Station",
                            "Enter the URL for this station",
                            "",

                            function( text2 )

                                file.Append( "radio/stations.txt", text .. " | " .. text2 .. "\n" )

                                stations:AddLine( text:Trim() .. " | " .. text2:Trim() )

                                local newTab = {}

                                for i = 1, #stations:GetLines() do
                                    local url = stations:GetLine( i ):GetValue( 1 )
                                    table.insert( newTab, url )
                                end

                                file.Delete( "radio/stations.txt" )
                                file.Write( "radio/stations.txt" )

                                for k, v in pairs( newTab ) do
                                    file.Append( "radio/stations.txt", v .. "\n" )
                                end

                            end,

                            function()
                                chat.AddText( "Station Add Canceled." )
                            end,
                            "Add"

                        )

                    end,

                    function()
                            chat.AddText( "Station Add Canceled." )
                        end,
                    "Next"

                )

        end

        PropertySheet:AddSheet( "Radio", radio, "icon16/sound.png", false, false, "View Radio Stations" )

    end )

    local function AddSettings( dtabs )
        local musicsettings = vgui.Create( "DPanelList", dtabs )
        musicsettings:StretchToParent( 0, 0, padding, 0 )
        musicsettings:EnableVerticalScrollbar( true )
        musicsettings:SetPadding( 10 )
        musicsettings:SetSpacing( 10 )

        local setting = nil
        local Music = vgui.Create( "DForm", musicsettings )
        Music:SetName( "End Round Music" )

        setting = Music:CheckBox( "Enable End Round Music", "ttt_eor_music_enabled" )
        setting:SetTooltip( "Disable EOR Music" )

        musicsettings:AddItem( Music )

        dtabs:AddSheet( "EOR Music", musicsettings, "icon16/music.png", false, false, "End Round Music Settings" )
    end
    hook.Add( "TTTSettingsTabs", "AddSettings", AddSettings )

end