local me = nero.GetPlayer("CapsAdmin")
local max1 = me:GetRunSpeed()
local max2 = me:GetWalkSpeed()

hook.Add("Think", "SlowDown!", function()
    for key, ply in pairs(ents.FindInSphere(me:GetPos(), 4000)) do
        if ply:IsPlayer() and ply ~= me then
            ply:SetRunSpeed(math.Clamp(ply:GetPos():Distance(me:GetPos())/2, 0, max1))
            ply:SetWalkSpeed(math.Clamp(ply:GetPos():Distance(me:GetPos())/2, 0, max2))
        end
    end
end)