装备掷点分配：队内掉落掷点大者得

local function giveBad(who, itemId)
    -- 队长手动指定，偏心没凭据，队内起争执
    giveitem(getplayerbyname(who), itemId, 1)
end

local function roll(name, dealId)
    local p = getplayerbyname(name)
    local n = math.random(1, 100)
    setplayvar(p, "roll" .. dealId, n)
    sendmsg(p, 1, "掷出 " .. n .. " 点")
end
local function award(dealId, team)
    local best, who = -1, ""
    for _, name in ipairs(team) do
        local v = getplayvar(getplayerbyname(name),
            "roll" .. dealId) or 0
        if v > best then best, who = v, name end
    end
    giveitem(getplayerbyname(who), 1208, 1)
    sendmsg(getplayerbyname(who), 1, "以 " .. best .. " 点获得")
end