Mikubot/plugins/tts.lua

-- TTS plugin in lua
local function run(msg, matches)
    local receiver = get_receiver(msg)
	if matches[2] == nil then
      text = matches[1]
	  lang = 'de'
	else
	  text = matches[2]
	  lang = matches[1]
	end
    local b = 1
    
	local text = string.gsub(text, "%+", "plus")
    while b ~= 0 do
        text,b = text:gsub('^+','+')
        text = text:trim()
    end

    local text = string.gsub(text, "%s+", "+")
	-- because everyone loves german umlauts, right? :3
	local text = string.gsub(text, "ä", "ae")
	local text = string.gsub(text, "Ä", "Ae")
	local text = string.gsub(text, "ö", "oe")
	local text = string.gsub(text, "Ö", "Oe")
	local text = string.gsub(text, "ü", "ue")
	local text = string.gsub(text, "Ü", "Ue")
	local text = string.gsub(text, "ß", "ss")
	local text = string.gsub(text, "%&", "und")
	local url = "http://translate.google.com/translate_tts?tl="..lang.."&q="..text.."&ie=UTF-8&total=1&idx=0&client=t"
    local file = download_to_file(url)
	if file == nil then
	  return "Google hat den Zugriff auf die API geblockt. URL: "..url
	end
    local cb_extra = {file_path=file}
    send_audio(receiver, file, rmtmp_cb, cb_extra)
end

return {
  description = "Text-To-Speech",
  usage = {
    "/tts [Text]: Sendet Sprachnachricht mit dem Text",
	"/tts(Sprache) [Text]: Sendet Sprachnachricht in der Sprache mit dem Text (bspw. !ttsen Hello)"
  },
  patterns = {
    "^/tts (.+)$",
    "^/tts(%w+) (.+)$"
  },
  run = run
}