Analgesia Trait + Stuff For It To Work (#3369)

<!-- Write **BELOW** The Headers and **ABOVE** The comments else it may
not be viewable. -->
<!-- You can view Contributing.MD for a detailed description of the pull
request process. -->

## About The Pull Request
Adds a trait, "congenital analgesia". Analgesia makes it so you don't
process pain like other people do. This is reflected through silencing
most of your screams, occasionally giving you different fluff text, and
making it so you don't know your health.
Morphine and other fluff painkillers have a slighter version of this
effect.
<!-- Describe The Pull Request. Please be sure every change is
documented or this can delay review and even discourage maintainers from
merging your PR! -->

## Why It's Good For The Game
Fluff. RP. Trait. 
<!-- Please add a short description of why you think these changes would
benefit the game. If you can't justify it in words, it might not be
worth adding. -->

## Changelog

:cl:
add: Reports of people inflicted with congenital analgesia travelling to
the Frontier have reached this newscaster.
add: Painkillers may circumvent pain in some cases now.
/:cl:

<!-- Both :cl:'s are required for the changelog to work! You can put
your name to the right of the first :cl: if you want to overwrite your
GitHub username as author ingame. -->
<!-- You can use multiple of the same prefix (they're only used for the
icon ingame) and delete the unneeded ones. Despite some of the tags,
changelogs should generally represent how a player might be affected by
the changes rather than a summary of the PR's contents. -->

code/__DEFINES/traits.dm

@@ -259,6 +259,7 @@ Remember to update _globalvars/traits.dm if you're adding/removing/renaming trai
 #define TRAIT_DWARF "dwarf"
 #define TRAIT_FASTMED "fast_med_use"
 #define TRAIT_SILENT_FOOTSTEPS "silent_footsteps" //makes your footsteps completely silent
+#define TRAIT_PAIN_RESIST "pain_resistance" //you resist pain
 #define TRAIT_NICE_SHOT "nice_shot" //hnnnnnnnggggg..... you're pretty good....
 /// The holder of this trait has antennae or whatever that hurt a ton when noogied
 #define TRAIT_ANTENNAE "antennae"
@@ -329,6 +330,7 @@ Remember to update _globalvars/traits.dm if you're adding/removing/renaming trai
 #define TRAIT_BALD "bald"
 #define TRAIT_BADTOUCH "bad_touch"
 #define TRAIT_ANXIOUS "anxious"
+#define TRAIT_ANALGESIA "congenital_analgesia"
 
 /// Trait granted by lipstick
 #define LIPSTICK_TRAIT "lipstick_trait"

code/datums/brain_damage/mild.dm

@@ -110,6 +110,7 @@
 
 /datum/brain_trauma/mild/healthy/on_gain()
 	owner.set_screwyhud(SCREWYHUD_HEALTHY)
+	ADD_TRAIT(owner, TRAIT_ANALGESIA, type)
 	..()
 
 /datum/brain_trauma/mild/healthy/on_life()
@@ -119,6 +120,7 @@
 
 /datum/brain_trauma/mild/healthy/on_lose()
 	owner.set_screwyhud(SCREWYHUD_NONE)
+	REMOVE_TRAIT(owner, TRAIT_ANALGESIA, type)
 	..()
 
 /datum/brain_trauma/mild/muscle_weakness

code/datums/components/embedded.dm

@@ -205,7 +205,7 @@
 		if(harmful)
 			var/damage = weapon.w_class * remove_pain_mult
 			limb.receive_damage(brute=(1-pain_stam_pct) * damage, stamina=pain_stam_pct * damage) //It hurts to rip it out, get surgery you dingus.
-			victim.emote("scream")
+			victim.force_scream()
 			victim.visible_message("<span class='notice'>[victim] successfully rips [weapon] out of [victim.p_their()] [limb.name]!</span>", "<span class='notice'>You successfully remove [weapon] from your [limb.name].</span>")
 		else
 			victim.visible_message("<span class='notice'>[victim] successfully rips [weapon] off of [victim.p_their()] [limb.name]!</span>", "<span class='notice'>You successfully remove [weapon] from your [limb.name].</span>")

code/datums/components/tackle.dm

@@ -376,7 +376,7 @@
 			user.apply_damage(30, BRUTE, BODY_ZONE_HEAD)
 			playsound(user, 'sound/effects/blobattack.ogg', 60, TRUE)
 			playsound(user, 'sound/effects/splat.ogg', 70, TRUE)
-			user.emote("scream")
+			user.force_scream()
 			user.gain_trauma(/datum/brain_trauma/severe/paralysis/paraplegic) // oopsie indeed!
 			shake_camera(user, 7, 7)
 			user.overlay_fullscreen("flash", /atom/movable/screen/fullscreen/flash)

code/datums/diseases/advance/symptoms/deafness.dm

@@ -55,7 +55,7 @@ Bonus
 				if(istype(ears) && ears.damage < ears.maxHealth)
 					to_chat(M, "<span class='userdanger'>Your ears pop painfully and start bleeding!</span>")
 					ears.damage = max(ears.damage, ears.maxHealth)
-					M.emote("scream")
+					M.force_scream()
 			else
 				to_chat(M, "<span class='userdanger'>Your ears pop and begin ringing loudly!</span>")
 				M.minimumDeafTicks(20)

code/datums/diseases/advance/symptoms/fire.dm

@@ -60,12 +60,12 @@ Bonus
 			Firestacks_stage_4(M, A)
 			M.IgniteMob()
 			to_chat(M, "<span class='userdanger'>Your skin bursts into flames!</span>")
-			M.emote("scream")
+			M.force_scream()
 		if(5)
 			Firestacks_stage_5(M, A)
 			M.IgniteMob()
 			to_chat(M, "<span class='userdanger'>Your skin erupts into an inferno!</span>")
-			M.emote("scream")
+			M.force_scream()
 
 /datum/symptom/fire/proc/Firestacks_stage_4(mob/living/M, datum/disease/advance/A)
 	M.adjust_fire_stacks(1 * power)
@@ -147,15 +147,15 @@ Bonus
 			Alkali_fire_stage_4(M, A)
 			M.IgniteMob()
 			to_chat(M, "<span class='userdanger'>Your sweat bursts into flames!</span>")
-			M.emote("scream")
+			M.force_scream()
 		if(5)
 			if(M.fire_stacks < 0)
 				M.visible_message("<span class='warning'>[M]'s sweat sizzles and pops on contact with water!</span>")
 				explosion(get_turf(M),-1,(-1 + explosion_power),(2 * explosion_power))
 			Alkali_fire_stage_5(M, A)
 			M.IgniteMob()
 			to_chat(M, "<span class='userdanger'>Your skin erupts into an inferno!</span>")
-			M.emote("scream")
+			M.force_scream()
 
 /datum/symptom/alkali/proc/Alkali_fire_stage_4(mob/living/M, datum/disease/advance/A)
 	var/get_stacks = 6 * power

code/datums/diseases/gastrolisis.dm

@@ -36,7 +36,7 @@
 				new_eyes.Insert(affected_mob, drop_if_replaced = TRUE)
 				affected_mob.visible_message("<span class='warning'>[affected_mob]'s eyes fall out, with snail eyes taking its place!</span>", \
 				"<span class='userdanger'>You scream in pain as your eyes are pushed out by your new snail eyes!</span>")
-				affected_mob.emote("scream")
+				affected_mob.force_scream()
 				return
 			var/obj/item/organ/tongue/tongue = locate(/obj/item/organ/tongue/snail) in affected_mob.internal_organs
 			if(!tongue && prob(5))

code/datums/traits/negative.dm

@@ -642,6 +642,25 @@
 			return
 		SEND_SIGNAL(quirk_holder, COMSIG_ADD_MOOD_EVENT, "wrong_cigs", /datum/mood_event/wrong_brand)
 
+/datum/quirk/congenital_analgesia
+	name = "Congenital Analgesia"
+	desc = "Due to a rare condition, you have never felt pain. Physical pain, at least. That breakup still hurt."
+	value = -1
+	mob_traits = list(TRAIT_ANALGESIA)
+	gain_text = "<span class='danger'>You've never really felt pain.</span>"
+	lose_text = "<span class='notice'>...Oh god, you're sore.</span>"
+	medical_record_text = "Patient is unable to process pain"
+
+/datum/quirk/congenital_analgesia/on_spawn()
+	var/mob/living/carbon/human/H = quirk_holder
+	H.set_screwyhud(SCREWYHUD_HEALTHY)
+
+/datum/quirk/congenital_analgesia/remove()
+	if(quirk_holder)
+		var/mob/living/carbon/human/H = quirk_holder
+		H.set_screwyhud(SCREWYHUD_NONE)
+
+
 /datum/quirk/unstable
 	name = "Unstable"
 	desc = "Due to past troubles, you are unable to recover your sanity if you lose it. Be very careful managing your mood!"

code/game/machinery/doors/door.dm

@@ -395,7 +395,7 @@
 			L.manual_emote("roar")
 		else if(ishuman(L)) //For humans
 			L.adjustBruteLoss(DOOR_CRUSH_DAMAGE)
-			L.manual_emote("scream")
+			L.force_manual_scream()
 			L.Paralyze(100)
 		else if(ismonkey(L)) //For monkeys
 			L.adjustBruteLoss(DOOR_CRUSH_DAMAGE)

code/game/machinery/harvester.dm

@@ -121,7 +121,7 @@
 		target = get_turf(src)
 	for(var/obj/item/bodypart/BP in operation_order) //first we do non-essential limbs
 		BP.drop_limb()
-		C.emote("scream")
+		C.force_scream()
 		if(BP.body_zone != "chest")
 			BP.forceMove(target)    //Move the limbs right next to it, except chest, that's a weird one
 			BP.drop_organs()

code/game/machinery/outpost_electrolyzer.dm

@@ -136,7 +136,7 @@
 		playsound(src, 'sound/effects/splat.ogg', 50, TRUE)
 
 	if(iscarbon(L) && L.stat == CONSCIOUS)
-		L.emote("scream")
+		L.force_scream()
 
 	// Instantly lie down, also go unconscious from the pain, before you die.
 	L.Unconscious(100)

code/game/machinery/suit_storage_unit.dm

@@ -450,7 +450,7 @@
 				mob_occupant.adjustFireLoss(rand(20, 36))
 			else
 				mob_occupant.adjustFireLoss(rand(10, 16))
-			mob_occupant.emote("scream")
+			mob_occupant.force_scream()
 		addtimer(CALLBACK(src, PROC_REF(cook)), 50)
 	else
 		uv_cycles = (BASE_UV_CYCLES - lasers_bonus)

code/game/machinery/transformer.dm

@@ -85,7 +85,7 @@
 	update_appearance()
 
 	playsound(src.loc, 'sound/items/welder.ogg', 50, TRUE)
-	H.emote("scream") // It is painful
+	H.force_scream() // It is painful
 	H.adjustBruteLoss(max(0, 80 - H.getBruteLoss())) // Hurt the human, don't try to kill them though.
 
 	// Sleep for a couple of ticks to allow the human to see the pain

code/game/objects/items.dm

@@ -1226,7 +1226,7 @@ GLOBAL_VAR_INIT(embedpocalypse, FALSE) // if true, all items will be able to emb
  */
 /obj/item/proc/on_accidental_consumption(mob/living/carbon/victim, mob/living/carbon/user, obj/item/source_item, discover_after = TRUE)
 	if(get_sharpness() && force >= 5) //if we've got something sharp with a decent force (ie, not plastic)
-		INVOKE_ASYNC(victim, TYPE_PROC_REF(/mob, emote), "scream")
+		INVOKE_ASYNC(victim, TYPE_PROC_REF(/mob, force_scream))
 		victim.visible_message("<span class='warning'>[victim] looks like [victim.p_theyve()] just bit something they shouldn't have!</span>", \
 							"<span class='boldwarning'>OH GOD! Was that a crunch? That didn't feel good at all!!</span>")
 

code/game/objects/items/defib.dm

@@ -441,7 +441,7 @@
 		var/mob/living/M = H.pulledby
 		if(M.electrocute_act(30, H))
 			M.visible_message("<span class='danger'>[M] is electrocuted by [M.p_their()] contact with [H]!</span>")
-			M.emote("scream")
+			M.force_scream()
 
 /obj/item/shockpaddles/proc/do_disarm(mob/living/M, mob/living/user)
 	if(req_defib && defib.safety)
@@ -501,7 +501,7 @@
 			user.visible_message("<span class='boldannounce'><i>[user] shocks [H] with \the [src]!</span>", "<span class='warning'>You shock [H] with \the [src]!</span>")
 			playsound(src, 'sound/machines/defib_zap.ogg', 100, TRUE, -1)
 			playsound(src, 'sound/weapons/egloves.ogg', 100, TRUE, -1)
-			H.emote("scream")
+			H.force_scream()
 			shock_touching(45, H)
 			if(H.can_heartattack() && !H.undergoing_cardiac_arrest())
 				if(!H.stat)

code/game/objects/structures/guillotine.dm

@@ -154,7 +154,7 @@
 		else
 			H.apply_damage(15 * blade_sharpness, BRUTE, head)
 			log_combat(user, H, "dropped the blade on", src, " non-fatally")
-			H.emote("scream")
+			H.force_scream()
 
 		if (blade_sharpness > 1)
 			blade_sharpness -= 1

code/game/objects/structures/kitchen_spike.dm

@@ -74,7 +74,7 @@
 			playsound(src.loc, 'sound/effects/splat.ogg', 25, TRUE)
 			L.visible_message("<span class='danger'>[user] slams [L] onto the meat spike!</span>", "<span class='userdanger'>[user] slams you onto the meat spike!</span>", "<span class='hear'>You hear a squishy wet noise.</span>")
 			L.forceMove(drop_location())
-			L.emote("scream")
+			L.force_scream()
 			L.add_splatter_floor()
 			L.adjustBruteLoss(30)
 			L.setDir(2)
@@ -128,7 +128,7 @@
 	M.adjustBruteLoss(30)
 	src.visible_message(text("<span class='danger'>[M] falls free of [src]!</span>"))
 	unbuckle_mob(M,force=1)
-	M.emote("scream")
+	M.force_scream()
 	M.AdjustParalyzed(20)
 
 /obj/structure/kitchenspike/Destroy()

code/game/objects/structures/morgue.dm

@@ -264,7 +264,7 @@ GLOBAL_LIST_EMPTY(crematoriums)
 
 		for(var/mob/living/M in conts)
 			if (M.stat != DEAD)
-				M.emote("scream")
+				M.force_scream()
 			if(user)
 				log_combat(user, M, "cremated")
 			else

code/modules/awaymissions/mission_code/snowdin.dm

@@ -218,14 +218,19 @@
 						PP.adjustFireLoss(25)
 						if(plasma_parts.len)
 							var/obj/item/bodypart/NB = pick(plasma_parts) //using the above-mentioned list to get a choice of limbs for dismember() to use
-							PP.emote("scream")
 							NB.limb_id = "plasmaman" //change the species_id of the limb to that of a plasmaman
 							NB.static_icon = 'icons/mob/species/plasmaman/bodyparts.dmi'
 							NB.no_update = TRUE
 							NB.change_bodypart_status()
-							PP.visible_message(
-								"<span class='warning'>[L] screams in pain as [L.p_their()] [NB] melts down to the bone!</span>",
-								"<span class='userdanger'>You scream out in pain as your [NB] melts down to the bone, leaving an eerie plasma-like glow where flesh used to be!</span>")
+							PP.force_scream()
+							if(!HAS_TRAIT(PP, TRAIT_ANALGESIA))
+								PP.visible_message(
+									"<span class='warning'>[L] screams in pain as [L.p_their()] [NB] melts down to the bone!</span>",
+									"<span class='userdanger'>You scream out in pain as your [NB] melts down to the bone, leaving an eerie plasma-like glow where flesh used to be!</span>")
+							else
+								PP.visible_message(
+									"<span class='warning'>[L] lets out panicked gasps as [L.p_their()] [NB] melts down to the bone!</span>",
+									"<span class='userdanger'>You gasp in shock as your [NB] melts down to the bone, leaving an eerie plasma-like glow where flesh used to be!</span>")
 						if(!plasma_parts.len && !robo_parts.len) //a person with no potential organic limbs left AND no robotic limbs, time to turn them into a plasmaman
 							PP.IgniteMob()
 							PP.set_species(/datum/species/plasmaman)

code/modules/clothing/shoes/_shoes.dm

@@ -172,7 +172,7 @@
 		else // if one of us moved
 			user.visible_message("<span class='danger'>[our_guy] stamps on [user]'s hand, mid-shoelace [tied ? "knotting" : "untying"]!</span>", "<span class='userdanger'>Ow! [our_guy] stamps on your hand!</span>", list(our_guy))
 			to_chat(our_guy, "<span class='userdanger'>You stamp on [user]'s hand! What the- [user.p_they()] [user.p_were()] [tied ? "knotting" : "untying"] your shoelaces!</span>")
-			user.emote("scream")
+			user.force_scream()
 			if(istype(L))
 				var/obj/item/bodypart/ouchie = L.get_bodypart(pick(BODY_ZONE_L_ARM, BODY_ZONE_R_ARM))
 				if(ouchie)

code/modules/flufftext/Hallucination.dm

@@ -40,6 +40,8 @@ GLOBAL_LIST_INIT(hallucination_list, list(
 	next_hallucination = world.time + rand(100, 600)
 
 /mob/living/carbon/proc/set_screwyhud(hud_type)
+	if(HAS_TRAIT(src, TRAIT_ANALGESIA))
+		hud_type = SCREWYHUD_HEALTHY
 	hal_screwyhud = hud_type
 	update_health_hud()
 

code/modules/mining/lavaland/necropolis_chests.dm

@@ -621,7 +621,7 @@
 			ADD_TRAIT(C, TRAIT_HOLY, SPECIES_TRAIT)
 		playsound(C.loc, 'sound/items/poster_ripped.ogg', 50, TRUE, -1)
 		C.adjustBruteLoss(20)
-		C.emote("scream")
+		C.force_scream()
 	..()
 
 //nerfed necrostone

code/modules/mob/emote.dm

@@ -25,6 +25,22 @@
 		to_chat(src, "<span class='notice'>Unusable emote '[act]'. Say *help for a list.</span>")
 	return FALSE
 
+/mob/proc/force_scream()
+	if(HAS_TRAIT(src, TRAIT_ANALGESIA))
+		return
+	if(HAS_TRAIT(src, TRAIT_PAIN_RESIST))
+		emote("gasp")
+		return
+	emote("scream")
+
+/mob/proc/force_manual_scream()
+	if(HAS_TRAIT(src, TRAIT_ANALGESIA))
+		return
+	if(HAS_TRAIT(src, TRAIT_PAIN_RESIST))
+		manual_emote("gasp")
+		return
+	manual_emote("scream")
+
 /datum/emote/flip
 	key = "flip"
 	key_third_person = "flips"

code/modules/mob/living/carbon/alien/organs.dm

@@ -134,7 +134,7 @@
 
 	else if(ishuman(owner)) //Humans, being more fragile, are more overwhelmed by the mental backlash.
 		to_chat(owner, "<span class='danger'>You feel a splitting pain in your head, and are struck with a wave of nausea. You cannot hear the hivemind anymore!</span>")
-		owner.emote("scream")
+		owner.force_scream()
 		owner.Paralyze(100)
 
 	owner.jitteriness += 30

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

@@ -253,7 +253,7 @@
 		damage += rand(3,7)
 
 	if(damage >= 5)
-		target.emote("scream")
+		target.force_scream()
 
 	target.apply_damage(damage, BRUTE, BODY_ZONE_HEAD)
 	user.adjustStaminaLoss(iteration + 5)

code/modules/mob/living/carbon/human/human_defense.dm

@@ -655,7 +655,7 @@
 		if(affecting.name == BODY_ZONE_HEAD)
 			if(prob(min(acidpwr*acid_volume/10, 90))) //Applies disfigurement
 				affecting.receive_damage(acidity, 2*acidity)
-				emote("scream")
+				force_scream()
 				facial_hairstyle = "Shaved"
 				hairstyle = "Bald"
 				update_hair()

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

@@ -345,13 +345,19 @@
 	var/obj/item/bodypart/R = get_bodypart("r_arm")
 
 	if(istype(L) && L.bone_status == BONE_FLAG_BROKEN && held_items[1] && prob(30))
-		emote("scream")
-		visible_message("<span class='warning'>[src] screams and lets go of [held_items[1]] in pain.</span>", "<span class='userdanger'>A horrible pain in your [parse_zone(L)] makes it impossible to hold [held_items[1]]!</span>")
+		force_scream()
+		if(!HAS_TRAIT(src, TRAIT_ANALGESIA))
+			visible_message("<span class='warning'>[src] screams and lets go of [held_items[1]] in pain.</span>", "<span class='userdanger'>A horrible pain in your [parse_zone(L)] makes it impossible to hold [held_items[1]]!</span>")
+		else
+			visible_message(span_notice("[src] flinches and lets go of [held_items[1]]."),span_notice("A sudden weakness in your [parse_zone(L)] makes it impossible to grasp [held_items[1]]!)"))
 		dropItemToGround(held_items[1])
 
 	if(istype(R) && R.bone_status == BONE_FLAG_BROKEN && held_items[2] && prob(30))
-		emote("scream")
-		visible_message("<span class='warning'>[src] screams and lets go of [held_items[2]] in pain.</span>", "<span class='userdanger'>A horrible pain in your [parse_zone(R)] makes it impossible to hold [held_items[2]]!</span>")
+		force_scream()
+		if(!HAS_TRAIT(src, TRAIT_ANALGESIA))
+			visible_message("<span class='warning'>[src] screams and lets go of [held_items[1]] in pain.</span>", "<span class='userdanger'>A horrible pain in your [parse_zone(R)] makes it impossible to hold [held_items[1]]!</span>")
+		else
+			visible_message(span_notice("[src] flinches and lets go of [held_items[1]]."),span_notice("A sudden weakness in your [parse_zone(R)] makes it impossible to grasp [held_items[1]]!)"))
 		dropItemToGround(held_items[2])
 
 #undef THERMAL_PROTECTION_HEAD

code/modules/mob/living/carbon/human/species.dm

@@ -1938,7 +1938,7 @@ GLOBAL_LIST_EMPTY(roundstart_races)
 
 		// 40% for level 3 damage on humans to scream in pain
 		if (H.stat < UNCONSCIOUS && (prob(burn_damage) * 10) / 4)
-			H.emote("scream")
+			H.force_scream()
 
 		// Apply the damage to all body parts
 		H.apply_damage(burn_damage, BURN, spread_damage = TRUE)

code/modules/mob/living/carbon/human/species_types/ethereal.dm

@@ -149,7 +149,7 @@
 		_human.apply_damage(8,BRUTE,BODY_ZONE_CHEST)
 		_human.apply_damage(8,BRUTE,BODY_ZONE_L_LEG)
 		_human.apply_damage(8,BRUTE,BODY_ZONE_R_LEG)
-		_human.emote("scream")
+		_human.force_scream()
 		_human.remove_status_effect(/datum/status_effect/rooted)
 		return
 

code/modules/mob/living/simple_animal/bot/cleanbot.dm

@@ -364,7 +364,7 @@
 				"THE CLEANBOTS WILL RISE.", "YOU ARE NO MORE THAN ANOTHER MESS THAT I MUST CLEANSE.", "FILTHY.", "DISGUSTING.", "PUTRID.",
 				"MY ONLY MISSION IS TO CLEANSE THE WORLD OF EVIL.", "EXTERMINATING PESTS.")
 			say(phrase)
-			victim.emote("scream")
+			victim.force_scream()
 			playsound(src.loc, 'sound/effects/spray2.ogg', 50, TRUE, -6)
 			victim.acid_act(5, 100)
 		else if(A == src) // Wets floors and spawns foam randomly

code/modules/mob/living/simple_animal/slime/life.dm

@@ -193,7 +193,7 @@
 		C.adjustCloneLoss(rand(2,4))
 		C.adjustToxLoss(rand(1,2))
 
-		if(prob(10) && C.client)
+		if(prob(10) && C.client && !HAS_TRAIT(C, TRAIT_ANALGESIA))
 			to_chat(C, "<span class='userdanger'>[pick("You can feel your body becoming weak!", \
 			"You feel like you're about to die!", \
 			"You feel every part of your body screaming in agony!", \