Grimrock

Code: Select all

oldDefineObject = defineObject;
defines = { };

defineObject = function(data) 
	defines[data.name] = data;
	oldDefineObject(data);
	
	if type(onDefineObject) == 'function' then
		onDefineObject(data)
	end
end

function mergeTableValues(source,target)
	for key,val in pairs(source) do
		if key ~= 'components' and target[key] == nil then
			target[key] = val
		end
	end
end

function findComponent(def,name)
	if def.components == nil then return false end
	for _,component in ipairs(def.components) do
		if component.name == name or (component.class and string.lower(component.class) == name) then
			return component
		end
	end
	return false
end

function cloneObject(data)
	local baseObjectName = data.baseObject or data.name
	local baseObj = defines[baseObjectName]
	if not baseObj then
		print('WARNING (cloneObject): Invalid base object '..baseObjectName)
		return
	end

	-- copy components from the base object to the new object
	if baseObj.components then
		if data.components == nil then 
			data.components = {}
		end
		for _,baseComponent in ipairs(baseObj.components) do
			local name = baseComponent.name or string.lower(baseComponent.class)
			local newComponent = findComponent(data,name)
			if not newComponent then
				newComponent = {}
				table.insert(data.components,newComponent)
			end
			mergeTableValues(baseComponent,newComponent)
		end
	end
	mergeTableValues(baseObj,data)
	defineObject(data)
end

function modify_object_cleanup()
	defines = nil
end

function copy(obj, seen)
  if type(obj) ~= 'table' then return obj end
  if seen and seen[obj] then return seen[obj] end
  local s = seen or {}
  local res = {}
  s[obj] = res
  for k, v in pairs(obj) do res[copy(k, s)] = copy(v, s) end
  return res
end

function modifyObjects(def)
	local filter = def.filter.hasComponents

	for name,obj in pairs(defines) do
		local ok = true
		for _,filterComponent in ipairs(filter) do
			local c = findComponent(obj,filterComponent)
			if not c then 
				ok = false 
				break 
			end
		end
		
		if ok then
			local modifyDef = copy(def)
			modifyDef.filter = nil
			modifyDef.name = obj.name
			cloneObject(modifyDef)
		end
	end

end

Code: Select all

cloneObject{
	name = 'ratling1_test',
        baseObject = 'ratling1',
	components = {
		{
			name = "monster",
			onPerformAction = function(self,action) print(action) end
		}
	},
}

Code: Select all

cloneObject{
	name = 'ratling1',
	components = {
		{
			name = "monster",
			onPerformAction = function(self,action) print(action) end
		}
	},
}

Code: Select all

defineObject{
	name = 'ratling1',
	baseObject='ratling1',
	components = {
		{
			hitSound = "ratling_hit",
			protection = 3,
			health = 250,
			class = "Monster",
			evasion = 6,
			meshName = "ratling_mesh",
			footstepSound = "ratling_footstep",
			exp = 150,
			hitEffect = "hit_blood_small",
			capsuleRadius = 0.7,
			dieSound = "ratling_die",
			name = "monster",
			capsuleHeight = 0.2,
			onPerformAction = function(self,action) print(action) end
		}
	}
}