/proc/machine_upgrade(obj/machinery/M in world)
	set name = "Tweak Component Ratings"
	set category = "Debug"

	if(!check_rights(R_DEBUG)) 
		return
	
	if(!istype(M))
		to_chat(usr, "<span class='danger'>This can only be used on subtypes of /obj/machinery.</span>")
		return
	
	var/new_rating = input("Enter new rating:","Num") as num
	if(!isnull(new_rating) && M.component_parts)
		for(var/obj/item/stock_parts/P in M.component_parts)
			P.rating = new_rating
		M.RefreshParts()
		
		message_admins("[key_name_admin(usr)] has set the component rating of [M] to [new_rating]")
		log_admin("[key_name(usr)] has set the component rating of [M] to [new_rating]")

	feedback_add_details("admin_verb","MU") //If you are copy-pasting this, ensure the 2nd parameter is unique to the new proc!