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:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:

function isDa(Typ:Integer):integer;
var
  i:Integer;
begin
  result:=-1;
  for i:=0 to High(KI.karten1) do begin
    if KI.Karten1[i].typ = Typ then begin
      result:=i;
      Exit;
    end;
  end;
end;

function isDa1(Typ:Integer):Integer;
var
  i:Integer;
begin
  result:=-1;
  for i:=0 to High(KI.karten) do begin
    if KI.Karten[i].typ = Typ then begin
      result:=i;
      Exit;
    end;
  end;
end;

function is_Karte(x,y:Integer):Boolean;
var
  i,index:Integer;
begin
  if KI.zugIndex+1 <= HIGH(KI.Karten) then inc(KI.zugIndex);
  
  if KI.zugIndex <= HIGH(KI.Karten) then begin
    index:=(MapX+1)*(MapY+1)-GetTex2(0);
    if (Index = 1) and (ki.Karten[KI.zugIndex].typ = -1) then  begin
      ki.Karten[KI.zugIndex].typ:=Map[x,y].Tex2;
      ki.Karten[KI.zugIndex].x:=x;
      ki.Karten[KI.zugIndex].y:=y;
      result:=True;
      Exit;      

    end;
    
    if (Index = 2) and (ki.Karten1[KI.zugIndex].typ = -1) then  begin
      ki.Karten1[KI.zugIndex].typ:=Map[x,y].Tex2;
      ki.Karten1[KI.zugIndex].x:=x;
      ki.Karten1[KI.zugIndex].y:=y;      
      result:=True;
      Exit;      

    end;
  end
  else
    KI.zugIndex:=0;

  result:=False;
end;

procedure KI_Ebaled(Enabled:Boolean);
begin
  ki.enabled:=Enabled;
end;

procedure CreateKI;
var
  i:Integer;
begin
  KI.ClearMemmoryTime:=30;
  KI.enabled:=True;
  KI.zugIndex:=0;
  KI.lastzugTyp:=0;
  KI.Zuege:=0;
  KI.Paare:=0;
  SetLength(ki.karten,20);
  SetLength(ki.karten1,20);
  for i:=0 to 20 do begin
    ki.Karten[i].typ:=-1;
    ki.Karten1[i].typ:=-1;    
  end;    
end;

procedure KI_Run;
var
  rX,rY,i:Integer;
  test:Boolean;
  pos:TPos;
begin
  test:=False;
  if KI.enabled = True then begin
    Randomize;


    for i:=0 to HIGH(KI.Karten) do begin
     if isDa(KI.Karten1[i].typ) > -1 then ShowMessage(IntToStr(isDa(KI.Karten[i].typ)));

      if (isDa(KI.Karten[i].typ) <> -1 ) and (KI.Karten[i].typ <> -1) then begin
        pos:=KI.karten1[isDa(KI.Karten[i].typ)];
        rx:=pos.x;
        ry:=pos.Y;
        test:=True;
        break;
      end;
    end;

    if test = False then begin
      repeat
        rX:=Random(MapX+1);
        rY:=Random(MapY+1);
      until (is_Karte(rX,rY) = False) and (Map[rX,rY].Typ <> None);
    end;

    if (MapX+1)*(MapY+1)-GetTex2(0) < 2 then  begin
      KI.lastzugTyp:=Map[rX,rY].Tex2;
      Map[rX,rY].Tex:=Map[rX,rY].Tex2;
    end
    else begin 
      KI.Enabled:=False;
      inc(ki.Zuege);
      if GetTex2(Map[rX, rY].Tex) = 2 then  begin
        inc(ki.Paare);
        SetKarteVisible( ki.lastzugTyp );
      end;
    end;
  end

end;                    

1:
2:

if KI.enabled = True then begin 
Randomize