anchor.diff:             end;
       end; 
       { nettoyage la fenetre field }
  -    wclear(field);
  -    wclear(dashboard);
  +    //wclear(field);
  +    //wclear(dashboard);
       drawBox(field);
       drawBox(dashboard);
       //mvwprintw(field, 1, 1, 'Field');
  -    mvwprintw(dashboard, 1, max_x div 2 , PChar(concat('| Ammo : ', IntToStr(BShip.ammunition))));
       // refresh each window
  -    wrefresh(field);
  -    wrefresh(dashboard);
       mvprintw(max_y-5, BShip.posx, 'O');
       refresh;
  -    if (BEnemy.nbr > 0) then begin
  +    if (BEnemy.nbr > 0) and (k = 100) then begin
         randomize;
         BEnemy.enepos[random(max_x)+1] := 2;
         Dec(BEnemy.nbr);
  +      k := 0;
       end;
       Shoot(BShip);
  -    //Enemys(BEnemy);
  +    Enemys(BEnemy);
  +    collision(BShip, BEnemy, Score);
  +    mvwprintw(dashboard, 1, 1, PChar(concat('Score : ', IntToStr(Score))));
  +    mvwprintw(dashboard, 1, max_x div 2 , PChar(concat('| Ammo : ', IntToStr(BShip.ammunition))));
  +    wrefresh(field);
  +    wrefresh(dashboard);
       {un petit dodo pour 3 millisecondes}
  -    napms(5);
  +    //napms(5);
     end;
     endwin();
   END.
  
positive.code:   else newPos := BShip.posx;
  end;
  
  function collision(posm, pose : integer) : Boolean;
  begin
    if (posm = pose) then collision := True
    else collision := False;
  end;
  
  procedure Enemys(var BEnemy : Enemy);
  
negative.code:   nodelay(field, true);
    while True do begin
      Inc(i); Inc(k);
      Inc(SlowE);
      rk := getch();
      case rk  of 
        67 : BShip.posx :=newPos('L');
  