Mikubot-2/miku/plugins/cleverbot.lua

local cleverbot = {}

function cleverbot:init(config)
	cleverbot.triggers = {
	"^/[Cc][Bb][Oo][Tt] (.*)$",
	"^[Mm][Ii][Kk][Uu][Bb][Oo][Tt], (.+)$",
	"^[Mm][Ii][Kk][Uu], (.+)$"
	}
	cleverbot.url = config.chatter.cleverbot_api
end

cleverbot.command = 'cbot <Text>'

function cleverbot:action(msg, config, matches)
  utilities.send_typing(msg.chat.id, 'typing')
  local text = matches[1]
  local query, code = https.request(cleverbot.url..URL.escape(text))
  if code ~= 200 then
	utilities.send_reply(msg, 'Ich möchte jetzt nicht reden...')
	return
  end

  local data = json.decode(query)
  if not data.clever then
    utilities.send_reply(msg, 'Ich möchte jetzt nicht reden...')
	return
  end

  local answer = string.gsub(data.clever, "&Auml;", "Ä")
  local answer = string.gsub(answer, "&auml;", "ä")
  local answer = string.gsub(answer, "&Ouml;", "Ö")
  local answer = string.gsub(answer, "&ouml;", "ö")
  local answer = string.gsub(answer, "&Uuml;", "Ü")
  local answer = string.gsub(answer, "&uuml;", "ü")
  local answer = string.gsub(answer, "&szlig;", "ß")
  utilities.send_reply(msg, answer)
end

return cleverbot