Results 1 to 5 of 5

Thread: Need Help with Seers Maple Cutter

  1. #1
    Join Date
    Apr 2007
    Location
    Laguna Beach, California
    Posts
    231
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Need Help with Seers Maple Cutter

    Ok here is the script:

    Code:
    program Cutter;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/extended/xBank.scar}
    {.include SRL/SRL/skill/Woodcutting.scar}
    var
    xyx,yxy,xxx,yyy,xb,yb,DTM1,xx,yy,DTM2,xyy,yxx,bmp1,bmp2:Integer;
    {***************************SETUP**********************************************}
    procedure DeclarePlayers;//Since this is a member's script I figured that there
      begin                  //would only be one player
         HowManyPlayers:=1;
         NumberOfPlayers(HowManyPlayers);
         CurrentPlayer := 0;
         Players[0].Name :='';
         Players[0].Pass :='';
         Players[0].Nick :='';
         Players[0].Loc  :='Seers';
         Players[0].Active:=True;
      end;
    const
         Breaks = True ;     //Take Breaks
         AntiBanOn = True ;  //Use Anti-Ban
         TripsToDo=100 ;     //How Many Trips You Want To Do
         PinN='0000';        //Your Pin #, If you dont have one leave 0000
    {**********************DONT CHANGE THIS****************************************}
         TreeColor1=18560 ;//color of tree in gamescreen DONT CHANGE
         TreeColor2=10336 ;//color of tree in gamescreen DONT CHANGE
         TreeMM1=1395819 ; //color of tree in mm Dont Change
         TreeMM2=999500 ; //color of tree in mm DONT CHANGE
         TreeMM3=1982564 ; //color of tree in mm DONT CHANGE
         BankMM1=5623535 ;//color of bank in mm DONT CHANGE
         BankMM2=4692663 ;//color of bank in mm DONT CHANGE
         BankMM3=811387 ;//color of bank in mm DONT CHANGE
         MM1=570 ;
         MM2=5 ;
         MM3=720 ;
         MM4=160 ;
    {*************************MAIN SCRIPT******************************************}
    var
        Trips: Integer;
        Gained: Integer;
        
    procedure LoadStuff;
      begin
        bmp1 := BitmapFromString(8, 8, 'z78DAAD8E3B0EC0300843AF0426' +
           '69C2DCCFFD8F54A55E2CB1B4523D3C217848365BC1C40927C76C8' +
           '94BD922BAEF8F689CC99E7120ABCFBD3ACAEAEBD757DF4AFF0DE1' +
           '3E94DABF86579AF622FFFA37D7484ED9');
        bmp2 := BitmapFromString(12, 8, 'z78DAD58FB10D00200CC35E4A4' +
           '15C5092FF4FA2C0C288CA84878C9603641045AB7341BC185C8EA2' +
           'A606F420E1D986B5EC0C8307B926D86E380CF6F0D7FEFD7BCF009' +
           'A6573BC');
        DTM1 := DTMFromString('78DA636C646260B0624001620202609A11CA6' +
              '7EC01AA3121A0A609A8468F809A2EA01A4B026A3A8830A78EB07B' +
              '00AE2005B3');
        DTM2 := DTMFromString('78DA63AC636260F06140017FFE30816946289' +
              'FB10DC8F720A0A68B083593807C2F22D4B811505306E4BB13A186' +
              '80BF00DF121390');
      end;
    
    procedure newmove1; //finds one of the maple symbols on minimap
      begin
        MakeCompass('n');
        if (FindSymbol(xx,yy,'tree')) then
          begin
          if findcolor(xx,yy,(GetSymbolColor(xx,yy,'tree')),MM1,MM2,MM3,90) then
            Mouse(xx,yy,1,1,true);
            Flag;
            WriteLn('Found Symbol Color; Color is ' + InttoStr(GetSymbolColor(xx,yy,'tree')));
            Flag;
          end else
        if (FindDtmIn(xx, yy, DTM1, 620, 20, 680, 80)) then
          begin
            Mouse(xx,yy,1,1,true);
            Flag;
            WriteLn('Found DTM1');
          end else
        if (findcolortolerance(xx,yy,(AutoColorThis(bmp1,20,MM1,MM2,MM3,MM4)),580,40,MM3,MM4,10)) then
          begin
            Mouse(xx,yy,1,1,true);
            Flag;
            WriteLn('Found BMP1');
          end else
          begin
            WriteLn('Area unknown or Could not find the color')
          end;
        Flag;
      end;
      
    procedure ChopTree;
      begin
        WriteLn('Chopping Tree');
        repeat
          if (findcolorspiraltolerance(xyx,yxy,TreeColor1,0,0,518,342,7))
          or (findcolorspiraltolerance(xyx,yxy,TreeColor2,0,0,518,342,7)) then
            begin
              mouse(xyx+10,yxy,1,1,true);
              wait(6000+random(2300));
              {Leveled;
              wait(100+random(20));
              Randoms;
              wait(100+random(20));}
            end;
        until (invfull = true)
        if (invfull = true) then
        WriteLn('Finished Chopping');
      end;
    
    var
      Ang: Extended;
      
    procedure newmovebank; //moves to ladder then moves to one of the bankers
      begin
        MakeCompass('n');
        if (FindSymbol(xyy,yxx,'bank')) then
          begin
            Mouse(xyy,yxx,1,1,true);
            Flag;
            WriteLn('Found Symbol Color; Color is ' + InttoStr(GetSymbolColor(xyy,yxx,'bank')));
          end else
        if (FindDTMRotated(DTM2,xyy,yxx,570,5,730,160,0,360,0.5,Ang)) then
          begin
            Mouse(xyy,yxx,0,0,true);
            Flag;
            WriteLn('Found DTM2');
          end else
        if (findcolortolerance(xyy,yxx,(AutoColorThis(bmp2,5,MM1,MM2,MM3,MM4)),MM1,MM2,MM3,MM4,5)) then
          begin
            Mouse(xyy,yxx,1,1,true);
            Flag;
            WriteLn('Found BMP2')
          end else
            WriteLn('Area unknown or Could not find the color')
      end;
        
        
    procedure bankem;  //banks
      begin
        wait(1000+random(500));
        OpenBank;
          if (PinScreen = true) and (PinN = '0000') then
            begin
              LogOut;
              WriteLn('Pin # Wrong or Forgot to Setup Pin #');
            end else
          if (PinScreen = true) and not (PinN = '0000') then
            begin
              InPin(PinN);
            end else
          if (PinScreen = false) and (BankScreen = true) then
          Deposit2(1,0);
          CloseBank;
      end;
    
    begin
      ClearDebug;
      Trips:=0;
      SetupSrl;
      DisguiseScar('iTunes');
      Newline:=Newline;
      DeclarePlayers;
      ActivateClient;
      //LoginPlayer;
      LoadStuff;
      //AntiPoo;
        repeat
          newmove1;
          ChopTree;
          newmovebank;
          bankem;
          Trips:=(Trips+1)
          if (Breaks = true) then
          LogOutEvery(1,10+random(4))
        until(Trips = TripsToDo)
      LogOut;
    end.
    Its not working. It does the first move right but then it seems that its skips the flag procedure. It starts to move the mouse on the gray cobblestone of the sceen trim. I dont know what to do. Your help is appreciated.

    Edit: Btw all the things that are commented are for testing purposes. The script if fine w/o those things.

  2. #2
    Join Date
    Dec 2006
    Location
    Australia
    Posts
    698
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    I dont think you have the newmove1 procedure done correctly.

    SCAR Code:
    if findcolor(xx,yy,(GetSymbolColor(xx,yy,'tree')),MM1,MM2,MM3,90) then
            Mouse(xx,yy,1,1,true);
            Flag;
            WriteLn('Found Symbol Color; Color is ' + InttoStr(GetSymbolColor(xx,yy,'tree')));
            Flag;

    Why is it flag twice? And is the if statement legal? Sorry on my laptop got no scar

  3. #3
    Join Date
    Apr 2007
    Location
    Laguna Beach, California
    Posts
    231
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok i have edited the movement to:

    Code:
    procedure newmove2; //finds one of the maple symbols on minimap
      begin
        MakeCompass('N');
        wait(500+random(100))
        MakeCompass('N')
        TreeColor := AutoColorThis(bmp1,100,MM1,MM2,MM3,MM4)
          if (RadialWalk(TreeColor,315,429,50,1,1)) then
            begin
              WriteLn('Walking to trees')
              Wait(4000);
              Flag;
            end else
              begin
                WriteLn('Did not find trees')
                if (FindSymbol(xx,yy,'tree')) then
                  begin
                    if findcolor(xx,yy,(GetSymbolColor(xx,yy,'tree')),MM1,MM2,MM3,90) then
                      Mouse(xx,yy,1,1,true);
                      Flag;
                      WriteLn('Found Symbol Color; Color is ' + InttoStr(GetSymbolColor(xx,yy,'tree')));
                      Flag;
                  end;
              end;
      end;
      
    procedure ChopTree;
      begin
        WriteLn('Chopping Tree');
        repeat
            if (findcolorspiraltolerance(xyx,yxy,TreeColor1,0,0,518,342,7))
            or (findcolorspiraltolerance(xyx,yxy,TreeColor2,0,0,518,342,7)) then
              begin
                MMouse(xyx,yxy,1,1);
                if (IsUpText('aple')) then
                  begin
                  mouse(xyx+10,yxy,1,1,true);
                  wait(6000+random(2000));
                  {Leveled;
                  wait(100+random(20));
                  Randoms;
                  wait(100+random(20));}
                  end;
              end;
        until (invfull = true)
        if (invfull = true) then
        WriteLn('Finished Chopping');
      end;
    
    
      
    procedure newmovebank2; //moves to ladder then moves to one of the bankers
      begin
        MakeCompass('n');
          BankColor := AutoColorThis(bmp2,100,MM1,MM2,MM3,MM4)
          if (RadialWalk(BankColor,220,132,55,1,1)) then
            begin
              WriteLn('Moving to Bank')
              Wait(4000);
              Flag;
            end else
            begin
              WriteLn('Did not find bank')
            end;
      end;
      
    procedure movetobankers;
      begin
        repeat
        MMouse(246,115,2,2)
        wait(300)
        if (IsUpText('here')) then
        Mouse(246,115,3,3,true)
        Wait(400+random(100))
        until (IsUpText('boot'))
      end;
    newmove2, choptree, and movetobankers work fine. the move to bank is what i am having trouble with now. It tries to get the bitmap color of the ladder in the bank but can never get it. Is there something better that i can use to move into the bank in Seers.

  4. #4
    Join Date
    Oct 2006
    Location
    Ireland
    Posts
    855
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    findcolortolerance(x,y,6082797,mmx1,mmy1,mmx2,mmy2 ,80)

    works good for me.

  5. #5
    Join Date
    Apr 2007
    Location
    Laguna Beach, California
    Posts
    231
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    what color is 6082797?

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. [SRL 4] Seers Maple Retriever
    By Timothegreat in forum RS3 Outdated / Broken Scripts
    Replies: 59
    Last Post: 11-01-2009, 11:27 PM
  2. Seers Maple Shredder
    By Torrent of Flame in forum RS3 Outdated / Broken Scripts
    Replies: 35
    Last Post: 04-17-2008, 12:46 PM
  3. Auto Seers Maple Cutter. Pictures. Easy.
    By FuruChan in forum RS3 Outdated / Broken Scripts
    Replies: 7
    Last Post: 10-19-2007, 05:27 PM
  4. Seers Maple Cutter?
    By Ilikepie1995 in forum RS3 Outdated / Broken Scripts
    Replies: 5
    Last Post: 06-20-2007, 02:13 PM
  5. [SRL] Seers Maple Cutter Testing Needed
    By markuska815 in forum First Scripts
    Replies: 24
    Last Post: 04-15-2007, 07:23 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
  •