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/modules/research/rdconsole.dm

@@ -28,7 +28,6 @@ won't update every console in existence) but it's more of a hassle to do. Also,
 
 
 */
-
 /obj/machinery/computer/rdconsole
 	name = "R&D Console"
 	icon_screen = "rdcomp"
@@ -660,7 +659,7 @@ won't update every console in existence) but it's more of a hassle to do. Also,
 		if(0.1)
 			dat += "<div class='statusDisplay'>Processing and Updating Database...</div>"
 
-		if(0.2)
+		if(RD_CONSOLE_LOCKED_SCREEN)
 			dat += "<div class='statusDisplay'>SYSTEM LOCKED</div>"
 			dat += "<A href='?src=[REF(src)];lock=1.6'>Unlock</A>"
 

code/modules/research/research.dm

@@ -134,6 +134,12 @@ research holder datum.
 /datum/research/proc/FindDesignByID(id)
 	return known_designs[id]
 
+/datum/research/proc/LowerTech(tech_id,value)
+	var/datum/tech/T = known_tech[tech_id]
+	T.level = max(initial(T.level),T.level - value)
+	known_designs.Cut()
+	RefreshResearch()
+
 
 //Autolathe files
 /datum/research/autolathe/New()