e08e5f64ee
README.md: Greatly updated. Will do more in future. administration.lua: Administrators will now be promoted to group admins upon joining an administrated group. drua-tg: Squashed all luacheck warnings. chatter.lua: Mostly rewritten; things actually make sense now. xkcd.lua: Slight styling change. patterns.lua: Squashed a warning.
59 lines
1.5 KiB
Lua
Executable File
59 lines
1.5 KiB
Lua
Executable File
local xkcd = {}
|
|
|
|
local HTTP = require('socket.http')
|
|
local JSON = require('dkjson')
|
|
local utilities = require('utilities')
|
|
|
|
xkcd.command = 'xkcd [i]'
|
|
xkcd.doc = [[```
|
|
/xkcd [i]
|
|
Returns the latest xkcd strip and its alt text. If a number is given, returns that number strip. If "r" is passed in place of a number, returns a random strip.
|
|
```]]
|
|
|
|
function xkcd:init()
|
|
xkcd.triggers = utilities.triggers(self.info.username):t('xkcd', true).table
|
|
end
|
|
|
|
function xkcd:action(msg)
|
|
|
|
local jstr, res = HTTP.request('http://xkcd.com/info.0.json')
|
|
if res ~= 200 then
|
|
utilities.send_reply(self, msg, self.config.errors.connection)
|
|
return
|
|
end
|
|
local latest = JSON.decode(jstr).num
|
|
local strip_num = latest
|
|
|
|
local input = utilities.input(msg.text)
|
|
if input then
|
|
if input == '404' then
|
|
utilities.send_message(self, msg.chat.id, '*404*\nNot found.', false, nil, true)
|
|
return
|
|
elseif tonumber(input) then
|
|
if tonumber(input) > latest then
|
|
strip_num = latest
|
|
else
|
|
strip_num = input
|
|
end
|
|
elseif input == 'r' then
|
|
strip_num = math.random(latest)
|
|
end
|
|
end
|
|
|
|
local res_url = 'http://xkcd.com/' .. strip_num .. '/info.0.json'
|
|
|
|
jstr, res = HTTP.request(res_url)
|
|
if res ~= 200 then
|
|
utilities.send_reply(self, msg, self.config.errors.connection)
|
|
return
|
|
end
|
|
local jdat = JSON.decode(jstr)
|
|
|
|
local output = '*' .. jdat.safe_title .. ' (*[' .. jdat.num .. '](' .. jdat.img .. ')*)*\n_' .. jdat.alt:gsub('_', '\\_') .. '_'
|
|
|
|
utilities.send_message(self, msg.chat.id, output, false, nil, true)
|
|
|
|
end
|
|
|
|
return xkcd
|