adenosine (#1156)

* adenosine

* oops lol

* oops lol

* bump OD

* fuck

* balance adjustments

* balance

* fix macro

Author: Kapu1178

code/__DEFINES/reagents.dm

@@ -104,6 +104,9 @@
 ////Used to force an equlibrium to end a reaction in reaction_step() (i.e. in a reaction_step() proc return END_REACTION to end it)
 #define END_REACTION "end_reaction"
 
+/// Helper for converting realtime seconds into reagent cycles.
+#define SECONDS_TO_REAGENT_CYCLES(seconds) round(seconds / (/datum/controller/subsystem/mobs::wait / 10))
+
 ///Minimum requirement for addiction buzz to be met. Addiction code only checks this once every two seconds, so this should generally be low
 #define MIN_ADDICTION_REAGENT_AMOUNT 1
 ///Nicotine requires much less in your system to be happy

code/game/objects/items/storage/uplink_kits.dm

@@ -356,7 +356,7 @@
 	new /obj/item/reagent_containers/glass/bottle/fentanyl(src)
 	new /obj/item/reagent_containers/glass/bottle/cyanide(src)
 	new /obj/item/reagent_containers/glass/bottle/histamine(src)
-	new /obj/item/reagent_containers/glass/bottle/initropidril(src)
+	new /obj/item/reagent_containers/glass/bottle/adenosine(src)
 	new /obj/item/reagent_containers/glass/bottle/pancuronium(src)
 	new /obj/item/reagent_containers/glass/bottle/sodium_thiopental(src)
 	new /obj/item/reagent_containers/glass/bottle/lexorin(src)

code/modules/reagents/chemistry/reagents/medicine_reagents.dm

@@ -976,3 +976,55 @@
 
 	if(prob(3))
 		C.vomit(50, FALSE, FALSE, 1, purge_ratio = 0.2)
+
+/datum/reagent/medicine/adenosine
+	name = "Adenosine"
+	description = "A pharmaceutical used to lower a patient's heartrate. Can be used to restart hearts when dosed correctly."
+	reagent_state = LIQUID
+	color = "#7F10C0"
+	metabolization_rate = 0.5
+
+	overdose_threshold = 10.1
+
+/datum/reagent/medicine/adenosine/affect_blood(mob/living/carbon/C, removed)
+	if(overdosed)
+		return
+
+	if(current_cycle < SECONDS_TO_REAGENT_CYCLES(10)) // Seconds 1-8 do nothing. (0.5 to 2u)
+		return
+
+	if(current_cycle in SECONDS_TO_REAGENT_CYCLES(10) to SECONDS_TO_REAGENT_CYCLES(14)) // Seconds 10-14 stop ya heart. (2.5 to 3.5)
+		if(C.set_heartattack(TRUE))
+			log_health(C, "Heart stopped due to adenosine misdose.")
+			C.Unconscious(3 SECONDS)
+		return
+
+	if(current_cycle == SECONDS_TO_REAGENT_CYCLES(16)) // Restart heart after 16 seconds (exactly 4u)
+		if(C.set_heartattack(FALSE))
+			log_health(C, "Heart restarted due to adenosine.")
+		return
+
+	if(current_cycle in SECONDS_TO_REAGENT_CYCLES(18) to SECONDS_TO_REAGENT_CYCLES(28)) // 4.5u to 7u is a safe buffer.
+		return
+
+	if(!prob(25)) // Only runs after 7 units have been processed.
+		return
+
+	switch(rand(1,10))
+		if(1 to 7)
+			C.losebreath += 4
+		if(8 to 9)
+			C.adjustOxyLoss(rand(3, 4), FALSE)
+			. = TRUE
+		if(10)
+			if(C.set_heartattack(TRUE))
+				log_health(C, "Heart stopped due to improper adenosine dose.")
+
+/datum/reagent/medicine/adenosine/overdose_process(mob/living/carbon/C)
+	if(C.set_heartattack(TRUE))
+		log_health(C, "Heart stopped due to adenosine overdose.")
+
+	if(prob(25))
+		C.losebreath += 4
+		C.adjustOxyLoss(rand(5,25), 0)
+	return TRUE

code/modules/reagents/chemistry/reagents/toxin_reagents.dm

@@ -686,38 +686,6 @@
 		C.bloodstream.add_reagent(/datum/reagent/toxin/histamine,rand(1,3))
 		return
 
-/datum/reagent/toxin/initropidril
-	name = "Initropidril"
-	description = "A powerful poison with insidious effects. It can cause stuns, lethal breathing failure, and cardiac arrest."
-	silent_toxin = TRUE
-	reagent_state = LIQUID
-	color = "#7F10C0"
-	metabolization_rate = 0.5 * REAGENTS_METABOLISM
-	toxpwr = 2.5
-	chemical_flags = REAGENT_NO_RANDOM_RECIPE
-
-/datum/reagent/toxin/initropidril/affect_blood(mob/living/carbon/C, removed)
-	if(prob(25))
-		var/picked_option = rand(1,3)
-		switch(picked_option)
-			if(1)
-				C.Paralyze(60)
-				. = TRUE
-			if(2)
-				C.losebreath += 10
-				C.adjustOxyLoss(rand(5,25), 0)
-				. = TRUE
-			if(3)
-				if(C.set_heartattack(TRUE))
-					log_health(C, "Heart stopped due to initropidil.")
-					if(C.stat < UNCONSCIOUS)
-						C.visible_message(span_userdanger("[C] clutches at [C.p_their()] chest!"))
-				else
-					C.losebreath += 10
-					C.adjustOxyLoss(rand(5,25), 0)
-					. = TRUE
-	return ..() || .
-
 /datum/reagent/toxin/pancuronium
 	name = "Pancuronium"
 	description = "An undetectable toxin that swiftly incapacitates its victim. May also cause breathing failure."

code/modules/reagents/reagent_containers/bottle.dm

@@ -139,10 +139,10 @@
 	desc = "A small bottle. Contains Fentanyl."
 	list_reagents = list(/datum/reagent/toxin/fentanyl = 30)
 
-/obj/item/reagent_containers/glass/bottle/initropidril
-	name = "initropidril bottle"
-	desc = "A small bottle. Contains initropidril."
-	list_reagents = list(/datum/reagent/toxin/initropidril = 30)
+/obj/item/reagent_containers/glass/bottle/adenosine
+	name = "adenosine bottle"
+	desc = "A small bottle. Contains adenosine."
+	list_reagents = list(/datum/reagent/medicine/adenosine = 30)
 
 /obj/item/reagent_containers/glass/bottle/pancuronium
 	name = "pancuronium bottle"

code/modules/reagents/reagent_containers/spray.dm

@@ -312,7 +312,7 @@
 		..(the_targets[i], user)
 
 /obj/item/reagent_containers/spray/chemsprayer/bioterror
-	list_reagents = list(/datum/reagent/toxin/sodium_thiopental = 100, /datum/reagent/toxin/lexorin = 100, /datum/reagent/toxin/venom = 100, /datum/reagent/consumable/condensedcapsaicin = 100, /datum/reagent/toxin/initropidril = 100, /datum/reagent/toxin/polonium = 100)
+	list_reagents = list(/datum/reagent/toxin/sodium_thiopental = 100, /datum/reagent/toxin/lexorin = 100, /datum/reagent/toxin/venom = 100, /datum/reagent/consumable/condensedcapsaicin = 100, /datum/reagent/medicine/adenosine = 100, /datum/reagent/toxin/polonium = 100)
 
 
 /obj/item/reagent_containers/spray/chemsprayer/janitor

code/modules/unit_tests/__unit_tests.dm

@@ -94,6 +94,7 @@
 
 // Single File Includes
 #include "achievements.dm"
+#include "adenosine.dm"
 #include "anchored_mobs.dm"
 #include "anonymous_themes.dm"
 #include "area_contents.dm"

code/modules/unit_tests/adenosine.dm

@@ -0,0 +1,15 @@
+/datum/unit_test/adenosine/Run()
+	var/mob/living/carbon/human/victim = ALLOCATE_BOTTOM_LEFT()
+
+	TEST_ASSERT(!victim.undergoing_cardiac_arrest(), "Wtf why is a freshly spawned human undergoing cardiac arrest.")
+
+	victim.bloodstream.add_reagent(/datum/reagent/medicine/adenosine, 7)
+
+	for(var/i in 1 to 7)
+		victim.Life(SSmobs.wait)
+
+	TEST_ASSERT(victim.undergoing_cardiac_arrest(), "Mob heart did not stop during the first 7 cycles.")
+
+	victim.Life(SSmobs.wait)
+
+	TEST_ASSERT(!victim.undergoing_cardiac_arrest(), "Mob heart did not restart on 8th cycle.")

tools/UpdatePaths/adenosine.txt

@@ -0,0 +1 @@
+/obj/item/reagent_containers/glass/bottle/initropidril : /obj/item/reagent_containers/glass/bottle/adenosine