y-you awe such a b-baka

OwoSpeak.lua

@@ -47,16 +47,27 @@ function SendChatMessage(msg, ...)
 		wipe(hyperlinks)
 		local owo = owos[random(#owos)]
 		local whatsthis = random(10)
-		-- tempowawiwy wepwace winks with owos
+		-- tempowawiwy wepwace winks wif owos
 		local s = msg:gsub("|c.-|r", ReplaceLink)
 		s = s:gsub("[LR]", "W")
 		s = s:gsub("[lr]", "w")
-		s = s:gsub("U([^VW])", "UW%1")
-		s = s:gsub("u([^vw])", "uw%1")
+		if whatsthis <= 5 then
+			s = s:gsub("U([^VW])", "UW%1")
+			s = s:gsub("u([^vw])", "uw%1")
+		end
 		s = s:gsub("ith " , "if ")
-		s = whatsthis <= 7 and s:gsub("([fps])([aeio]%w+)", "%1w%2") or s
-		s = whatsthis <= 5 and s:gsub("n([aeiou]%w?)", "ny%1") or s
-		s = whatsthis <= 5 and s:gsub(" th", " d") or s
+		s = s:gsub("([fps])([aeio]%w+)", "%1w%2") or s
+		s = s:gsub("n([aeiou]%w)", "ny%1") or s
+		s = s:gsub(" th", " d") or s
+		-- y-you awe such a b-baka
+		s = format(" %s ", s)
+		for k in gmatch(s, "%a+") do
+			if random(10) == 1 then
+				local firstChar = k:sub(1, 1)
+				s = s:gsub(format(" %s ", k), format(" %s-%s ", firstChar, k))
+			end
+		end
+		s = s:trim()
 		s = whatsthis == 1 and s.." "..owo or s:gsub("!$", " "..owo)
 		-- pwease owo wesponsibwy
 		s = #s <= 255 and s:gsub("owo%d", RestoreLink) or msg

OwoSpeak.toc

@@ -1,8 +1,8 @@
 #@retail@
-## Interface: 80200
+## Interface: 80300
 #@end-retail@
 #@non-retail@
-# ## Interface: 11302
+# ## Interface: 11304
 #@end-non-retail@
 ## Version: @project-version@
 ## Title: OwoSpeak