// Agregar, distribuir cuadraditos y asignarles un color,
// pero la cantidad de diferentes colores debe ser...
// la indicada por _level0.ColoresRequeridos,
// así que se guardan en una lista y...
// se reasignarán si son menos de lo requerido.
CuadraditosColocados = 0;
Columna = 0;
Fila = 0;
Colores = 0;
trace ("Asignando colores para un nuevo dibujo");
do {
	CuadraditosColocados = CuadraditosColocados+1;
	attachMovie("mCuadradito", "Cuadradito"+CuadraditosColocados, CuadraditosColocados);
	setProperty ("Cuadradito"+CuadraditosColocados, _x, Columna*_level0.LargoDeCuadraditos);
	setProperty ("Cuadradito"+CuadraditosColocados, _y, Fila*_level0.LargoDeCuadraditos);
	setProperty ("Cuadradito"+CuadraditosColocados, _width, _level0.LargoDeCuadraditos);
	setProperty ("Cuadradito"+CuadraditosColocados, _height, _level0.LargoDeCuadraditos);
	ColorDeCuadradito = new Color("Cuadradito"+CuadraditosColocados);
	ColorDeCuadradito.setRGB(_level0.PosiblesColores[random(_level0.PosiblesColores.length)]);
	// Si el dibujo no tenía los colores necesarios:
	if (Colores < _level0.ColoresRequeridos) {
		trace ("El dibujo probablemente aún no tiene los colores requeridos, tenía: "+Colores);
		trace ("Se colocó el cuadradito: "+CuadraditosColocados);
		trace ("Su color es: "+ColorDeCuadradito.getRGB());
		trace ("Se verá si es del mismo color que otro.");
		VerSiColorExisteEtc();
	}
	Columna = Columna+1;
	if (Columna == _level0.CuadraditosPorFila) {
		Columna = 0;
		Fila = Fila+1;
	}
} while (CuadraditosColocados<_level0.MaxCuadradito);
// Si es necesario, reasignar colores hasta lograr lo requerido:
while (Colores < _level0.ColoresRequeridos) {
	trace ("Se asignó color a todos los cuadraditos pero la cantidad de colores del dibujo es sólo: "+Colores);
	trace ("Se volverán a asignar colores.");
	CuadraditoaRepintar = 0;
	Colores = 0;
	do {
		CuadraditoaRepintar++;
		ColorDeCuadradito = new Color("Cuadradito"+CuadraditoaRepintar);
		ColorDeCuadradito.setRGB(_level0.PosiblesColores[random(_level0.PosiblesColores.length)]);
		VerSiColorExisteEtc();
	} while (CuadraditoaRepintar<_level0.MaxCuadradito);
}

function VerSiColorExisteEtc () {
	// Esto puede cambiar:
	ColorDistinto = "Sí";
	PunteroDeColores = 0;
	while (PunteroDeColores < Colores) {
		PunteroDeColores++;
		trace ("Comparando con el color guardado en el lugar "+PunteroDeColores+": "+eval("ColorEnLista"+PunteroDeColores));
		if (ColorDeCuadradito.getRGB() == eval("ColorEnLista"+PunteroDeColores)) {
			trace ("Iguales, el color del cuadradito recién agregado ya estaba en la lista.");
			ColorDistinto = "No";
			// Para que no siga mirando la lista:
			PunteroDeColores = Colores;
		}
	}
	// Si el color no está en la lista:
	if (ColorDistinto == "Sí") {
		// Agregarlo:
		Colores++;
		set ("ColorEnLista"+Colores, ColorDeCuadradito.getRGB());
		// Esta función se usa en 2 lados distintos usando variables distintas,
		// por eso hay 2 traces:
		trace ("El cuadradito "+CuadraditosColocados+" fue el 1ero de un color no anotado: "+ColorDeCuadradito.getRGB());
		trace ("El cuadradito "+CuadraditoaRepintar+" fue el 1ero de un color no anotado: "+ColorDeCuadradito.getRGB());
		trace ("La cantidad de colores captada ahora es "+Colores);
	}
}

Repetir mientras la cantidad de colores sea insuficiente:
   Modificar uno al azar

