Sub SetMaterialShininess( material_id, shininess)

Sets the size of specular highlights

Values range from 0 to 128