Clase 6 Ejercicio 1-A

/*Programa el procedimiento MoverCeldaAl(dir) que mueve
el contenido de la celda
actual a la celda siguiente en direccion dir.*/


procedure PonerN(color, cantidad) {
    repeatWith i in 1..cantidad {
        Poner(color)
    }
}

//EMPIEZA VaciarCelda()
procedure SacarN(color, cantidad) {
    repeatWith i in 1..cantidad {
        Sacar(color)
    }
}

procedure SacarTodas(c) {
    SacarN(c, nroBolitas(c))
}

procedure VaciarCelda() {
    repeatWith c in Azul..Verde{
        SacarTodas(c)
    }
}
 // termina VaciarCelda()

procedure MoverCeldaAl(dir) {
    cantBolitasAzul:=nroBolitas(Azul)
    cantBolitasRojo:=nroBolitas(Rojo)
    cantBolitasNegro:=nroBolitas(Negro)
    cantBolitasVerde:=nroBolitas(Verde)

    VaciarCelda() //Vacia celda actual


    Mover(dir)

    VaciarCelda()

    PonerN(Azul, cantBolitasAzul)
    PonerN(Negro, cantBolitasNegro)
    PonerN(Rojo, cantBolitasRojo)
    PonerN(Verde, cantBolitasVerde)
}

procedure Main(){
    MoverCeldaAl(Este)
}