Results 1 to 13 of 13

Thread: Best Walking Method (in this case)

  1. #1
    Join Date
    Oct 2006
    Location
    United States
    Posts
    672
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Best Walking Method (in this case)

    Ok so Im making a script that cuts the magic trees near Seers village, but I dont know the best way to walk there/back. Im currently using radialwalk/findsymbol, but that doesnt seem reliable or safe. Im looking for an easy method too since im noobish:P Thanks.

    SCAR Code:
    program New;


    {.Include SRL\SRL.SCAR}
    {.include SRL/SRL/skill/Woodcutting.scar}

    var
      X, Y : Integer;

    const
      YourSRLID = ''; //Your SRL ID, 4 digits long.
      YourSRLPW = ''; //Your Srl Password


    procedure DeclarePlayers;
    begin
     HowManyPlayers :=1; //How many players to use in script
     NumberOfPlayers(HowManyPlayers);
     CurrentPlayer :=0;

     Players[0] .Name         := '';
     Players[0] .Pass         := '';
     Players[0] .Nick         := '';   //3/4 of the characters name (bobbey = bob)
     Players[0] .Active       := True; // True=yes, False=no//
     Players[0] .Booleans[1]  := False; // False for brightness Check Once. Just leave at false.
    end;

    //*******Do not change below this point*******//


    procedure AntiRandoms;
    begin
      FindTalk;
      if FindNormalRandoms then
      FindLamp('woodcutting');
      if FindFight then
       begin
       RunAway('E', True, 1, 5000);
       Wait(10000+random(2000));
       end;
    end;

    procedure AntiBan;
    begin
      if(not(LoggedIn))then Exit;
      case random(4) of
      0: PickUpMouse;
      1: RandomMovement;
      2: RandomRClick;
      3: case random(4) of
      0: HoverSkill('Woodcutting', false);
      1: HoverSkill('Smithing', false);
      2: HoverSkill('Hitpoints', false);
      3: HoverSkill('Agility', false);
      end;
     end;
    end;

    procedure TiltScreen;
    begin
      if not(loggedIn) then exit;
      keydown(VK_DOWN);
      wait(200+random(125)+random(138));
      keyup(VK_DOWN);
      wait(random(232));
    end;

    procedure SetupPlayers;
    begin
      if not LoggedIn then LoginPlayer;
      MakeCompass('n');
      SetAngle(true);
      SetRun(true);
      TiltScreen;
    end;




    procedure WalkToTrees;
    begin
      MakeCompass('n');
      if FindSymbol(x,y, 'anvil')then
      begin
      if RadialWalk( 12568008 , 140, 180, 70, 5, 5)then
      if RadialWalk( 12568008 , 180, 220, 70, 5, 5)then
      if not FindSymbol(x,y, 'spin') then
      WriteLn('Could not complete walk to magics, sorry');
      TerminateScript;
      end;
       begin
       if FindSymbol(x,y, 'spin') then
       wait(1000);
       RadialRoadWalk( FindRockColor , 190, 220, 100, 5, 5)
       end;
    end;

    procedure MainLoop;
    var Mark : Integer;

    begin
      repeat
      repeat
      SetupPlayers;
      AntiRandoms;
      AntiBan;
      WalkToTrees;
      if not LoggedIn then Exit;
      AntiBan;
      WalkToTrees;
      until((TimeFromMark(Mark) / 1000 * 60) >= 50);
      until(false);
    end;

    begin
      SetUpSRL;
      SRLID := YourSRLID;
      SRLPassword := YourSRLPW;
      DeclarePlayers;
      SetupPlayers;
      MainLoop;
      SendSRLReport;
    end.

  2. #2
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Use DDTM's if you know them for specific places(ex: walking between trees), and RadialWalk for roads. If you dont know DDTM's then you can autocolor for RadialWalk using a simple function called AutoColorThis:
    SCAR Code:
    Function AutoColorThis(Bitmap : Integer; Tol, X1, Y1, X2, Y2 : Integer): Integer;

    Example:

    SCAR Code:
    GrassCol := AutoColorThis(GrassBmp, 20, MMX1, MMY1, MMX2, MMY2);
    If RadialWalk(GrassCol, ...

    Remember: Dont use static colors in RadialWalk because RS minimap constantly changes the colors.


  3. #3
    Join Date
    Oct 2006
    Location
    United States
    Posts
    672
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Cazax View Post
    Use DDTM's if you know them for specific places(ex: walking between trees), and RadialWalk for roads. If you dont know DDTM's then you can autocolor for RadialWalk using a simple function called AutoColorThis:
    SCAR Code:
    Function AutoColorThis(Bitmap : Integer; Tol, X1, Y1, X2, Y2 : Integer): Integer;

    Example:

    SCAR Code:
    GrassCol := AutoColorThis(GrassBmp, 20, MMX1, MMY1, MMX2, MMY2);
    If RadialWalk(GrassCol, ...

    Remember: Dont use static colors in RadialWalk because RS minimap constantly changes the colors.
    yeah the static colors were just temporary haha. thanks for the help

    Edit: hmm I dont know if Im doing this right, it says cannot find color. I took from a piece or grass, I enlarge it, shrunk it, or kept it the same, but cannot find it..does this seem about right?

    SCAR Code:
    procedure LoadBitmap;

    begin
      ground := BitmapFromString(50, 35, 'beNrt1sEKQDAAx' +
           'vHl6gnkYMqJx3BwV17BQTmsFA4rj261krIxpgxf/R/gd/u+Iaqn+H' +
           'Ktps64nlNl/1EpY5yug8pcJYPKXuUXRASViSqsiAyqQ1VaerILNh2' +
           'g4XQbVFA9rgpyIlpsUO2okoyIznqgckd14y4rMWc9UL1dNQ6RCKrP' +
           'q8zfJlSWz5xBBZUjqhnx9gjb');
    end;





    SCAR Code:
    procedure WalkToTrees;
    begin
      MakeCompass('n');
      if FindSymbol(x,y, 'anvil')then
      begin
      RadialWalk(AutoColorThis(ground, 20, MMX1, MMY1, MMX2, MMY2), 100, 200, 80, -1, 1);
    end;
    end;

  4. #4
    Join Date
    Oct 2006
    Location
    United States
    Posts
    672
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    sorry for double posting, I just wanna let people know that Im still having this problem

  5. #5
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hmm try this:
    SCAR Code:
    procedure WalkToTrees;
    var
      grasscol : integer;
    begin
      MakeCompass('n');
      if FindSymbol(x,y, 'anvil')then
      begin
        grasscol := AutoColorThis(ground, 20, MMX1, MMY1, MMX2, MMY2);  // to avoid lag
        Wait(250 + Random(250));   //the same
        RadialWalk(grasscol, 100, 200, 70, -1, 1); //changed the radius to 70, 80 is tooo much
      end;
    end;
    read the comments.
    also make smaller bitmaps.


  6. #6
    Join Date
    Oct 2006
    Location
    United States
    Posts
    672
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Cazax View Post
    hmm try this:
    SCAR Code:
    procedure WalkToTrees;
    var
      grasscol : integer;
    begin
      MakeCompass('n');
      if FindSymbol(x,y, 'anvil')then
      begin
        grasscol := AutoColorThis(ground, 20, MMX1, MMY1, MMX2, MMY2);  // to avoid lag
        Wait(250 + Random(250));   //the same
        RadialWalk(grasscol, 100, 200, 70, -1, 1); //changed the radius to 70, 80 is tooo much
      end;
    end;
    read the comments.
    also make smaller bitmaps.
    thanks alot its working now

  7. #7
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by d1s3l View Post
    thanks alot its working now
    No problem if you have any other question just PM me


  8. #8
    Join Date
    Oct 2006
    Location
    United States
    Posts
    672
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok Im still having this problem and I just want to finish this script...or atleast get through half of it, but I cant without this first. So what I tell it to do it walk far into the grass from the seers bank. but what it does is walk to the tip of the bank entrance(play the script and you will see) and I dont know what I could be possibly doing wrong, and help is appreciated ty.

    SCAR Code:
    program New;


    {.Include SRL\SRL.SCAR}
    {.include SRL/SRL/skill/Woodcutting.scar}

    var
      X, Y, autocolor_groun : Integer;

    const
      YourSRLID = 'fghfgh'; //Your SRL ID, 4 digits long. (create one at <a href="http://www.stats.srl-forums.com/" target="_blank">http://www.stats.srl-forums.com/</a>)
      YourSRLPW = 'fghf'; //Your Srl Password



    procedure DeclarePlayers;
    begin
     HowManyPlayers :=1; //How many players to use in script
     NumberOfPlayers(HowManyPlayers);
     CurrentPlayer :=0;

     Players[0] .Name         := 'fghfgh';
     Players[0] .Pass         := 'fghfgh';
     Players[0] .Nick         := 'fghfgh';   //3/4 of the characters name (bobbey = bob)
     Players[0] .Active       := True; // True=yes, False=no//
     Players[0] .Booleans[1]  := False; // False for brightness Check Once. Just leave at false.
    end;

    //*******Do not change below this point*******//


    procedure AntiRandoms;
    begin
      FindTalk;
      if FindNormalRandoms then
      FindLamp('strength');
      if FindFight then
       begin
       RunAway('E', True, 1, 5000);
       Wait(10000+random(2000));
       end;
    end;

    procedure AntiBan;
    begin
      if(not(LoggedIn))then Exit;
      case random(4) of
      0: PickUpMouse;
      1: RandomMovement;
      2: RandomRClick;
      3: case random(4) of
      0: HoverSkill('Woodcutting', false);
      1: HoverSkill('Smithing', false);
      2: HoverSkill('Hitpoints', false);
      3: HoverSkill('Agility', false);
      end;
     end;
    end;

    procedure TiltScreen;
    begin
      if not(loggedIn) then exit;
      keydown(VK_DOWN);
      wait(200+random(125)+random(138));
      keyup(VK_DOWN);
      wait(random(232));
    end;

    procedure SetupPlayers;
    begin
      if not LoggedIn then LoginPlayer;
      MakeCompass('n');
      SetAngle(true);
      SetRun(true);
      TiltScreen;
    end;




    procedure WalkToTrees;
    var
      grasscol : integer;
    begin
      MakeCompass('n');
      if FindSymbol(x,y, 'anvil')then
      begin
      autocolor_groun := BitmapFromString(10, 7, 'beNqbqJY7RR2Cyr' +
           'AhrLIlE9UgaDDKAgDwVVI+');
        grasscol := AutoColorThis(autocolor_groun, 75, MMX1, MMY1, MMX2, MMY2);
        Wait(250 + Random(250));
        RadialWalk(grasscol, 170, 185, 60, 2, 2);
      end;
    end;


    procedure MainLoop;
    var Mark : Integer;

    begin
      repeat
      repeat
      SetupPlayers;
      AntiRandoms;
      AntiBan;
      WalkToTrees;
      if not LoggedIn then Exit;
      AntiBan;
      WalkToTrees;
      until((TimeFromMark(Mark) / 1000 * 60) >= 50);
      until(false);
    end;

    begin
      SetUpSRL;
      SRLID := YourSRLID;
      SRLPassword := YourSRLPW;
      DeclarePlayers;
      SetupPlayers;
      MainLoop;
      SendSRLReport;
    end.

  9. #9
    Join Date
    Oct 2008
    Location
    England
    Posts
    89
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by d1s3l View Post
    Ok Im still having this problem and I just want to finish this script...or atleast get through half of it, but I cant without this first. So what I tell it to do it walk far into the grass from the seers bank. but what it does is walk to the tip of the bank entrance(play the script and you will see) and I dont know what I could be possibly doing wrong, and help is appreciated ty.

    SCAR Code:
    program New;


    {.Include SRL\SRL.SCAR}
    {.include SRL/SRL/skill/Woodcutting.scar}

    var
      X, Y, autocolor_groun : Integer;

    const
      YourSRLID = 'fghfgh'; //Your SRL ID, 4 digits long. (create one at <a href="http://www.stats.srl-forums.com/" target="_blank">http://www.stats.srl-forums.com/</a>)
      YourSRLPW = 'fghf'; //Your Srl Password



    procedure DeclarePlayers;
    begin
     HowManyPlayers :=1; //How many players to use in script
     NumberOfPlayers(HowManyPlayers);
     CurrentPlayer :=0;

     Players[0] .Name         := 'fghfgh';
     Players[0] .Pass         := 'fghfgh';
     Players[0] .Nick         := 'fghfgh';   //3/4 of the characters name (bobbey = bob)
     Players[0] .Active       := True; // True=yes, False=no//
     Players[0] .Booleans[1]  := False; // False for brightness Check Once. Just leave at false.
    end;

    //*******Do not change below this point*******//


    procedure AntiRandoms;
    begin
      FindTalk;
      if FindNormalRandoms then
      FindLamp('strength');
      if FindFight then
       begin
       RunAway('E', True, 1, 5000);
       Wait(10000+random(2000));
       end;
    end;

    procedure AntiBan;
    begin
      if(not(LoggedIn))then Exit;
      case random(4) of
      0: PickUpMouse;
      1: RandomMovement;
      2: RandomRClick;
      3: case random(4) of
      0: HoverSkill('Woodcutting', false);
      1: HoverSkill('Smithing', false);
      2: HoverSkill('Hitpoints', false);
      3: HoverSkill('Agility', false);
      end;
     end;
    end;

    procedure TiltScreen;
    begin
      if not(loggedIn) then exit;
      keydown(VK_DOWN);
      wait(200+random(125)+random(138));
      keyup(VK_DOWN);
      wait(random(232));
    end;

    procedure SetupPlayers;
    begin
      if not LoggedIn then LoginPlayer;
      MakeCompass('n');
      SetAngle(true);
      SetRun(true);
      TiltScreen;
    end;




    procedure WalkToTrees;
    var
      grasscol : integer;
    begin
      MakeCompass('n');
      if FindSymbol(x,y, 'anvil')then
      begin
      autocolor_groun := BitmapFromString(10, 7, 'beNqbqJY7RR2Cyr' +
           'AhrLIlE9UgaDDKAgDwVVI+');
        grasscol := AutoColorThis(autocolor_groun, 75, MMX1, MMY1, MMX2, MMY2);
        Wait(250 + Random(250));
        RadialWalk(grasscol, 170, 185, 60, 2, 2);
      end;
    end;


    procedure MainLoop;
    var Mark : Integer;

    begin
      repeat
      repeat
      SetupPlayers;
      AntiRandoms;
      AntiBan;
      WalkToTrees;
      if not LoggedIn then Exit;
      AntiBan;
      WalkToTrees;
      until((TimeFromMark(Mark) / 1000 * 60) >= 50);
      until(false);
    end;

    begin
      SetUpSRL;
      SRLID := YourSRLID;
      SRLPassword := YourSRLPW;
      DeclarePlayers;
      SetupPlayers;
      MainLoop;
      SendSRLReport;
    end.
    Hmm, I may be completely wrong here, so don't view my advise as 100% correct, but could you just click the bank symbol once you're in range?

  10. #10
    Join Date
    Apr 2007
    Posts
    994
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Could you please add a screenshot?
    [QUOTE]<GoF`> oh no its Raymooond
    <Raymooond> Heya
    <GoF`> is it ray or some other ray?
    <LeeLokHin> No idea
    <LeeLokHin> Raymond, what's the game you like the most?
    <Raymooond> Runescape
    <-- LeeLokHin has kicked Raymooond from #srl (Faker.)[/QUOTE]

  11. #11
    Join Date
    Oct 2006
    Location
    United States
    Posts
    672
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Shyne: yes I could, but constantly clicking symbols would become suspicious Thank you for the help though.

    Lee Lok Hin: Here yah go.



    Edit: also, my tolerance is so high(75) because if it were any lower, it wouldn't click anywhere, so I thought this was progress.

  12. #12
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Use FindRoadColor and low radius to walk there and then you use the grass color to walk.


  13. #13
    Join Date
    Oct 2006
    Location
    United States
    Posts
    672
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Cazax View Post
    Use FindRoadColor and low radius to walk there and then you use the grass color to walk.
    Ahhh it works thanks. If your wondering this is what I got in the end.

    SCAR Code:
    procedure WalkToTrees;
    var
      grasscol, dirtcol : integer;
    begin
      MakeCompass('n');
      if FindSymbol(x,y, 'anvil')then
       begin
       if RadialRoadWalk(RoadColor, 178, 182, 30, 5, 5)then
       FFlag(6);
       autocolor_groun := BitmapFromString(5, 5, 'beNrLkkrLIgFl5kk' +
       'DEXYuAGeAFvs=');
       autocolor_dirt := BitmapFromString(7, 6, 'beNrLk87MGzgEANr9' +
           'J7U=');
       grasscol := AutoColorThis(autocolor_groun, 75, MMX1, MMY1, MMX2, MMY2);
       Wait(250 + Random(250));
       RadialWalk(grasscol, 170, 190, 70, 2, 2);
       Wait(5000);
       end;
        begin
        dirtcol := AutoColorThis(autocolor_dirt, 75, MMX1, MMY1, MMX2, MMY2);
        Wait(250 + Random(250));
        RadialWalk(dirtcol, 170, 185, 80, 2, 2);
        end;
    end;

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Case..Of Help
    By Drew_Dawg in forum OSR Help
    Replies: 7
    Last Post: 02-02-2008, 11:47 PM
  2. Using Case and Of
    By Fourscape in forum Outdated Tutorials
    Replies: 3
    Last Post: 08-18-2007, 08:40 PM
  3. Case - Else
    By stylen in forum OSR Help
    Replies: 0
    Last Post: 05-30-2007, 11:54 PM
  4. Walking Method
    By da_professa in forum OSR Help
    Replies: 0
    Last Post: 03-04-2007, 03:06 PM
  5. Case OF
    By Jagex_Fagex in forum News and General
    Replies: 3
    Last Post: 10-25-2006, 08:45 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
  •