Traitors 2.0: Priority directives

beestation.dme

@@ -283,6 +283,7 @@
 #include "code\__HELPERS\string_lists.dm"
 #include "code\__HELPERS\text.dm"
 #include "code\__HELPERS\time.dm"
+#include "code\__HELPERS\tuples.dm"
 #include "code\__HELPERS\turfs.dm"
 #include "code\__HELPERS\type2type.dm"
 #include "code\__HELPERS\type_processing.dm"
@@ -443,6 +444,7 @@
 #include "code\controllers\subsystem\pathfinder.dm"
 #include "code\controllers\subsystem\persistence.dm"
 #include "code\controllers\subsystem\preferences.dm"
+#include "code\controllers\subsystem\priority_directives.dm"
 #include "code\controllers\subsystem\profiler.dm"
 #include "code\controllers\subsystem\radiation.dm"
 #include "code\controllers\subsystem\radio.dm"
@@ -685,6 +687,7 @@
 #include "code\datums\components\team_monitor.dm"
 #include "code\datums\components\tether.dm"
 #include "code\datums\components\thermite.dm"
+#include "code\datums\components\trackable.dm"
 #include "code\datums\components\twohanded.dm"
 #include "code\datums\components\udder.dm"
 #include "code\datums\components\uplink.dm"
@@ -2125,6 +2128,11 @@
 #include "code\modules\antagonists\traitor\backstory\traitor_backstory_ui.dm"
 #include "code\modules\antagonists\traitor\backstory\traitor_datum_backstory.dm"
 #include "code\modules\antagonists\traitor\backstory\traitor_factions.dm"
+#include "code\modules\antagonists\traitor\directives\priority_directive.dm"
+#include "code\modules\antagonists\traitor\directives\deploy_beacon\beacon.dm"
+#include "code\modules\antagonists\traitor\directives\deploy_beacon\deploy_beacon.dm"
+#include "code\modules\antagonists\traitor\directives\secure_deaddrop\deaddrop_box.dm"
+#include "code\modules\antagonists\traitor\directives\secure_deaddrop\secure_deaddrop.dm"
 #include "code\modules\antagonists\traitor\equipment\contractor.dm"
 #include "code\modules\antagonists\traitor\equipment\Malf_Modules.dm"
 #include "code\modules\antagonists\traitor\IAA\internal_affairs.dm"

code/__DEFINES/antagonists.dm

@@ -112,13 +112,39 @@
 #define BLOB_REROLL_COST 40
 
 /// How many telecrystals a normal traitor starts with
-#define TELECRYSTALS_DEFAULT 20
+#define TELECRYSTALS_DEFAULT 15
 /// How many telecrystals mapper/admin only "precharged" uplink implant
 #define TELECRYSTALS_PRELOADED_IMPLANT 10
-/// The normal cost of an uplink implant; used for calcuating how many
+/// The cost of a roundstart uplink implant; used for calcuating how many
 /// TC to charge someone if they get a free implant through choice or
 /// because they have nothing else that supports an implant.
-#define UPLINK_IMPLANT_TELECRYSTAL_COST 3
+#define UPLINK_IMPLANT_TELECRYSTAL_COST 1
+
+/// Traitor reputation levels
+
+/// Ex-communicated
+#define REPUTATION_EXCOMMUNICATED 0
+/// Blood brother level: Untrusted
+#define REPUTATION_LOW 100
+/// Standard traitor level
+#define REPUTATION_STANDARD 200
+/// Good reputation, additional gear
+#define REPUTATION_GOOD 400
+/// Excellent reputation, more murderboney stuff
+#define REPUTATION_EXCELLENT 600
+/// Elite reputation, access to rare and unique items.
+/// Nuclear operative level
+#define REPUTATION_ELITE 800
+/// Access to anything your heart could ever desire
+#define REPUTATION_MAX 1000
+
+/// How much reputation is gained per completed directive
+#define REPUTATION_GAIN_PER_DIRECTIVE 200
+
+/// How much reputation you lose for failing a solo directive
+#define REPUTATION_LOSS_SOLO_DIRECTIVE 50
+/// How much reputation you lose for failing a team-directive
+#define REPUTATION_LOSS_TEAM_DIRECTIVE 100
 
 ///Checks if given mob is a hive host
 #define IS_HIVEHOST(mob) (mob.mind?.has_antag_datum(/datum/antagonist/hivemind))

code/__HELPERS/tuples.dm

