38 lines
1.0 KiB
Plaintext
38 lines
1.0 KiB
Plaintext
//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(.)
|