Loading tycoon data on multiple plots?

Alright Creeperman1524 has told you how to this sort of. What he means is, instead of saving data like you are current with primarypartcframe and doing alot of math, i would use ":PointToObjectSpace" on the cframe value, heres sortof how you would do it(it does return vector3). "PointToObjectSpace" gets the vector3 position from the plot, and then you would do "PointToWorldSpace" to place the objects once data is loaded.

--PointToObjectSpace()

heres the save function:

local function Save(plr)
    local key = "plr-"..plr.UserId

    local TycoonSave = {}
    local Tycoon = script.Parent.SaveFolder:GetChildren()

    for i, obj in pairs(Tycoon) do
        if obj then
            table.insert(TycoonSave, {
                ["Name"] = obj.Name;
                ["CFS"] = { -- CFS = CFrames
                    ["X"] = Plot.CFrame:PointToObjectSpace(obj.PrimaryPart.CFrame.p).X;
                    ["Y"] = Plot.CFrame:PointToObjectSpace(obj.PrimaryPart.CFrame.p).Y;
                    ["Z"] = Plot.CFrame:PointToObjectSpace(obj.PrimaryPart.CFrame.p).Z;
                    ["R"] = obj.PrimaryPart.Orientation.Y
                }
            })
        end
    end

    local success, err = pcall(function()
        DataStore:SetAsync(key, TycoonSave)
    end)

    if not success then
        warn("Failed to over-right data"..tostring(err))
        return
    end

    return TycoonSave
end

and heres the load:

local function Load(plr)
    local key = "plr-"..plr.UserId

    local Saved

    local success, err = pcall(function()
        Saved = DataStore:GetAsync(key)
    end)

    if not success then
        warn("Failed to read data"..tostring(err))
        return
    end

    if Saved then
        for q, objs in pairs(script.Parent.SaveFolder:GetChildren()) do
            if objs then
                objs:Destroy()
            end
        end

        wait(1)

        for i, obj in pairs(Saved) do
            if obj then
                local SavedModel = game.ReplicatedStorage.Models:FindFirstChild(obj.Name)

                if SavedModel then
                    wait(0, 1)

                    local Model = SavedModel:Clone()

                    Model.Parent = workspace.SaveFolder

                    if Model then
			Model:SetPrimaryPartCFrame(CFrame.new(Plot.CFrame:PointToWorldSpace(Vector3.new(obj.CFS.X, obj.CFS.Y, obj.CFS.Z).X,Plot.CFrame:PointToWorldSpace(Vector3.new(obj.CFS.X, obj.CFS.Y, obj.CFS.Z).Y,Plot.CFrame:PointToWorldSpace(Vector3.new(obj.CFS.X, obj.CFS.Y, obj.CFS.Z).Z)*CFrame.Angles(0, math.rad(obj.CFS.R), 0))
                        Model.PrimaryPart.Transparency = 1
                        Model.PrimaryPart.CanCollide = false
                    end
                end
            end
        end

        wait(1)
    else 
        -- save the data
    end

This should work, all i did was replace all that math you did when loading to PointToWorldSpace, after saving it from the last plot with PointToObjectSpace. Hope this helps you