DrawGrid Array Variable Maze

Version imprimable

Bonjour a tous

Voila j'ai une variable du type string qui contient des F est des W pour constituer une map , W = Murs , F = Espace Libre

Ex:
Maze : 10 Colonnes 10 lignes.

Code:

1
2
3
4
5
6
7
8
9
10
11
 
WWWWWWWWWW
WFFWFFWFFW
WFFWFFWFFW
WFFWFFWFFW
WFFWFFWFFW
WFFWFFWFFW
WFFWFFWFFW
WFFWFFWFFW
WFFWFFWFFW
WWWWWWWWWW

Mais mon petit problème c'est que je veux rentré cette map dans mon tableaux

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
type
  TCode = (W, F);
 
   Map: array[0..9, 0..9] of TCode;
 
const
  Maze = 'WWWWWWWWWWWFFWFFWFFWWFFWFFWFFWWFFWFFWFFWWFFWFFWFFWWFFWFFWFFWWFFWFFWFFWWFFWFFWFFWWFFWFFWFFWWWWWWWWWWW';
 
function CharCode(IChar: Char): TCode;
begin
  Result := F;
  case IChar of
    'W': Result := W;
    'F': Result := F;
  end;
end;
 
 
procedure TForm1.ChrMapClick(Sender: TObject);
var
 I: Integer;
 Col, Row: Integer;
begin
   for I := 0 to Length(Maze) do
    begin
       // Est la je bloque, il faut que je rentre chaque lettre du Maze dans le tableau en respectant les Colonnes est les lignes en sachent que
      // le Maze fait 10 colonnes est 10 lignes.
     Map[Col,Row] := CharCode(?);
    End;
end;
 
procedure TForm1.DrawGridDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with DrawGrid.Canvas do
  begin
  case Map[ACol,ARow] of
    W: Draw(Rect.Left +1, Rect.Top +1, ImW.Picture.Graphic);
    F: Draw(Rect.Left +1, Rect.Top +1, ImF.Picture.Graphic);
  end;
end;
end;

Merci pour votre réponse. :D

31/08/2015, 17h38
tourlourou

Récupère colonne/ligne à l'aide de div et mod à partir de l'indice du caractère dans la chaîne.
31/08/2015, 18h56
Andnotor
Dans le cas d'un tableau statique, les données sont alignées. On peut donc considérer ce tableau comme une ligne de 100 éléments et faire pointer une deuxième variable de ce type sur la même adresse mémoire à l'aide d' absolute.
Code:

1 2 3 4 5 6 7 8 var Map :array[0..9, 0..9] of TCode; RawMap :array[1..100] of TCode absolute Map; ... for I := 1 to Length(Maze) do RawMap[i] := CharCode(Maze[i]);
La seule différence ensuite est que la première dimension est la ligne et non la colonne.
Code:

1 2 3 4 case Map[ARow,ACol] of W: ...; F: ...; end;
Bien sûr, div/mod irait très bien aussi ;)

Et à moins qu'il faille un contrôle d'erreur, tu peux te passer de cette fonction CharCode en initialisant les données de l'ensemble et en transtypant directement les caractères en TCode :
Code:

1 2 3 4 5 6 7 8 type TCode = (W=87, F=70); //ou TCode = (W=ord('W'), F=ord('F')); ... for I := 1 to Length(Maze) do RawMap[i] := TCode(Maze[i]);

Déplacement du joueur

Tout abord :merci: Andnotor , J'aurai vraiment pas pensé a sa , pourquoi chercher a faire complication ton peu faire simple :D

Mais cela me pose un petit problème sa chamboule tout pour la direction du joueur :lol: Je n'arrive pas a aller dans les bonne directions :help:

J'ai commencer ceci : :pc:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
 
 
type
  TCode = (W, F, J);
 
... 
 
const
  Maze = 'WWWWWWWWWWWFFWFFWFFFFFFWFFWFFFFFFWFFWFFFFFFWFFWFFFFFFWFFWFFFFFFWFFWFFFFFFWFFWFFFFFFWFFWFFWWWWWWWWWWW';
 
