function HacerTablero () {
	// Esto se irá especificando en el while:
	Situacion = [];
	PosiblesAcciones = [];
	// Los casilleros se cuentan desde 0:
	MaxCasillero = CasillerosPorFila*CasillerosPorFila-1;
	LargoDeCasilleros = 384/CasillerosPorFila;
	NroDeCasilleroaColocar = -1;
	// Sus columnas y filas se cuentan desde 0,
	// sirven para posicionarlos más fácil:
	Columna = 0;
	Fila = 0;
	do {
		NroDeCasilleroaColocar++;
		// v es vacío:
		Situacion.push("v");
		PosiblesAcciones.push(NroDeCasilleroaColocar);
		CasilleroaColocar = "Casillero"+NroDeCasilleroaColocar;
		// set ("SignoEn"+CasilleroaColocar, "v");
		// sCasillero tiene código.
		attachMovie("sCasillero", CasilleroaColocar, NroDeCasilleroaColocar);
		setProperty (CasilleroaColocar, _x, LargoDeCasilleros*Columna);
		setProperty (CasilleroaColocar, _y, LargoDeCasilleros*Fila);
		setProperty (CasilleroaColocar, _width, LargoDeCasilleros);
		setProperty (CasilleroaColocar, _height, LargoDeCasilleros);
		Columna = Columna+1;
		if (Columna == CasillerosPorFila) {
			Columna = 0;
			Fila = Fila+1;
		}
		// Para que al presionar el botón se sepa qué modificar:
		set (CasilleroaColocar+".CasilleroAsociado", NroDeCasilleroaColocar);
		// trace("Colocado el "+NroDeCasilleroaColocar);
	} while (NroDeCasilleroaColocar<MaxCasillero);
	// Para que no muestre el mensaje de victoria:
	Win = "No";
}
function HumanoHaMarcado () {
	// Inutilizar botón del casillero marcado:
	setProperty (eval("Casillero"+CasilleroMarcado+".Boton"), _visible, false);
	// Agregar cruz:
	// SignosColocados++;
	eval("Casillero"+CasilleroMarcado).attachMovie("sCruz", "Cruz", 1);
	Situacion[CasilleroMarcado] = "X"
	// set ("SignoEnCasillero"+CasilleroMarcado, "X");
	// ¿Gana?
	if (JuntosRequeridos == 2) {
		ObtenerColumnayFilaDelMarcado();
		// Para saber si el cuadradito marcado no tiene...
		// contiguos hacia algún lado:
		ObtenerExcepciones();
		trace("Aplicando ChequeoDe2Excepto"+FuncNamePart1+FuncNamePart2);
		eval("ChequeoDe2Excepto"+FuncNamePart1+FuncNamePart2)();
	} else if (JuntosRequeridos == 1) {
		Win = "Sí";
	}
	if (Win == "Sí") {
		// Sí, inutilizar botones del tablero
		// (debería ser sólo los activos):
		InutilizarBotones();
		// Mostrar mensaje de victoria:
		attachMovie("sGanoX", "Mensaje", NroDeCasilleroaColocar+1);
		setProperty (Mensaje, _x, 192.4);
		setProperty (Mensaje, _y, 192);
		gotoAndStop (3);
	} else {
		// Quitar su acción de las posibles acciones:
		// Se busca en qué posición del array está:
		AccionRevisandose = -1;
		// Esto es para evitar restas:
		LastNroDeAcccion = PosiblesAcciones.length-1;
		// Probablemente sea ok poner true en la condición:
		do {
			AccionRevisandose++;
			if (PosiblesAcciones[AccionRevisandose] == CasilleroMarcado) {
				// Se sustituye por la que está última:
				PosiblesAcciones[AccionRevisandose] = PosiblesAcciones[LastNroDeAcccion];
				// Se elimina la última:
				PosiblesAcciones.pop();
				break;
			}
		} while (AccionRevisandose < LastNroDeAcccion);
		LastNroDeAcccion--;
		// Elegir una acción al azar:
		NroDeAccionElegida = random(PosiblesAcciones.length);
		AccionElegida = PosiblesAcciones[NroDeAccionElegida];
		// Eliminar la que está en el nro elegido:
		// Se sustituye por la que está última:
		PosiblesAcciones[NroDeAccionElegida] = PosiblesAcciones[LastNroDeAcccion];
		// Se elimina la última:
		PosiblesAcciones.pop();
		eval("Casillero"+AccionElegida).attachMovie("sCero", "Cero", 0);
		Situacion[AccionElegida] = 0;
		// Inutilizar el botón de ahí:
		setProperty (eval("Casillero"+AccionElegida+".Boton"), _visible, false);
		// Ver si 0 ganó:
		CasilleroMarcado = AccionElegida;
		if (JuntosRequeridos == 2) {
			ObtenerColumnayFilaDelMarcado();
			// Para saber si el cuadradito marcado no tiene...
			// contiguos hacia algún lado:
			ObtenerExcepciones();
			trace("Aplicando ChequeoDe2Excepto"+FuncNamePart1+FuncNamePart2);
			eval("ChequeoDe2Excepto"+FuncNamePart1+FuncNamePart2)();
			if (Win == "Sí") {
				// Sí, inutilizar botones del tablero
				// (debería ser sólo los activos):
				InutilizarBotones();
				// Mostrar mensaje de victoria:
				attachMovie("sGano0", "Mensaje", NroDeCasilleroaColocar+1);
				setProperty (Mensaje, _x, 192.4);
				setProperty (Mensaje, _y, 192);
				gotoAndStop (3);
			}
		}
	}
	// _level0.ObtenerSituacion();
}
function ObtenerColumnayFilaDelMarcado () {
	FilaDelMarcado = Math.floor(CasilleroMarcado/CasillerosPorFila);
	trace ("Su Fila según el cálculo es: "+FilaDelMarcado);
	ColumnaDelMarcado = CasilleroMarcado%CasillerosPorFila;
	trace ("Su Columna: "+ColumnaDelMarcado);
}
function ObtenerExcepciones () {
		if (FilaDelMarcado != 0) {
			if (FilaDelMarcado != CasillerosPorFila0) {
				FuncNamePart1 = "";
			} else {
				FuncNamePart1 = "Abajo";
			}
		} else {
			FuncNamePart1 = "Arriba";
		}
		if (ColumnaDelMarcado != 0) {
			if (ColumnaDelMarcado != CasillerosPorFila0) {
				FuncNamePart2 = "";
			} else {
				FuncNamePart2 = "Derecha";
			}
		} else {
			FuncNamePart2 = "Izquierda";
		}
}
// Chequear todo, no hay excepción especificada:
function ChequeoDe2Excepto () {
	// 012
	// 3x5
	// 678
	Desde = -1;
	Hasta = 3;
	Incremento = 1;
	ChequeoDe2();
	if (Win == "No") {
		Desde = 4;
		Hasta = 8;
		Incremento = 1;
		ChequeoDe2();
	}
}
function ChequeoDe2ExceptoArriba () {
	// 0x2
	// 345
	// 678
	Desde = 1;
	Hasta = 5;
	Incremento = 1;
	ChequeoDe2();
	if (Win == "No") {
		if (Situacion[CasilleroMarcado] == Situacion[0]) {
			Win = "Sí";
		}
	}
}
function ChequeoDe2ExceptoAbajo () {
	// 012
	// 345
	// 6x8
	Desde = 2;
	Hasta = 6;
	Incremento = 1;
	ChequeoDe2();
	if (Win == "No") {
		if (Situacion[CasilleroMarcado] == Situacion[8]) {
			Win = "Sí";
		}
	}
}
function ChequeoDe2ExceptoIzquierda () {
	// 012
	// x45
	// 678
	Desde = -2;
	Hasta = 7;
	Incremento = 3;
	ChequeoDe2();
	if (Win == "No") {
		Desde = -6;
		Hasta = 6;
		Incremento = 6;
		ChequeoDe2();
	}
}
function ChequeoDe2ExceptoDerecha () {
	// 012
	// 34x
	// 678
	Desde = -2;
	Hasta = 7;
	Incremento = 3;
	ChequeoDe2();
	if (Win == "No") {
		Desde = -4;
		Hasta = 8;
		Incremento = 6;
		ChequeoDe2();
	}
}
function ChequeoDe2ExceptoArribaIzquierda () {
	// x12
	// 345
	// 678
	Desde = 2;
	Hasta = 4;
	Incremento = 1;
	ChequeoDe2();
	if (Win == "No") {
		if (Situacion[CasilleroMarcado] == Situacion[1]) {
			Win = "Sí";
		}
	}
}
function ChequeoDe2ExceptoArribaDerecha () {
	// 01x
	// 345
	// 678
	Desde = 2;
	Hasta = 5;
	Incremento = 1;
	ChequeoDe2();
	if (Win == "No") {
		if (Situacion[CasilleroMarcado] == Situacion[1]) {
			Win = "Sí";
		}
	}
}
function ChequeoDe2ExceptoAbajoIzquierda () {
	// 012
	// 345
	// x78
	Desde = 2;
	Hasta = 4;
	Incremento = 1;
	ChequeoDe2();
	if (Win == "No") {
		if (Situacion[CasilleroMarcado] == Situacion[7]) {
			Win = "Sí";
		}
	}
}
function ChequeoDe2ExceptoAbajoDerecha () {
	// 012
	// 345
	// 67x
	Desde = 3;
	Hasta = 5;
	Incremento = 1;
	ChequeoDe2();
	if (Win == "No") {
		if (Situacion[CasilleroMarcado] == Situacion[7]) {
			Win = "Sí";
		}
	}
}
//
function ChequeoDe2 () {
	Win = "No";
	do {
		Desde = Desde+Incremento;
		trace("Chequeando "+Desde);
		if (Situacion[CasilleroMarcado] == Situacion[Desde]) {
			Win = "Sí";
			break;
		}
	} while (Desde < Hasta);
}
function InutilizarBotones () {
	BotonesInutilizados = -1;
	do {
		BotonesInutilizados++;
		setProperty ("Casillero"+BotonesInutilizados+".Boton", _visible, false);
	} while (BotonesInutilizados<MaxCasillero);
}
CasillerosPorFila = 3;
// Contando desde 0:
CasillerosPorFila0 = CasillerosPorFila-1;
JuntosRequeridos = 2;
HacerTablero();

