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:

procedure TGameForm.CalculateAI(startx,starty:integer);
var
AIposx,
AIposy:integer;
AIfinish:boolean;
AIusedsteps:integer;
AImaxsteps:integer;
AIcanceled:boolean;
AImovedown,
AImoveup,
AImoveright,
AImoveleft:boolean;
AImoved:boolean;
AIdirection : string;
begin

AIposx := startx;
AIposy := starty;
AIfinish := False;
AIcanceled := False;
AIusedsteps := 0;
AImaxsteps := 999;

AImovedown := True;
AImoveup := False;
AImoveright := False;
AImoveleft := False;
AIdirection := 'right';
AImoved := False;
Memo1.Lines.Add('Calculating AI from '+inttostr(startx)+'/'+inttostr(starty)+'.');

while AIfinish = False do begin

  //AI didnt move yet
  AImoved := False;

  //Counter for the AI Steps
  AIusedsteps := AIusedsteps+1;

  //Draw the AI field on starting pos and any others
  Map[AIposx,AIposy].Draw := True;

  //First Try: Move DOWN
  if (Map[AIposx, AIposy+1].Blocked = False) and (AIposy<mapheight+1) then begin
    if AIdirection <> 'up' then begin
    AIposy := AIposy+1;
    AImoved := True;
    end
    else
    AImovedown := False;
  end
  else
  AImovedown := False;

  //If AI cannot move down
  if AImovedown = False then begin

    //Move RIGHT
    if (AImoved = False) and (AIdirection = 'right') then
    if (Map[AIposx+1, AIposy].Blocked = False) and (AIposx<mapwidth+1) then begin
      AIposx := AIposx+1;
      AImoved := True;
    end
    else begin
    AImoveright := False;
    AIdirection := 'left';
    end;

    //Move LEFT
    if (AImoved = False) and (AIdirection = 'left') then
    if (Map[AIposx-1, AIposy].Blocked = False) and (AIposx>0) then begin
      AIposx := AIposx-1;
      AImoved := True;
    end
    else begin
    AImoveleft := False;
    AIdirection := 'up';
    end;

    //Move UP
    if (AImoved = False) and (AIdirection = 'up') then
    if (Map[AIposx, AIposy-1].Blocked = False) then begin
      AIposy := AIposy-1;
      AImoved := True;
      if (Map[AIposx-1, AIposy].Blocked = False) and (AIposx>0) then
        AIdirection := 'left';
      if (Map[AIposx+1, AIposy].Blocked = False) and (AIposx<mapwidth+1) then
        AIdirection := 'right';
    end
    else
    AImoveup := False;

  end;

  //AI reaches finish (mapheight/last field of the map)
  if AIposy >= mapheight then
  AIfinish := True;

  //AI failed to reach finish after AImaxsteps steps. CANCEL
  if AIusedsteps >= AImaxsteps then begin
  AIfinish := True;
  AIcanceled := True;
  end;

end;
if AIcanceled = False then
Memo1.Lines.Add('Finished AI in '+inttostr(AIusedsteps)+' steps.')
else
Memo1.Lines.Add('Canceled AI after '+inttostr(AIusedsteps)+' steps.');
end;