SRL Archive - First Scripts

ID LIKE TO GIVE BIG THANKS TO…

-SANTACLAUSE
-KEVIN WOLF
-TOWN

for giving me big help


I don't know how to add a SCAR file attachment so i'll just put it here.. I would finish it but i'm going to quit rs and open a mil shop and quit for good in a few months. I can't be bothered with this stuff anymore.. I may be looking to learn programming down the road but anyway here it is.. (It has no anti-ban and only findnormalrandoms.) and theresno banking. I would add banking but srl isn't updated and i dont have time to wait and stuff..

Start in seers bank with compass north

program ZetasMapleChop;

{.include SRL\SRL.scar}
{.include SRL\SRL\Skill\Woodcutting.SCAR}

const
  Maple = 19058; //the color of the maple
  Maple2 = 16760;
  Maple3 = 9548;
  Tol = 12;
  RunDirection = 'S'; //the direction to run if in fight
  LogsToChop = 50; //how many logs to chop)

procedure DeclarePlayers;
begin
HowManyPlayers := 1; //Number of players to use
 NumberOfPlayers(HowManyPlayers); //Don't Touch
   CurrentPlayer := 0;  //Player to start with
   Players[0].Name := ''; //Players username
     Players[0].Pass := ''; //Players password
       Players[0].Nick := ''; //3-4 characters from players username(Lowercase and no spaces)
         Players[0].Active := True;     //Are you using this player?
          end;

procedure WalkToMaples;
begin
MakeCompass('N');
RadialWalk(2377842 , 315, 355, 32, 0, 0);
end;

procedure ChopMaples;
var

  ChopMark: Integer;
begin
  repeat
    if FindObjMulti('aple tree', Maple, Maple2, Maple3, Tol) then
    begin
      GetMousePos(X, Y);
      Wait(500 + Random(102));
      Mouse(X, Y, 1, 1, True);
       MarkTime(ChopMark);

repeat
        Wait(500 + Random(250));
        FindNormalRandoms;
      until(TimeFromMark(ChopMark) >= (10000 + Random(5000))) or (InvFull);

    end;
  until(InvFull);
end;

procedure WalkToBank;
begin
if (InvFull) then
begin
MakeCompass('N');
RadialWalk( 9606557 , 218, 195, 50, 0, 0);
end;
end;


begin
  ActivateClient;
  SetUpSRL;
  DeclarePlayers;
  repeat
    if not LoggedIn then loginplayer;
     WalkToMaples;
      ChopMaples;
       WalkToBank;
   until(false)
end.

A suggestion, you dont need to have people start with their compass north, now that jagex has made it so easy for us by making it north when you log in. Either add a login procedure, (look in the SRL manual, should be one there) or use the SRL procedure PerfectNorth; which will make the compass north. Also, remember that NO scripts using SRL will function until SRL is updated.

For future use, you can use the SRL function

MakeCompass(Side: String);

in the () type N, E, S, or W for the direction to make the compass

Hope this helped


EDIT: lol, why did you say start with compass north? You have it in you script, nice script btw