SRL Archive - RS3 Outdated / Broken Scripts

Ok, this is my first script. Dosent have anything specail just should walk from lumbridge to varrok. Please tell em how far you got or where you got lost. start by dieing or doing home tele then start script. Dont worry if it keeps clicking after it clicked transportion, it should still work so just let it go.

/////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////
////////////////////Test///////////////////////////////////////////////
////////////////////and///////////////////////////////////////////////
////////////////////help/////////////////////(What a bad intro)//////
////////////////////me//////////////////////////////////////////////
////////////////////out////////////////////////////////////////////
////////////////////!!!///////////////////////////////////////////
/////////////////////////////////////////////////////////////////
program New;
{.include SRL\SRL.scar}

Procedure WalkToVarrok1;
begin
MakeCompass('n');
SetRun(true);
RadialRoadWalk(FindRoadColor, 70, 40, 70, -1, 0);
  repeat
     Wait(50+random(100))
  until(FindSymbol(x, y, 'guide'))
  Mouse(x, y, 5, 5, true)
  Flag;
 end;
 
Procedure WalkToVarrok2;
begin
 repeat
    Wait(50+random(100))
  until(FindSymbol(x, y, 'transportation'))
  Mouse(x, y, 5, 5, true)
  Flag;
end;

Procedure WalkToVarrok3;
begin
 RadialRoadWalk(FindRoadColor, 24, 42, 74, -1, -1);
end;

Procedure WalkToVarrok4;
begin
 RadialRoadWalk(FindRoadColor,325,460,70, 2, 2)
end;

Procedure WalkToVarrok5;
begin
 RadialRoadWalk(FindRoadColor, 310, 410, 70, 2, 2);
end;

Procedure WalkToVarrok6;
begin
 RadialRoadWalk(FindRoadColor, 410, 310, 70, 2, 2);
end;

Procedure WalkToVarrok7;
begin
 RadialRoadWalk(FindRoadColor, 90, 0, 70, 2, 2);
end;

Procedure WalkToVarrok8;
begin
 RadialRoadWalk(FindRoadColor, 90, 0, 70, 2, 2);
end;

Procedure WalkToVarrok9;
begin
 RadialRoadWalk(FindRoadColor, 90, 0, 70, 2, 2);
end;

Procedure WalkToVarrok10;
begin
 RadialRoadWalk(FindRoadColor, 62, 92, 70, 2, 2);
end;

Procedure WalkToVarrok11;
begin
 RadialRoadWalk(FindRoadColor, 320, 400, 65, 0, 0);
end;

Procedure WalkToVarrok12;
begin
 RadialRoadWalk(FindRoadColor, 359, 328, 60, 2, 2);
end;

Procedure WalkToVarrok13;
begin
 repeat
    Wait(50+random(100))
  until(FindSymbol(x, y, 'mining spot'))
  Mouse(x, y, 5, 5, true)
  Flag;
end;

Procedure WalkToVarrok14;
begin
 RadialRoadWalk(FindRoadColor, 22, 52, 65, 0, 0);
end;

Procedure WalkToVarrok15;
begin
 RadialRoadWalk(FindRoadColor, 359, 325, 65, 0, 0);
end;

Procedure WalkToVarrok16;
begin
 repeat
    Wait(50+random(100))
  until(FindSymbol(x, y, 'quest'))
  Mouse(x, y, 5, 5, true)
  Flag;
end;

Procedure WalkToVarrok17;
begin
 RadialRoadWalk(FindRoadColor, 0, 46, 65, 0, 0);
end;

Procedure WalkToVarrok18;
begin
 RadialRoadWalk(FindRoadColor, 277, 304, 65, 0, 0);
end;

Procedure WalkToVarrok19;
begin
 RadialRoadWalk(FindRoadColor, 257, 285, 50, 0, 0);
end;

Procedure WalkToVarrok20;
var
  Start: Integer;
begin
  MarkTime(Start);
  repeat
    Wait(50+random(100))
  until((FindSymbol(x, y, 'bank')) or (TimeFromMark(Start)>=15000))
  if(TimeFromMark(Start)>=15000) then
  else
  begin
    Mouse(x, y, 5, 5, true)
    Flag;
  end
end;

begin
SetUpSRL;
ActivateClient;
Wait(5000);
WalkToVarrok1;
Wait(5000);
WalkToVarrok2;
Wait(5000);
WalkToVarrok3;
Wait(5000);
WalkToVarrok4;
Wait(5000);
WalkToVarrok5;
Wait(5000);
WalkToVarrok6;
Wait(5000);
WalkToVarrok7;
Wait(5000);
WalkToVarrok8;
Wait(5000);
WalkToVarrok9;
Wait(5000);
WalkToVarrok10;
Wait(5000);
WalkToVarrok11;
Wait(5000);
WalkToVarrok12;
Wait(5000);
WalkToVarrok13;
Wait(5000);
WalkToVarrok14;
Wait(5000);
WalkToVarrok15;
Wait(5000);
WalkToVarrok16;
Wait(5000);
WalkToVarrok17;
Wait(5000);
WalkToVarrok18;
Wait(5000);
WalkToVarrok19;
Wait(5000);
WalkToVarrok20;
Wait(5000);
end.

(wont let me upload)
Please post suggestions.:)

You REALLY need random waiting for your Wait(5000); or it will probably get you banned.. Good work though, don't know why you need the waits anyway, I'd just use Flag and FFlag.

well i used wait cause my comp laggs a lot and the flag wasnt working for me. adn what do u mean add randomness? make some 7000 some 5000 and stuff like that?

Like not always the same thing like uhh the mouse speed doesnt constantly move at 15 it sometimes adds a speed of 3 or something like that

Like this:

Wait(5000+random(2000));

that will wait anywhere from 5000milliseconds - 7000 milliseconds (5-7 seconds)

Read whocares357's beginner tut and that'd teach you :p

I tried running it, and it got stuck at the cow pen repeatedly.

nice u just need to make it a bit smother and it would b mad