帮会选帅：帮战指挥的选举授权

local function voteChief(actor, candidate)
    local wk = os.date("%G%V")
    if (getplayvar(actor, "chiefVoted" .. wk) or 0) == 1 then
        sendmsg(actor, 1, "本周期已投过")
        return
    end
    setplayvar(actor, "chiefVoted" .. wk, 1)
    local key = "chief_" .. wk .. "_" .. candidate
    setsysvarex(key, (getsysvar(key) or 0) + 1)
    sendmsg(actor, 1, "已投给 " .. candidate)
end

local function crownChief(guild)
    local wk = os.date("%G%V")
    local best, bestN = "", 0
    for name in string.gmatch(
        getsysvar("members_" .. guild) or "", "[^|]+") do
        local v = getsysvar(
            "chief_" .. wk .. "_" .. name) or 0
        if v > bestN then best, bestN = name, v end
    end
    setsysvarex("chief_" .. guild, best)
    sendcentermsg(0, best .. " 当选本周总指挥")
end