[MIRROR] Adds the PubbyStation Monastery as a purchasable shuttle (#3010)

* Add the PubbyStation Monastery as a purchasable shuttle (#56234)

This commit will add a slightly modified version of Pubbystation's
Monastery to the list of available emergency shuttles, becoming the
most expensive shuttle to buy at 250 times the crate price (Defaults
around 50,000cr)

This shuttle will cause significant damage and fully showcase the
absurdity of the Monastery's size by providing an up close and
personal, interactive comparison. PubbyStation's monastery will be
forever preserved.

* Adds the PubbyStation Monastery as a purchasable shuttle

Co-authored-by: Son-of-Space <63861499+Son-of-Space@users.noreply.github.com>

code/datums/shuttles.dm

@@ -227,6 +227,14 @@
 	credit_cost = CARGO_CRATE_VALUE * 30
 	movement_force = list("KNOCKDOWN" = 3, "THROW" = 2)
 
+/datum/map_template/shuttle/emergency/monastery
+	suffix = "monastery"
+	name = "Grand Corporate Monastery"
+	description = "Originally built for a public station, this grand edifice to religion, due to budget cuts, is now available as an escape shuttle for the right... donation. Due to its large size and callous owners, this shuttle may cause collateral damage."
+	admin_notes = "WARNING: This shuttle WILL destroy a fourth of the station, likely picking up a lot of objects with it."
+	credit_cost = CARGO_CRATE_VALUE * 250
+	movement_force = list("KNOCKDOWN" = 3, "THROW" = 5)
+
 /datum/map_template/shuttle/emergency/luxury
 	suffix = "luxury"
 	name = "Luxury Shuttle"

code/modules/admin/fun_balloon.dm

@@ -91,17 +91,29 @@
 	icon = 'icons/obj/items_and_weapons.dmi'
 	icon_state = "syndballoon"
 	anchored = TRUE
+	var/min_crash_strength = 3
+	var/max_crash_strength = 15
 
 /obj/effect/station_crash/Initialize()
 	..()
-	for(var/S in SSshuttle.stationary)
-		var/obj/docking_port/stationary/SM = S
-		if(SM.id == "emergency_home")
-			var/new_dir = turn(SM.dir, 180)
-			SM.forceMove(get_ranged_target_turf(SM, new_dir, rand(3,15)))
-			break
+	shuttle_crash()
 	return INITIALIZE_HINT_QDEL
 
+/obj/effect/station_crash/proc/shuttle_crash()
+	var/crash_strength = rand(min_crash_strength,max_crash_strength)
+	for (var/S in SSshuttle.stationary)
+		var/obj/docking_port/stationary/SM = S
+		if (SM.id == "emergency_home")
+			var/new_dir = turn(SM.dir, 180)
+			SM.forceMove(get_ranged_target_turf(SM, new_dir, crash_strength))
+			break
+
+/obj/effect/station_crash/devastating
+	name = "devastating station crash"
+	desc = "Absolute Destruction. Will crash the shuttle far into the station."
+	min_crash_strength = 15
+	max_crash_strength = 25
+
 
 //Arena