SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
!bezo! - SRL Member Application Form
!bezo!

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
yes
A friend named Ryan

Programming Knowledge
None

Other Communitys
Mopars Forum

How Long have You Played Runescape
2 and a bit years

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

I Live in the UK in a town called Ipswich, when i started playing runescape i always wanted a way around the boring repetetive tasks. E.g mining. I started autoing with bots and other programs which banned many of my accounts. My friend told me about SRL forums and i had a go at making a couple of my own scripts. The first was a complete disaster however the script im making at the moment is going quite well but still un-finished. I want to become a member so i can see how the best scripters work and methods they use.

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

program LummyToVarrock;
{.include SRL/SRL.scar}

//start in the top right of the green circle just north of the Lumbridge grave yard//

procedure Walk;
begin
SetupSRL;
 RadialWalk(FindRoadColor, 383, 369, 60, 0, 1);
   end;

 procedure WalkOverBridge;
begin
SetupSRL;
 RadialWalk(FindRoadColor, 441, 432, 22, 0, 1);
   end;


procedure WalkOffBridge;
begin
SetupSRL;
 RadialWalk(FindRoadColor, 444, 448, 66, 0, 1);
   end;

  procedure WalkGoblinHouse;
begin
SetupSRL;
 RadialWalk(FindRoadColor, 395, 387, 62, 0, 1);
   end;

   procedure WalkPastGoblinHouse;
begin
SetupSRL;
 RadialWalk(FindRoadColor, 335, 320, 55, 0, 1);
   end;

        procedure WalkTowardsCowField;
begin
SetupSRL;
 RadialWalk(FindRoadColor, 342, 334, 63, 0, 1);
   end;
   
        procedure WalkPastCowField;
begin
SetupSRL;
 RadialWalk(FindRoadColor, 301, 310, 61, 0, 1);
   end;
   
           procedure WalkChickenPlace;
begin
SetupSRL;
 RadialWalk(FindRoadColor, 346, 334, 59, 0, 1);
   end;

   procedure WalkPastChickenPlace;
begin
SetupSRL;
 RadialWalk(FindRoadColor, 344, 354, 68, 0, 1);
   end;
   
  procedure WalkTowardsFields;
begin
SetupSRL;
 RadialWalk(FindRoadColor, 702, 674, 67, 0, 1);
   end;
   


   
   procedure WalkTowardsFields2;
begin
SetupSRL;
 RadialWalk(FindRoadColor, 346, 366, 66, 0, 1);

   end;

  procedure WalkTowardsFields3;
begin
SetupSRL;
 RadialWalk(FindRoadColor, 420, 398, 66, 0, 1);
 
    end;

  procedure WalkSheep;
begin
SetupSRL;
 RadialWalk(FindRoadColor, 363, 390, 75, 0, 1);
 end;
 
  procedure WalkTowardsCorn;
begin
SetupSRL;
 RadialWalk(FindRoadColor, 270, 280, 67, 0, 1);
 end;
   

  function Flag1: Boolean;
var
  timeout: Integer;
begin

  if (not (FindColor(x, y, 255, MMX1, MMY1, MMX2, MMY2))) then
  begin
    Result := False;
    Exit;
  end;

  if (FindColor(x, y, 255, MMX1, MMY1, MMX2, MMY2)) then
  begin
    Result := True;
    repeat
      Wait(100);
      timeout := timeout + 1;
    until (not FindColor(x, y, 255, MMX1, MMY1, MMX2, MMY2)) or (timeout > 300);
  end;
end;


  begin

   SetupSRL;
    Walk;
    Flag1;
     WalkOverBridge;
     Flag1;
     WalkOffBridge;
     Flag1;
      WalkGoblinHouse;
      Flag1;
      WalkPastGoblinHouse;
        Flag1;
        WalkTowardsCowField;
        Flag1;
        WalkPastCowField;
        Flag1;
        WalkChickenPlace;
        Flag1;
        WalkPastChickenPlace;
        Flag1;
        WalkTowardsFields;
        Flag1;
        WalkTowardsFields2;
        Flag1;
        WalkTowardsFields3;
        Flag1;
        WalkSheep;
        Flag1;
        WalkTowardsCorn
        
      end.

end.

——————————————————
<!– END TEMPLATE: formanswers –>

I used to live in colchester!

No from me. Too simple, used setupsrl over and over, 1 line procs, no player switching, no antirandoms, bad standards, two 'end.'s. Keep learning.

Ok ty Boreas I'm gonna make this script flawless!

placeholder