Sub SetMaterialAmbientColor( material_id, color)

Sets the ambient color of a material