with p_twist; use p_twist;
with p_vue_txt; use p_vue_txt;
with text_io; use text_io;
use p_twist.p_piece_io;
use p_twist.p_int_io;

procedure twist1 is
  V : TV_Grille;
  VP : TV_Piece;
  f : text_io.file_type;
  g : p_piece_io.file_type;
  n : level;
begin
  begin
    loop
      put("Quel niveau voulez-vous jouer : ");
      get(n);
      exit;
    end loop;
    exception
    when others => put_line("Erreur les niveaux vont de 1 à 101");
  end;
  InitGrille(V);
  open(f,in_file,"defis.txt");
  open(g,in_file,"fpieces");
  InitJeu(f,n,V);
  AfficheGrille(V);
  CreeVectPiece(g,VP);
  put_line("Pièces disponibles : ");
  AffichePiecesNonPlacees(VP);
end twist1;