注意事项

请注意，这个脚本的使用有亿点点麻烦，当前版本的帮助指引也不是很全面，总之bug很多，也可能没法解决，请做好心理准备。在使用前，请将Dice！更新到最新版，不然群管理权限获取会有更多问题

• bot为群管理的群方可使用
• 由于Dice！当前版本缓存机制，设置群管理需bot重启才能读取权限
• 如果要如果骰娘要开启随跑团数据自动更新功能，建议骰主发送【.strGroupCardSet {FormFeed}】将默认的群名片修改回执关闭，不然会一直弹出来，很麻烦
• 该lua不能直接使用，需要更改列在最前面的一些变量，有些东西需要去读代码和注释才能搞定
• 与赵骰不一样，san后面为用户在上一次记录的san值，用以查看pc是否进入不定性疯狂，或许这会比san的上限更常用
• 更改群名片不会影响到log，这点放心吧

说明

于赵骰基础上改动的.sn指令 ver4.0 made by 32w
发布更新于Dice！论坛，bot为群管理方可使用
由于Dice！缓存机制，设置群管理需bot重启才能读取权限，维斯特拉重启时间为每日：看心情

• .sn \\改名片，san后面的值为lastsan，第一次使用lastsan=san
• .st lastsan 70 \\手动设置lastsan
• .newday \\新的一天，改名片，lastsan=当前san

维斯特拉已支持随跑团数据实时更新群名片。

• .sn auto on \\开启
• .sn auto off \\关闭，默认关闭

使用不省略空格的指令调用实时更新，如【.sc 1/1d4】【.st hp-1】可以更新，【.sc1/1d4】【.sthp-1】则不能
（此消息会在使用【.sn help】或第一次在本群使用【.sn】时发送）

效果

源码

--于赵骰基础上改动的.sn指令 made by 32w
--发布更新于Dice！论坛，bot为群管理方可使用
msg_order = {}

local diceQQ="3056492612" --请一定要在这里把这一串改成骰娘的qq号
local allowAuto=true --随跑团数据更新群名片功能的总开关，需要骰主按照教程进行相关配置之后再设置为true。教程我懒得写……很麻烦，可以来问我倒是
local rebootTime="看心情" --既然骰主使用了这个插件，一定也设置好了定时重启功能，请在这里把你的bot的重启时间写一下吧
local version=4.0


