Adjusts the Emag's effect on the Emergency Shuttle

code/modules/shuttle/emergency.dm

@@ -31,6 +31,11 @@
 	var/hijack_hacking = FALSE
 	var/hijack_announce = TRUE
 
+	// measures the last world time the emag event triggered
+	var/emaglast
+	// the actual time until emag again
+	var/emagcooldown = 20
+
 /obj/machinery/computer/emergency_shuttle/examine(mob/user)
 	. = ..()
 	if(hijack_announce)
@@ -175,8 +180,26 @@
 	if(ENGINES_STARTED || (!IS_DOCKED))
 		return .
 
+
+	// monkestation addition
+	if(obj_flags & EMAGGED && (!emaglast || emagcooldown + emaglast < world.time) && prob(50))
+		var/cut_time = 2 / rand(1, 5)
+
+		if (cut_time * TIME_LEFT <= 11)
+			SSshuttle.emergency.setTimer(ENGINES_START_TIME)  // to make it align with igniting
+		else
+			SSshuttle.emergency.modTimer(cut_time)
+			if (cut_time > 1)  // providing launch updates if it changes (doesnt roll a 2)
+				minor_announce("Launch timer corrupted, restarting timer at earlier point..", "SYSTEM ERROR:")
+			else if (cut_time < 1)
+				minor_announce("Launch timer corrupted, fast forwarding..", "SYSTEM ERROR:")
+
+			emaglast = world.time
+
+
+
 	// Check to see if we've reached criteria for early launch
-	if((authorized.len >= auth_need) || (obj_flags & EMAGGED))
+	if(authorized.len >= auth_need)
 		// shuttle timers use 1/10th seconds internally
 		SSshuttle.emergency.setTimer(ENGINES_START_TIME)
 		var/system_error = obj_flags & EMAGGED ? "SYSTEM ERROR:" : null
@@ -259,7 +282,7 @@
 	if(!IS_DOCKED)
 		return
 
-	if((obj_flags & EMAGGED) || ENGINES_STARTED)	//SYSTEM ERROR: THE SHUTTLE WILL LA-SYSTEM ERROR: THE SHUTTLE WILL LA-SYSTEM ERROR: THE SHUTTLE WILL LAUNCH IN 10 SECONDS
+	if(ENGINES_STARTED)	//SYSTEM ERROR: THE SHUTTLE WILL LA-SYSTEM ERROR: THE SHUTTLE WILL LA-SYSTEM ERROR: THE SHUTTLE WILL LAUNCH IN 10 SECONDS
 		to_chat(user, "<span class='warning'>The shuttle is already launching!</span>")
 		return
 
@@ -268,30 +291,10 @@
 	log_game("[key_name(user)] has emagged the emergency shuttle in [COORD(src)] [time] seconds before launch.")
 
 	obj_flags |= EMAGGED
-	SSshuttle.emergency.movement_force = list("KNOCKDOWN" = 60, "THROW" = 20)//YOUR PUNY SEATBELTS can SAVE YOU NOW, MORTAL
-	var/datum/species/S = new
-	for(var/i in 1 to 10)
-		// the shuttle system doesn't know who these people are, but they
-		// must be important, surely
-		var/obj/item/card/id/ID = new(src)
-		var/datum/job/J = pick(SSjob.occupations)
-		ID.registered_name = S.random_name(pick(MALE, FEMALE))
-		ID.assignment = J.title
-
-		authorized += ID
-
+	SSshuttle.emergency.movement_force = list("KNOCKDOWN" = 60, "THROW" = 20) //YOUR PUNY SEATBELTS can SAVE YOU NOW, MORTAL
 	process(SSMACHINES_DT)
 
 /obj/machinery/computer/emergency_shuttle/Destroy()
-	// Our fake IDs that the emag generated are just there for colour
-	// They're not supposed to be accessible
-
-	for(var/obj/item/card/id/ID in src)
-		qdel(ID)
-	if(authorized?.len)
-		authorized.Cut()
-	authorized = null
-
 	. = ..()
 
 /obj/docking_port/mobile/emergency