帮会绣品：绣品刺绣的限时工艺

; embroidery.txt 绣品工艺
[主题] 周更换=山河图
材料=丝线x5   时限=40分钟
评级=甲级30% 乙级40% 丙级30%
甲级奖励=9101

local function submitEmbroidery(actor)
    local roll = math.random(1, 100)
    local grade = roll <= 30 and "甲级"
        or roll <= 70 and "乙级" or "丙级"
    setplayvar(actor, "embroidery", grade)
    if grade == "甲级" then
        giveitem(actor, 9101, 1)
    end
    sendmsg(actor, 1, "绣品评定：" .. grade)
end