Sub SetMaterialDiffuseColor( material_id, color)

Set's a material's diffuse color