Page 1 of 4 123 ... LastLast
Results 1 to 25 of 88

Thread: RyGuy's Advanced Gnome Agility

  1. #1
    Join Date
    Feb 2011
    Location
    Wisconsin
    Posts
    398
    Mentioned
    1 Post(s)
    Quoted
    10 Post(s)

    Default RyGuy's Advanced Gnome Agility

    RyGuy's Advanced Gnome Agility!

    STATUS: Not working & not going to be fixed. Someone can take over the script if they want. No need to credit me if you don't want to

    About This Script.

    This is my first script. I know it has it's bugs that need to be worked out, but i thought i'd get an initial release out to see what you guys thought. EDIT: Not many bugs left, if you find any please post them!

    You can begin running the course at level 85 agility, however you have a chance at failing the signpost until level 89. There is no support for failing the signpost as i did not have an account with a low enough agility to test it. EDIT: However, the way i have it coded, the script may work with failing the signpost, just a bit slower. If you have 85-88 agility please test it and let me know

    So, if you have 89+ agility try out my script, and let me know what you think. I'm very open to suggestions!

    Start it at the log balance, and please babysit! Not really needed anymore


    Make sure Game Chat is set to All!

    Versions

    0.10 - Initial Release

    0.15 - Some small changes made

    0.20 - Finds Branch#2 much better than before
    - Worked on some standards
    - More Stable than previous versions

    0.30 - SPS added to walk back to beginning
    - Failsafes added

    0.35 - Changed a DTM that would fail occasionally

    0.50 - Rewrote most parts of the script to try making it more reliable. I think i was successful for the most part :P

    0.60 - Fixed the barrier

    0.70 - Fixed the first branch

    0.80 - Added time running, xp, and xp/h

    Known Bugs:
    - Occasionally fails to climb first branch

    Progress Report:
    Time: 1 Hours, 39 Minutes and 55 Seconds
    We have gained 165353 Agility Experience!
    We are gaining 99294 Agility Experience per Hour!

    This report is with the penance horn. Actual xp/h without modifiers is about 50kp/h

    Simba Code:
    program AdvancedGnomeAgility;
    //////////////////////////WRITTEN BY RYGUY//////////////////////////////

    ////////////////////////////VERSION 0.80////////////////////////////////
    {$DEFINE SMART}
    {$DEFINE SRL5}
    {$loadlib sps}
    {$i SRL/srl.simba}
    {$i sps/sps.simba}

    var
      Log, Branch1, Branch2, Post, Hurdle, TimeBegan, StartingXP: integer;
      aFound: extended;

    ///////////////////////////PLAYER SETUP//////////////////////////////////
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';
      Players[0].Active:=True;
    end;
    ////////////////////DO NOT TOUCH BELOW THIS LINE/////////////////////////



    procedure SetDTMs;
    begin
      Log := DTMFromString('mlwAAAHicY2dgYFBjZGDgB2JpINYEYkUgVgViHSDeDJQ/BsSbgHgVEM8A4lNAvA2IixwFGHLiFRkKHPgZ0qz4GLwtxRnCnaQYcuz4GdiA8rgwIx4MBQAxWws7');
      Branch1 := DTMFromString('mbQAAAHicY2VgYNBjZGBQAmILIPYC4kQgngMUnwnEM5BwfqgSQ02KOUNxjDFDfqQhmOYHinOhYUYsGAwAfOwJcQ==');
      Branch2 := DTMFromString('mKgEAAHic42NgYOACYm4g9gRiOyA2YYAAViDmAWIZIBYBYkGoOnaoHBsQS0BpmBl8UD0wdSA5RgYEAOlL91dg8LaWYkjykWdI8JID4yhXGYYYd1mGOA85huwgJYbMAEWGwnBlhvxQCAbp4QDqJQczkolRAQDIyg2R');
      Hurdle := DTMFromString('mQwAAAHicY2ZgYJBlZGBQBmJtIK4A8quAuBKI/95dwfDr9jKG7zeWMHAB+TDMiISBAABdxglu');
      Post := DTMFromString('mQwAAAHicY2aAAA4g5oRiaajYxj4/hu6uVoaSknwGNiAfhhmRMBAAAKdUBMw=');
    end;



    procedure FreeDTMs;
    begin
      FreeDTM(Log);
      FreeDTM(Branch1);
      FreeDTM(Branch2);
      FreeDTM(Hurdle);
      FreeDTM(Post);
    end;



    procedure Report;
    var
      Exp, ExpHr, TimeRan: integer;
    begin
      TimeRan := (1+((GetSystemTime - TimeBegan) / 1000));
      Exp := (GetXPBarTotal - StartingXP);
      ExpHr := Round((Exp * 3600) / (TimeRan));
      WriteLn('Time: ' + TimeRunning);
      WriteLn('We have gained ' + IntToStr(Exp) + ' Agility Experience!');
      WriteLn('We are gaining ' + IntToStr(ExpHr) + ' Agility Experience per Hour!');
    end;




    procedure AntiBan;
    begin
      if not(LoggedIn)then
      Exit;
      FindNormalRandoms;
      LevelUpEx(True, True);
      case Random(300)of
        0: HoverSkill('Agility', false);
        1: PickUpMouse;
        2: RandomMovement;
        3: RandomRClick;
      end;
    end;



    procedure LogBalance;
    var
      x, y: integer;
    begin
      repeat
        if FindDTMRotated(Log, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
          WriteLn('Found Log');
          Mouse(x, y, 5, 5, True);
          Wait(500+random(50));
      until(IsMoving);
        while(IsMoving) do
          WaitNone;
          AntiBan;
    end;



    procedure ObstacleNet;
    var
      x, y: integer;
    begin
      x := MSCX;
      y := MSCY;
      if FindObjTPA(x, y, 466484, 5, 1, 50, 150, 200, ['over'])then
      begin
        ClickMouse2(True);
        WriteLn('Found Net');
        AntiBan;
        Wait(4000+random(100));
      end;
    end;



    procedure TreeBranch1;
    var
      x, y: integer;
    begin
      x := MSCX;
      y := MSCY;
      FindDTMRotated(Branch1, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)
      Mouse(x, y, 4, 4, True);
      if DidRedClick then
      begin
        WriteLn('Found Branch 1');
        AntiBan;
        SetAngle(SRL_ANGLE_LOW);
      end;
    end;



    procedure TreeBranch2;
    var
      x, y: integer;
    begin
      if FindDTM(Branch2, x, y, MSX1, MSY1, MSX2, MSY2)then
      Mouse(x, y, 4, 4, True);
      WriteLn('Found Branch 2');
      AntiBan;
      Wait(3000+random(50));
    end;



    procedure Signpost;
    var
      x, y: integer;
    begin
      if FindDTMRotated(Post, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
      Mouse(x, y, 4, 4, True);
      WriteLn('Found Signpost');
      AntiBan;
      Wait(3000+random(50));
    end;



    procedure Pole;
    var
      x, y: integer;
    begin
      ClickNorth(SRL_ANGLE_NONE);
      Wait(100+random(50));
      if FindObjTPAMulti(x, y, [4541520, 2566185], 4, 1, 220, 7, 200, ['Swing'])then
      ClickMouse2(True);
      WriteLn('Found Pole');
      AntiBan;
      Wait(12000+random(100));
    end;



    procedure Barrier;
    var
      x, y: integer;
    begin
      if FindDTM(Hurdle, x, y, MSX1, MSY1, MSX2, MSY2)then
      begin
        MMouse(x, y, 3, 4);
        ClickMouse2(True);
        if DidRedClick then
        begin
          WriteLn('Found Barrier');
          AntiBan;
          Wait(6500+random(100));
          Report;
        end;
      end;
    end;



    procedure BackToLog;
    begin
      repeat
        case Random(3) of
          0: SPS_WindWalk(Point(1736, 2910));
          1: SPS_WindWalk(Point(1736, 2912));
          2: SPS_WindWalk(Point(1734, 2910));
        end;
        WriteLn('Attempting To Run Back To Log')
      until (IsMoving);
        begin
          MakeCompass('E');
          SetAngle(SRL_ANGLE_HIGH);
        end;
    end;



    procedure WhereAreWe;
    var
      x, y: integer;
    begin

      if FindDTMRotated(Log, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
      begin
        WriteLn('Trying Balence');
        LogBalance;
      end;

      if FindBlackChatMessage('other')then
      begin
        WriteLn('Trying Net');
        ObstacleNet;
      end;

      if FindBlackChatMessage('netting')then
      begin
        WriteLn('Trying First Branch');
        TreeBranch1;
      end;

      if FindBlackChatMessage('above')then
      begin
        WriteLn('Trying Second Branch');
        TreeBranch2;
      end;

      if FindDTMRotated(Post, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
      begin
        WriteLn('Trying Signpost');
        Signpost;
      end;

      if FindColoredAreaTolerance(x, y, 6270424, MSX1, MSY1, MSX2, MSY2, 600, 5)then
      begin
        WriteLn('Trying Pole');
        Pole;
      end;

      if FindDTM(Hurdle, x, y, MSX1, MSY1, MSX2, MSY2)then
      begin
        WriteLn('Trying Barrier');
        Barrier;
      end;

      if FindColoredAreaTolerance(x, y, 10129284, MMX1, MMY1, MMX2, MMY2, 100, 10)then
      begin
        WriteLn('Trying Walk Back To Log')
        BackToLog;
      end;
    end;



    begin
      Smart_Server := 86;
      Smart_Members := True;
      Smart_Signed := True;
      Smart_SuperDetail := False;
      SetUpSRL;
      SPS_Setup(RUNESCAPE_SURFACE, ['4_7']);
      ActivateClient;
      DeclarePlayers;
      LoginPlayer;
      TimeBegan := GetSystemTime;
      ToggleXPBar(True);
      StartingXP := (GetXPBarTotal);
      WriteLn('We are starting with ' + IntToStr(StartingXP) + ' xp');
      ClickNorth(SRL_ANGLE_HIGH);
      MakeCompass('E');
      repeat
        SetDTMs;
        WhereAreWe;
        FreeDTMs;
      until(false);
    end.
    Last edited by RyGuy; 03-09-2012 at 12:40 AM.

  2. #2
    Join Date
    Jan 2012
    Posts
    85
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Awesome! I'll try it out and get you some proggies.

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

    Default

    great, nice to see this moved out of "first scripts" and into agility. Also glad you fixed the walking bugs/ obstacle detection. Can't wait to use this when I get Skoll boots

  4. #4
    Join Date
    Nov 2011
    Location
    Puerto Rico
    Posts
    905
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Gonna use Skool boots hope it gets me few levels 70atm but looking foward to getting 99 with this script 50k xp an hour is good especially when im not the one doing it

  5. #5
    Join Date
    Aug 2009
    Location
    Albuquerque, New Mexico
    Posts
    48
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Sweet Script, hoping to get 99 agility with this dude!
    Ku Ku Ca Chu!

  6. #6
    Join Date
    Feb 2011
    Location
    Wisconsin
    Posts
    398
    Mentioned
    1 Post(s)
    Quoted
    10 Post(s)

    Default

    Thanks guys post proggies and any bugs that you find!

  7. #7
    Join Date
    Dec 2011
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    [Error] (202:10): Unknown identifier 'SPS_WindWalk' at line 201
    Compiling failed.

    i got this error with the previous versions aswell, is it just me?

    EDIT: ok so i tried removing this little part of the script starts up fine, then it crosses the log brilliantly, then either stops dead or keeps crossing the log over and over
    Last edited by Recondyt; 01-20-2012 at 02:49 AM.

  8. #8
    Join Date
    Feb 2011
    Location
    Wisconsin
    Posts
    398
    Mentioned
    1 Post(s)
    Quoted
    10 Post(s)

    Default

    Use the search function WindWalking

  9. #9
    Join Date
    Jan 2012
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Mine gets stuck in a loop going on the log. It walks across the log, stops and runs back to the log doing it over and over.

  10. #10
    Join Date
    Feb 2011
    Location
    Wisconsin
    Posts
    398
    Mentioned
    1 Post(s)
    Quoted
    10 Post(s)

    Default

    Quote Originally Posted by parker yo View Post
    Mine gets stuck in a loop going on the log. It walks across the log, stops and runs back to the log doing it over and over.
    make sure you have your chat set to all instead of filter

  11. #11
    Join Date
    Jan 2012
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Thumbs up

    Quote Originally Posted by RyGuy View Post
    make sure you have your chat set to all instead of filter
    Thank you, This was exactly the problem. Time to get a real proggy

  12. #12
    Join Date
    Jan 2012
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i keep getting this error when trying to run it : [Error] (202:10): Unknown identifier 'SPS_WindWalk' at line 201
    Compiling failed.

    Ok working now with windwalking
    Last edited by L00000000000L; 01-20-2012 at 09:13 AM.

  13. #13
    Join Date
    Dec 2011
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by RyGuy View Post
    Use the search function WindWalking
    thanks ryguy works PERFECTLY, amazing script!

  14. #14
    Join Date
    Dec 2011
    Posts
    24
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    [Error] (202:10): Unknown identifier 'SPS_WindWalk' at line 201
    Compiling failed.

    EDIT : Script is still bugy on the log, keeps clicking on the minimap instead of on the log self.
    Last edited by owner5; 01-20-2012 at 04:37 PM.

  15. #15
    Join Date
    Nov 2011
    Posts
    31
    Mentioned
    0 Post(s)
    Quoted
    13 Post(s)

    Default

    wat to do with windwalking?
    i have the error too

  16. #16
    Join Date
    Dec 2011
    Posts
    392
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by owner5 View Post
    [Error] (202:10): Unknown identifier 'SPS_WindWalk' at line 201
    Compiling failed.

    EDIT : Script is still bugy on the log, keeps clicking on the minimap instead of on the log self.
    Quote Originally Posted by translateservererror View Post
    wat to do with windwalking?
    i have the error too
    You have to go here http://villavu.com/forum/showthread....light=windwalk

    Your going to need to edit your sps.simba file

  17. #17
    Join Date
    Jan 2012
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Guys if you read through the posts, the problem has already been answered.

  18. #18
    Join Date
    Jan 2012
    Posts
    137
    Mentioned
    0 Post(s)
    Quoted
    27 Post(s)

    Default

    Grats on getting it to normal scripts. will post a proggy.

    Edit: I get a good 47k xp an hour or so, but the bot will still get stuck on the first branch every now and then. It walks slightly above it to the east and then clicks around on the ground. This is usually caused when the bot climbs the eastmost net and ends up above the branch instead of in front of it.
    Last edited by Destined2bGreat; 01-20-2012 at 06:35 PM.

  19. #19
    Join Date
    Feb 2011
    Location
    Wisconsin
    Posts
    398
    Mentioned
    1 Post(s)
    Quoted
    10 Post(s)

    Default

    Quote Originally Posted by Destined2bGreat View Post
    Grats on getting it to normal scripts. will post a proggy.

    Edit: I get a good 47k xp an hour or so, but the bot will still get stuck on the first branch every now and then. It walks slightly above it to the east and then clicks around on the ground. This is usually caused when the bot climbs the eastmost net and ends up above the branch instead of in front of it.
    Thanks for trying it out! I'm heading to track practice but i'll take a look at it when i get back.

  20. #20
    Join Date
    Dec 2011
    Posts
    24
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Can someone give me the correct sps.simba file? =S

  21. #21
    Join Date
    Dec 2011
    Posts
    24
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    I got the file , keeps spamming the log on the minimap... didn't change anything.

  22. #22
    Join Date
    Feb 2011
    Location
    Wisconsin
    Posts
    398
    Mentioned
    1 Post(s)
    Quoted
    10 Post(s)

    Default

    It shouldn't spam the log on the minimap. The only time i have it set to click on the log is when it sees the water on the minimap. So after it runs over to the log, It should no longer click on the minimap because the water is out of view.

  23. #23
    Join Date
    Jan 2012
    Posts
    137
    Mentioned
    0 Post(s)
    Quoted
    27 Post(s)

    Default

    I just wish i didn't have to babysit it =\. Messes up every 15-45 minutes.

  24. #24
    Join Date
    Jan 2012
    Location
    United States
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I need someones help with setting this script up. Please add my MSN: Haro.der@hotmail.com I would greatly appreciate it
    ~Haro Der

  25. #25
    Join Date
    Aug 2007
    Location
    Colorado
    Posts
    7,421
    Mentioned
    268 Post(s)
    Quoted
    1442 Post(s)

    Default

    I'm gonna use this while my Skoll Boots are still available. I'll let ya know how it runs for me!

    Edit:
    Here's my slightly modified version. Pre-mouse movement for speed increases as well as my own moving check. Also this script does not require any SPS. Maybe this sparks some ideas for you, RyGuy?

    Simba Code:
    program AdvancedGnomeAgility;
    //////////////////////////WRITTEN BY RYGUY//////////////////////////////

    ////////////////////////////VERSION 0.80////////////////////////////////
    {$DEFINE SMART}
    {$DEFINE SRL5}
    {$i SRL/srl.simba}

    var
      Log, Branch1, Branch2, Post, Hurdle, TimeBegan, StartingXP: integer;
      aFound: extended;

    ///////////////////////////PLAYER SETUP//////////////////////////////////
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';
      Players[0].Active:=True;
    end;
    ////////////////////DO NOT TOUCH BELOW THIS LINE/////////////////////////



    procedure SetDTMs;
    begin
      Log := DTMFromString('mlwAAAHicY2dgYFBjZGDgB2JpINYEYkUgVgViHSDeDJQ/BsSbgHgVEM8A4lNAvA2IixwFGHLiFRkKHPgZ0qz4GLwtxRnCnaQYcuz4GdiA8rgwIx4MBQAxWws7');
      Branch1 := DTMFromString('mbQAAAHicY2VgYNBjZGBQAmILIPYC4kQgngMUnwnEM5BwfqgSQ02KOUNxjDFDfqQhmOYHinOhYUYsGAwAfOwJcQ==');
      Branch2 := DTMFromString('mKgEAAHic42NgYOACYm4g9gRiOyA2YYAAViDmAWIZIBYBYkGoOnaoHBsQS0BpmBl8UD0wdSA5RgYEAOlL91dg8LaWYkjykWdI8JID4yhXGYYYd1mGOA85huwgJYbMAEWGwnBlhvxQCAbp4QDqJQczkolRAQDIyg2R');
      Hurdle := DTMFromString('mQwAAAHicY2ZgYJBlZGBQBmJtIK4A8quAuBKI/95dwfDr9jKG7zeWMHAB+TDMiISBAABdxglu');
      Post := DTMFromString('mQwAAAHicY2aAAA4g5oRiaajYxj4/hu6uVoaSknwGNiAfhhmRMBAAAKdUBMw=');
    end;



    procedure FreeDTMs;
    begin
      FreeDTM(Log);
      FreeDTM(Branch1);
      FreeDTM(Branch2);
      FreeDTM(Hurdle);
      FreeDTM(Post);
    end;



    procedure Report;
    var
      Exp, ExpHr, TimeRan: integer;
    begin
      TimeRan := (1+((GetSystemTime - TimeBegan) / 1000));
      Exp := (GetXPBarTotal - StartingXP);
      ExpHr := Round((Exp * 3600) / (TimeRan));
      WriteLn('Time: ' + TimeRunning);
      WriteLn('We have gained ' + IntToStr(Exp) + ' Agility Experience!');
      WriteLn('We are gaining ' + IntToStr(ExpHr) + ' Agility Experience per Hour!');
    end;




    procedure AntiBan;
    begin
      if not(LoggedIn)then
      Exit;
      FindNormalRandoms;
      LevelUpEx(True, True);
      case Random(300)of
        0: HoverSkill('Agility', false);
        1: PickUpMouse;
        2: RandomMovement;
        3: RandomRClick;
      end;
    end;

      Function IsMoving_F: Boolean;
      begin
        Result := PixelShift(IntToBox(MMCX-30, MMCY-30, MMCX+30, MMCY+30), 200) > 200;
      end;

    procedure LogBalance;
    var
      x, y: integer;
    begin
      repeat
        if FindDTMRotated(Log, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
        begin
          WriteLn('Found Log');
          Mouse(x, y, 5, 5, True);
          MMouse(410, 165, 15, 15);
          Wait(500+random(50));
        end;
      until(IsMoving_F);
        while(IsMoving_F) do
          WaitNone;
          AntiBan;
    end;



    procedure ObstacleNet;
    var
      x, y: integer;
    begin
      x := MSCX;
      y := MSCY;
      if FindObjTPA(x, y, 466484, 5, 1, 50, 150, 200, ['over'])then
      begin
        ClickMouse2(True);
        MMouse(300, 155, 15, 15);
        WriteLn('Found Net');
        AntiBan;
        Wait(3800+random(100));
      end;
    end;



    procedure TreeBranch1;
    var
      x, y: integer;
    begin
      x := MSCX;
      y := MSCY;
      FindDTMRotated(Branch1, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)
      Mouse(x, y, 4, 4, True);
      if DidRedClick then
      begin
        WriteLn('Found Branch 1');
        AntiBan;
        SetAngle(SRL_ANGLE_LOW);
      end;
    end;



    procedure TreeBranch2;
    var
      x, y: integer;
    begin
      if FindDTM(Branch2, x, y, MSX1, MSY1, MSX2, MSY2)then
      Mouse(x, y, 4, 4, True);
      MMouse(345, 50, 15, 15);
      WriteLn('Found Branch 2');
      AntiBan;
      Wait(3000+random(50));
    end;



    procedure Signpost;
    var
      x, y: integer;
    begin
      if FindDTMRotated(Post, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
      Mouse(x, y, 4, 4, True);
      MMouse(540, 24, 6, 6);
      WriteLn('Found Signpost');
      AntiBan;
      Wait(3100+random(300));
    end;



    procedure Pole;
    var
      x, y: integer;
    begin
      ClickMouse2(True);
      Wait(100+random(50));
      if FindObjTPAMulti(x, y, [4541520, 2566185], 4, 1, 220, 7, 200, ['Swing'])then
      ClickMouse2(True);
      MMouse(270, 120, 15, 15);
      WriteLn('Found Pole');
      AntiBan;
      Wait(12000+random(100));
    end;



    procedure Barrier;
    var
      x, y, T: integer;
    begin
      if FindDTM(Hurdle, x, y, MSX1, MSY1, MSX2, MSY2)then
      begin
        MMouse(x, y, 3, 4);
        ClickMouse2(True);
        if DidRedClick then
        begin
          WriteLn('Found Barrier');
          FFlag(0);
          While IsMoving_F do
            Wait(1);
          AntiBan;
          MMouse(583, 83, 4, 4);
          Wait(RandomRange(2135, 2890));

          MarkTime(T);
          repeat
            FindNormalRandoms;

            if (TimeFromMark(T) > 6000) then
              Exit;

            if FindColoredAreaTolerance(x, y, 10129284, MMX1, MMY1, MMX2, MMY2, 100, 10) then
              break;
          until(false)

        end;
      end;
    end;

    procedure BackToLog;
    begin
      repeat
        FindNormalRandoms;
        ClickMouse2(True);
        Wait(RandomRange(750, 1125));
      until (IsMoving_F);

      Report;

      MakeCompass('E');
      SetAngle(SRL_ANGLE_HIGH);
      While IsMoving_F do
        Wait(1);
    end;

    procedure WhereAreWe;
    var
      x, y: integer;
    begin

      if FindDTMRotated(Log, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
      begin
        WriteLn('Trying Balence');
        LogBalance;
      end;

      if FindBlackChatMessage('other')then
      begin
        WriteLn('Trying Net');
        ObstacleNet;
      end;

      if FindBlackChatMessage('netting')then
      begin
        WriteLn('Trying First Branch');
        TreeBranch1;
      end;

      if FindBlackChatMessage('above')then
      begin
        WriteLn('Trying Second Branch');
        TreeBranch2;
      end;

      if FindDTMRotated(Post, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
      begin
        WriteLn('Trying Signpost');
        Signpost;
      end;

      if FindColoredAreaTolerance(x, y, 6270424, MSX1, MSY1, MSX2, MSY2, 600, 5)then
      begin
        WriteLn('Trying Pole');
        Pole;
      end;

      if FindDTM(Hurdle, x, y, MSX1, MSY1, MSX2, MSY2)then
      begin
        WriteLn('Trying Barrier');
        Barrier;
      end;

      if FindColoredAreaTolerance(x, y, 10129284, MMX1, MMY1, MMX2, MMY2, 100, 10)then
      begin
        WriteLn('Trying Walk Back To Log')
        BackToLog;
      end;

    end;



    begin
      Smart_Server := 86;
      Smart_Members := True;
      Smart_Signed := True;
      Smart_SuperDetail := False;
      SetUpSRL;

      ActivateClient;
      DeclarePlayers;
      LoginPlayer;

      TimeBegan := GetSystemTime;
      ToggleXPBar(True);
      StartingXP := (GetXPBarTotal);
      WriteLn('We are starting with ' + IntToStr(StartingXP) + ' xp');

      ClickNorth(SRL_ANGLE_HIGH);
      MakeCompass('E');

      repeat
        SetDTMs;
        WhereAreWe;
        FreeDTMs;
      until(false);
    end.

    105-110k xp/hour using Skoll boots.
    Last edited by Flight; 01-21-2012 at 08:37 AM.

    Current projects:
    [ AeroGuardians (GotR minigame), Motherlode Miner, Blast furnace ]

    "I won't fall in your gravity. Open your eyes,
    you're the Earth and I'm the sky..."


Page 1 of 4 123 ... LastLast

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
  •