I made this script but it doesn't ever do anything. it just says that it compiled and then it says that it finished. but it never actually walks anywhere. What is wrong?
I made this script but it doesn't ever do anything. it just says that it compiled and then it says that it finished. but it never actually walks anywhere. What is wrong?
what are u walking on?
EDIT: road,? dirt,? or just what are u walking on?
it walks on the road for a while. but then it goes into the grass for a bit.
for road color use Find(city)RoadColor...it in the SRL manual...since road colors change so much this walking it reliable...and for grass colors...i dont know if those change or not...maybe need to do some type of autocoloring for that...
"Failure is the opportunity to begin again more intelligently" (Henry Ford)
the grass colors change, which is why it's not working, use radialtolerancewalk instead, put this function before all your procedures
SCAR Code:function RadialToleranceWalk(TheColor: Integer; StartRadial, EndRadial: Integer;
Radius: Integer; Xmod, Ymod, Tol: Integer): Boolean; // By Wizzup? and WT-Fakawi.
var
i, X1, Y1, x, y: Integer;
begin
if (RoadColorChecker) then
if (DebugRadialRoad) then
WriteLn(' THROUGH RADIALROADWALK= ---> ' + IntToStr(RoadColor));
if (StartRadial = EndRadial) then
begin
WriteLn('Using LinearRoadWalk, equal values.')
if LinearRoadWalk(TheColor, StartRadial, Radius, Xmod, Ymod) then
Result := True;
end
else if (StartRadial < EndRadial) then
begin
repeat
for i := StartRadial to EndRadial do
begin
x1 := Round(Radius * Sine(i)) + 646;
y1 := Round(-Radius * Cose(i)) + 84;
if Not LoggedIn then Exit;
if (FindColorTolerance(x, y, TheColor, X1, Y1, X1 + 1, Y1 + 1, Tol)) then
begin
MouseFindNoFlag(X,Y,Xmod,Ymod);
Result := True;
CountFlag(10);
Exit;
end;
end;
Radius := Radius - 4;
until (Radius <= 1);
end else
if (StartRadial > EndRadial) then
begin
repeat
for i := StartRadial downto EndRadial do
begin
x1 := Round(Radius * Sine(i)) + 646;
y1 := Round(-Radius * Cose(i)) + 84;
if Not LoggedIn then Exit;
if (FindColorTolerance(x, y, TheColor, X1, Y1, X1 + 1, Y1 + 1, Tol)) then
begin
MouseFindNoFlag(X,Y,Xmod,Ymod);
Result := True;
CountFlag(10);
Exit;
end;
end;
Radius := Radius - 4;
until (Radius <= 1);
end
end;
and use it like this
SCAR Code:RadialToleranceWalk(98061, 330, 384, 65, 10, 12, 18)
Color, radial, radial, radius, random, random, tolerance
where it walks?
RadialToleranceWalk thats genius! never knew that existed.
There are currently 1 users browsing this thread. (0 members and 1 guests)