var ok:Boolean = false

trace('ok='+ok)

var n:uint = 100;

while (!ok) {

        trace('n='+n)

        if (n > 0) {

                n--

        } else {

                ok=true

        }

}

trace('ok='+ok)

var max_level:uint = 9; // максимальная цифра - пусть сейчас это будет 9

 

// вектор, который необходимо заполнить. Заполняем его нулями

var temp_vector:Vector.<uint> = new < uint > [0,0,0,0,0,0,0,0,0,0];

 

// если максимальный уровень = 0, то ничего не проверяем, везде остаются нули

if (max_level > 0) {

        // создаём мешок с цифрами, откуда будем их вытаскивать

        var bag:Vector.<uint>;

        // в мешок суём все цифры до максимальной

        // количество каждой цифы ставим максимальное (т.к. из 10 ячеек первая и последняя точно нули, то будем проверять только 8 ячеек, соответственно суём в мешок максимально возможное количество каждой цифры: 8 нолей, остальные смотря по цифре)

        switch (max_level) {

                case 1: bag=new <uint>[0,0,0,0,0,0,0,0,1,1,1,1]; break; //1 не более 4

                case 2: bag=new <uint>[0,0,0,0,0,0,0,0,1,1,1,1,2,2,2,2]; break; //2 не более 4

                case 3: bag=new <uint>[0,0,0,0,0,0,0,0,1,1,1,1,2,2,2,2,3,3,3,3]; break; //3 не более 4

                case 4: bag=new <uint>[0,0,0,0,0,0,0,0,1,1,1,1,2,2,2,2,3,3,3,3,4,4,4]; break; //4 не более 3

                case 5: bag=new <uint>[0,0,0,0,0,0,0,0,1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,5,5,5]; break; //5 не более 3

                case 6: bag=new <uint>[0,0,0,0,0,0,0,0,1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,5,5,5,6,6,6]; break; //6 не более 3

                case 7: bag=new <uint>[0,0,0,0,0,0,0,0,1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,5,5,5,6,6,6,7,7]; break;                 //7 не более 2

                case 8: bag=new <uint>[0,0,0,0,0,0,0,0,1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,5,5,5,6,6,6,7,7,8,8]; break;         //8 не более 2

                case 9: bag=new <uint>[0,0,0,0,0,0,0,0,1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,5,5,5,6,6,6,7,7,8,8,9]; break;         //9 не более 1

        }

 

        var testee:uint=0;         // проверяемая цифра

        var previous1:uint = 0; // предыдущая цифра

        var previous2:uint = 0; // предпредыдущая цифра

        var tvl:int = temp_vector.length; // длина временного вектора для ссылки в цикле

 

 

 

        // перебор каждой ячейки, кроме первой и последней (получается 8)

        for (var i:int = 1; i < tvl - 1; i++) {

                var bag_length:uint = bag.length; // длина мешка для ссылки в цикле

                // достаём из мешка случайную цифру, пока не выпадет та, которая не совпадает с предыдущими двумя

                while (testee == previous1) {

                        testee = bag[MyMath.randomRange(0, bag_length - 1)]

                        if (testee != previous2) {break        }

                }

 

                // найдя подходящую цифру,

                temp_vector[i] = testee; // заносим её в соответствующую ячейку временного вектора

                previous2 = previous1; // записываем предыдущие цифры

                previous1 = testee; // записываем предыдущие цифры

                bag.splice(i, 1); // удаляем выбранную цифру из мешка

        }

}

//проверяем, что получилось

trace('temp_vector='+temp_vector)

// максимальная цифра

                        var max_level:uint=MyMath.randomRange(0,9);

 

                        // вектор для вычислений из 8 ячеек (крайние останутся нулями, а ещё 2 ноля добавим потом)

                        var temp_vector:Vector.<uint> = new < uint > [0,0,0,0,0,0,0,0];

 

                        // если максимальная цифра = 0, то ничего не проверяем

                        if (max_level > 0) {

                                // создаём мешок с цифрами, откуда будем их тянуть (rjkbxtcndj одинаковых цифр в мешке означает их максимально допустимое количество в итоговом массиве)

                                var bag:Vector.<uint> = new <uint>[0,0,0,0,0,0,1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,5,5,5,6,6,6,7,7,8,8,9];

                                var max_bag_index:uint; // максимальный индекс в мешке

                                // количество элементов мешка, которое мы будем проверять, зависит от максимальной цифры 

                                switch (max_level) {

                                        case 1: max_bag_index = 9; break; // 1 не более 4 [0,0,0,0,0,0,1,1,1,1]

                                        case 2: max_bag_index = 13; break; // 2 не более 4

                                        case 3: max_bag_index = 17; break; // 3 не более 4

                                        case 4: max_bag_index = 20; break; // 4 не более 3

                                        case 5: max_bag_index = 23; break; // 5 не более 3

                                        case 6: max_bag_index = 26; break; // 6 не более 3

                                        case 7: max_bag_index = 28; break; // 7 не более 2

                                        case 8: max_bag_index = 30; break; // 8 не более 2

                                        case 9: max_bag_index = 31; break; // 9 не более 1

                                }

 

                                var testee:uint=0;         // проверяемая цифра

                                var previous1:uint = 0; // предыдущая цифра

                                var previous2:uint = 0; // препредыдущая цифра

                                var tvl:int = temp_vector.length; // длина временного вектора для ссылки в цикле

 

                                // перебор каждой ячейки, кроме первой (0) и последней(7) (получается 6)

                                for (var i:int = 1; i < tvl - 1; i++) {

                                        var ind:uint = MyMath.randomRange(0, max_bag_index); // выбираем случайную ячейку мешка

                                        testee = bag[ind]; // переносим цифру из случайной ячейки мешка  в переменную для проверки

 

                                        // если выбранное число совпадает с предыдущим

                                        while (testee == previous1) {

                                                // если при этом совпадает ещё и с предпредыдущим - ищем в мешке другое число, пока не найдём такое, которое повторяло бы одновременно 2 предыдущих цифры

                                                if (testee == previous2) {

                                                        ind = MyMath.randomRange(0, max_bag_index); // повторяем вытягивание цифры из мешка

                                                        testee = bag[ind]

                                                } else {

                                                        break

                                                }

                                        }

 

                                        // найдя подходящую цифру, заносим её в соответствую ячейку вектора , записываем предыдущие цифры и удаляем выбранную из мешка

                                        temp_vector[i] = testee; // найдя подходящую цифру, заносим её в соответствую ячейку вектора

                                        previous2 = previous1; // записываем предыдущие цифры

                                        previous1 = testee;

                                        bag.splice(ind, 1); // удаляем из мешка ячейку, из которой вытянули подходящую цифру

                                        max_bag_index--; // уменьшаем максимальный индекс мешка, чтобы не залезть в его лишние цифры, которые идут дальше

                                }

                        }

                        // получился массив из 8 ячеек, крайние равны 0

                        // добавляем 2 нуля в произвольные места массива, кроме крайних ячеек. Итого у нас в 10 ячейках 4 нуля (2 по краям, 2 в произвольных местах). Остальные цифры - случайные (в т.ч. могут быть нули)

                        temp_vector.splice(MyMath.randomRange(1, temp_vector.length - 2), 0, 0)

                        temp_vector.splice(MyMath.randomRange(1,temp_vector.length-2),0,0)

 

                        trace('temp_vector='+temp_vector)

bag.splice(ind, 1)

// приватные

private var _someVar:Number = 0;

// публичные

public var someVar:Number = 0;

// локальные

var someLocalVar:Number = 0;