where the problem?

[-k-]

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

[-k-]

hehe, i search the problem, the procedure is correct, thanks

[Vizit0r]

WAD?

http://stealth.od.ua/Doc:Api/MoveXY - that's what you need!