I think bcol has a life of 110 without being ignited, so when it touches clfm it would create cflm particles around it for 110 frames and then disappear. very easy :p
A simple lua script:
local function BCOL(index, partx, party, surround_space, nt)
if nt > 0 and tpt.get_property("tmp",partx,party)==0 then
for fx = -1, 1, 1 do
for fy = -1, 1, 1 do
if tpt.get_property('type', partx + fx, party +fy) == elements.DEFAULT_PT_CFLM then
sim.partProperty(sim.partID(partx,party),"tmp",110);
return
end
end
end
end
if tpt.get_property("tmp",partx,party)>10 then
sim.createParts(partx,party,2,2,elements.DEFAULT_PT_CFLM)
sim.partProperty(sim.partID(partx,party),"tmp",tpt.get_property("tmp",partx,party)-1);
elseif tpt.get_property("tmp",partx,party)>=1 then sim.partChangeType(sim.partID(partx,party),elements.DEFAULT_PT_CFLM)
end
end
elements.property(elements.DEFAULT_PT_BCOL,"Update",BCOL)