Factorio Forums

Code: Select all

function RegisterEntities()
	remote.call(
		"Composite-Combinators-Core", "registerCompositeCombinatorPrototype", "euc-distinct-constant-combinator", 2, { x = 0, y = 0 }, 
		"item-with-tags$composite-combinator-io-marker$item$constant-combinator$)1$2$4$0$in@1(3$4$44$131330$1[item@red-wire@1[item@construction-robot@2[(3$4$46$131074$1[item@green-wire@1[item@construction-robot@1[()01$131073$65537(00$196609$65537(01$65538$65537(00$65539$65537(",
		false
	)
	
end

Code: Select all

	-- entity -> string 
	constantCombinatorSerialize = function(entity)
		if entity == nil then
            return nil
        end
		
		local beh = entity.get_control_behavior()
		
		local str = ((beh.enabled and 1) or 0)..(baseConst.strBoundary2)
		
		for _,signals in pairs(beh.parameters) do
			for _,signal in pairs(signals) do
				if signal.signal.name then
					str = str..(signal.signal.type)..(baseConst.strBoundary1)..(signal.signal.name)..(baseConst.strBoundary1)..(signal.count)..(baseConst.strBoundary2)
				end
			end
        end
		
		return str
	end,
	
	-- string -> slots 
	constantCombinatorConvert = function(str, slots, nextSlot)
		if slots == nil then
            return nil
        end
		
		local count = 0
		
		local spl = split3(str, baseConst.strBoundary2)
		local enabled = tonumber(spl[1])
		
		spl[1] = nil
		
		for _,node in pairs(spl) do 
			count = count + 1
		end
		
		local signalType
		local signalName
		local signalCount
		
		count = bit32.lshift(count, 16) + enabled
		
		slots[nextSlot] = { signal = baseConst.specialSignal, count = count, index = nextSlot }
		nextSlot = nextSlot + 1
		
		for _,node in pairs(spl) do 
			if node ~= nil then
				local subnodes = split3(node, baseConst.strBoundary1)
				signalType = subnodes[1]
				if not signalType then break end
				signalName = subnodes[2]
				if signalType == '' then
					enabled = subnodes[2]
					break
				end
				signalCount = subnodes[3]
				slots[nextSlot] = { signal = { type = signalType, name = signalName }, count = signalCount, index = nextSlot }
				nextSlot = nextSlot + 1
				-- game.players[1].print("viSig: "..signalName..' T '..signalType..' C '..count..' I '..nextSlot)
			end
		end
		
		return nextSlot
	end,

	-- slots -> spawn
    constantCombinatorOnSpawn = function(entity, slots, nextSlot, slotsToRead)
        if entity == nil then
            return nil
        end
		
        local beh = entity.get_control_behavior()
		
		if slots[nextSlot].signal.name ~= baseConst.specialSignal.name then
			error('Corrupted data')
		end
		
		local enabled = tonumber(bit32.band(slots[nextSlot].count, 0xFFFF))
		local count = tonumber(bit32.band(bit32.rshift(slots[nextSlot].count, 16), 0xFFFF))
		-- game.players[1].print("ENA~"..enabled)
		beh.enabled = enabled == 1 and true or false
        nextSlot = nextSlot + 1
		
		local i = 1
	
		local params = { }
        while i<count do 
			if slots[nextSlot].signal.name == baseConst.specialSignal.name then
				break
			end
			local ins = { count = tonumber(slots[nextSlot].count), index = i, signal = slots[nextSlot].signal }
            table.insert(params, ins)
            nextSlot = nextSlot + 1
			i = i + 1
        end
		beh.parameters = {parameters = params} 
		
		-- game.players[1].print("SIGSS: "..inspect(beh.parameters)..' to '..entity.name)
		return nextSlot
    end
    
    ...
    
        remote.call("Composite-Combinators-Core", "registerComponentPrototype", "constant-combinator", "composite-combinator-constant-component", 17, 
        { 
            defines.circuit_connector_id.constant_combinator 
        }, 
        {
            interface = "Composite-Combinators-Base",
            method = "constantCombinatorSerialize"
        },
        {
            interface = "Composite-Combinators-Base",
            method = "constantCombinatorConvert"
        },
        {
            interface = "Composite-Combinators-Base",
            method = "constantCombinatorSpawn"
        }
    )