Results 1 to 2 of 2

Thread: Zetas Maple Chop (Not done.)

  1. #1
    Join Date
    Jul 2007
    Posts
    242
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default 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.





  2. #2
    Join Date
    Jul 2007
    Location
    Massachusetts
    Posts
    896
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. GrettleNet SMART CHOP CHOP!!!
    By Fosscape in forum First Scripts
    Replies: 3
    Last Post: 01-19-2009, 03:59 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •