原石赌坊：开石见玉的公示赌局

local function cutStone(actor)
    if (getplayvar(actor, "GOLD") or 0) < 2000 then
        sendmsg(actor, 1, "金币不足 2000")
        return
    end
    setplayvar(actor, "GOLD",
        getplayvar(actor, "GOLD") - 2000)
    local roll = math.random(1, 100)
    local grade = roll <= 10 and "极品玉"
        or roll <= 40 and "良玉" or "废石"
    if grade ~= "废石" then
        giveitem(actor,
            grade == "极品玉" and 9201 or 9202, 1)
    end
    sendmsg(actor, 1, "开料结果：" .. grade)
end

local function logCut(actor, grade)
    local n = (getsysvar("cutN") or 0) + 1
    setsysvarex("cutN", n)
    if n > 100 then n = (n - 1) % 100 + 1 end
    setsysvarex("cut_" .. n,
        os.date("%H:%M") .. " "
        .. getplayvar(actor, "NAME") .. " " .. grade)
end