BaseUrna = "WWB";
AlexPerdidas = 0;
BartPerdidas = 0;
CamiloPerdidas = 0;
function Sortear () {
	// Preparar urna:
	Urna = BaseUrna;
	// Elección de la 1er persona, Alex:
	BolaDeAlexNro = random(3);
	if (BolaDeAlexNro == 2) {
		AlexPerdidas++;
	} else {
		BolaDeAlex = Urna.charat(BolaDeAlexNro);
		Parte1 = substring(Urna, 0, BolaDeAlexNro);
		trace(Parte1);
		Parte2 = substring(Urna, BolaDeAlexNro+1, Urna.length);
		trace(Parte2);
		Urna = Parte1+Parte2;
		// trace(Urna);
		// Elección de la 2nda persona, Bart:
		BolaDeBartNro = random(2);
		if (BolaDeBartNro == 1) {
			BartPerdidas++;
		} else {
			CamiloPerdidas++;
		}
	}
}

BaseUrna = "ABCD";
AlexPerdidas = 0;
BartPerdidas = 0;
CamiloPerdidas = 0;
function Sortear () {
	// Preparar urna:
	Urna = BaseUrna;
	// Elección de la 1er persona, Alex:
	BolaDeAlexNro = random(4);
	if (BolaDeAlexNro == 3) {
		AlexPerdidas++;
	} else {
		BolaDeAlex = Urna.charat(BolaDeAlexNro);
		Parte1 = Urna.substr(0, BolaDeAlexNro);
		// trace(Parte1);
		Parte2 = Urna.substr(BolaDeAlexNro+1, Urna.length);
		// trace(Parte2);
		Urna = Parte1+Parte2;
		trace(Urna);
	}
}

