Clase 5 SacarTodas

/*   EMPIEZA SacarTodas(color)  */
/*Iniciar el recorrido*/
procedure CabezalAlTopeDeLaColumna(){
while (puedeMover(Norte)==True)
{Mover(Norte)}
}
/*Procesar Elemento Actual*/
procedure SacaCeldaDe(color){
if (hayBolitas(color))
{Sacar (color)}
}

/*Pasar Al Siguiente*/

procedure MoverSiguiente(){
Mover(Sur)
}

/* Finalizar Recorrido*/
function llegoALaBase(){
return (puedeMover(Sur)==False)
}

procedure SacaXCeldaDe(color){
while (hayBolitas(color))
{Sacar(color)}
}

procedure SacaColumna(color){
CabezalAlTopeDeLaColumna()
while (not llegoALaBase())
{SacaXCeldaDe(color)
Mover(Sur) }
SacaXCeldaDe(color)
}

/*   EMPIEZA RECORRIDO TABLERO    */
procedure CabezalALaPrimeraColumna(){
while (puedeMover(Este)==True)
{Mover(Este)}
}

function llegoALaUltimaColumna(){
return (puedeMover(Oeste)==False)
}

procedure SacarTodas(color){
CabezalALaPrimeraColumna()
while (not llegoALaUltimaColumna())
{SacaColumna(color)
Mover(Oeste)
}
SacaColumna(color)
}

/*   FIN SacarTodas(color)   */



procedure Main(){
SacarTodas(Rojo)
}