NWVars fix

sh_properties.lua

--[[--
	
	Script from some base entity I once made,
	
	usage:
	Call InitProperties() from the entity's Init method.
	Call ThinkProperties() from the entity's Think method.
	
	This solution is kinda heavy because it uses think to find changes in the variables
	
--]]--

function ENT:InitProperties()
	self.PropertyProxyList = {};
	self.PropertyProxyCache = {};
	
	self:NetworkedProperty("Float", "PreferredSize", self.Config.PreferredSize);
end

function ENT:NetworkedProperty(propertyType, propertyName, initialValue)
	local rawSetter = self["SetNW" .. propertyType];
	local rawGetter = self["GetNW" .. propertyType];
	assert(rawSetter and rawGetter, "Invalid property type: " .. propertyType);
	
	self["Set" .. propertyName] = function(self, value)
		assert(SERVER, "Cannot change networked property client-side");
		rawSetter(self, propertyName, value);
	end
	self["Get" .. propertyName] = function(self)
		return rawGetter(self, propertyName);
	end
		
	local callback = self["On" .. propertyName .. "Changed"];
	if callback then
		self:SetNWVarProxy(propertyName, callback);
		table.insert(self.PropertyProxyList, propertyName);
	end
	
	if SERVER then
		rawSetter(self, propertyName, initialValue);
	end
end

function ENT:ThinkProperties()
	for _, name in pairs(self.PropertyProxyList) do
		local currentValue = self["Get" .. name](self);
		local oldValue = self.PropertyProxyCache[name];
		if (currentValue != oldValue) then
			local callback = self:GetNWVarProxy(name);
			if (callback) then
				callback(self, oldValue, currentValue);
			end
		end
		self.PropertyProxyCache[name] = currentValue;
	end
end