DÉMÉNAGEUR

Commentaire de systmd le 29/08/2012 22:44:41

Bonsoir,

on peut rajouté le déplacement avec les flêches et Echap pour en cas d'impasse

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var X, Y : Integer;
begin

  sens := 4;

  x := ((place.x - gauche) div cote) * cote + gauche;
  y := ((place.y - tete) div cote) * cote + tete;

  Case Key of
  VK_LEFT  :  begin
              sens := 0;
              cible.x := x;
              cible.y := y - cote ;
              Deplace;
              end;     // vers gauche
  VK_RIGHT :  begin
              sens := 1;
              cible.x := x;
              cible.y := y + cote;
              Deplace;
              end;      // vers droite
  VK_UP    :  begin
              sens := 2;
              cible.x := x - cote;
              cible.y := y;
              Deplace;
              end;      // vers haut
  VK_DOWN  :  begin
              sens := 3;
              cible.x := x + cote;
              cible.y := y ;
              Deplace;
              end;      // vers bas
  VK_ESCAPE:  begin
              sco := 0;
              Construction;
              end;      // Recommence le niveau en appuyant sue Echap
  end;


end;

Commentaire de defis91 le 30/08/2012 20:20:51

on fait quoi au niveau 6
Bouh j'suis bloqué

Commentaire de defis91 le 30/08/2012 20:53:08

Bon j'ai ajouté quelques chevaux au Fenwick pour pousser 2 caisses à la fois