Adds proc to replace default cells with high cap on machinery (#7241)

* Adds proc to replace default cells with high cap on machinery

* *grumbling*

code/modules/mining/drilling/drill.dm

@@ -55,6 +55,7 @@
 /obj/machinery/mining/drill/Initialize()
 	. = ..()
 	default_apply_parts()
+	default_use_hicell()
 
 /obj/machinery/mining/drill/process()
 
@@ -166,7 +167,7 @@
 			to_chat(user, "The drill already has a cell installed.")
 		else
 			user.drop_item()
-			O.loc = src
+			O.forceMove(src)
 			cell = O
 			component_parts += O
 			to_chat(user, "You install \the [O].")
@@ -178,7 +179,7 @@
 
 	if (panel_open && cell && user.Adjacent(src))
 		to_chat(user, "You take out \the [cell].")
-		cell.loc = get_turf(user)
+		cell.forceMove(get_turf(user))
 		component_parts -= cell
 		cell = null
 		return