帮会猎苑：猎苑围猎的兽皮兑换

local function huntBeast(actor)
    setplayvar(actor, "pelts",
        (getplayvar(actor, "pelts") or 0) + 1)
    local n = getplayvar(actor, "pelts")
    if n % 30 == 0 then
        sendmsg(actor, 1, "兽皮集满 30 张，可兑胚料")
    else
        sendmsg(actor, 1, "兽皮 " .. n .. "/30")
    end
end

local function exchangePelt(actor)
    local n = getplayvar(actor, "pelts") or 0
    if n < 30 then
        sendmsg(actor, 1, "兽皮不足 30 张")
        return
    end
    setplayvar(actor, "pelts", n - 30)
    giveitem(actor, 8702, 1)
    sendmsg(actor, 1, "兑换装备胚料 1 件")
end