procedure AIvypln(y,x:longint;var AIpole:TAIpole;typ:longint); //typ - pre vyssie urovne AI
function AIzisti(y,x:longint;AIpole:TAIpole):longint;
implementation
procedure AIvypln(y,x:longint;var AIpole:TAIpole;typ:longint);
var Ri,Rj:longint;
begin
if (x mod 2)=0 then
for Ri:=1 to x do
begin
if Ri=1 then
begin
for Rj:=1 to y do
begin
if Rj=y then AIpole[Ri,Rj]:=D
else AIpole[Ri,Rj]:=P;
end;
end
else if Ri=2 then
begin
for Rj:=1 to y do
begin
if Rj=1 then AIpole[Ri,Rj]:=H
else if Rj=y then AIpole[Ri,Rj]:=D
else if (Rj mod 2)=0 then AIpole[Ri,Rj]:=D
else AIpole[Ri,Rj]:=L;
end;
end
else if Ri=x then
begin
for Rj:=1 to y do
begin
if (Rj mod 2)=0 then AIpole[Ri,Rj]:=L
else AIpole[Ri,Rj]:=H;
end;
end
else
begin
for Rj:=1 to y do
begin
if (Rj mod 2)=0 then AIpole[Ri,Rj]:=D
else AIpole[Ri,Rj]:=H;
end;
end;
end
else
begin
for Ri:=1 to x do
for Rj:=1 to y do AIpole[Ri,Rj]:=P;
end;
end;
function AIzisti(y,x:longint;AIpole:TAIpole):longint;
begin
if AIpole[x,y]=H then AIzisti:=72
else if AIpole[x,y]=L then AIzisti:=75
else if AIpole[x,y]=P then AIzisti:=77
else if AIpole[x,y]=D then AIzisti:=80;
end;