BoH bombing rework II (#45174)

Ever since the big BoH nerf, BoH bombing is kind of a joke. The damage it does is not really huge, and it's lame for traitors - it lacks emotion and their target may not even die, as they can use the ladders to get away.

So, what this does is add back some soul into BoH bombing, while not making it too round-ending and adding some degree of damage control for admins in case of griefing.
When BoH bombing, a stationary singulo with custom sprite will spawn. Its gravitational pull is REALLY strong, so people near it are probably going to get eaten, and there will be some real damage to the hull. The singulo will cease existing after 5 seconds.

For antags, I think this becomes much more interesting than the current BoH bombing. In the case of griefers, the damage to the station isn't too big because the singulo is stationary and fades away after some seconds. And then, admins can click a button in their chat to bring back everything the singulo ate into the game (the button expires in 10 minutes, however, but this can be changed if you think it is needed).

Settings like gravitational pull can be tweaked if yall find it to be too strong or something.
Changelog

cl
tweak: BoH bombing changed again. Now it's more violent.
/cl

code/modules/admin/topic.dm

@@ -1790,7 +1790,7 @@
 					log_query_debug("[usr.key] | [response]")
 		else if(answer == "no")
 			log_query_debug("[usr.key] | Reported no server hang")
-	
+
 	else if(href_list["ctf_toggle"])
 		if(!check_rights(R_ADMIN))
 			return
@@ -1804,12 +1804,12 @@
 			return
 		if(confirm == "Yes")
 			restart()
-		
+
 	else if(href_list["check_teams"])
 		if(!check_rights(R_ADMIN))
 			return
 		check_teams()
-		
+
 	else if(href_list["team_command"])
 		if(!check_rights(R_ADMIN))
 			return
@@ -1909,6 +1909,19 @@
 	else if(href_list["beakerpanel"])
 		beaker_panel_act(href_list)
 
+	else if(href_list["retrieveboh"])
+		var/obj/singularity/boh_tear/tear = locate(href_list["retrieveboh"])
+		if(!tear)
+			to_chat(usr, "Either items were already retrieved or 10 minutes have passed and they were deleted.")
+			return
+		var/confirm = alert("This will teleport all items consumed to the BoH tear back to the BoH tear original location, and delete the BoH if it still exists. Are you sure?", "Confirm Damage Control", "Yes", "No")
+		if(confirm != "Yes")
+			return
+		var/turf/T = get_turf(tear.old_loc)
+		message_admins("The items consumed by the BoH tear at [ADMIN_VERBOSEJMP(T)] were retrieved by [key_name_admin(usr)].")
+		tear.investigate_log("Items consumed at [AREACOORD(T)] retrieved by [key_name(usr)].", INVESTIGATE_SINGULO)
+		tear.retrieve_consumed_items()
+
 /datum/admins/proc/HandleCMode()
 	if(!check_rights(R_ADMIN))
 		return