Clase 2 Ejercicio 2.4.16

/*La Base Marambio, en la Antartida, esta siendo invadida porextraterrestres de color verde.
La base es de color azul
y esta totalmente rodeada por ellos en las 8 direcciones del radar.
La mision es escribir un programa GOBSTONES que muestre
como eliminar la amenaza alienıgena. Para ello hay que representar de alguna
manera la informacion del radar en el tablero de GOBSTONES, y luego escribir el
procedimiento AcabarConAmenazaAlienigena que elimine a los invasores. ¿Cual
serıa la precondicion de este procedimiento?*/
procedure PrepararTablero()
{
	VaciarTablero()
	IrAlOrigen()
}
/*Empieza Extraterrestres*/
procedure ExtraterrestresSur()
{
	Poner(Verde)
	Mover(Este)
	Poner(Verde)
	Mover(Este)
}
procedure ExtraterrestresEste()
{
	Poner(Verde)
	Mover(Norte)
	Poner(Verde)
	Mover(Norte)
}
procedure ExtraterrestresNorte()
{
	Poner(Verde)
	Mover(Oeste)
	Poner(Verde)
	Mover(Oeste)
}
procedure ExtraterrestresOeste()
{
	Poner(Verde)
	Mover(Sur)
	Poner(Verde)
	Mover(Sur)
}
procedure Extraterrestres()
{
	ExtraterrestresSur()
	ExtraterrestresEste()
	ExtraterrestresNorte()
	ExtraterrestresOeste()
}
/*Empieza Marambio*/
procedure BaseMarambio()
{
	IrAlOrigen()
	Mover(Este)
	Mover(Norte)
	Poner(Azul)
}
/* Empieza Eliminacion*/
procedure EliminaExtraterrestresSur()
{
	IrAlOrigen()
	Sacar(Verde)
	Mover(Este)
	Sacar(Verde)
	Mover(Este)
}
procedure EliminaExtraterrestresEste()
{
	Sacar(Verde)
	Mover(Norte)
	Sacar(Verde)
	Mover(Norte)
}
procedure EliminaExtraterrestresNorte()
{
	Sacar(Verde)
	Mover(Oeste)
	Sacar(Verde)
	Mover(Oeste)
}
procedure EliminaExtraterrestresOeste()
{
	Sacar(Verde)
	Mover(Sur)
	Sacar(Verde)
	Mover(Sur)
}
procedure EliminaExtraterrestres()
{
	EliminaExtraterrestresSur()
	EliminaExtraterrestresEste()
	EliminaExtraterrestresNorte()
	EliminaExtraterrestresOeste()
}

procedure Main()
{
	PrepararTablero()
	Extraterrestres()
	BaseMarambio()
    EliminaExtraterrestres()
}