unit AI;

interface

uses
  objet;

type
  TCop = record
    pos : Tpos;
    pos_central : Tpos;
  end;

  TAI = class
    Cops : array[0..20] of TCop;
    nbCops : integer;
    constructor create;
    procedure initialize(vecteur : array of string;TailleX,TailleZ:integer);
    procedure ia();
  end;

implementation

constructor TAI.create;
begin
  inherited;
end;

procedure TAI.initialize(vecteur : array of string; TailleX,TailleZ:integer);
var
  x,z : integer;
begin
  x := 1;
  z := 0;
  nbCops := 0;
  while x <= TailleX do
  begin
    while z < TailleZ do
    begin
      if vecteur[z][x] = 'a' then
      begin
        Cops[nbCops].pos_central.x := x;
        Cops[nbCops].pos_central.z := z;
        Cops[nbCops].pos_central.y := 0;
        nbCops := nbCops +1;
      end;
      z:=z+1;
    end;
    x:=x+1;
  end;
end;

procedure TAI.ia();
begin

end;

end.
