Makes the swedish gene more swedish

http://puu.sh/qpJiJ/957288bc2b.png

Also because I'm not sure if git will fuck up the encoding or not:
http://puu.sh/qpJpa/d4e5bd814e.png

🆑 Pinatacolada
add: Makes the swedish gene spit out weird swedish chars and sounds
/🆑
This commit is contained in:
pinatacolada
2016-08-04 17:43:53 +01:00
parent b991cd8bc7
commit a37f52abaa
+11 -1
View File
@@ -119,7 +119,17 @@
OnSay(var/mob/M, var/message)
// svedish
message = replacetext(message,"w","v")
message = replacetextEx(message,"w","v")
message = replacetextEx(message,"W","V")
message = replacetextEx(message,"J","Y")
message = replacetextEx(message,"j","y")
message = replacetextEx(message,"a",pick("å","ä","æ","a"))
message = replacetextEx(message,"A",pick("Å","Ä","Æ","A"))
message = replacetextEx(message,"bo","bjo")
message = replacetextEx(message,"BO","BJO")
message = replacetextEx(message,"Bo","Bjo")
message = replacetextEx(message,"o",pick("ö","ø","o"))
message = replacetextEx(message,"O",pick("Ö","Ø","O"))
if(prob(30))
message += " Bork[pick("",", bork",", bork, bork")]!"
return message