var 
  Map    :array[0..9, 0..9] of TCode;
  RawMap :array[1..100] of TCode absolute Map;
 
 
  Jx, Jy, NewJX, NewJY: Integer; // Position du joueur 
 
 
// Info ...
// W = Mur
// F  = Espace libre
// J  = Joueur
 
function CharCode(IChar: Char): TCode;
begin
  Result := F;
  case IChar of
    'W': Result := W;
    'F': Result := F;
    'J': Result := J;
  end;
end;
 
procedure TForm1.ChrMapClick(Sender: TObject);
var
 I: Integer;
begin
   for I := 1 to Length(Maze) do
    begin
      RawMap[i] := CharCode(Maze[i]);
    End;
 
procedure TForm1.GameDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with Game.Canvas do
  begin
  case Map[ACol,ARow] of
    W: Draw(Rect.Left +1, Rect.Top +1, ImW.Picture.Graphic);
    F: Draw(Rect.Left +1, Rect.Top +1, ImF.Picture.Graphic);
    J:  Draw(Rect.Left +1, Rect.Top +1, ImJ.Picture.Graphic);
  end;
end;
end;
 
procedure TForm1.JMove;
begin
 // Ancienne position du joueur
 if Map[Jy,Jx] = J then
  begin
   Map[Jy,Jx] := F;
   GameDrawCell(Self,Jx, Jy, Rect(Jx*16, Jy*16, Jx*16+15, Jy*16+15),[]);
  end;
 
  Jx := NewJX;
  Jy := NewJY;
 
// Nouvelle position du joueur
   if Map[Jy,Jx] = F then
  begin
   Map[Jy,Jx] := J; 
   GameDrawCell(Self,Jx, Jy, Rect(Jx*16, Jy*16, Jx*16+15, Jy*16+15),[]);
  end;
end;
 
procedure TForm1.GameKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key < 41) and (key > 36) then 
   begin
 
    NewJX := Jx;
    NewJY := Jy;
 
 
    case key of
      // Y
      38: if NewJY > 0 then NewJY := Jy-1;
      40: if NewJY < 9 then NewJY := Jy+1;
     // X
      37: if NewJX > 0 then NewJX := Jx-1;
      39: if NewJX < 9 then NewJX := Jx+1;
    end;
 
    case Map[NewJx,NewJY] of
      F: MoveBlip;
    end;
  end;
end;

Merci pour votre réponse. :D

01/09/2015, 07h46
SergioMaster

Citation:

Envoyé par Gregory666

J'aurai vraiment pas pensé a sa , pourquoi chercher a faire complication ton peu faire simple
Mais cela me pose un petit problème sa chamboule tout pour la direction du joueur :lol: Je n'arrive pas a aller dans les bonne directions

Bonjour,
un petit aparté, bien que un peu hors sujet. La grammaire et l'orthographe ça aide pour les demandes d'emplois !

cela fait plusieurs fois que je lis dans tes posts le "sa" (de sa chose) et le "ça" (de c'est cela), et cela ça me choque. Le reste est du même acabit je sais qu'il était tard ou tôt lors de ce message mais

Citation:

je n'aurais vraiment pas pensé à ça, pourquoi chercher les complications quand on peut faire simple ?
Mais cela me pose un petit problème : ça chamboule tout pour la direction du joueur, je n'arrive pas à aller dans les bonnes directions

cela à quand même plus de gueule non ? même s'il reste encore des approximations.
01/09/2015, 11h12
Andnotor
Citation:

Envoyé par Gregory666

Mais cela me pose un petit problème sa chamboule tout pour la direction du joueur. Je n'arrive pas a aller dans les bonne directions

Je me cite ;)
Citation:
Envoyé par Andnotor

La seule différence ensuite est que la première dimension est la ligne et non la colonne.

Code:

1 2 3 4 case Map[ARow,ACol] of W: ...; F: ...; end;