// Indica si el juego continúa o no:
Game = "Ok";
// Por motivos que no recuerdo, las imágenes se ponen...
// en un objeto I.
// Agregar personaje:
I.attachMovie("sMedaMan", "Player", 1);
// X es porque la posición real del personaje no admite...
// tantos valores, los simplifica, se pierde parte;
// de este modo no:
I.Player.X = 0;
I.Player._X = I.Player.X;
I.Player._Y = 584;
I.Player.Action = "Quiet";
LV = 1;
Recorrido = 0;
BarrilesToAdd = 0;
// Aunque hay 0 barriles se pone 10 porque también es...
// el valor que determina qué tan adelante se ponen,
// y el valor 1 es del personaje,
// entonces realmente los barriles es esto-10:
Barriles = 10;
// La mínima distancia a la que Medaman y un barril se tocan...
// depende de qué dibujo tenga Medaman, ya que al caminar,
// uno es más ancho. Pero para simplificar,
// se considerará el más ancho: 32. El ancho del barril es 24.
// Además se agrega 0.2 porque es lo que Medaman...
// se podría mover, y 0.05 para evitar fallas por...
// inexactitudes al operar decimales.
MinDistanciaSinChoque = 16+12+0.25;
// /////////////////////////////////////////////
// /////////////////  MedaMan  /////////////////
// /////////////////////////////////////////////
function AumentarRecorrido () {
	Recorrido++;
	if (Recorrido == 50) {
		Recorrido = 0;
		LV++;
	}
}
function Walk () {
	I.Player.Action = "Walking";
	I.Player.gotoAndStop(2);
	// Ver si empuja algún barril:
	I.Player.Empujar = "No";
	// Se comienza desde 10 por lo ya explicado
	// (tal vez convenga chequear desde el último):
	BarrilesChequeados = 10;
	trace("Checking empuje");
	do {
		BarrilesChequeados++;
		BarrilaChequear = "I.Barril"+BarrilesChequeados;
		BarrilX = eval("I.Barril"+BarrilesChequeados+".X");
		// Si el barril existe:
		if (BarrilX != undefined) {
			DistanciaPlayerBarril = Math.abs(I.Player.X-BarrilX);
			if (DistanciaPlayerBarril < MinDistanciaSinChoque) {
				trace ("Empuja");
				I.Player.Empujar = "Sí";
				break;
			}
		}
	} while (BarrilesChequeados<Barriles);
	if (I.Player.Empujar == "No") {
		// El personaje avanza lo normal:
		I.Player.X = I.Player.X+0.2;
		AumentarRecorrido();
	} else {
		// Avanza menos:
		I.Player.X = I.Player.X+0.1;
		// Ojo que fue hecho para que avance 0.2, puede que lo empuje desde muy lejos.
		// Recorrido debe aumentar acorde a eso, arreglarlo:
		AumentarRecorrido();
		// Empuja un barril:
		// Esto sólo aumenta la velocidad, ojo que si no se mueve puede que quede tocando al personaje:
		BarrilSpeed = BarrilaChequear+".Speed";
		set (BarrilSpeed, 0.15);
	}
	I.Player._X = I.Player.X;
}
function Quiet () {
	I.Player.Action = "Quiet";
	I.Player.gotoAndStop(1);
}
// Whens:
function RightWhenQuiet () {
	// Ver si toca algún barril:
	BarrilesChequeados = 10;
	do {
		BarrilesChequeados++;
		if (I.Player.hitTest(eval("I.Barril"+BarrilesChequeados)) == true) {
			trace("Apareció en barril");
			// Game over:
			Game = "Over";
			I.Player.gotoAndStop(2);
			break;
		}
	} while (BarrilesChequeados<Barriles);
	if (Game == "Ok") {
		Walk();
	} else {
		// Esto probablemente esté bien antes del break:
		gotoAndStop (3);
	}
}
function RightWhenWalking () {
	// AumentarRecorrido();
	Walk();
}
function QuietWhenWalking () {
	Quiet();
}
// QuietWhenQuiet nada hace.
function ControlPlayer () {
	if (Key.isDown(39)) {
		// Si se presiona derecha:
		eval("RightWhen"+I.Player.Action)();
	} else {
		// Si nada se presiona:
		eval("QuietWhen"+I.Player.Action)();
	}
}
// /////////////////////////////////////////////
// ////////////////  Barriles  /////////////////
// /////////////////////////////////////////////
function AddBarriles () {
	BarrilesToAdd = BarrilesToAdd+random(LV)/1000;
	while (BarrilesToAdd>=1) {
		BarrilesToAdd--;
		Barriles++;
		// Probablemente innecesario, y causante de bugs si no se parchea:
		if (Barriles>1010) {
			Barriles = 11;
		}
		BarrilAgreado = "Barril"+Barriles;
		I.attachMovie("sBarril", BarrilAgreado, Barriles);
		BarrilAgreado = "I."+BarrilAgreado;
		set(BarrilAgreado+".X", 0);
		setProperty (BarrilAgreado, _x, 0);
		setProperty (BarrilAgreado, _y, 584);
		set (BarrilAgreado+".Speed", random(LV)/10);
		set (BarrilAgreado+".Spin", 0.1+random(LV)/10);
	}
}
function MoveBarriles () {
	Moved = 10;
	// trace("Checking golpe");
	do {
		Moved++;
		BarrilaMover = "I.Barril"+Moved;
		BarrilSpeed = BarrilaMover+".Speed";
		EvaluedBarrilSpeed = eval(BarrilSpeed);
		// Aplicar rozamiento:
		if (EvaluedBarrilSpeed > 0) {
			EvaluedBarrilSpeed = EvaluedBarrilSpeed/1.0025;
			// Si la velocidad queda muy baja:
			if (EvaluedBarrilSpeed < 0.05) {
				// Frena completamente:
				EvaluedBarrilSpeed = 0;
			}
			set (BarrilSpeed, EvaluedBarrilSpeed);
		}
		BarrilX = eval(BarrilaMover+".X")+EvaluedBarrilSpeed;
		// Si ya no está en la pantalla:
		if (BarrilX>850) {
			// Quitarlo:
			removeMovieClip (BarrilaMover);
		} else {
			// Actualizar posición y girar su parte:
			set(BarrilaMover+".X", BarrilX);
			setProperty (BarrilaMover, _x, BarrilX);
			ParteaRotar = BarrilaMover+".Part";
			setProperty (ParteaRotar, _rotation, getProperty(ParteaRotar, _rotation)+EvaluedBarrilSpeed*2);
			// Si tocan al personaje y él se está moviendo:
			if (I.Player.hitTest(eval(BarrilaMover)) == true && I.Player.Action == "Walking") {
				trace("Golpeado");
				// Game over:
				gotoAndStop (3);
				break;
			} else {
				// Ver si tocó al barril anterior, que está delante:
				BarrilAnterior = "I.Barril"+(Moved-1);
				if (eval(BarrilaMover).hitTest(eval(BarrilAnterior)) == true) {
					// Pasarle la velocidad:
					set (BarrilAnterior+".Speed", eval(BarrilAnterior+".Speed")+EvaluedBarrilSpeed);
					// Quedar sin velocidad:
					set (BarrilSpeed, 0);
				}
			}
		}
	} while (Moved<Barriles);
}