Results 1 to 12 of 12

Thread: Need help quick

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

    Default Need help quick

    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 := 'shampoo'; //Players username
         Players[0].Pass := ''; //Players password
           Players[0].Nick := 'hamp'; //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( 2264447 , 10, 52, 40, 0, 0);
    wait(1000+random(687));
    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)));
    
        end;
      until(False);
    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; //If it gets logged out, it will assume that something went wrong and continue to the next player, setting the current player inactive.
         WalkToMaples;
          ChopMaples;
           WalkToBank;
       until(false)
    end.





  2. #2
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    SCAR Code:
    begin
      ActivateClient;
      SetUpSRL;
      DeclarePlayers;
      repeat
        //NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars); //NOT NEEDED, LoginPlayer does this for you.
        if not LoggedIn then NextPlayer(false); //If it gets logged out, it will assume that something went wrong and continue to the next player, setting the current player inactive.
        WalkToMaples;
        ChopMaples;
        WalkToBank;
      until(false)
    end.
    Interested in C# and Electrical Engineering? This might interest you.

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

    Default

    it does the same thing





  4. #4
    Join Date
    Feb 2007
    Location
    Alberta, Canada
    Posts
    4,615
    Mentioned
    50 Post(s)
    Quoted
    429 Post(s)

    Default

    SCAR Code:
    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)));

        end;
      until(False); // This should be until InvFull
    end;

    Scripts: Edgeville Chop & Bank, GE Merchanting Aid
    Tutorials: How to Dominate the Grand Exchange

    Quote Originally Posted by YoHoJo View Post
    I like hentai.

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

    Default

    it does the same thing..

    the mouse moves around trying to find the maples when i'm in the bank. sometimes it will find one and then click it.. anyway im on vista right now if that matters. and it won't log in now either.. ffs what is wrong?





  6. #6
    Join Date
    Feb 2007
    Location
    Alberta, Canada
    Posts
    4,615
    Mentioned
    50 Post(s)
    Quoted
    429 Post(s)

    Default

    Well, maybe the colors changed and radial walk isnt using tolerance? If your using Smartz main loop version, add loginplayer to right before the repeat.

    Scripts: Edgeville Chop & Bank, GE Merchanting Aid
    Tutorials: How to Dominate the Grand Exchange

    Quote Originally Posted by YoHoJo View Post
    I like hentai.

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

    Default

    i fixed the loginplayer problem but eh yeah this is what happens, it logs in, and starts trying to find a maple. if it finds one it will go and chop it, and then when inv gets full it still doesn't walk to bank. just sits there and trys to chop more maples. so umm how do you add tolerance to radial walk?





  8. #8
    Join Date
    Feb 2007
    Location
    Alberta, Canada
    Posts
    4,615
    Mentioned
    50 Post(s)
    Quoted
    429 Post(s)

    Default

    RadialWalkEx? I dont really know, I normally just use autocolor then walk using radialwalk.

    Scripts: Edgeville Chop & Bank, GE Merchanting Aid
    Tutorials: How to Dominate the Grand Exchange

    Quote Originally Posted by YoHoJo View Post
    I like hentai.

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

    Default

    i don't know how to use auto color either :S





  10. #10
    Join Date
    Feb 2007
    Location
    Alberta, Canada
    Posts
    4,615
    Mentioned
    50 Post(s)
    Quoted
    429 Post(s)

    Default

    Well, you could check out ACA by nielsie in the snippits section.

    Scripts: Edgeville Chop & Bank, GE Merchanting Aid
    Tutorials: How to Dominate the Grand Exchange

    Quote Originally Posted by YoHoJo View Post
    I like hentai.

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

    Default

    i dont really want to use auto color anyway so.. well

    problem is still here





  12. #12
    Join Date
    Jul 2007
    Location
    Norway.
    Posts
    1,938
    Mentioned
    3 Post(s)
    Quoted
    0 Post(s)

    Default

    I am so sorry for beeing a nub, I haven't even bothered to read the whole post. (Its 5.30AM and I haven't slept in 3 days, I cant read.)

    But while skimming through the entire script, I saw

    SCAR Code:
    if FindObjMulti('aple tree', Maple, Maple2, Maple3, Tol) then

    Shouldn't that be

    SCAR Code:
    if FindObjMulti('aple tree', Maple, Maple2, Maple3, 5) // Shouldn't tolerance be a number?

    Or is that you posted just an example script?

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Just a quick question? Did I say quick?
    By SeanJohn in forum OSR Help
    Replies: 3
    Last Post: 01-28-2009, 12:03 AM
  2. I need some quick help
    By AJ2VM in forum OSR Help
    Replies: 45
    Last Post: 12-19-2007, 03:17 PM
  3. quick ? plz
    By rjbk1989 in forum OSR Help
    Replies: 3
    Last Post: 05-07-2007, 12:43 AM

Posting Permissions

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