if selection.count != 0 do 
(
	mmtl = multimaterial numsubs:selection.count name:"SelectionMtls"
	mmtl.materialList = for i = 1 to selection.count 
		where selection[i].material != undefined collect
	(
		addModifier selection[i] (Materialmodifier materialID:i) -- add modifier with i as mID
		selection[i].material
		--name[i] = selection[i].name
		
	)
	selection.material = meditMaterials[1] = mmtl
	
)


-- meditMaterials[1].materialList.materialList[99] = meditMaterials[1].materialList[99]
-- meditMaterials[1].mapEnabled[100] = on
-- meditMaterials[1].materialIDList[100] = 99
-- meditMaterials[1].names[100] = ""

--multiMaterial numsubs:selection.count name:newMultiName