Repetir mientras la cantidad de colores sea insuficiente:
   Repetir
      Elegir un cuadradito al azar
   Mientras el color del elegido no sea uno de los únicos
   Al cuadradito elegido asignarle uno de los colores que faltan
}

Hacer lista de colores faltantes y únicos.
Ir asignando colores a los cuadraditos.
	Ver si el color elegido está en la lista de faltantes
	Si está
		Quitarlo de la lista de faltantes y Faltantes--
	sino
		Ver si el color elegido está en la lista de únicos
		Si está
			Quitarlo y Unicos--
Repetir si aún hay faltantes
	Unico = "Sí"
	Repetir
		Elegir un cuadradito al azar
		Ver si su color está en la lista de únicos
		Si no está
			Unico = "No"
	mientras Unico == "Sí"
	Al elegido ponerle un color faltante y Faltante--

// Este programa produce números cada vez más largos,
// intercalándolos según el tipo,
// entre más decimales 1ero,
// y secundariamente los negativos 1ero.
// 
// El 0 aquí se refiere a la cantidad de decimales
// (pero los números se guardan como enteros):
LastPositivoDe0 = -1;
// El programa tiene 5 etapas:
// 1: Esta, donde sólo se definen cosas.
// 2: Produce el 0 y números positivos de 0 decimales.
// 3: Negativos y positivos, de 0 decimales.
// 4: Positivos de 1, negativos y positivos de 0.
// 5: Va creando 2 tipos de número.
// Variables como esta determinan cuánto dura cada etapa,
// o cuando se crean listas y sus máximos valores:
MaxPositivoDe0 = 9;
// Esto se repite en el frame 2:
function Etapa2 () {
	// Producir el 0 o un número positivo:
	LastPositivoDe0++;
	trace (LastPositivoDe0);
	if (LastPositivoDe0 == MaxPositivoDe0) {
		// No hay más números de largo 1,
		// crear lista de negativos:
		LastNegativoDe0 = 0;
		// Indicar nuevos máximos:
		MaxPositivoDe0 = 99;
		MaxNegativoDe0 = -9;
		// Avanzar etapa:
		gotoAndStop (3);
	}
}
// Esto se repite en el frame 3:
function Etapa3 () {
	// ¿Se puede producir un número negativo de largo 2?
	if (LastNegativoDe0>MaxNegativoDe0) {
		// Sí, producirlo:
		LastNegativoDe0--;
		trace (LastNegativoDe0);
	}
	// Positivo:
	LastPositivoDe0++;
	trace (LastPositivoDe0);
	if (LastPositivoDe0 == MaxPositivoDe0) {
		// No hay más números de largo 2.
		// crear lista de positivos de 1 decimal:
		LastPositivoDe1 = 0;
		// Indicar nuevos máximos:
		MaxPositivoDe0 = 999;
		MaxNegativoDe0 = -99;
		// Recuérdese que las listas de decimales...
		// son guardadas como enteros.
		MaxPositivoDe1 = 99;
		// Avanzar etapa:
		gotoAndStop (4);
	}
}
// Esto se repite en el frame 4:
function Etapa4 () {
	// ¿Se pueda producir un número positivo de 1 decimal y largo 3?
	if (LastPositivoDe1<MaxPositivoDe1) {
		// Sí, producirlo:
		LastPositivoDe1++;
		// ¿Termina en 0?:
		Textualizado = String(LastPositivoDe1);
		LastChar = Textualizado.charat(Textualizado.length-1);
		if (LastChar == 0) {
			// Sí, ergo al convertirlo a decimales...
			// no tendrá largo 3, arreglarlo:
			LastPositivoDe1++;
		}
		Decimaleado = LastPositivoDe1/10;
		trace (Decimaleado);
	}
	// ¿Se puede producir un número negativo de largo 3?
	if (LastNegativoDe0>MaxNegativoDe0) {
		// Sí, producirlo:
		LastNegativoDe0--;
		trace (LastNegativoDe0);
	}
	// Positivo:
	LastPositivoDe0++;
	trace (LastPositivoDe0);
	if (LastPositivoDe0 == MaxPositivoDe0) {
		// No hay más números de largo 3,
		// crear nuevas listas:
		LastPositivoDe2 = 0;
		LastNegativoDe1 = 0;
		// Indicar nuevos máximos:
		MaxPositivoDe0 = 9999;
		MaxNegativoDe0 = -999;
		MaxPositivoDe1 = 999;
		MaxNegativoDe1 = -99;
		MaxPositivoDe2 = 999;
		// Para la siguiente etapa:
		MaxDecimales = 2;
		Decimales = 2;
		trace ("Inicia la 5");
		gotoAndStop (5);
	}
}
// Esto se repite en el frame 5:
function Etapa5 () {
	// ¿Se puede producir un número positivo de X decimales y largo Y?
	// X = Decimales.
	Resumen = "LastPositivoDe"+Decimales;
	// trace("Resumen: "+Resumen);
	Evalued = eval(Resumen);
	// trace("Evalued: "+Evalued);
	if (Evalued<eval("MaxPositivoDe"+Decimales)) {
		// Sí, producirlo:
		Evalued++;
		// ¿Termina en 0?:
		Textualizado = String(Evalued);
		LastChar = Textualizado.charat(Textualizado.length-1);
		if (LastChar == 0) {
			// Sí, ergo al convertirlo a decimales...
			// no será del largo requerido, arreglarlo:
			Evalued++;
		}
		Decimaleado = Evalued/Math.pow(10, Decimales);
		trace (Decimaleado);
		// Guardarlo en la lista:
		set (Resumen, Evalued);
	}
	do {
		// Repetir mientras Decimales > 0:
		Decimales--;
		// ¿Se puede producir un número negativo de X decimales y largo Y?
		Resumen = "LastNegativoDe"+Decimales;
		// trace("Resumen: "+Resumen);
		Evalued = eval(Resumen);
		// trace("Evalued: "+Evalued);
		if (Evalued>eval("MaxNegativoDe"+Decimales)) {
			// Sí, producirlo:
			Evalued--;
			if (Decimales>0) {
				// ¿Termina en 0?:
				Textualizado = String(Evalued);
				LastChar = Textualizado.charat(Textualizado.length-1);
				if (LastChar == 0) {
					// Sí, ergo al convertirlo a decimales...
					// no será de largo Y, arreglarlo:
					Evalued--;
				}
			}
			Decimaleado = Evalued/Math.pow(10, Decimales);
			trace (Decimaleado);
			// Guardarlo en la lista:
			set (Resumen, Evalued);
		}
		// ¿Se puede producir un número positivo de X decimales y largo Y?
		// X = Decimales.
		Resumen = "LastPositivoDe"+Decimales;
		// trace("Resumen: "+Resumen);
		Evalued = eval(Resumen);
		// trace("Evalued: "+Evalued);
		if (Evalued<eval("MaxPositivoDe"+Decimales)) {
			// Sí, producirlo:
			Evalued++;
			if (Decimales>0) {
				// ¿Termina en 0?:
				Textualizado = String(Evalued);
				LastChar = Textualizado.charat(Textualizado.length-1);
				if (LastChar == 0) {
					// Sí, ergo al convertirlo a decimales...
					// no tendrá largo Y, arreglarlo:
					Evalued++;
				}
			}
			Decimaleado = Evalued/Math.pow(10, Decimales);
			trace (Decimaleado);
			// Guardarlo en la lista:
			set (Resumen, Evalued);
		}
		if (LastPositivoDe0 == MaxPositivoDe0) {
			// INDICAR SI CONTINÚA O PARA:
			// No hay más números de largo Y.
			// crear listas para números más largos:
			MaxDecimales++;
			set ("LastPositivoDe"+MaxDecimales, 0);
			set ("LastNegativoDe"+MaxDecimales, 0);
			// Indicar nuevos máximos:
			MaxPositivoDe0 = Math.pow(10, Decimales+1)-1;
			MaxNegativoDe0 = Math.pow(10, Decimales)*-1+1;
			Decimales = 0;
			Maximo1 = Math.pow(10, Decimales)-1;
			Maximo2 = Math.pow(10, Decimales-1)*-1+1;
			do {
				Decimales++;
				set ("MaxPositivoDe"+Decimales, Maximo1);
				set ("MaxNegativoDe"+Decimales, Maximo2);
			} while (Decimales<MaxDecimales);
		}
	} while (Decimales>0);
	Decimales = MaxDecimales;
}