Results 1 to 3 of 3

Thread: Maple Choper Fletcher And Banker

  1. #1
    Join Date
    Sep 2010
    Location
    Azeroth
    Posts
    395
    Mentioned
    0 Post(s)
    Quoted
    17 Post(s)

    Default Maple Choper Fletcher And Banker

    Simba Code:
    program new;
    {$i srl/srl.scar}



    procedure MM_WalkToTree;
    var
      x,y:integer;
        begin
          if
            FindColorTolerance(x,y,999274,570,10,700,100,5)then
              wait(500+random(200));
                Mouse(x,y,15,15,true);
                  end;





    procedure ChopWood;
    var
      x,y:integer;
        begin
          repeat
          FindColorTolerance(x,y,1714513,1,1,520,340,5);
            FindColorTolerance(x,y,1780821,1,1,520,340,5);
              FindColorTolerance(x,y,1319748,1,1,520,340,5);
                FindColorTolerance(x,y,1187643,1,1,520,340,5);
                  until(true);
                    wait(3000+random(1000));
                      Mouse(x,y,15,15,true);
                        end;





    procedure IFFind;
    var
        Stump1,Stump2,x,y:integer;
          begin
          Stump1 := BitmapFromString(3, 2, 'meJzzTG7ySGwAIveEOggCAED+BvA=');
            Stump2 := BitmapFromString(3, 2, 'meJyTd0+RdYqDIxn7SAApbARz');
              if
                FindBitmapSpiralTolerance(Stump1,x,y,180,60,380,260,5)
                or
                  FindBitmapSpiralTolerance(Stump2,x,y,160,60,360,260,5)
                    then
                      ChopWood;
                        FreeBitmap(Stump1);
                          FreeBitmap(Stump2);
                            end;






    Procedure Fletch;
      begin
        if
          InvFull then
            wait(500+random(100));
              MouseItem(1,true);
                wait(500+random(100));
                  Mouse(295,435,10,10,true);
                    wait(500+random(100));
                      Mouse(260,430,10,10,true);
                        end;








    Procedure WalkBank;
    var
        BankSymbol,BowBmp,x,y:integer;
            begin
                BankSymbol := BitmapFromString(9, 6, 'meJw7cOCA28Ktk7995fVLg5AQtGDB' +
                  'ggNIUooX3kMEIQAiBRGEkEB0AAaAUhBZCEI2EFkW2VhkvWhSAACUWEo=');

                    BowBmp := BitmapFromString(4, 2, 'meJwLj0qpa57ExMBgYO0MJOMSczp6' +
                      '5wAZAFO0Bjk=');
                        repeat
                          if
                            FindBitmapSpiral(BowBmp,x,y,685,430,725,460) then
                              FindBitmap(BankSymbol,x,y);
                                until(true)
                                 wait(500+random(100));
                                    Mouse(x,y,15,15,true);
                                       FreeBitmap(BankSymbol);
                                         FreeBitmap(BowBmp);
                                          end;









    begin
      ClearDebug();
        SetupSRL();
          ActivateClient;
            sleep(1000);
              playsound('chord');
                MM_WalkToTree;
                  sleep(8500+random(1000));
                    ChopWood;
                      Repeat
                        IFFind;
                          until(InvFull);
                            Fletch;
                              WalkBank;
                              end.




    does not babk yet but can easily be implemented

  2. #2
    Join Date
    Dec 2011
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You heard of AutoColor Aid look it up on youtube it could be easily implemented in this script...Yohojo made the tutorial by the way!

  3. #3
    Join Date
    Oct 2010
    Posts
    1,255
    Mentioned
    0 Post(s)
    Quoted
    15 Post(s)

    Default

    Love the unique spacing.

    Also, what is the purtpose of this "loop" ? Because True is always True and it will only run once.
    Simba Code:
     
    Simba Code:
    repeat
    FindColorTolerance(x,y,1714513,1,1,520,340,5);
     FindColorTolerance(x,y,1780821,1,1,520,340,5);
      FindColorTolerance(x,y,1319748,1,1,520,340,5);
       FindColorTolerance(x,y,1187643,1,1,520,340,5);
        until(true);
    Simba Code:
     
    I'm back

Thread Information

Users Browsing this Thread

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

Posting Permissions

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