playingWithGobstones.gbs

procedure Linea(largo, direccion, color) {
    repeatWith i in 1..largo {
        Poner(color)
        Mover(direccion)
    }
}

procedure Cuadrado(largo, color) {
    repeatWith dir in Norte..Oeste {
        Linea(largo, dir, color)
    }
}

procedure LineaDiagonalHacia(direccionVertical, direccionHorizontal, color) {
    while (puedeMover(direccionVertical)) {
        Poner(color)
        Mover(direccionVertical)   
        Mover(direccionHorizontal)
    }

    Poner(color)
}

procedure LineaHorizontalHacia(direccion, color) {
    while (puedeMover(direccion)) {
        Poner(color)
        Mover(direccion)
    }

    Poner(color)
}

procedure Cruz(color) {
    LineaDiagonalHacia(Norte, Este, color)
    LineaHorizontalHacia(Oeste, color)
    LineaDiagonalHacia(Sur, Este, color)
    LineaHorizontalHacia(Oeste, color)
}

procedure MoverN(direccion, cantidad) {
    repeatWith i in 1..cantidad {
        Mover(direccion)
    }
}

procedure Main() {
    IrAlOrigen()    
    VaciarTablero()
    
    Cruz(Rojo)
}