Evil Clones

monkestation/code/game/machinery/exp_cloner.dm

@@ -9,11 +9,28 @@
 	internal_radio = FALSE
 	VAR_PRIVATE
 		static/list/image/cached_clone_images
+	/// Am I producing evil clones?
+	var/evil_objective = null
+	/// Can my objective be changed?
+	var/locked = FALSE
+	var/datum/antagonist/evil_clone/antag_object
 
 /obj/machinery/clonepod/experimental/Destroy()
 	clear_human_dummy(REF(src))
 	return ..()
 
+/obj/machinery/clonepod/experimental/examine(mob/user)
+	. = ..()
+	if(evil_objective && (in_range(user, src) || isobserver(user)))
+		if(!isnull(evil_objective))
+			. += span_warning("You notice an ominous, flashing red LED light.")
+
+/obj/machinery/clonepod/experimental/RefreshParts()
+	. = ..()
+	if(!isnull(evil_objective))
+		speed_coeff /= 2 // So better parts have half the speed increase.
+		speed_coeff += 1 // I still want basic parts to have base 100% speed.
+
 //Start growing a human clone in the pod!
 /obj/machinery/clonepod/experimental/growclone(clonename, ui, mutation_index, mindref, blood_type, datum/species/mrace, list/features, factions, list/quirks, datum/bank_account/insurance)
 	if(panel_open || mess || attempting)
@@ -54,13 +71,22 @@
 	ADD_TRAIT(clonee, TRAIT_NOCRITDAMAGE, CLONING_POD_TRAIT)
 	clonee.Unconscious(80)
 
+	var/role_text
+	var/poll_text
+	if(!isnull(evil_objective))
+		role_text = "evil clone"
+		poll_text = "Do you want to play as [clonename]'s evil clone?"
+	else
+		role_text = "defective clone"
+		poll_text = "Do you want to play as [clonename]'s defective clone?"
+
 	var/list/mob/dead/observer/candidates = SSpolling.poll_ghost_candidates_for_mob(
-		"Do you want to play as [clonename]'s defective clone?",
+		poll_text,
 		poll_time = 10 SECONDS,
 		target_mob = clonee,
 		ignore_category = POLL_IGNORE_DEFECTIVECLONE,
 		pic_source = get_clone_preview(clonee.dna) || clonee,
-		role_name_text = "defective clone"
+		role_name_text = role_text
 	)
 	if(LAZYLEN(candidates))
 		var/mob/dead/observer/candidate = pick(candidates)
@@ -84,6 +110,10 @@
 /obj/machinery/clonepod/experimental/exp_clone_check(mob/living/carbon/human/mob_occupant)
 	if(!mob_occupant?.mind) //When experimental cloner fails to get a ghost, it won't spit out a body, so we don't get an army of brainless rejects.
 		qdel(mob_occupant)
+	else if(!isnull(evil_objective))
+		var/datum/antagonist/evil_clone/antag_object = new
+		antag_object.objectives += new evil_objective()
+		mob_occupant.mind.add_antag_datum(antag_object)
 
 /obj/machinery/clonepod/experimental/proc/get_clone_preview(datum/dna/clone_dna)
 	RETURN_TYPE(/image)
@@ -102,6 +132,25 @@
 	LAZYSET(cached_clone_images, key, preview)
 	return preview
 
+/obj/machinery/clonepod/experimental/emag_act(mob/user)
+	if(!locked)
+		evil_objective = /datum/objective/evil_clone/murder //Emags will give a nasty objective.
+		locked = TRUE
+		to_chat(user, span_warning("You corrupt the genetic compiler."))
+		add_fingerprint(user)
+		log_cloning("[key_name(user)] emagged [src] at [AREACOORD(src)], causing it to malfunction.")
+		RefreshParts()
+	else
+		to_chat(user, span_warning("The cloner is already malfunctioning."))
+
+/obj/machinery/clonepod/experimental/emp_act(severity)
+	. = ..()
+	if (!(. & EMP_PROTECT_SELF))
+		if(prob(100/severity) && !locked)
+			evil_objective = pick(subtypesof(/datum/objective/evil_clone) - /datum/objective/evil_clone/murder)
+			RefreshParts()
+			log_cloning("[src] at [AREACOORD(src)] corrupted due to EMP pulse.")
+
 //Prototype cloning console, much more rudimental and lacks modern functions such as saving records, autocloning, or safety checks.
 /obj/machinery/computer/prototype_cloning
 	name = "prototype cloning console"

monkestation/code/modules/antagonists/evil_clone/evil_clone.dm

