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/ehentai.lua

72 lines
2.3 KiB
Lua
Raw Normal View History

do
function get_high_rating()
local res, code = http.request("http://g.e-hentai.org/?f_doujinshi=1&f_manga=1&f_artistcg=1&f_gamecg=1&f_western=0&f_non-h=1&f_imageset=1&f_cosplay=1&f_asianporn=1&f_misc=1&f_search=&f_apply=Apply+Filter&advsearch=1&f_sname=on&f_stags=on&f_sr=on&f_srdd=4")
if code ~= 200 then return "HTTP ERROR" end
local gidlist = {}
for gid, gtok in res:gmatch("http://g.e%-hentai.org/g/([^/]+)/([^/]+)/") do
table.insert(gidlist, {gid, gtok})
end
gidlist = {gidlist[math.random(1, #gidlist)]}
local reqbody = json:encode{method="gdata", gidlist=gidlist}
local resbody = {}
local result, respcode, respheaders, respstatus = http.request {
url="http://g.e-hentai.org/api.php",
method="POST",
headers={
["Content-Type"]="application/json",
["Content-Length"]=tostring(#reqbody)
},
source=ltn12.source.string(reqbody),
sink=ltn12.sink.table(resbody),
}
local data = json:decode(resbody[1]).gmetadata[1]
return data.thumb, data.title .. '\n' .. data.title_jpn .. '\n' .. 'rating: ' .. data.rating .. '\n' .. "http://g.e-hentai.org/g/" .. data.gid .. '/' .. data.token
end
function get_popular()
local res, code = http.request("http://g.e-hentai.org/")
if code ~= 200 then return "HTTP ERROR" end
local mangas = {}
for p in res:gmatch("class=\"id1\"(.-)class=\"id44\"") do
table.insert(mangas, {
link = p:match("href=\"(.-)\""),
img = p:match("img src=\"(.-)\""),
title = p:match("title=\"(.-)\"")
})
end
local manga = mangas[math.random(1, #mangas)]
return manga.img, manga.title .. '\n' .. manga.link
end
function run(msg, matches)
local url = nil
local txt = nil
if matches[1] == "#eh" then
url, txt = get_popular()
elseif matches[1] == "pop" then
url, txt = get_popular()
elseif matches[1] == "top" then
url, txt = get_high_rating()
end
local receiver = get_receiver(msg)
send_photo_from_url(receiver, url)
return txt
end
return {
description = "Send an e-hentai manga info.",
usage = {
"#eh: Send an popular right now e-hentai manga info which is popular right now.",
"#eh pop: Send an popular right now e-hentai manga info which is popular right now.",
"#eh top: Send a > 4-star e-hentai manga info."
},
patterns = {
"^#eh$",
"^#eh (pop)$",
"^#eh (top)$",
},
run = run
}
end