// Programa para contar cosas...
// relativas a contactos con escaleras.
// 1 condición:
function ContarPriIzq () {
	PriIzq++;
	PriIzqoDer++;
	PriIzqoArr++;
}
function ContarPriDer () {
	PriDer++;
	PriIzqoDer++;
	PriDeroArr++;
}
function ContarPriArr () {
	PriArr++;
	PriIzqoArr++;
	PriDeroArr++;
}
// Escalera 1:
Escalera1First = "Izq";
Escalera1Izq = 3;
Escalera1Der = 0;
Escalera1Arr = 0;
Escalera1Last = "Izq";
// 2:
Escalera2First = "Der";
Escalera2Izq = 0;
Escalera2Der = 2;
Escalera2Arr = 0;
Escalera2Last = "Der";
// 3:
Escalera3First = "Izq";
Escalera3Izq = 1;
Escalera3Der = 0;
Escalera3Arr = 0;
Escalera3Last = "Izq";
// 4:
Escalera4First = "Der";
Escalera4Izq = 2;
Escalera4Der = 1;
Escalera4Arr = 1;
Escalera4Last = "Izq";
// 5:
Escalera5First = "Arr";
Escalera5Izq = 1;
Escalera5Der = 0;
Escalera5Arr = 1;
Escalera5Last = "Izq";
// 6:
Escalera6First = "Der";
Escalera6Izq = 0;
Escalera6Der = 1;
Escalera6Arr = 0;
Escalera6Last = "Der";
// 7:
Escalera7First = "Izq";
Escalera7Izq = 1;
Escalera7Der = 0;
Escalera7Arr = 0;
Escalera7Last = "Izq";
//
Escalera = 0;
do {
	Escalera++;
	// Resumen:
	Res = "Escalera"+Escalera;
	// Contar escaleras contactadas 1ero por (lado):
	eval("ContarPri"+eval(Res+"First"))();
	Contactos = eval(Res+"Izq")+eval(Res+"Der")+eval(Res+"Arr");
	if (Contactos == 1) {
		// Contar escaleras contactadas sólo 1 vez:
		OneTime++;
	} else {
		// Más de 1 vez:
		SomeTimes++;
	}
} while (Escalera<7);

// 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--