Transfer votes (#22888)

* Transfer vote

* Fixes inheritance

* Okay, maybe the original proc was better

* Var

Author: Oblisk234

code/controllers/subsystem/shuttle.dm

@@ -140,6 +140,8 @@ SUBSYSTEM_DEF(shuttle)
 	var/shuttle_loading
 	/// Did the supermatter start a cascade event?
 	var/supermatter_cascade = FALSE
+	/// Has any transfer votes been started, ongoing, or finished?
+	var/transfer_votes_done = 0
 
 /datum/controller/subsystem/shuttle/Initialize(timeofday)
 	order_number = rand(1, 9000)
@@ -239,8 +241,16 @@ SUBSYSTEM_DEF(shuttle)
 				priority_announce("Catastrophic casualties detected: crisis shuttle protocols activated - jamming recall signals across all frequencies.")
 				emergency.request(null, set_coefficient = ALERT_COEFF_AUTOEVAC_CRITICAL)
 				return
-	if(world.time >= 2 HOURS) //auto call the shuttle after 2 hours 
-		emergency_no_recall = TRUE //no recalling after 2 hours
+	if(world.time >= 2 HOURS && transfer_votes_done < 1) 
+		transfer_votes_done += 1
+		if(EMERGENCY_IDLE_OR_RECALLED)
+			SSvote.initiate_vote(/datum/vote/transfer_vote, "automatic crew transfer", forced = TRUE)
+	if(world.time >= 2.5 HOURS && transfer_votes_done < 2)
+		transfer_votes_done += 1
+		if(EMERGENCY_IDLE_OR_RECALLED)
+			SSvote.initiate_vote(/datum/vote/transfer_vote, "automatic crew transfer", forced = TRUE)
+	if(world.time >= 3 HOURS) //auto call the shuttle after 3 hours 
+		emergency_no_recall = TRUE //no recalling after 3 hours
 		if(EMERGENCY_IDLE_OR_RECALLED)
 			var/msg = "Automatically dispatching shuttle due to lack of shift end response."
 			message_admins(msg)

code/datums/votes/transfer_vote.dm

@@ -0,0 +1,40 @@
+#define CHOICE_CALL_SHUTTLE "Call emergency shuttle"
+#define CHOICE_NO_CALL_SHUTTLE "Don't call emergency shuttle"
+
+/datum/vote/transfer_vote
+	name = "Transfer"
+	message = "Vote for whether the emergency shuttle should be called for crew transfer!"
+	default_choices = list(
+		CHOICE_CALL_SHUTTLE,
+		CHOICE_NO_CALL_SHUTTLE
+	)
+	player_startable = FALSE
+	var/transfer_percentage = 60
+	var/result
+
+/datum/vote/transfer_vote/New()
+	. = ..()
+	if(world.time >= 2.5 HOURS)
+		transfer_percentage = 80
+
+/datum/vote/transfer_vote/get_vote_result(list/non_voters)
+	RETURN_TYPE(/list)
+	var/list/winners = list()
+	result = choices_by_ckey.len>0 ? (choices[CHOICE_NO_CALL_SHUTTLE]/(choices[CHOICE_CALL_SHUTTLE]+choices[CHOICE_NO_CALL_SHUTTLE]))*100 : 0
+	if(result<=transfer_percentage)
+		winners += CHOICE_CALL_SHUTTLE
+	else
+		winners += CHOICE_NO_CALL_SHUTTLE
+	return winners
+
+/datum/vote/transfer_vote/finalize_vote(winning_option)
+	if(winning_option == CHOICE_CALL_SHUTTLE)
+		priority_announce("Dispatching shuttle for scheduled crew transfer.")
+		message_admins("Shuttle called after successful transfer vote ([result]% voted to stay, requirement is [transfer_percentage]%)")
+		SSshuttle.emergency_no_recall = TRUE //No, you aren't allowed to reverse a vote
+		SSshuttle.emergency.request(null)
+	else
+		message_admins("Transfer vote failed ([result]% voted to stay, requirement is [transfer_percentage]%)")
+
+#undef CHOICE_CALL_SHUTTLE
+#undef CHOICE_NO_CALL_SHUTTLE

yogstation.dme

@@ -924,6 +924,7 @@
 #include "code\datums\votes\map_vote.dm"
 #include "code\datums\votes\restart_vote.dm"
 #include "code\datums\votes\rock_the_vote.dm"
+#include "code\datums\votes\transfer_vote.dm"
 #include "code\datums\votes\wanna_do_vote.dm"
 #include "code\datums\weather\weather.dm"
 #include "code\datums\weather\weather_types\acid_rain.dm"