Implement limitsets

lua/acf/core/globals.lua

@@ -106,6 +106,15 @@ do
 			return Float
 		end
 	end
+
+	function ACF.StringDataCallback()
+		local SettingData = ACF.GetWorkingSetting()
+		SettingData.Type = "String"
+
+		return function(_, Value)
+			return tostring(Value)
+		end
+	end
 end
 
 do -- ACF global vars
@@ -117,6 +126,8 @@ do -- ACF global vars
 	ACF.ModelData            = ACF.ModelData or { Models = {} }
 
 	-- General Settings
+	ACF.DefineSetting("SelectedLimitset",   "none", "The current limitset has been set to %s.", ACF.StringDataCallback())
+
 	ACF.DefineSetting("AllowAdminData",     false,  "Admin server data access has been %s.", ACF.BooleanDataCallback())
 	ACF.DefineSetting("RestrictInfo",       true,   "Entity information has been %s.", ACF.BooleanDataCallback())
 	ACF.DefineSetting("LegalChecks",        true,   "Legality checks for ACF entities has been %s.", ACF.BooleanDataCallback())

lua/acf/core/networking/data_vars/data_vars_sh.lua

@@ -118,7 +118,7 @@ do -- Data persisting
 		UpdateData(Key)
 	end)
 
-	hook.Add("Initialize", "ACF Load Persisted Data", function()
+	hook.Add("ACF_OnLoadAddon", "ACF Load Persisted Data", function()
 		local Saved       = ACF.LoadFromFile(Folder, File)
 		local SetFunction = ACF["Set" .. Realm .. "Data"]
 
@@ -140,7 +140,7 @@ do -- Data persisting
 		end
 
 		hook.Run("ACF_OnLoadPersistedData")
-		hook.Remove("Initialize", "ACF Load Persisted Data")
+		hook.Remove("ACF_OnLoadAddon", "ACF Load Persisted Data")
 	end)
 end
 

lua/acf/core/networking/data_vars/data_vars_sv.lua

@@ -68,15 +68,18 @@ do -- Data syncronization
 
 		if not Data then return end
 
-		local Hook = "ACF_OnUpdate" .. Type .. "Data"
+		local HookUpdate = "ACF_OnUpdate" .. Type .. "Data"
+		local HookUpload = "ACF_OnUpload" .. Type .. "Data"
 
 		for K, V in pairs(Data) do
 			if Values[K] ~= V then
 				Values[K] = V
 
-				hook.Run(Hook, Player, K, V)
+				hook.Run(HookUpdate, Player, K, V)
 			end
 
+			hook.Run(HookUpload, Player, K, V)
+
 			Data[K] = nil
 		end
 	end

lua/acf/limitsets/limitset.lua

@@ -0,0 +1,91 @@
+local OldRegistered = ACF.LimitSets and ACF.LimitSets.Registered or nil
+
+local LimitSets = {
+    Registered = OldRegistered or {},
+    __PostInitLimitSet = false
+}
+ACF.LimitSets = LimitSets
+
+if SERVER then
+    LimitSets.acf_has_limitset_notice_been_shown = CreateConVar("__acf_has_limitset_notice_been_shown", 0, FCVAR_ARCHIVE + FCVAR_REPLICATED + FCVAR_UNREGISTERED, "Internal limitset flag", 0, 1)
+end
+
+function LimitSets.Create(Name)
+    local Object = {
+        ServerData = {}
+    }
+
+    LimitSets.Registered[Name] = Object
+
+    Object.Name = Name
+
+    function Object:WithAuthor(Author) self.Author = Author end
+    function Object:WithDescription(Description) self.Description = Description end
+
+    function Object:SetServerData(Key, Value)
+        self.ServerData[Key] = Value
+    end
+
+    -- This allows hot-reloading
+    if Name == ACF.ServerData.SelectedLimitset and LimitSets.__PostInitLimitSet then
+        timer.Simple(0, function()
+            LimitSets.Execute(Name)
+        end)
+    end
+
+    return Object
+end
+
+function LimitSets.Get(Name)
+    return LimitSets.Registered[Name]
+end
+
+function LimitSets.GetAll()
+    return table.GetKeys(LimitSets.Registered)
+end
+
+function LimitSets.Execute(Name)
+    if CLIENT then return end
+    if Name == "none" then
+
+        return true, "OK"
+    end
+    if not isstring(Name) then return false, "Argument #1 (Name) must be a string." end
+
+    local LimitSet = LimitSets.Registered[Name]
+    if not LimitSet then return false, "No limitset with the name '" .. Name .. "'." end
+
+    ACF.Utilities.Messages.PrintLog("Info", "Loading the limitset '" .. Name .. "' by " .. (LimitSet.Author or "<no author>") .. "...")
+
+    for Key, Value in pairs(LimitSet.ServerData) do
+        ACF.SetServerData(Key, Value)
+    end
+
+    return true, "OK"
+end
+
+local function UpdateLimitSet()
+    local SelectedLimitsetName = ACF.ServerData.SelectedLimitset or "none"
+    local SelectedLimitset     = ACF.LimitSets.Registered[SelectedLimitsetName]
+
+    if SelectedLimitset then
+        LimitSets.Execute(SelectedLimitsetName)
+    else
+        ACF.Utilities.Messages.PrintLog("Info", "No limitset loaded.")
+    end
+
+    ACF.LimitSets.__PostInitLimitSet = true
+end
+
+hook.Add("ACF_OnLoadPersistedData", "ACF_LimitSets_Setup", function()
+    if CLIENT then return end
+
+    UpdateLimitSet()
+
+    hook.Add("ACF_OnUploadServerData", "ACF_LimitSets_WatchForKey", function(_, Key, _)
+        if Key ~= "SelectedLimitset" then return end
+        UpdateLimitSet()
+
+        LimitSets.acf_has_limitset_notice_been_shown:SetBool(true)
+    end)
+end)