帮会涂鸦：据点墙面的创意评选

local DYE_COST = 5
local function paint(actor, guild, pattern)
    local dye = getplayvar(actor, "dye") or 0
    if dye < DYE_COST then
        sendmsg(actor, 1, "染料不足 " .. DYE_COST .. " 罐")
        return
    end
    if #pattern > 60 then
        sendmsg(actor, 1, "图案数据限 60 字符")
        return
    end
    setplayvar(actor, "dye", dye - DYE_COST)
    local slot = (getsysvar("graffitiN_" .. guild) or 0) + 1
    setsysvarex("graffitiN_" .. guild, slot)
    setsysvarex("graffiti_" .. slot .. "_" .. guild,
        getplayvar(actor, "NAME") .. "|" .. pattern)
    sendmsg(actor, 1, "已上墙第 " .. slot .. " 幅")
end

local function voteGraffiti(actor, guild, slot)
    local wk = os.date("%G%V")
    local key = "gv" .. wk
    if (getplayvar(actor, key) or 0) >= 3 then
        sendmsg(actor, 1, "本周 3 票已用完")
        return
    end
    setplayvar(actor, key, (getplayvar(actor, key) or 0) + 1)
    setsysvarex("gvote_" .. slot .. "_" .. guild,
        (getsysvar("gvote_" .. slot .. "_" .. guild) or 0) + 1)
end