sjlou
2008-08-15 04:01:14
what do you need to do if you want to walk from A to B and then walk back from B to A with the same loadpath function ?
2008-08-15 04:01:14
2008-08-15 04:42:53
For I := 1 To 9 Do
Begin
WalkToPoint(I);
End;For I := 8 DownTo 0 Do
Begin
WalkToPoint(I);
End;2008-08-15 05:00:27
2008-08-15 08:09:58
2008-08-19 11:32:17
function WalkPath(TPA: TPointArray; Reverse: Boolean): Boolean;
var
I, H : integer;
begin
if Reverse then InvertTPA(TPA);
H := High(TPA);
for I := 0 to H do
WalkToTile(TPA[i], 0, 0);
end;