msg_order[".sn"]="sn"
function sn(msg)
    local name = string.match(msg.fromMsg,"^[%s]*(.-)[%s]*$",4)--匹配文本
    
    local info=""
    if(name and #name>0) then --sn后面附带有内容
        if(name=="help") then --显示帮助
            if(allowAuto) then
                return "于赵骰基础上改动的.sn指令 ver"..version.." made by 32w\n发布更新于Dice！论坛，bot为群管理方可使用\n由于Dice！缓存机制，设置群管理需bot重启才能读取权限，{self}重启时间为每日："..rebootTime.."\n.sn   \\\\改名片，san后面的值为lastsan，第一次使用lastsan=san\n.st lastsan 70     \\\\手动设置lastsan\n.newday             \\\\新的一天，改名片，lastsan=当前san\f{self}已支持随跑团数据实时更新群名片。\n.sn auto on  \\\\开启\n.sn auto off  \\\\关闭，默认关闭\n使用不省略空格的指令调用实时更新，如【.sc 1/1d4】【.st hp-1】可以更新，【.sc1/1d4】【.sthp-1】则不能\n（此消息会在使用【.sn help】或第一次在本群使用【.sn】时发送）"
            else
                return "于赵骰基础上改动的.sn指令 ver"..version.." made by 32w\n发布更新于Dice！论坛，bot为群管理方可使用\n由于Dice！缓存机制，设置群管理需bot重启才能读取权限，{self}重启时间为每日："..rebootTime.."\n.sn   \\\\改名片，san后面的值为lastsan，第一次使用lastsan=san\n.st lastsan 70     \\\\手动设置lastsan\n.newday             \\\\新的一天，改名片，lastsan=当前san\f{self}不支持随跑团数据实时更新群名片（此消息会在使用【.sn help】或第一次在本群使用【.sn】时发送）"
            end
            --return "xxx仿照赵骰且有微小改动的.sn功能ver0.1 made by 32w\n发布于Dice！论坛，访问以获取最新版xxx\n1.使用.sn auto on开启本群随跑团数据更新群名片功能，使用.sn auto off关闭，默认关闭\n  1.1如果骰娘要开启随跑团数据自动更新功能，建议骰主①发送【.strGroupCardSet  {Formfeed}】将默认的群名片修改回执关闭\n  1.2②骰主将代码最前面修改为【local allowAuto=true】\n2.由于Dice！内部缓存机制问题，在设置骰娘群管理权限之后，需要重启骰娘才能读取权限。建议使用该插件的骰主发送【】设定每天五点重启mirai来应对。"
        elseif(name=="auto on") then
            setGroupConf(msg.fromGroup, "cardAutoUpdate", true)
            return "实时更新群名片开"
        elseif(name=="auto off") then
            setGroupConf(msg.fromGroup, "cardAutoUpdate", false)
            return "实时更新群名片关"
        else
            info=name
            local order=".group card "..msg.fromQQ.." "..name
            eventMsg(order, msg.fromGroup, diceQQ)
        end
    else
        info=update_card(msg)
    end
    return "{self}已尝试将群名片修改为『"..info.."』，若不成功请发送『.sn help』"
end

msg_order[".newday"]="newday"
function newday(msg)
        local lastsan=getPlayerCardAttr(msg.fromQQ, msg.fromGroup, "san",0)
        setPlayerCardAttr(msg.fromQQ, msg.fromGroup, "lastsan", lastsan)
        
        update_card(msg)
        
        return "沙漏翻转，{pc}的lastsan值置为"..lastsan.."，新的一天到来了"
end

function check_update(msg)
    if(allowAuto) then
        if(getGroupConf(msg.fromGroup, "cardAutoUpdate", false)) then 
            update_card(msg)
        end
    end
end

function update_card(msg)
        local order=".group card "..msg.fromQQ.." "
        --获取角色卡名称
        local pcname=getPlayerCardAttr(msg.fromQQ, msg.fromGroup, "__Name","无名朋友")
        if(pcname=="角色卡") then
            pcname=getUserConf(msg.fromQQ,"nick#"..msg.fromGroup,"")
        end
        
        --获取当前属性
        local hp=getPlayerCardAttr(msg.fromQQ, msg.fromGroup, "hp",0)
        local san=getPlayerCardAttr(msg.fromQQ, msg.fromGroup, "san",0)
        local dex=getPlayerCardAttr(msg.fromQQ, msg.fromGroup, "dex",0)
        
        --获取上限
        local maxhp=math.floor((getPlayerCardAttr(msg.fromQQ, msg.fromGroup, "体型",0)+getPlayerCardAttr(msg.fromQQ, msg.fromGroup, "体质",0))/10)
        --local maxsan=99-getPlayerCardAttr(msg.fromQQ, msg.fromGroup, "cm",0)
        
        --加载用户在上一次记录的san值，用以查看pc是否进入不定性疯狂，或许这会比san的上限更常用。
        --第一次使用sn的时候将会记录当前的san值，如果想要更改，请使用【.newday coc】或者【.st lastsan xx】指令
        --如果仍然希望显示san的上限，将这一块代码用--[[]]注释掉，并且将上面一行定义的maxsan前面的注释去除
        local maxsan=getPlayerCardAttr(msg.fromQQ, msg.fromGroup, "lastsan",getPlayerCardAttr(msg.fromQQ, msg.fromGroup, "san",0))
        setPlayerCardAttr(msg.fromQQ, msg.fromGroup, "lastsan", maxsan)
        --到这里为一块
        
        info=pcname.." hp"..hp.."/"..maxhp.." san"..san.."/"..maxsan.." dex"..dex
        eventMsg(order..info, msg.fromGroup, diceQQ)
        print("changCardOk")
        return info
end

--以下部分监听.sc\.st hp\.st san指令，如果不使用实时更新角色卡功能可全部删去
msg_order[".sc "]="sctest"--请注意这里.sc后面跟着的空格很重要，如果删去则会陷入无限循环
function sctest(msg)
    local rest = string.match(msg.fromMsg,"^[%s]*(.-)[%s]*$",5)--匹配文本
    eventMsg(".sc"..rest, msg.fromGroup, msg.fromQQ)
    --执行sc，这里之所以不会陷入无限循环是因为函数只匹配有空格的sc，不匹配无空格的。算是绕了个小圈子
    sleepTime(5000)--确保属性修改在前，延迟更新群名片
    check_update(msg)
end

msg_order[".st hp"]="sthp"--请注意这里的空格很重要，如果删去则会陷入无限循环
function sthp(msg)
    local rest = string.match(msg.fromMsg,"^[%s]*(.-)[%s]*$",7)--匹配文本
    eventMsg(".sthp"..rest, msg.fromGroup, msg.fromQQ)
    sleepTime(5000)
    check_update(msg)
end

msg_order[".st san"]="stsan"--请注意这里的空格很重要，如果删去则会陷入无限循环
function stsan(msg)
    local rest = string.match(msg.fromMsg,"^[%s]*(.-)[%s]*$",8)--匹配文本
    eventMsg(".stsan"..rest, msg.fromGroup, msg.fromQQ)
    sleepTime(5000)
    check_update(msg)
end

下载地址

wiiiiiind 是bug，我更新一下ver4，你重新安装使用一下吧