Discussion :

[EpiTouille]

Voilà j'ai un bug avec tetris que je n'arrive pas a résoudre. Je vais essayer d'expliquer sans en donner trop :=)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
|        |
|     .  |
|     .  | 
|     .  |
|     .  |
|        |
+--------+

En gros ça represente le terrain de jeux et les points une barre vertical.
Quand j'appuie sur la touche du haut elle pivote et sort de l'écran et fais tout planter.
J'empeche les formes de bouger quand elles sont collées au bord, ce qui marche avec tout sauf la barre (trop grande ) . Donc si vous avez une solution merci

[joreveur]

Bonjour,


ah le tétris... tu en es deja là... moi je n'ai pas encore écris une seule ligne...

et si tu rajoutais un test quand c'est la grande barre ? si collée ou presque collée, tu empêches le déplacement...

à bientôt peut-être

[EpiTouille]

Oui j'y ai pensé mais le probleme, c'est que je vais rajouter au moins 10 lignes et que ça va faire un code sale. J'aurais préféré une méthode qui marche pour toute les formes. Mais si je trouve pas je vais faire comme ça...

merci

[mick605]

Salut

Le plus simple, tu tourne ta barre, et tu regarde si il y a chevauchement/dépassement. Si c'est le cas, tu annules le mouvement.
C'est valable pour n'importe quelle pièce.

Bonne chance

[Paul TOTH]

alors le plus simple pour éviter de "sortir" de l'écran dans ce genre de situation est d'ajouter une zone vide suffisamment grande autour de celui-ci.

exemple, je déplace un pion sur un damier de 9x9

type Damier=array[1..9,1..9] of Byte;.

si je veux tester que le point peut aller de (x, y) à (x + 1, y) il faut tester if (x + 1 < 9) and Damier[x + 1, y] = 0 then....

Pour éviter le teste sur la valeur de x, il suffit d'agrandir le damier

type Damier=array[0..10,0..10] of Byte; et de remplir les cases du bord par une valeur bloquante.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
  for i := 0 to 10 do
  begin
    Damier[i, 0] := 255;
    Damier[i,10] := 255;
    Damier[0, i] := 255;
    Damier[10, i] := 255;
  end;

tu peux peut-être appliquer se principe sur ton Tetris en élargissant la grille de 4 cases qui sont toujours occupées.

[EpiTouille]

J'ai utilisé ça pour le bas du tableau, mais je vais aussi utilisé ça sur les bords. Merci !