SCAR Code:
procedure RoadWalkDirection(Direction:string);
begin
MakeCompass('N');
SkRoadColor:=FindRoadColor;
if Direction='N' then
begin
//will make it go counter clockwise
RadialWalk(SkRoadColor,320,50,65,1,1);//RadialWalk(SkRoadColor,320,>440<,65,1,1);
end;
if Direction='W' then
begin
RadialWalk(SkRoadColor,230,310,65,1,0);
end;
if Direction='S' then
begin
RadialWalk(SkRoadColor,140,230,65,1,1);
end;
if Direction='E' then
begin
//same problem goes counter clockwise
RadialWalk(SkRoadColor,0,360,//change>60<,1,1);
end;
end;
begin
RoadWalkDirection('E');
end.
well thats what i found