@@ -0,0 +1,21 @@
+/**
+ * Tuple types are basic types that hold data.
+ * It is a shorthand for creating basic types.
+ * This can be simplified with pointers.
+ */
+
+#define NAMED_TUPLE_1(NAME, TYPE_1, NAME_1) /datum/##NAME {\
+	##TYPE_1/##NAME_1;\
+}\
+/datum/##NAME/New(...) {\
+	src.##NAME_1 = args[1];\
+}
+
+#define NAMED_TUPLE_2(NAME, TYPE_1, NAME_1, TYPE_2, NAME_2) /datum/##NAME {\
+	##TYPE_1/##NAME_1;\
+	##TYPE_2/##NAME_2;\
+}\
+/datum/##NAME/New(...) {\
+	src.##NAME_1 = args[1];\
+	src.##NAME_2 = args[2];\
+}

code/controllers/subsystem/priority_directives.dm

@@ -0,0 +1,113 @@
+SUBSYSTEM_DEF(directives)
+	name = "Priority Directives"
+	wait = 10 SECONDS
+	var/datum/priority_directive/active_directive = null
+	var/next_directive_time
+	var/list/directives = list()
+
+/datum/controller/subsystem/directives/Initialize(start_timeofday)
+	. = ..()
+	next_directive_time = world.time + rand(10 MINUTES, 15 MINUTES)
+	for (var/directive_type in subtypesof(/datum/priority_directive))
+		directives += new directive_type()
+
+/datum/controller/subsystem/directives/fire(resumed)
+	if (active_directive)
+		// Are we completed or ended?
+		if (active_directive.is_completed() || active_directive.is_timed_out())
+			active_directive.finish()
+		return
+	// Check if we are ready to spawn our next active_directive
+	if (world.time < next_directive_time)
+		return
+	// Find all the minds
+	var/list/player_minds = list()
+	for (var/datum/mind/player_mind in SSticker.minds)
+		if (!ishuman(player_mind.current) || !is_station_level(player_mind.current.z))
+			continue
+		player_minds += player_mind
+	// Bring on the mission
+	var/list/valid_directives = list()
+	for (var/datum/priority_directive/directive in directives)
+		if (!directive.can_run(GLOB.uplinks, player_minds))
+			continue
+		valid_directives += directive
+	if (!length(valid_directives))
+		// Try again in a minute
+		next_directive_time = world.time + 1 MINUTES
+		return
+	var/datum/priority_directive/selected = pick(valid_directives)
+	selected.start(GLOB.uplinks, player_minds)
+	next_directive_time = INFINITY
+	active_directive = selected
+
+/*
+/client/verb/force_directive()
+	set name = "force directive"
+	set category = "powerfulbacon"
+	if (SSdirectives.active_directive)
+		message_admins("not yet")
+		return
+	// Find all the minds
+	var/list/player_minds = list()
+	for (var/mob/player in GLOB.alive_mob_list)
+		if (!ishuman(player) || !is_station_level(player.z) || !player.mind)
+			continue
+		player_minds += player.mind
+	var/datum/priority_directive/selected = input(src, "What do you want?", "What do you want?") as null|anything in SSdirectives.directives
+	if (!selected)
+		return
+	selected.can_run(GLOB.uplinks, player_minds, TRUE)
+	selected.start(GLOB.uplinks, player_minds)
+	SSdirectives.next_directive_time = INFINITY
+	SSdirectives.active_directive = selected
+*/
+
+/datum/controller/subsystem/directives/proc/get_uplink_data(datum/component/uplink/uplink)
+	var/data = list()
+	data["time"] = world.time
+	var/atom/uplink_owner = uplink.parent
+	var/turf/uplink_turf = uplink_owner && get_turf(uplink_owner)
+	if (istype(uplink_turf))
+		data["pos_x"] = uplink_turf?.x
+		data["pos_y"] = uplink_turf?.y
+		data["pos_z"] = uplink_turf?.z
+	// The uplink can only detect syndicate assigned objectives of the owner
+	if (uplink.owner)
+		var/list/known_objectives = list()
+		for (var/datum/antagonist/antagonist_type in uplink.owner.antag_datums)
+			// The syndicate uplink is only aware of syndicate-given objectives.
+			if (antagonist_type.faction != FACTION_SYNDICATE)
+				continue
+			for (var/datum/objective/objective in antagonist_type.objectives)
+				var/atom/tracking_target = objective.get_tracking_target(uplink_turf)
+				var/turf/tracking_turf = tracking_target && get_turf(tracking_target)
+				known_objectives += list(list(
+					"name" = objective.name,
+					"tasks" = list(objective.explanation_text),
+					"track_x" = tracking_turf?.x,
+					"track_y" = tracking_turf?.y,
+					"track_z" = tracking_turf?.z,
+				))
+		// Add the priority directive
+		if (active_directive)
+			var/atom/track_atom = active_directive.get_track_atom()
+			var/turf/track_turf = get_turf(track_atom)
+			known_objectives += list(list(
+				"name" = active_directive.name,
+				"tasks" = list(active_directive.get_explanation(uplink)),
+				"time" = active_directive.end_at,
+				"details" = active_directive.get_details(uplink),
+				"reward" = active_directive.tc_reward,
+				"track_x" = track_turf?.x,
+				"track_y" = track_turf?.y,
+				"track_z" = track_turf?.z,
+				"action" = active_directive.get_special_action()?.action_name
+			))
+		data["objectives"] =  known_objectives
+	return data
+
+/datum/controller/subsystem/directives/proc/directive_action(datum/component/uplink/uplink, mob/living/user)
+	if (!active_directive)
+		return
+	active_directive.perform_special_action(uplink, user)

