Merge pull request #31947 from AnturK/yarr

How does this work:
Station receives a communication extorting current cargo point, if they answer yes the points are just gone and nothing of interest happens.

If station refuses to pay or is silent for 3 minutes, pirate shuttle spawns somewhere in space.

    There's an internal GPS onboard so crew will always be able to follow the shuttle.
    Crew of 3, moderately armed. (Balance pending)
    Shuttle engines have 3 minute cooldown between jumps.
    Special shuttle equipment will block cargo and emergency shuttles from leaving and slowly steal the points.

code/controllers/subsystem/communications.dm

@@ -28,5 +28,19 @@ SUBSYSTEM_DEF(communications)
 	log_talk(user,"[key_name(user)] has made a priority announcement: [input]",LOGSAY)
 	message_admins("[key_name_admin(user)] has made a priority announcement.")
 
+/datum/controller/subsystem/communications/proc/send_message(datum/comm_message/sending,print = TRUE,unique = FALSE)
+	for(var/obj/machinery/computer/communications/C in GLOB.machines)
+		if(!(C.stat & (BROKEN|NOPOWER)) && (C.z in GLOB.station_z_levels))
+			if(unique)
+				C.add_message(sending)
+			else //We copy the message for each console, answers and deletions won't be shared
+				var/datum/comm_message/M = new(sending.title,sending.content,sending.possible_answers.Copy())
+				C.add_message(M)
+			if(print)
+				var/obj/item/paper/P = new /obj/item/paper(C.loc)
+				P.name = "paper - '[sending.title]'"
+				P.info = sending.content
+				P.update_icon()
+
 #undef COMMUNICATION_COOLDOWN
 #undef COMMUNICATION_COOLDOWN_AI

code/controllers/subsystem/shuttle.dm

@@ -28,7 +28,9 @@ SUBSYSTEM_DEF(shuttle)
 	var/emergencyCallAmount = 0		//how many times the escape shuttle was called
 	var/emergencyNoEscape
 	var/emergencyNoRecall = FALSE
-	var/list/hostileEnvironments = list()
+	var/list/hostileEnvironments = list() //Things blocking escape shuttle from leaving
+	var/list/tradeBlockade = list() //Things blocking cargo from leaving.
+	var/supplyBlocked = FALSE
 
 		//supply shuttle stuff
 	var/obj/docking_port/mobile/supply/supply
@@ -335,6 +337,30 @@ SUBSYSTEM_DEF(shuttle)
 	hostileEnvironments -= bad
 	checkHostileEnvironment()
 
+
+/datum/controller/subsystem/shuttle/proc/registerTradeBlockade(datum/bad)
+	tradeBlockade[bad] = TRUE
+	checkTradeBlockade()
+
+/datum/controller/subsystem/shuttle/proc/clearTradeBlockade(datum/bad)
+	tradeBlockade -= bad
+	checkTradeBlockade()
+
+
+/datum/controller/subsystem/shuttle/proc/checkTradeBlockade()
+	for(var/datum/d in tradeBlockade)
+		if(!istype(d) || QDELETED(d))
+			tradeBlockade -= d
+	supplyBlocked = tradeBlockade.len
+
+	if(supplyBlocked && (supply.mode == SHUTTLE_IGNITING))
+		supply.mode = SHUTTLE_STRANDED
+		supply.timer = null
+		//Make all cargo consoles speak up
+	if(!supplyBlocked && (supply.mode == SHUTTLE_STRANDED))
+		supply.mode = SHUTTLE_DOCKED
+		//Make all cargo consoles speak up
+
 /datum/controller/subsystem/shuttle/proc/checkHostileEnvironment()
 	for(var/datum/d in hostileEnvironments)
 		if(!istype(d) || QDELETED(d))