plr:CastSpell(50224) -- sight visual
    plr:CastSpell(45631) -- chains self
    plr:SetPlayerLock(1)
    plr:SetUInt64Value(UNIT_FIELD_CHARMEDBY, pUnit)
    plr:SetFaction(21)
    plr:SetUInt32Value(UNIT_FIELD_FLAGS, UNIT_FLAG_PLAYER_CONTROLLED_CREATURE)
    plr:SetUInt32Value(PLAYER_DUEL_TEAM, 1)
    local found = false
    for _,plrs in pairs(pUnit:GetInRangePlayers()) do
        if plrs:GetName() ~= plr:GetName() then
            plrs:SetUInt32Value(PLAYER_DUEL_TEAM, 0)
            plrs:SetUInt64Value(PLAYER_DUEL_ARBITER,plr)
            if not found then
                plr:SetUInt64Value(PLAYER_DUEL_ARBITER,plrs)
            end
        end
    end