code/datums/components/deployable.dm

@@ -13,13 +13,15 @@
 	var/empty_icon
 	/// The type that we can use to reload this deployable
 	var/reload_type
+	/// The can deploy check. Parameters are user and location, a nullable atom and a turf.
+	var/datum/callback/can_deploy_check = null
 	///	For when consumed is false, is the carrier object currently loaded and ready to deploy its payload item?
 	/// Private as we don't want external modifications to this
 	VAR_PRIVATE/loaded = FALSE
 	/// The atom parent of this
 	VAR_PRIVATE/obj/item/item_parent
 
-/datum/component/deployable/Initialize(deployed_object, consumed = TRUE, time_to_deploy = 0 SECONDS, ignores_mob_density = TRUE, dense_deployment = FALSE, empty_icon = null, loaded = FALSE, reload_type = null)
+/datum/component/deployable/Initialize(deployed_object, consumed = TRUE, time_to_deploy = 0 SECONDS, ignores_mob_density = TRUE, dense_deployment = FALSE, empty_icon = null, loaded = FALSE, reload_type = null, datum/callback/can_deploy_check)
 	. = ..()
 	if (!isitem(parent))
 		return COMPONENT_INCOMPATIBLE
@@ -34,6 +36,7 @@
 	src.empty_icon = empty_icon
 	src.loaded = loaded
 	src.reload_type = reload_type
+	src.can_deploy_check = can_deploy_check
 
 	RegisterSignal(parent, COMSIG_ITEM_ATTACK_SELF, PROC_REF(on_attack_self))
 	RegisterSignal(parent, COMSIG_ITEM_AFTERATTACK, PROC_REF(on_afterattack))
@@ -111,6 +114,8 @@
 		if (user)
 			to_chat(user, "<span class='warning'>[item_parent] has nothing to deploy!</span>")
 		return
+	if (can_deploy_check && !can_deploy_check.Invoke(user, location))
+		return
 	if(!location) //if no location was passed we use the current location.
 		location = item_parent.loc
 	if(isopenturf(location))
@@ -146,6 +151,8 @@
 
 ///Do not call this directly, use try_deploy instead or else deployed items may end up in invalid locations
 /datum/component/deployable/proc/deploy(mob/user, atom/location)
+	if (can_deploy_check && !can_deploy_check.Invoke(user, location))
+		return
 	if (user)
 		item_parent.add_fingerprint(user)
 	if(isnull(deployed_object)) //then this must have saved contents to dump directly instead
@@ -154,7 +161,7 @@
 			if (!QDELETED(item_parent))
 				item_parent.transfer_fingerprints_to(A)
 	else
-		var/atom/R = new deployed_object(location)
+		var/atom/R = new deployed_object(location, user)
 		for(var/atom/movable/A in item_parent.contents)
 			A.forceMove(R)
 			if (!QDELETED(item_parent))

code/datums/components/trackable.dm

@@ -0,0 +1,24 @@
+GLOBAL_LIST_EMPTY(tracks_by_type)
+
+/datum/component/trackable/Initialize(...)
+	var/atom/object = parent
+	if (!istype(object))
+		return COMPONENT_INCOMPATIBLE
+	if (!GLOB.tracks_by_type[object.type])
+		GLOB.tracks_by_type[object.type] = list(object)
+	else
+		GLOB.tracks_by_type[object.type] += object
+
+/datum/component/trackable/Destroy(force, silent)
+	var/atom/object = parent
+	if (istype(object))
+		GLOB.tracks_by_type[object.type] -= object
+	return ..()
+
+/proc/get_trackables_by_type(typepath, locate_subtypes)
+	if (locate_subtypes)
+		var/list/results = list()
+		for (var/type in typesof(typepath))
+			results += GLOB.tracks_by_type[type]
+		return results
+	return GLOB.tracks_by_type[typepath]