// 2 en línea horizontal, en tablero de 2x2, sólo X:
// 
// Uso arrays porque es más fácil así modificar los nombres...
// de variables:
// 
// Los casilleros están numerados así:
// 0 1
// 2 3
// Situación inicial (v es casillero vacío):
SituacionBase = ["v", "v", "v", "v"];
// Ponerla en la lista de situaciones a experimentar:
SaE1 = SituacionBase.slice();
// Situaciones a experimentar (cuántas son):
SaE = 1;
NroDeSExperimentandose = 1;
NombreDeSE = "S"+(SaE1.join(""));
// Acción a realizarse (casillero a marcar):
Action = 0;
// Este programa tiene básicamente 2 etapas:
// 1: Buscar situaciones en que se puede ganar mediante 1 acción.
// 2: 		FALTAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
function BuscarBuenasSituaciones () {
	// Plantear situación porque puede modificarse pero...
	// podría requerirse su estado original luego:
	Situacion = SituacionBase.slice();
	trace("La situación experimentándose es "+Situacion);
	EvaluarAplicabilidadEt1();
}
// ¿La acción es realizable?
// Etapa 1 (buscar buenas situaciones)
function EvaluarAplicabilidadEt1 () {
	trace("Ejecutando EvaluarAplicabilidadEt1");
	if (Situacion[Action] == "v") {
		// Sí, realizarla:
		AplicarAccionEt1();
	} else if (Action < 3) {
		trace("La acción "+Action+" no es realizable.");
		// Sino si queda alguna acción sin probar...
		// en la situación, probarla:
		Action++;
		EvaluarAplicabilidadEt1();
	} else {
		trace("No hay más acciones realizables.");
		BuscarOtraSituacionEt1();
	}
}
function AplicarAccionEt1 () {
	trace("Ejecutando AplicarAccionEt1");
	Situacion[Action] = "X";
	trace("Se realizó la acción "+Action+"; ahora la situación es "+Situacion);
	// ¿Ganó?
	// Para averiguarlo, calcular fila (contando desde 0):
	ObtenerColumnayFilaDelMarcado();
	CuadraditoMinimoDeLaFila = FilaDelMarcado*2;
	if (Situacion[CuadraditoMinimoDeLaFila] == Situacion[CuadraditoMinimoDeLaFila+1]) {
		// trace("Situacion[CuadraditoMinimoDeLaFila] == Situacion[CuadraditoMinimoDeLaFila+1]: "+Situacion[CuadraditoMinimoDeLaFila]+" == "+Situacion[CuadraditoMinimoDeLaFila+1]);
		// Sí, crear datos sobre eso:
		// En la situación base conviene la acción realizada:
		set (NombreDeSE+"BestAction", Action);
		// En esa situación se requiere 1 acción para ganar:
		set (NombreDeSE+"DistanciaaGanar", 1);
		trace("Ganó, ahora se sabe que en la situación "+SituacionBase+" se gana usando la acción "+Action);
		BuscarOtraSituacionEt1();
	} else {
		EvaluarConocimientoSobreSEt1();
		// ¿Queda alguna acción sin probar...
		// en la situación?
		if (Action < 3) {
			// Sí, probarla:
			Action++;
			// Se ejecutará BuscarBuenasSituaciones.
		} else {
			BuscarOtraSituacionEt1();
		}
	}
}
function ObtenerColumnayFilaDelMarcado () {
	FilaDelMarcado = Math.floor(Action/2);
	ColumnaDelMarcado = Action%2;
}
// ¿Aún hay situaciones a experimentar?
function BuscarOtraSituacionEt1 () {
	trace("Ejecutando BuscarOtraSituacionEt1");
	if (SaE > NroDeSExperimentandose) {
		IniciarExperimentosEnOtraSEt1();
	} else {
		trace(	"No hay más situaciones a experimentar; inicia la etapa 2.");
		IniciarEtapa2();
	}
}
// ¿La situación está anotada en las que deben investigarse?
function EvaluarConocimientoSobreSEt1 () {
	trace("Ejecutando EvaluarConocimientoSobreSEt1");
	SituacionHechaTexto = Situacion.join("");
	NombreDeSituacion = "S"+SituacionHechaTexto;
	Resumen = NombreDeSituacion+"BestAction";
	if (eval(Resumen) == undefined) {
		// No, anotar que debe investigarse:
		SaE++;
		set ("SaE"+SaE, Situacion.slice());
		trace("Esa situación no está anotada; se anota como nro "+SaE);
		// Esto para saber que está anotada:
		set (Resumen, "Desconocida");
	}
}
function IniciarExperimentosEnOtraSEt1 () {
	trace("Ejecutando IniciarExperimentosEnOtraSEt1");
	NroDeSExperimentandose++;
	SituacionBase = eval("SaE"+NroDeSExperimentandose);
	// trace("SituacionBase: "+SituacionBase);
	// Reset de la acción a probar:
	Action = 0;
	trace("Se inician experimentos en otra situación, la anotada nro "+NroDeSExperimentandose);
}
function IniciarEtapa2 () {
	DistanciaaGanarAceptada = 1;
	trace("Se experimentaron todas las situaciones; se reexperimentarán buscando resultados menos óptimos");
	trace("Son "+SaE+" situaciones; se acepta que la distancia a la victoria sea "+DistanciaaGanarAceptada);
	gotoAndStop (3);
}