SRL Archive - Help and Support

I need to know the BEST way to mapwalk after the update. whether its srl or not. thanks, By the way if you tell me, your all gonna have a bad ass script coming your way ;)

Make constants of colors, add tolerance? AutoColors for Minimap is out of the question, so we stick wit manuals now. :/

I use these(Haven't really tested):
[PHP]{******************************************************************************}

function RadialWalkTol(TheColor:Integer; Tol:Integer; StartRadial,EndRadial:Integer; Radius:Integer; Xmod,Ymod:integer): Boolean;// By Wizzup? and WT-Fakawi.

var i: Integer;
var X1,Y1: integer;
begin

Result:=False;

if StartRadial<EndRadial then
begin
repeat
for i:=StartRadial to EndRadial do
begin
x1:=Round ( Radius * Sine) + 646;
y1:=Round (- Radius * Cose) + 84;
if FindColorTolerance(X,Y,TheColor,X1,Y1,X1+1,Y1+1, Tol) then
begin
MouseFindNoFlag(X,Y,Xmod,Ymod);
Result:=True;
FFlag(10);
Exit;
end
end
Radius:=Radius-4;
until Radius<=1 ;
end


if StartRadial>EndRadial then
begin
repeat
for i:=StartRadial Downto EndRadial do
begin
x1:=Round ( Radius * Sine) + 646;
y1:=Round (- Radius * Cose) + 84;
if FindColorTolerance(X,Y,TheColor,X1,Y1,X1+1,Y1+1,Tol) then
begin
MouseFindNoFlag(X,Y,Xmod,Ymod);
Result:=True;
FFlag(10);
Exit;
end
end
Radius:=Radius-4;
until Radius<=1;
end
end;

{******************************************************************************}

function LinearWalkTol(TheColor : Integer; Tol : Integer; Direction : Integer; Radius : Integer; Xmod, Ymod : Integer) : Boolean;// By Wizzup? and WT-Fakawi.

var
i, StartRadial, EndRadial, InitRadius : Integer;
var
X1, Y1, Count : Integer;
begin

InitRadius := Radius;

repeat
StartRadial := 360 + Direction - Count;
EndRadial := 360 + Direction + Count;
repeat
for i := StartRadial to EndRadial do
begin
x1:=Round ( Radius * Sine) + 646;
y1:=Round (- Radius * Cose) + 84;
if FindColorTolerance(X, Y, TheColor, X1, Y1, X1 + 1, Y1 + 1, Tol) then
begin
MouseFindNoFlag(X, Y, Xmod, Ymod);
FFlag(10);
Result := True;
Exit;
end;
Wait(1);
end;
Radius := Radius - 4;
// UNBLANK THIS LINE TO UNDERSTAND THE WAY LINEARWALK WORKS
// writeln('1R = '+inttostr(Radius)+' SR ='+(inttostr(StartRadial-360))+' ER = '+(inttostr( EndRadial-360)));
for i := EndRadial downto StartRadial do
begin
x1:=Round ( Radius * Sine) + 646;
y1:=Round (- Radius * Cose) + 84;
if FindColorTolerance(X, Y, TheColor, X1, Y1, X1 + 1, Y1 + 1, Tol) then
begin
MouseFindNoFlag(X, Y, Xmod, Ymod);
FFlag(10);
Result := True;
Exit;
end;
Wait(1);
end;
Radius := Radius - 4;
// writeln('2R = '+inttostr(Radius)+' SR ='+inttostr( StartRadial)+' ER = '+inttostr( EndRadial));
until Radius <= 10;
Radius := InitRadius;
Count := Count + 2;
until ((StartRadial < 2) or (EndRadial > 720));

end;

{******************************************************************************}[/PHP]

Yea anything with tolerance seems fine. Just that we can't have autocolor anymore, since in every world the colors Mm colors vary way to much. In the same world that only vary a little.

Hey, I think we can make autocolors, have a return… Possibly… Look at my idea http://82.92.130.193/forums/showthread.php?p=15498&posted=1#post15498

stop posting so many new threads.. your linking to different threads and you dont even give a detailed thing… you gotta stop doin this dude.. stick in one thread…

I am getting the feeling tolerance is not going to work, I needed a tol of 45 for the fally roadcolor.

<3 kait.

procedure GetRotatedPointRel(var x, y: integer; stx, sty, dx, dy: Integer; angle: Extended);
begin
  x:= Round(Cos(angle) * dx - Sin(angle) * dy) + stx;
  y:= Round(Sin(angle) * dx + Cos(angle) * dy) + sty;
end;

procedure WalkFromPoint(x, y, dx, dy, Dist: Integer);
var
  tx, ty: Integer;
begin
  GetRotatedPointRel(tx, ty, x, y, dx, dy, DetectRS2MinimapCompassAngle);
  Mouse(tx, ty, 3, 3, True);
  Wait(500);
  FFlag(Dist);
end;

From: Renax
<3 kait.

procedure GetRotatedPointRel(var x, y: integer; stx, sty, dx, dy: Integer; angle: Extended);
begin
  x:= Round(Cos(angle) * dx - Sin(angle) * dy) + stx;
  y:= Round(Sin(angle) * dx + Cos(angle) * dy) + sty;
end;

procedure WalkFromPoint(x, y, dx, dy, Dist: Integer);
var
  tx, ty: Integer;
begin
  GetRotatedPointRel(tx, ty, x, y, dx, dy, DetectRS2MinimapCompassAngle);
  Mouse(tx, ty, 3, 3, True);
  Wait(500);
  FFlag(Dist);
end;

Ahh yes i remember seeing that in his fishies scripts back in the noobie days. Good times good times. Worked perfect aswell