
Originally Posted by
GREEN GIANT
Hi thanks for the help but i still cant get it work

Can you see the problem with the following code;
program New;
{$DEFINE SMART8}
{$i SRL-OSR\SRL.Simba}
var
RoadAArray:TIntegerArray;
i:Integer;
begin
setupsrl;
setlength(RoadAArray,7);
RoadAArray[0] :=5000276;
RoadAArray[1] :=6776687;
RoadAArray[2] :=6974065;
RoadAArray[3] :=7105652;
RoadAArray[4] :=7171702;
RoadAArray[5] :=7105908;
RoadAArray[6] :=7171958;
for i := Low(RoadAArray) to High(RoadAArray) do
writeLn(ToStr(RoadAArray[i]));
makecompass('N')
RadialRoadWalk(RoadAArray[i],160,200,49,50,50) @@at present its say im out of range on this line
end.
Try this
Simba Code:
program New;
{$DEFINE SMART8}
{$i SRL-OSR\SRL.Simba}
var
RoadAArray: TIntegerArray;
i: Integer;
begin
setupsrl;
RoadAArray := [5000276, 6776687, 6974065, 7105652, 7171702, 7105908, 7171958];
setlength(RoadAArray, Length(RoadAArray));
for i := Low(RoadAArray) to High(RoadAArray) do
begin
writeLn(ToStr(RoadAArray[i]));
makecompass('N')
RadialRoadWalk(RoadAArray[i],160,200,49,50,50)
end;
end.