readds burpslur

burpslur. get it from fizulphite
2025-01-11 22:55:03 -05:00
parent b196b76c4f
commit 732c73b0aa
6 changed files with 48 additions and 1 deletions
@@ -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(.)