finally make heart worms not a royal pain in the ass to deal with (#5454)

## About The Pull Request

Ports tgstation/tgstation#82738

Fixes #5450

this also makes heart worms self-cure whenever the victim no longer
needs a heart

## Why It's Good For The Game

this stupid thing is a pain in everyone's ass

## Changelog
:cl:
fix: (TheRyeGuyWhoWillNowDie) Being revived with a cyber-heart now
properly restarts the cyber heart.
fix: Heart worms will now self-cure if the victim no longer needs a
heart.
/:cl:

---------

Co-authored-by: TheRyeGuyWhoWillNowDie <[email protected]>
Co-authored-by: MrMelbert <[email protected]>

Author: 3 people

code/modules/mob/living/carbon/life.dm

@@ -479,7 +479,7 @@
 	return TRUE
 
 /mob/living/carbon/proc/set_heartattack(status)
-	if(!can_heartattack())
+	if(status && !can_heartattack())
 		return FALSE
 
 	var/obj/item/organ/internal/heart/heart = get_organ_slot(ORGAN_SLOT_HEART)

monkestation/code/modules/virology/disease/premades/heart_attack.dm

@@ -14,3 +14,16 @@
 	infectionchance_base = 0
 	stage_variance = 0
 	severity = DISEASE_SEVERITY_DANGEROUS
+
+/datum/disease/acute/premade/heart_failure/activate(mob/living/mob, starved, seconds_per_tick)
+	if(iscarbon(mob))
+		var/mob/living/carbon/carbon_mob = mob
+		if(!carbon_mob.can_heartattack())
+			cure(target = mob)
+			return
+	return ..()
+
+/datum/disease/acute/premade/heart_failure/cure(add_resistance, mob/living/carbon/target)
+	if(iscarbon(target))
+		target.set_heartattack(FALSE)
+	return ..()

monkestation/code/modules/virology/disease/symtoms/restricted/stage4.dm

@@ -4,19 +4,28 @@
 	restricted = TRUE
 	max_multiplier = 5
 	chance = 6
-	var/sound = FALSE
 	badness = EFFECT_DANGER_DEADLY
 	severity = 5
+	var/sound = FALSE
+	var/final_timer
 
-/datum/symptom/heart_failure/activate(mob/living/carbon/affected_mob)
+/datum/symptom/heart_failure/Destroy(force)
+	if(final_timer)
+		deltimer(final_timer)
+		final_timer = null
+	return ..()
+
+/datum/symptom/heart_failure/activate(mob/living/carbon/affected_mob, datum/disease/acute/disease)
 	. = ..()
 	if(ismouse(affected_mob))
 		affected_mob.death()
 		return FALSE
 
-	if(!affected_mob.can_heartattack() && !HAS_TRAIT(affected_mob, TRAIT_STABLEHEART)) //This was so stupid. We had 9 people round removed with no fix other than admins because of this.
-		affected_mob.death()
-		return FALSE
+	if(!affected_mob.can_heartattack())
+		disease?.cure(target = affected_mob)
+		return
+	else if(final_timer || affected_mob.undergoing_cardiac_arrest()) // don't bother ticking if their heart has already stopped or is getting ready to
+		return
 
 	switch(round(multiplier))
 		if(1 to 2)
@@ -29,14 +38,14 @@
 				to_chat(affected_mob, span_warning("You feel [pick("full", "nauseated", "sweaty", "weak", "tired", "short of breath", "uneasy")]."))
 		if(3 to 4)
 			if(!sound)
-				affected_mob.playsound_local(affected_mob, 'sound/health/slowbeat.ogg', 40, FALSE, channel = CHANNEL_HEARTBEAT, use_reverb = FALSE)
+				affected_mob.playsound_local(affected_mob, 'sound/health/slowbeat.ogg', vol = 40, vary = FALSE, channel = CHANNEL_HEARTBEAT, pressure_affected = FALSE, use_reverb = FALSE)
 				sound = TRUE
 			if(prob(7.5))
 				to_chat(affected_mob, span_danger("You feel a sharp pain in your chest!"))
 				if(prob(30))
 					affected_mob.vomit(95)
 				affected_mob.emote("cough")
-				affected_mob.Paralyze(40)
+				affected_mob.Paralyze(4 SECONDS)
 				affected_mob.losebreath += 4
 			if(prob(7.5))
 				to_chat(affected_mob, span_danger("You feel very weak and dizzy..."))
@@ -45,16 +54,26 @@
 				affected_mob.emote("cough")
 		if(5)
 			affected_mob.stop_sound_channel(CHANNEL_HEARTBEAT)
-			affected_mob.playsound_local(affected_mob, 'sound/effects/singlebeat.ogg', 100, FALSE, use_reverb = FALSE)
-			if(affected_mob.stat == CONSCIOUS)
-				affected_mob.visible_message(span_danger("[affected_mob] clutches at [affected_mob.p_their()] chest as if [affected_mob.p_their()] heart is stopping!"), \
-					span_userdanger("You feel a terrible pain in your chest, as if your heart has stopped!"))
+			affected_mob.playsound_local(affected_mob, 'sound/effects/singlebeat.ogg', vol = 100, vary = FALSE, channel = CHANNEL_HEARTBEAT, pressure_affected = FALSE, use_reverb = FALSE)
 			affected_mob.stamina.adjust(-60, FALSE)
-			affected_mob.set_heartattack(TRUE)
-			affected_mob.reagents.add_reagent(/datum/reagent/medicine/c2/penthrite, 3) // To give the victim a final chance to shock their heart before losing consciousness
+			// To give the victim a final chance to shock their heart before losing consciousness
+			final_timer = addtimer(CALLBACK(src, PROC_REF(finally_stop_heart), affected_mob), 5 SECONDS, TIMER_UNIQUE | TIMER_OVERRIDE | TIMER_STOPPABLE)
 			return FALSE
 	multiplier_tweak(0.1)
 
+/datum/symptom/heart_failure/deactivate(mob/living/carbon/affected_mob, datum/disease/acute/disease)
+	. = ..()
+	if(final_timer)
+		deltimer(final_timer)
+		final_timer = null
+	if(iscarbon(affected_mob))
+		affected_mob.set_heartattack(FALSE)
+
+/datum/symptom/heart_failure/proc/finally_stop_heart(mob/living/carbon/target)
+	final_timer = null
+	if(!QDELETED(src) && !QDELETED(target))
+		target.set_heartattack(TRUE)
+
 /datum/symptom/catapult_sneeze
 	name = "Sneezing?"
 	desc = "The virus causes irritation of the nasal cavity, making the host sneeze occasionally. Sneezes from this symptom will spread the virus in a 4 meter cone in front of the host."