This repository has been archived on 2021-04-24. You can view files and clone it, but cannot push or open issues or pull requests.
Mikubot/plugins/xkcd.lua

59 lines
1.3 KiB
Lua
Raw Normal View History

do
2015-02-04 22:15:49 +01:00
function get_last_id()
local res,code = https.request("http://xkcd.com/info.0.json")
if code ~= 200 then return "HTTP ERROR" end
local data = json:decode(res)
2015-02-04 22:15:49 +01:00
return data.num
end
function get_xkcd(id)
local res,code = http.request("http://xkcd.com/"..id.."/info.0.json")
if code ~= 200 then return "HTTP ERROR" end
local data = json:decode(res)
local link_image = data.img
if link_image:sub(0,2) == '//' then
link_image = msg.text:sub(3,-1)
end
return link_image, data.title, data.alt
2015-01-14 21:46:47 +01:00
end
2015-02-04 22:15:49 +01:00
function get_xkcd_random()
local last = get_last_id()
local i = math.random(1, last)
2015-02-04 22:15:49 +01:00
return get_xkcd(i)
end
2015-01-14 21:46:47 +01:00
function send_title(cb_extra, success, result)
if success then
local message = cb_extra[2] .. "\n" .. cb_extra[3]
send_msg(cb_extra[1], message, ok_cb, false)
2015-01-14 21:46:47 +01:00
end
end
function run(msg, matches)
local receiver = get_receiver(msg)
2015-02-04 22:15:49 +01:00
if matches[1] == "!xkcd" then
url, title, alt = get_xkcd_random()
2015-02-04 22:15:49 +01:00
else
url, title, alt = get_xkcd(matches[1])
2015-02-04 22:15:49 +01:00
end
2015-01-14 21:46:47 +01:00
file_path = download_to_file(url)
send_photo(receiver, file_path, send_title, {receiver, title, alt})
2015-01-14 21:46:47 +01:00
return false
end
return {
description = "Send comic images from xkcd",
usage = {"!xkcd (id): Send an xkcd image and title. If not id, send a random one"},
patterns = {
"^!xkcd$",
"^!xkcd (%d+)",
"xkcd.com/(%d+)"
},
run = run
2015-02-11 17:32:09 +01:00
}
end