clients/2016/content/scripts/CoreScripts/BuildToolsScripts/PersonalServerScript.lua

-- Personal Server Script

-----------------
--| Constants |--
-----------------

local CHANGES_PER_PLAYER = 100 -- Saving also occurs every time the number of edits reaches this number times the number of players
local SAVE_CHECK_INTERVAL = 1800 -- should be set in seconds, this is how long we wait to force a save, as long as at least one change has been made
local MIN_SAVE_TIME = 900 -- At least this many seconds will pass before saving again

-----------------
--| Variables |--
-----------------

local ContentProviderService = game:GetService('ContentProvider')
local PlayersService = game:GetService('Players')
local RunService = game:GetService("RunService")

local StartingPlayerRanks = {}
local RbxUtil = nil

local LastSaveTime = 0
local ChangeCount = 0
local TryingToSave = false
local NumberOfChangesBeforeSaveAbsolute = CHANGES_PER_PLAYER
local GameRunning = true
local WaitingToSave = false

local PlaceId = game.PlaceId
local Url = ContentProviderService.BaseUrl
local UrlBase = Url:match('^http://www\.(.-)/?$') -- Turns "http://www.gametest1.robloxlabs.com/" into "gametest1.robloxlabs.com"
local ApiProxyUrl = 'https://api.' ..  UrlBase
local DataFarmProtocol = 'http'
local DataFarmUsesHttpsFlagExists, DataFarmUsesHttpsFlagValue = pcall(function () return settings():GetFFlag("DataFarmUsesHttps") end)
if DataFarmUsesHttpsFlagExists and DataFarmUsesHttpsFlagValue then
	DataFarmProtocol = 'https'
end
local DataFarmUrl = DataFarmProtocol .. '://data.' .. UrlBase

-----------------
--| Functions |--
-----------------

function GetRbxUtil()
	if not RbxUtil then
		RbxUtil = LoadLibrary("RbxUtility")
	end
	return RbxUtil
end

-- Checks the full hierarchy of an instance for archivability
local function IsArchivable(instance)
	if instance == workspace then
		return true
	elseif not instance.Archivable then
		return false
	else
		return IsArchivable(instance.Parent)
	end
end

local function UpdateSaveOnChangeAmount()
	local players = PlayersService:GetPlayers()
	NumberOfChangesBeforeSaveAbsolute = #players * CHANGES_PER_PLAYER
end

local function OnPlayerAdded(player)
	if player:IsA('Player') then

		local getRankUrl = ApiProxyUrl .. '/RoleSets/GetRoleSetForUser?placeId=' .. tostring(PlaceId) .. '&userId=' .. tostring(player.userId)
		local serverRankTable = nil
		pcall(function()
			serverRankTable = GetRbxUtil().DecodeJSON(game:HttpGetAsync(getRankUrl))
		end)

		local playerRank = 0
		if serverRankTable and type(serverRankTable) == 'table' then
			for k, v in pairs(serverRankTable) do
				if k == "data" then
					if v["Rank"] then
						playerRank = v["Rank"]
					end
				end
			end
		end

		player.PersonalServerRank = playerRank
		StartingPlayerRanks[player] = playerRank

		UpdateSaveOnChangeAmount()
	end
end

local function OnPlayerRemoved(player)
	if player:IsA('Player') then
		UpdateSaveOnChangeAmount()

		if StartingPlayerRanks[player] then
			local playerRank = player.PersonalServerRank
			if StartingPlayerRanks[player] ~= playerRank then -- Don't need to make web call if rank is the same
				local setRankUrl = ApiProxyUrl .. '/RoleSets/PrivilegedSetUserRoleSetRank?placeId=' .. tostring(PlaceId) .. '&userId=' .. tostring(player.userId) .. '&newRank=' .. tostring(playerRank)
				ypcall(function() game:HttpPostAsync(setRankUrl, 'SetPersonalServerRank') end)
			end
			StartingPlayerRanks[player] = nil
		end
	end
end

local function DoSave()
	if GameRunning then
		ChangeCount = 0
		LastSaveTime = tick()
		game:ServerSave()
	end
end

local function TrySave()
	if not TryingToSave then
		TryingToSave = true

		local now = tick()

		if now - LastSaveTime >= MIN_SAVE_TIME then
			DoSave()
		elseif not WaitingToSave then -- Save after cooldown
			WaitingToSave = true
			delay(LastSaveTime + MIN_SAVE_TIME - now, function()
				DoSave()
				WaitingToSave = false
			end)
		end

		TryingToSave = false
	end
end

-- Save based on number of edits to workspace
local function OnEdit(descendant)
	if IsArchivable(descendant) then
		ChangeCount = ChangeCount + 1
		if ChangeCount >= NumberOfChangesBeforeSaveAbsolute then
			TrySave()
		end
	end
end

-- Make sure we save every interval regardless of number of edits, so long as there is one
local function CheckForSaveOnInterval()
	while true do
		wait(SAVE_CHECK_INTERVAL)

		if tick() - LastSaveTime >= SAVE_CHECK_INTERVAL and ChangeCount > 0 then
			TrySave()
		end
	end
end

--------------------
--| Script Logic |--
--------------------

game:WaitForChild('Workspace')

pcall(function()
	game.IsPersonalServer = true

	if not workspace:FindFirstChild("PSVariable") then
		local psVar = Instance.new("BoolValue")
		psVar.Name = "PSVariable"
		psVar.Archivable = false
		psVar.Parent = workspace
	end
end)

PlayersService.PlayerAdded:connect(OnPlayerAdded)
PlayersService.ChildRemoved:connect(OnPlayerRemoved)
for _, player in pairs(PlayersService:GetPlayers()) do
	OnPlayerAdded(player)
end

local useSubdomainsFlagExists, useSubdomainsFlagValue = pcall(function () return settings():GetFFlag("UseNewSubdomainsInCoreScripts") end)
local saveUrlBase = Url
if(useSubdomainsFlagExists and useSubdomainsFlagValue and DataFarmUrl~=nil) then
	saveUrlBase = DataFarmUrl
end

if saveUrlBase~=nil then
	game:SetServerSaveUrl(saveUrlBase .. "/Data/AutoSave.ashx?assetId=" .. PlaceId)
end

if pcall(function()
	game.Close:connect(
		function()
			GameRunning = false
			game:ServerSave()
		end)
	end) == false then
	print("!Error in Game.Close:connect")
end

RunService:Run()

game:GetService("Workspace").DescendantAdded:connect(OnEdit)
game:GetService("Workspace").DescendantRemoving:connect(OnEdit)

spawn(CheckForSaveOnInterval)