Braindamage speech proc change. (#36490)

* tweaks and adds to the braindamaged speech proc

* .

* uhh

* .

* brain damage cooldown var

* gibbers emote

* braindamaged speech check

* rearranges some shit

Author: Eneocho

code/modules/mob/living/emote.dm

@@ -398,3 +398,10 @@ var/list/animals_with_wings = list(
 
 	to_chat(user, message)
 	return TRUE
+
+/datum/emote/living/gibber
+    key = "gibber"
+    key_third_person = "gibbers"
+    message = "gibbers incoherently!"
+    message_mime = "rapidly moves their hands around incoherently."
+    emote_type = EMOTE_AUDIBLE

code/modules/mob/living/living_defines.dm

@@ -79,3 +79,5 @@
 	var/blood_color2	//color of this creature's blood for gibbing purposes (humanoids have their own species-defined values)
 	var/flesh_color2	//color of this creature's flesh for meat purposes (humanoids have their own species-defined values)
 	var/tangibility = 1 //can this mob be interacted with things hitting it and etc?
+
+	var/braindamagespeechcooldown = FALSE //used to avoid braindamage proc spamming when checking the like 80 replacements

code/modules/mob/living/say.dm

@@ -520,7 +520,14 @@ var/list/headset_modes = list(
 			I.affect_speech(speech, src)
 
 	if(getBrainLoss() >= 60)
-		speech.message = derpspeech(speech.message, stuttering)
+		if(braindamagespeechcooldown)
+			speech.message = null
+			emote("gibber")
+		else
+			braindamagespeechcooldown = TRUE
+			speech.message = derpspeech(speech.message, stuttering)
+			spawn(1 SECONDS)
+			braindamagespeechcooldown = FALSE
 
 	if(stuttering || (undergoing_hypothermia() == MODERATE_HYPOTHERMIA && prob(25)) )
 		speech.message = stutter(speech.message)

code/modules/mob/mob_helpers.dm

@@ -332,19 +332,90 @@
 	return returntext
 
 /proc/derpspeech(message, stuttering)
-	message = replacetext(message, " am ", " ")
-	message = replacetext(message, " is ", " ")
-	message = replacetext(message, " are ", " ")
-	message = replacetext(message, "you", "u")
-	message = replacetext(message, "help", "halp")
+//specific words we want replaced every time, mainly references to the actual brain damage lines, so they stay consistent with brain damage regular speech
+	message = replacetext(message, "stop", "sotp")
+	message = replacetext(message, "retarded", "rarted")
+	message = replacetext(message, "george", "[pick("joerge", "george", "gorge", "gdoruge")]")
+	message = replacetext(message, "melon", "[pick("mellens", "melons", "mwrlins")]")
+	message = replacetext(message, "oxygen", "oxigen")
+	message = replacetext(message, "evolve", "evoluate")
+	message = replacetext(message, "unrealistic", "unralistic")
+	message = replacetext(message, "round", "rouns")
+	message = replacetext(message, "roles", "rolls")
+	message = replacetext(message, "worst", "wurst")
+	message = replacetext(message, "worse", "wurse")
+	message = replacetext(message, "vegan", "vegana")
+	message = replacetext(message, "boob", "bobs")
 	message = replacetext(message, "grief", "griff")
 	message = replacetext(message, "space", "spess")
 	message = replacetext(message, "carp", "crap")
 	message = replacetext(message, "reason", "raisin")
-	if(prob(50))
+	message = replacetext(message, "engineer", "engiener")
+	message = replacetext(message, "pinpointer", "pin pointner")
+	message = replacetext(message, "singularity", "scrungulartiy")
+	message = replacetext(message, "based", "BASTE")
+	message = replacetext(message, "hos", "hitler")
+	message = replacetext(message, "like", "liek")
+	message = replacetext(message, "damage", "damag")
+	message = replacetext(message, "millenial", "milenian")
+	message = replacetext(message, "telekinesis", "telikesis")
+	message = replacetext(message, "hulk", "halk")
+	message = replacetext(message, "epilepsy", "eppilapse")
+	message = replacetext(message, "shotgun", "shotgum it duntt mis")
+	message = replacetext(message, "suspicious", "sus")
+	message = replacetext(message, "among us", "amogus")
+
+	//assorted replacements to make text feel "dumb"
+	message = replacetext(message, "he", "eh") //he, she, the -> eh, seh, teh, etc
+	message = replacetext(message, "ies", "is")
+	message = replacetext(message, "you", "u") 
+	message = replacetext(message, "iou", "ou") //delicous
+	message = replacetext(message, "xc", "x") //exited
+	message = replacetext(message, "air", "er") //cher, her
+	message = replacetext(message, "uni", "uin")
+	message = replacetext(message, "dg", "g") //knowlege, 
+	message = replacetext(message, "tch", "ch") //bich
+	message = replacetext(message, "are", "ar")
+	message = replacetext(message, "pl", "pul")
+	message = replacetext(message, "oul", "ul")
+	message = replacetext(message, "ght", "gt")
+	message = replacetext(message, "gna", "ga")
+
+	if(prob(50)) //stuff we only want replaced this way SOME of the time, the alternative goes under ELSE
+		message = replacetext(message, "eau", "eu") //beutiful
+		message = replacetext(message, "ie", "ei")
+		message = replacetext(message, "tab", "tib") //tible, comfortible
+		message = replacetext(message, "'re", "re")
+		message = replacetext(message, "help", "halp")
+		message = replacetext(message, "wood", "woody")
+		message = replacetext(message, "ain", "ian")
+		message = replacetext(message, "your", "youre")
+		if(prob(25)) //13%
+			message = replacetext(message, " am ", " ")
+			message = replacetext(message, " is ", " ")
+			message = replacetext(message, " are ", " ")
+	else //these prob checks are per sentence, so saying friend 100 times in one sentence will have all 100 look the same instead of mix and match
+		message = replacetext(message, "eau", "u")
+		message = replacetext(message, "friend", "fren")
+		message = replacetext(message, "tab", "teb") //teble, comforteble
+		message = replacetext(message, "you're", "your")
+		message = replacetext(message, "help", "helb")
+		message = replacetext(message, "y ", "i ")
+		message = replacetext(message, "y,", "i")
+		message = replacetext(message, "captain", "COMDOM")
+	if(prob(70))
+		var/regex/duplicate = new("(\\w)(?=\\1)", "g")
+		message = replacetext(message, duplicate, "") //duplicate letters into one letter, for all words
+	if(prob(20)) //occasionally replaces one word with umm.
+		var/list/words = splittext(message, " ")
+		words[rand(0, words.len)] = pick("um,", "umm,", "uh,", "uhh,")
+		message = jointext(words, " ")
+			
+	if(prob(35))
 		message = uppertext(message)
-		message += "[stutter(pick("!", "!!", "!!!"))]"
-	if(!stuttering && prob(15))
+		if(prob(50))
+			message += "[stutter(pick("!", "!!", "!!!"))]"
+	if(!stuttering && prob(10))
 		message = stutter(message)
 	return message