主要修改了计数阈值(原本是>7，现在可以自己修改，默认>6，变量名为COUNT_LIMIT)
------------------------------------------#region
--- @author 简律纯
--- @date 2022-12-16
--- @changelog：
--- #2022-12-16, 实现 cc 指令，可以cc [属性] 或 [数字]。
--- #2023-10-16，实现多轮掷骰指令， 方法: .ccX#y
--- #2023-10-18, 末加值.cb指令
--- @description 一个lua实现的ww无限掷骰指令
------------------------------------------#endregion
msg_order = {
[".cc"] = "cc",
[".cb"] = "cb"
}
COUNT_LIMIT = 7
math.randomseed(os.time()) -- 设置随机数种子
function roll_dice(num)
local num = tonumber(num)
if num == 0 then num = 1 end
local dice_num = num
local outputs = {}
local count = 0
local ww_count = 0
while true do
local current_output = {}
local current_count = 0
local current_ww_count = 0
for i = 1, num do
local dice = math.random(1, 10) -- 掷骰子，随机数范围为 1-10
if dice >= COUNT_LIMIT then
if dice == 10 then current_ww_count = current_ww_count + 1 end
current_count = current_count + 1
count = count + 1
dice = '(' .. dice .. ')'
end
table.insert(current_output, dice) -- 将点数存入本次掷骰结果数组中
end
local output = "{" .. table.concat(current_output, ",") .. "}"
table.insert(outputs, output)
if current_ww_count == 0 then -- 如果本次没有加骰，则结束掷骰操作
break
else -- 否则，将加骰的情况记下来，重新进行掷骰
-- table.insert(outputs, "加骰：" .. ww_count .. " 个等于 10 的骰子")
--count = count + current_count
num = current_ww_count
end
end
-- 统一拼接输出结果
local result = table.concat(outputs, "+")
result = result .. "=" .. count
-- return "{nick}掷骰: " .. dice_num .. "a10=" .. result
return dice_num, result, count
end
function parseTable(tableStr)
local result = {}
for _, v in ipairs(tableStr) do
if tonumber(v) ~= nil then -- 数字
table.insert(result, tonumber(v))
else -- 文本
local attrValue = getPlayerCardAttr(msg.fromQQ, msg.fromGroup,
v:gsub("+", ""):gsub("-", ""):gsub("%d+", ""))
if attrValue == nil then -- 未找到属性，尝试寻找数字
local numValue = v:match("%d+")
if numValue == nil then -- 默认值为0
table.insert(result, 1)
else
table.insert(result, tonumber(numValue))
end
else -- 找到属性值
if v:match("%-") then
table.insert(result, -attrValue)
else
table.insert(result, attrValue)
end
end
end
end
return result
end
function cc(msg)
local isSuccess, result = pcall(function()
local str = msg.fromMsg:match("^.cc(.*)")
local result = {}
if str:match("#") then
-- 多轮掷骰
local single_result
local count = tonumber(str:match("(%d+)#.*"))
local rest_str = str:match(".*#(.*)")
for i = 1, count do
local times = {}
for s in rest_str:gmatch("[%+%-]?[%w\128-\255]+") do
table.insert(times, s)
end
_, _, single_result = roll_dice(load("return " .. table.concat(parseTable(times), "+"))())
table.insert(result, single_result)
end
return string.format("{nick}掷骰%s次={%s}", count, table.concat(result, ","))
else
local dice_num, results
for s in str:gmatch("[%+%-]?[%w\128-\255]+") do
table.insert(result, s)
end
dice_num, results, _ = roll_dice(load("return " .. table.concat(parseTable(result), "+"))())
return string.format("{nick}掷骰: %sa10=%s", dice_num, results)
end
end)
if isSuccess then
return result
else
return [[.cc(X[=轮数]#y[=属性值|数字])
// 可以使用+-表达式: .cc力量+3 (相当于.cc(力量+3))
// 多轮掷骰: .cc3#STR]]
end
end
function cb(msg)
local isSuccess, result = pcall(function()
local str = msg.fromMsg:match("^.cb(.*)")
local matched = str:match("([%+%-].*)$") or nil
local result_str = str:gsub("([%+%-].*)$", "")
local modified
local result = {}
local matches = {}
if matched == nil then
matched = "-0"
end
if result_str:match("#") then
-- 多轮掷骰
local single_result
local result = {}
local _result = {}
local count = tonumber(str:match("(%d+)#.*"))
local rest_str = str:match(".*#(.*)")
for i = 1, count do
local times = {}
for s in rest_str:gmatch("[%+%-]?[%w\128-\255]+") do
table.insert(times, s)
end
_, _, single_result = roll_dice(load("return " .. table.concat(parseTable(times), "+"))())
table.insert(result, single_result)
table.insert(_result, single_result)
end
for s in matched:gmatch("[%+%-]?[%w\128-\255]+") do
table.insert(matches, s)
end
modifi = tonumber(load("return " .. table.concat(parseTable(matches), "+"))())
-- 遍历 _result，将每个值都与 modifi 相加
for i = 1, #_result do
_result[i] = _result[i] + modifi
end
for i = 1, #result do
if result[i] <= 0 then result[i] = 0 end
end
for i = 1, #_result do
if _result[i] <= 0 then _result[i] = 0 end
end
-- msg:echo(string.format("result: {%s}, _result: {%s}", result, _result))
return string.format("{nick}掷骰%s次={%s}+%s={%s}", count, table.concat(result, ","), modifi,
table.concat(_result, ","))
else
for s in result_str:gmatch("[%+%-]?[%w\128-\255]+") do
table.insert(result, s)
end
dice_num, results, count = roll_dice(load("return " .. table.concat(parseTable(result), "+"))())
for s in matched:gmatch("[%+%-]?[%w\128-\255]+") do
table.insert(matches, s)
end
modifi = tonumber(load("return " .. table.concat(parseTable(matches), "+"))())
if modifi >= 0 then modifi = "+" .. modifi end
x = tonumber(count) + tonumber(modifi)
if x <= 0 then x = 0 end
return string.format("{nick}掷骰: %sa10=%s%s=%s", dice_num, results, modifi, x)
end
end)
if isSuccess then
return result
else
return [[.cb(X[=轮数]#y[=属性值|数字])
// 可以使用+-表达式: .cb力量+3 (相当于.cc(力量)+3)
// 多轮掷骰: .cb3#STR]]
end
end
