SRL Archive - Research & Development Lounge

I whipped this up this morning. It has failsafe walking and I just tested it like 4 times.

It should walk your char to Draynor from Lumby using RadialWalk.

Also, I am going to add more failsafes to check and see where you are and stuff like ddtms and a reflection option. Hopefully people can put this in their scripts that do anything with draynor so they can focus on the skill they do and not the walking :P

THIS IS JUST A QUICK RELEASE TO TEST IT! Its not at all finished

program LumbyToDraynorDeathWalk;
{.include srl/srl.scar}

function FailSafeRadialWalk(rad1, rad2, extend, roadtype: integer): boolean;
var
  searchtime: integer;
begin
  MarkTime(searchtime);
  if (not(RadialWalk(roadtype, rad1, rad2, extend, 0, 0)) then
  begin
    repeat
      rad1 := rad1 - 3;
      rad2 := rad2 + 3;
      WriteLn('Increading the radius');
      Status('Increading the radius');
      if (TimeFromMark(searchtime) >= 20000 + random(5550)) then
      begin
        WriteLn('Player got lost... bummer');
        Status('Player got lost... bummer');
        //Logout; You can change to whatever exit procedures you like
        Break;
      end;
    until (RadialWalk(roadtype, rad1, rad2, extend, 0, 0));
  end;
  FFlag(0);
  Wait(550 + random(250)); //Just to be safe!
  Result := true;
end;

procedure Walk;
var
  x, y, tries: integer;
begin
  SetAngle(True);
  MakeCompass('N');
  SymbolAccuracy := 0.7;
  
  FailSafeRadialWalk(74, 90, 70, FindLumbyRoadColor);
  FailSafeRadialWalk(307, 332, 70, FindLumbyRoadColor);
  FailSafeRadialWalk(341, 342, 70, FindLumbyRoadColor);
  FailSafeRadialWalk(320, 359, 70, FindLumbyRoadColor);
  FailSafeRadialWalk(340, 370, 70, FindLumbyRoadColor);
  FailSafeRadialWalk(290, 230, 70, FindLumbyRoadColor);
  FailSafeRadialWalk(295, 260, 70, FindLumbyRoadColor);
  FailSafeRadialWalk(240, 302, 70, FindLumbyRoadColor);
  FailSafeRadialWalk(300, 260, 70, FindLumbyRoadColor);
  FailSafeRadialWalk(270, 230, 55, FindLumbyRoadColor);
  FailSafeRadialWalk(285, 240, 70, FindRoadColor);
  FailSafeRadialWalk(240, 200, 70, FindRoadColor);
  FailSafeRadialWalk(190, 166, 70, FindRoadColor);
  FailSafeRadialWalk(190, 150, 70, FindRoadColor);
  FailSafeRadialWalk(240, 180, 40, FindRoadColor);
  
  if (not(FindSymbol(x, y, 'bank'))) then
  begin
    Tries := 0;
    repeat
      Wait(500 + random(500));
      if (Tries = 30) then
      begin
        WriteLn('Could not find bank sybmol. Add logout here!');
      end;
      Tries := Tries + 1;
    until (FindSymbol(x, y, 'bank'));
  end;
  Mouse(x, y, 2, 2, True);
end;

begin
  SetupSRL;
  ActivateClient;
  Walk;
end.

so walks from lumbrigde or falador?

From: djcheater
so walks from lumbrigde or falador?

Lumby. Sorry I forgot to put that in

all i can say is it worked

to make it really flawless add reflection as failsafe or main :o i like the failsaferadialwalk

From: ~~Joker~~
to make it really flawless add reflection as failsafe or main :o i like the failsaferadialwalk

Yeah that will be really easy. I'm just waiting until the weekend or when I have some time.

RadialWalk is fine but its always good to have an EXTRA backup :)

You might want to increase the symbol accuracy. 0.4 will more than likely click on any symbol. I suggest 0.7, It always works for me.

From: noidea
You might want to increase the symbol accuracy. 0.4 will more than likely click on any symbol. I suggest 0.7, It always works for me.

My updated version is already 0.7. I just haven't posted it.

Looking good, good to see you understand functions, But PLEASE PLEASE try and learn pascal scripting standards.

From: NiCbaZ
Looking good, good to see you understand functions, But PLEASE PLEASE try and learn pascal scripting standards.

Oh, haha, I get comments on this a lot.

I go by my own standards because I script a lot in DHTML (PHP, HTML, Javascript, Etc.)

To me its readable. :)

ahh well, they effect your Srl member's chances.

From: NiCbaZ
ahh well, they effect your Srl member's chances.

Okay I fixed my standards. They should be readable now xD

Also I fixed a typo for radialwalk that will help a lot and increased symbolaccuracy. :)

I think that radial walking function should be added to the SVN

I might add this to my willow cutter?

I'm adding this to my next script :) thanks so much man :P