Mikubot-2/miku/plugins/boobs.lua

local boobs = {}

boobs.triggers = {
  "^/([Bb][Oo][Oo][Bb][Ss])$",
  "^/([Bb][Uu][Tt][Tt][Ss])$"
}

boobs.command = 'boobs, /butts'

-- Recursive function
function boobs:getRandomButts(attempt)
  attempt = attempt or 0
  attempt = attempt + 1

  local res,status = http.request("http://api.obutts.ru/noise/1")

  if status ~= 200 then return nil end
  local data = json.decode(res)[1]

  -- The OpenBoobs API sometimes returns an empty array
  if not data and attempt <= 3 then 
    print('Keine Butts gefunden!')
    return getRandomButts(attempt)
  end

  return 'http://media.obutts.ru/' .. data.preview
end

function boobs:getRandomBoobs(attempt)
  attempt = attempt or 0
  attempt = attempt + 1

  local res,status = http.request("http://api.oboobs.ru/noise/1")

  if status ~= 200 then return nil end
  local data = json.decode(res)[1]

  -- The OpenBoobs API sometimes returns an empty array
  if not data and attempt < 10 then 
    print('Keine Boobs gefunden!')
    return getRandomBoobs(attempt)
  end

  return 'http://media.oboobs.ru/' .. data.preview
end

function boobs:action(msg, config, matches)
  local url
  
  if matches[1]:match("[Bb][Oo][Oo][Bb][Ss]") then
    url = boobs:getRandomBoobs()
  end

  if matches[1]:match("[Bb][Uu][Tt][Tt][Ss]") then
    url = boobs:getRandomButts()
  end

  if url ~= nil then
    local file = download_to_file(url)
    utilities.send_photo(msg.chat.id, file, url, msg.message_id)
	return
  else
    utilities.send_reply(msg, 'Nichts gefunden :(')
    return
  end
end

return boobs