Code: Select all
Procedure Walk(x,y : integer);
begin
if MoveXY(x, y, false, 0, True) = True then begin
end
else begin
if MoveXY(x, y-1, false, 0, True) = True then begin
end
else begin
if MoveXY(x-1, y, false, 0, True) = True then begin
end
else begin
if MoveXY(x, y+1, false, 0, True) = True then begin
end
else begin
MoveXY(x+1, y, false, 0, True);
end;
end;
end;
end;
end;
Out Of Range at 1.263