DÉMÉNAGEUR
cs_systmd
Messages postés
41
Date d'inscription
mercredi 25 février 2004
Statut
Membre
Dernière intervention
29 août 2012
-
29 août 2012 à 22:44
oussamaki Messages postés 9 Date d'inscription dimanche 13 janvier 2008 Statut Membre Dernière intervention 6 octobre 2014 - 20 févr. 2013 à 16:48
oussamaki Messages postés 9 Date d'inscription dimanche 13 janvier 2008 Statut Membre Dernière intervention 6 octobre 2014 - 20 févr. 2013 à 16:48
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/54554-demenageur
https://codes-sources.commentcamarche.net/source/54554-demenageur
20 févr. 2013 à 16:48
le niveau 6 n'est pas évident à première vue!
3 sept. 2012 à 14:13
Defis91 faut pas se décourager !
Un tuyau gratuit : au niveau 6 il faut commencer par mettre une caisse devant l'emplacement de l'élévateur (qui n'est pas un Fenwick!) du départ.
Bon courage.
30 août 2012 à 20:53
30 août 2012 à 20:22
30 août 2012 à 20:20
Bouh j'suis bloqué
30 août 2012 à 08:19
29 août 2012 à 22:44
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;