Cypress - 小柏树

msg_order={}

require("basicFunction")
json = require("json")

msg_order[".repjoker"]="repjoker"

default_uid_json = [[{"uid":2753364619,"msg":"好耶","time":1657773120}]]
default_gid_json = [[{"gid":971050440,"msg":"简律纯","time":1657773120}]]
uid_path = "plugin//repeat-joker//uid.json"
gid_path = "plugin//repeat-joker//gid.json"
    
if(getUserConf(getDiceQQ(),'repjoker_') ~= true) then
    mkDirs(getDiceDir()..'//plugin//repeat-joker')
    write_file(uid_path,default_uid_json)
    write_file(gid_path,default_gid_json)
    setUserConf(getDiceQQ(),'repjoker_',true)
    --> repeat-joker:初始化完成~
end

function repjoker(msg)
    local default_data = ""
    local data = ""
    local son_orders = fitemSort(Match(msg.fromMsg,#'.repkiller'+1))
    if(fitems[1] == "list") then
        if(fitems[2] == "uid") then
            default_data = "{\"uid_list\":["..read_file(uid_path).."]}"
            data = json.decode(default_data)
            return "{self}共【"..#data.uid_list.."】条私聊记录:"..default_data
        elseif(fitems[2] == "gid") then
            default_data =  "{\"gid_list\":["..read_file(gid_path).."]}"
            data =  json.decode(default_data)
            return "{self}共【"..#data.gid_list.."】条群聊记录:\n"..default_data
        end
    elseif(fitems[1] == "uid") then
        default_data = "{\"uid_list\":["..read_file(uid_path).."]}"
        data = json.decode(default_data)
        if(fitems[2] == nil) then
            if(getUserConf(msg.uid,'uid-help') ~= true) then
                setUserConf(msg.uid,'uid-help',true)
                return "{nick}你的对象呢？\n是这样用哒:\n.repjoker uid <QQ号>\n记住了以后可不会再告诉你了"
            else
                return "{nick}又没有对象了吗?"
            end
        else
            local uid = getAtQQ(fitems[2])
            data = json.decode(string.gsub(default_data,'%s',''))
            for i=1,#data.uid_list do
                if(data.uid_list[i].uid == tonumber(uid)) then
                    k = i
                    out = "已为{nick}找到"..getUserConf(tonumber(data.uid_list[k].uid),"nick#").."最近的一条发言记录:\n"..stamp2Time(data.uid_list[k].time)..":"..data.uid_list[k].msg
                    break
                else
                    out = "{self}处没有关于".. getUserConf(tonumber(uid),"nick#").."的发言记录哦~"
                end
            end
        end
        return out
    elseif(fitems[1] == "gid") then
        default_data = "{\"gid_list\":["..read_file(gid_path).."]}"
        data = json.decode(default_data)
        if(fitems[2] == nil) then
            return getGroupConf(tonumber(msg.gid),"name").."("..msg.gid..")还没有人复读过哦~#期待"
        else
            local gid = getAtQQ(fitems[2])
            data = json.decode(string.gsub(default_data,'%s',''))
            for i=1,#data.msg do
                if(data.gid[i] == tonumber(gid)) then
                    k = i
                    break
                else
                    out = "{self}处没有关于群".. getGroupConf(tonumber(gid),"name").."("..gid..")的用户发言记录哦~"
                end
            end
        end
        return out
    elseif(fitems[1] == "test") then
        write_(msg.fromMsg,msg.uid,msg.fromGroup)
    end
end

function write_(str,uid,gid)
    if(gid == "0") then
        write_file(uid_path,",{\"uid\":"..uid..",\"msg\":\""..str.."\",\"time\":"..os.time().."}")
    else
        write_file(gid_path,",{\"gid\":"..gid..",\"msg\":\""..str.."\",\"time\":"..os.time().."}")
    end
end

.reply set
Regex=(.*)
Lua=
if getUserConf(getDiceQQ(),'ai') == 1 then
url = "http://api.qingyunke.com/api.php?key=free&appid=0&msg=" .. msg.fromMsg
	res,data = http.get(url)
	json = require("json")
	j = json.decode(data)
return j.content
elseif getUserConf(getDiceQQ(),'ai') == 2 then
url = "https://api.ownthink.com/bot?spoken=" .. msg.fromMsg
	res,data = http.get(url)
	json = require("json")
	j = json.decode(data)
return j.data.info.text
end

---------------------------------------------------------------------
--reborn.重生|投胎 脚本
--countryu取自Natsume(https://forum.kokona.tech/d/118)
--作者:简律纯(qq:A2C29K9)
--2022.06.24 Fixed
---------------------------------------------------------------------
msg_order={}

function born(msg)
    local countryu = { "芬兰","瑞典","挪威","冰岛","丹麦","法罗群岛（丹）" ,"爱沙尼亚","拉脱维亚","立陶宛","俄罗斯","白俄罗斯","乌克兰","摩尔多瓦","波兰","捷克","斯洛伐克","匈牙利","德国","奥地利","瑞士","列支敦士登","英国","爱尔兰","荷兰","比利时","卢森堡","法国","摩纳哥","罗马尼亚","保加利亚","塞尔维亚","黑山","马其顿","阿尔巴尼亚","希腊","斯洛文尼亚","克罗地亚","波斯尼亚和墨塞哥维那","意大利","梵蒂冈","圣马力诺","马耳他","西班牙","葡萄牙","安道尔","中国","蒙古","朝鲜","韩国","日本","菲律宾","越南","老挝","柬埔寨","缅甸","泰国","马来西亚","文莱","新加坡","印度尼西亚","东帝汶","尼泊尔","不丹","孟加拉国","印度","巴基斯坦","斯里兰卡","马尔代夫","哈萨克斯坦","土库曼斯坦","塔吉克斯坦","乌兹别克斯坦","吉尔吉斯斯坦","阿富汗","伊拉克","伊朗","叙利亚","约旦","黎巴嫩","以色列","巴勒斯坦","巴林","卡塔尔","科威特","沙特阿拉伯","阿拉伯联合酋长国","阿曼","也门","格鲁吉亚","亚美尼亚","阿塞拜疆","塞浦路斯","土耳其","埃及","利比亚","苏丹","突尼斯","阿尔及利亚","摩洛哥","亚速尔群岛（葡）","马德拉群岛（葡）","埃塞俄比亚","厄立特里亚","索马里","吉布提","肯尼亚","坦桑尼亚","乌干达","卢旺达","布隆迪","塞舌尔","赞比亚","安哥拉","津巴布韦","马拉维","莫桑比克","博茨瓦纳","纳米比亚","斯威士兰","莱索托","马达加斯加","科摩罗","毛里求斯","留尼旺（法）","圣赫勒拿","（英）南非","乍得","中非","喀麦隆","加蓬","圣多美","赤道几内亚","刚果民主共和国（刚果)","普林西比","毛里塔尼亚","塞内加尔","冈比亚","马里","布基纳法索","几内亚","几内亚比绍","塞拉利昂","利比里亚","科特迪瓦","佛得角","加纳","多哥","贝宁","尼日尔","加那利群岛（西）","澳大利亚","新西兰","巴布亚新几内亚","所罗门群岛","瓦努阿图","密克罗尼西亚","马绍尔群岛","帕劳","瑙鲁","基里巴斯","图瓦卢","萨摩亚","斐济群岛","汤加","库克群岛（新）","关岛（美）","新喀里多尼亚（法）","法属波利尼西亚","皮特凯恩岛（英）","瓦利斯与富图纳（法）","纽埃（新）","托克劳（新）","美属萨摩亚","北马里亚纳（美）","加拿大","美国","墨西哥","格陵兰（丹）","危地马拉","伯利兹","萨尔瓦多","洪都拉斯","尼加拉瓜","哥斯达黎加","巴拿马","巴哈马","古巴","牙买加","海地","多米尼加共和国","安提瓜和巴布达","圣基茨和尼维斯","多米尼克","圣卢西亚","圣文森特和格林纳丁斯","格林纳达","特立尼达和多巴哥","波多黎各（美）","英属维尔京群岛","巴巴多斯","美属维尔京群岛","蒙特塞拉特（英）","瓜德罗普（法）","马提尼克（法）","荷属安的列斯","安圭拉","阿鲁巴（荷）","特克斯和凯科斯群岛（英）","开曼群岛（英）","百慕大（英）","哥伦比亚","委内瑞拉","圭亚那","法属圭亚那","苏里南","厄瓜多尔","秘鲁","玻利维亚","巴西","智利","阿根廷","乌拉圭","巴拉圭"}
    -- 国家
    
    local cardu = {"你患有败血症\n","你发育不良\n","你得了新冠病毒\n","你居然没有屁眼\n","你喜欢和小狗抢食物\n","你看得见空气中浮动的黑色粒子\n".."你有两个脑袋\n","你喜欢咬脚趾甲\n","你喜欢吃墙灰\n","你患有糖尿病\n","你的小心脏是露出来的\n","你是畸形儿\n","你看上去像个傻子\n","你长得很丑\n"}
    -- 病情描述，可增加
    
    local apper = {"你有着大大的眼睛\n","你的睫毛很长很好看\n","你总是很好奇的看着世界\n","你五官端正\n","你出生时没有大哭大闹\n","你长得很可爱\n","你看上去很乖巧\n"}
    -- 健康描述，可增加
    
    local parent_good_tab = {"很穷，因此","看你很可爱于是"}
    local parent_bad_tab = {"认为你长得太丑于是","对你议论纷纷，不过他们","发现你大有问题便把你扔了，但还是"}
    -- 父母行为
    
    local sexu = ranint(1,100)
    --男女比例与下文53对应
    
    local health = ranint(1,2)
    --健康与否
    
    if(sexu<=53) then sex = "男孩子" elseif(sexu==1) then sex = "雌雄同体" else sex = "女孩子" end
    -- 没有采用drawDeck(0,msg.fromQQ,"性别")的原因是这样可以自定义男女比例
    
    local country = countryu[ranint(1,#countryu)] -- 抽取国家
    local card = "" -- 抽选病情
    local state = ranint(1,20) -- 投胎成功概率
    local weight = ranint(20,35)/10 -- 新生儿体重，折合公斤
    local weightu = "" -- 初始化关于体重的评价
    local healthu = "" -- 初始化健康与否
    local apperu = ""
    local parent_good = ""
    local parent_bad = ""
    
    if(state==5) then -- 失败概率为1/20
        dead_weight = ranint(9,18)/10
        return "{nick}投胎失败！\n你没能活到出生，祝你下次好运！\n你的父母收到了一具"..dead_weight.."公斤的死尸x(没错就是你)"
    else
    -- 投胎失败
    
        if(weight==3.2) then
            weightu = "是标准体重哦~" 
            -- 对体重等于3.2kg的评价
        elseif(weight<=2.4) then
            weightu = "有一点点轻呢。"
            -- 对体重小于2.4kg的评价
        elseif(weight>3.2) then
            weightu = "可能是父母的原因让你有点点小胖吧~"
            -- 对体重大于3.2kg的评价
        end
        
        if(country=="中国") then name = drawDeck(0,msg.fromQQ,"随机姓名_zh") or drawDeck(0,msg.fromQQ,"随机姓名_enzh")
        -- 中国人当然要有中文名
        elseif(country=="日本") then name = drawDeck(0,msg.fromQQ,"随机姓名_jp")
        -- 霓虹進的名字
        else name = drawDeck(0,msg.fromQQ,"随机姓名_en") or drawDeck(0,msg.fromQQ,"随机姓名_enzh")
        -- 剩下一律包含en
        end
        
        if(health==1) then 
            healthu,apperu = "你很健康呢！\n",""
            local start = ranint(1,#apper//2)
                for i=start,ranint(start+1,#apper) do
                    apperu = apperu..apper[i]
                end
        -- 健康描述
            parent_good = parent_good_tab[ranint(1,#parent_good_tab)]
            
        else 
        
            healthu = "你并不是一个健康的孩子:\n"
            
                local start = ranint(1,#cardu//2)
                for i=start,ranint(start+1,#cardu) do
                    card = card..cardu[i]
                end
        -- 病情描述
                parent_bad = parent_bad_tab[ranint(1,#parent_bad_tab)]
                
        end

        return "{nick}投胎成功！\n你出生在"..country.."，是"..sex.."\n体重:"..weight.."公斤 "..weightu.."\n"..healthu..apperu..card.."你的父母".. parent_good..parent_bad.."给你起名"..name
        -- 推起来输出
    end
    
end

msg_order["reborn"]="born"

-----------------------------------------------------[15]:
-- 功能：监听错误报告如有则反馈
-- 参数：函数名
-- 返回：错误信息
-- 说明：lua有两个函数可以捕获异常，分别是pcall(fun[,arg1,...])和xpcall(fun,errfun,[,arg1,...])，对比这两个函数,xpcall多了异常处理，这里仅采用pcall()做示例
tryCatch = function(fun,arg1,arg2,arg3,arg4,arg5)
  local ret,errMessage=pcall(fun,arg1,arg2,arg3,arg4,arg5);
  wrong=ret and "false" or "true"
  --print("是否错误:\n"..错误.." \n\n出错信息:\n" .. (errMessage or "无"));
  if wrong=="true" then--错误提示
    local ret,errMessage=pcall(fun,arg1,arg2,arg3,arg4,arg5)
    return "\n错误详情：\n"..errMessage
  else--无错误正常执行
    ret,back=pcall(fun,arg1,arg2,arg3,arg4,arg5);
    return "没有错误发生，返回值如下:\n"..back
  end
end

.reply set
Prefix=#
Lua=
require "catchError"
require "basicFunction"
return load("return "..string.gsub(msg.fromMsg,2))()