readds burpslur

burpslur. get it from fizulphite

GainStation13/code/mechanics/fatness.dm

@@ -1,5 +1,8 @@
 GLOBAL_LIST_INIT(uncapped_resize_areas, list(/area/command/bridge, /area/maintenance, /area/security/prison, /area/holodeck, /area/commons/vacant_room/office, /area/space, /area/ruin, /area/lavaland, /area/awaymission, /area/centcom, /area/fatlab))
 
+/mob/living
+	var/burpslurring = 0 //GS13 - necessary due to "say" being defined by mob/living
+
 /mob/living/carbon
 	//Due to the changes needed to create the system to hide fatness, here's some notes:
 	// -If you are making a mob simply gain or lose weight, use adjust_fatness. Try to not touch the variables directly unless you know 'em well
@@ -21,7 +24,6 @@ GLOBAL_LIST_INIT(uncapped_resize_areas, list(/area/command/bridge, /area/mainten
 	var/doorstuck = 0
 
 	var/fullness = FULLNESS_LEVEL_HALF_FULL
-	var/burpslurring = 0
 	var/fullness_reduction_timer = 0 // When was the last time they emoted to reduce their fullness
 
 /**

GainStation13/code/modules/mob/mob_helpers.dm

@@ -0,0 +1,37 @@
+//GS13 - BURP SLURRING, USED IN SOME CHEMS OR EFFECTS
+
+/proc/burpslur(phrase, strength = 50)
+	strength = min(50, strength)
+	phrase = html_decode(phrase)
+	var/leng = length(phrase)
+	. = ""
+	var/newletter = ""
+	var/rawchar = ""
+	for(var/i = 1, i <= leng, i += length(rawchar))
+		rawchar = newletter = phrase[i]
+		if(rand(1,100)<=strength * 0.5)
+			var/lowerletter = lowertext(newletter)
+			if(lowerletter == "o")
+				newletter = " ++BURRP++ "
+			else if(lowerletter == "s")
+				newletter = " ++URP++ "
+			else if(lowerletter == "a")
+				newletter = " ++GWUURRP++ "
+			else if(lowerletter == "u")
+				newletter = " ++BUUUURRP++ "
+			else if(lowerletter == "c")
+				newletter = " ++BURP++ "
+		if(rand(1,100) <= strength * 0.25)
+			if(newletter == " ")
+				newletter = "...++GWWUUARRP++..."
+			else if(newletter == ".")
+				newletter = " ++BWUUARRP++."
+		switch(rand(1,100) <= strength * 0.5)
+			if(1)
+				newletter += " ++BURRP++ "
+			if(10)
+				newletter += "[newletter]"
+			if(20)
+				newletter += "[newletter][newletter]"
+		. += "[newletter]"
+	return sanitize(.)

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

@@ -643,6 +643,7 @@
 	remove_all_embedded_objects()
 	set_heartattack(FALSE)
 	drunkenness = 0
+	burpslurring = 0 //GS13
 	for(var/datum/mutation/human/HM in dna.mutations)
 		if(HM.quality != POSITIVE)
 			dna.remove_mutation(HM.name)

code/modules/mob/living/life.dm

@@ -163,6 +163,9 @@
 	if(slurring)
 		slurring = max(slurring-1,0)
 
+	if(burpslurring) // GS13
+		burpslurring = max(burpslurring-1,0)
+
 	if(cultslurring)
 		cultslurring = max(cultslurring-1, 0)
 

code/modules/mob/living/say.dm

@@ -434,6 +434,9 @@ GLOBAL_LIST_INIT(department_radio_keys, list(
 	if(slurring)
 		message = slur(message,slurring)
 
+	if(burpslurring)
+		message = burpslur(message,burpslurring) //GS13
+
 	if(cultslurring)
 		message = cultslur(message)
 

tgstation.dme

@@ -4037,6 +4037,7 @@
 #include "GainStation13\code\modules\loadout\tablet.dm"
 #include "GainStation13\code\modules\mapping\areas.dm"
 #include "GainStation13\code\modules\mapping\ghost_roles.dm"
+#include "GainStation13\code\modules\mob\mob_helpers.dm"
 #include "GainStation13\code\modules\mob\dead\new_player\sprite_accessories\ears.dm"
 #include "GainStation13\code\modules\mob\dead\new_player\sprite_accessories\frills.dm"
 #include "GainStation13\code\modules\mob\dead\new_player\sprite_accessories\hair_face.dm"