[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/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