Clase 5 Entre1

function haySiguienteCelda()
{
return(puedeMover(Este)|| puedeMover(Norte))

}

procedure IrAlBorde(dir)
{
while(puedeMover(dir))
{Mover(dir)}
}

procedure VolverAlOrigenYSubir()
{
IrAlBorde(Oeste)
Mover(Norte)
}

procedure IrASiguienteCelda()
{
if(puedeMover(Este))
{Mover(Este)}

else
{VolverAlOrigenYSubir()}
}

procedure EstablecerDos(){

}

procedure SacarTodas(color)
{
if(hayBolitas(color))
{ repeatWith i in 1.. nroBolitas(color)
{Sacar(Azul)}
}
Poner(Rojo) Poner(Negro)
}

procedure IntercambiarColores(col1, col2) {
EstablecerDos(col1, nroBolitas(col1), col2, nroBolitas(col2))
}

procedure InvertirCelda() {
IntercambiarColores( Azul, Rojo)
IntercambiarColores( Verde, Negro)
}

procedure InvertirTablero()
{
IrAlOrigen()
SacarTodas(Azul)
while(haySiguienteCelda())
{IrASiguienteCelda(); SacarTodas(Azul)}
}



procedure Main(){
InvertirTablero()

}