Zetas Maple Chop (Not done.)

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

Code:

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.

 

You can't add a Scar file as an attachment, .txt or .zip. The script is small though so it's fine.

 

Read a tutorial about STANDARDS! Else looks alright for a "newcomer"