@@ -0,0 +1,23 @@
+/datum/antagonist/evil_clone
+	name = "\improper Evil Clone"
+	show_in_antagpanel = TRUE
+	roundend_category = "evil clones"
+	antagpanel_category = "Evil Clones"
+	show_name_in_check_antagonists = TRUE
+	show_to_ghosts = TRUE
+
+/datum/antagonist/evil_clone/greet()
+	. = ..()
+	owner.announce_objectives()
+	owner.current.playsound_local(get_turf(owner.current), 'sound/ambience/antag/revolutionary_tide.ogg', 100, FALSE, pressure_affected = FALSE, use_reverb = FALSE)
+
+/datum/antagonist/evil_clone/apply_innate_effects(mob/living/mob_override)
+	. = ..()
+	var/mob/living/current = owner.current
+	current.AddElement(/datum/element/cult_eyes, initial_delay = 0 SECONDS)
+
+/datum/antagonist/evil_clone/remove_innate_effects(mob/living/mob_override)
+	. = ..()
+	var/mob/living/current = owner.current
+	if (HAS_TRAIT(current, TRAIT_UNNATURAL_RED_GLOWY_EYES))
+		current.RemoveElement(/datum/element/cult_eyes)

monkestation/code/modules/antagonists/evil_clone/evil_clone_objective.dm

@@ -0,0 +1,38 @@
+/datum/objective/evil_clone/murder // The existance of the murderbone objective makes evil clones properly feared, so even when they aren't murderboning they will still be shunned and persecuted.
+	name = "clone supremacy"
+	explanation_text = "Make sure clones of yourself are the only ones alive. Do not spare the original."
+
+/datum/objective/evil_clone/sole
+	name = "real one"
+	explanation_text = "All other versions of you are imposters, eliminate them."
+
+/datum/objective/evil_clone/rule
+	name = "rightful rule"
+	explanation_text = "You and your fellow clones of yourself are the rightful rulers of the station, take control."
+
+/datum/objective/evil_clone/minion
+	name = "minion"
+	explanation_text = "Find the most evil being you can, and become their minion."
+
+/datum/objective/evil_clone/dud // Relies on more destructive objectives, to create conflict from crew hating evil clones because they MIGHT have a more evil objective.
+	name = "peaceful clone"
+	explanation_text = "You find it really mean that some people don't like you because of your red eyes."
+
+/datum/objective/evil_clone/tide
+	name = "tider"
+	explanation_text = "Crime is your religion, commit as much crime as possible. Only seriously injure people if they try to stop crime."
+
+/datum/objective/evil_clone/fake_cult
+	name = "fake cultist"
+	explanation_text = "Praise"
+
+/datum/objective/evil_clone/fake_cult/New()
+	var/god = pick(list("Rat'var", "Nar'sie")) //So clones with different gods will fight eachother.
+	explanation_text+=" [god]! They haven't answered your prayers yet, but surely if you pray enough and make elaborate enough rituals they will inevitably come. Make sure no heretical religions prosper."
+
+/datum/objective/evil_clone/territorial
+	name = "territorial"
+	explanation_text = "The clonepod which created you is a holy site only you and your fellow clones of yourself are worthy to be in the presence of. Secure the area around the clonepod and ensure no non-clones threaten it."
+
+/datum/objective/evil_clone/check_completion()
+	return TRUE

monkestation/code/modules/antagonists/evil_clone/evil_event.dm

@@ -0,0 +1,14 @@
+/datum/round_event_control/cloner_corruption
+	name = "Experimental Cloner Corruption"
+	typepath = /datum/round_event/cloner_corruption
+	max_occurrences = 1
+	weight = 3
+	category = EVENT_CATEGORY_ENTITIES //Kinda, evil clones ARE entities.
+	track = EVENT_TRACK_MODERATE //What do I set this to? Evil clones start with no gear and are obvious, they'll get slaughtered the moment they get found out. (Which will probably be soon as cloners tend to be made in public areas.)
+	tags = list(TAG_DESTRUCTIVE, TAG_COMBAT)
+
+/datum/round_event/cloner_corruption/start()
+	for(var/obj/machinery/clonepod/experimental/cloner in GLOB.machines)
+		if(!cloner.locked)
+			cloner.evil_objective = pick(subtypesof(/datum/objective/evil_clone))
+			cloner.RefreshParts()

tgstation.dme

@@ -6019,6 +6019,9 @@
 #include "monkestation\code\modules\antagonists\contractor\items\modsuit\modules.dm"
 #include "monkestation\code\modules\antagonists\contractor\items\modsuit\theme.dm"
 #include "monkestation\code\modules\antagonists\ert\moff_inspectors.dm"
+#include "monkestation\code\modules\antagonists\evil_clone\evil_clone.dm"
+#include "monkestation\code\modules\antagonists\evil_clone\evil_clone_objective.dm"
+#include "monkestation\code\modules\antagonists\evil_clone\evil_event.dm"
 #include "monkestation\code\modules\antagonists\florida_man\__outfits.dm"
 #include "monkestation\code\modules\antagonists\florida_man\_defines.dm"
 #include "monkestation\code\modules\antagonists\florida_man\_florida_man.dm"