View Poll Results: What should I add next?

Voters
34. This poll is closed
  • Snazzy form

    8 23.53%
  • Log option if too many players around

    5 14.71%
  • Play a sound if it gets stuck

    21 61.76%
Page 6 of 13 FirstFirst ... 45678 ... LastLast
Results 126 to 150 of 321

Thread: Advanced Barbarian Agility

  1. #126
    Join Date
    Aug 2006
    Location
    USA
    Posts
    354
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by grumpy ruby View Post
    rice can i have a look see at your tweaked script please as im working on getting mine better up to 51k xp an hour now
    i can give you advice, like adjust the sleep time, fix minor clicking bugs, and fix some DTMs

  2. #127
    Join Date
    Dec 2011
    Location
    USA
    Posts
    362
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by rice View Post
    =) i dont know if you seen me or not but i been tweak your script aswell lol.
    Quote Originally Posted by corretje View Post
    thanks! i got 99 agility now by using Advancaed Barbarian Agility and Ryguy's ApeToll course!

    gf jagex

    Rice, If you want to post your edited one here, you can. this Project has many people involved, and adding another isn't a problem.

    ConGrats CorrectJE~

    Oh, and a thought keeps occurring to me, that I should somehow make a script to do the talent scout challenges, do you guys think its worth it? It might get your character stuck in a loop or something. I was just wondering if it was worth the headache.
    Last edited by JN13; 03-11-2012 at 11:40 PM.
    Currently: Very busy
    Future Goals: finish nursing school, RS later.

  3. #128
    Join Date
    Aug 2006
    Location
    USA
    Posts
    354
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok, I didn't know if you would get offended if i posted some of my fixes for it

  4. #129
    Join Date
    Dec 2011
    Location
    USA
    Posts
    362
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thats fine with me~ I'm still learning, and I am not opposed to getting help
    Currently: Very busy
    Future Goals: finish nursing school, RS later.

  5. #130
    Join Date
    Aug 2006
    Location
    USA
    Posts
    354
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Simba Code:
    3:
      begin
        writeln('Going To Jump');
        MakeCompass('280');
        sleep(100 + random(50));
       if FindColorSpiralTolerance(x, y, 9545384, 0, 0, 232, 189, 14) then
      begin
          MMouse(x, y, 0, 0);
          wait(10)
          clickmouse2(true);
          flag;
          sleep(3900 + random(50));
          sleepWhileMoving();
          ClickNorth(SRL_ANGLE_HIGH);
        end;
      end;

    This is my fix for it. As for 4. i just removed it

  6. #131
    Join Date
    Dec 2011
    Location
    USA
    Posts
    362
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ah. I thought of doing this! off to try it

    looks great, works great, Added~ TY man.

    Edit: guy was wearing white... totally clicked on him a ton. maybe make it a DTM?
    Last edited by JN13; 03-12-2012 at 01:34 AM.
    Currently: Very busy
    Future Goals: finish nursing school, RS later.

  7. #132
    Join Date
    Aug 2006
    Location
    USA
    Posts
    354
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    DTM is a good idea too, my end else is a dtm too

  8. #133
    Join Date
    Dec 2011
    Location
    USA
    Posts
    362
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Im also experimenting with your method for 15
    Currently: Very busy
    Future Goals: finish nursing school, RS later.

  9. #134
    Join Date
    Aug 2006
    Location
    USA
    Posts
    354
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    there is too many similar colors if your gonna do that for 15 i say do a DTM

  10. #135
    Join Date
    Dec 2011
    Location
    USA
    Posts
    362
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ya, and then it becomes a nightmare because the compass must be exactly right. its doable though.

    Its in testing, It works well, but sometimes it misclicks.
    Last edited by JN13; 03-12-2012 at 02:38 AM.
    Currently: Very busy
    Future Goals: finish nursing school, RS later.

  11. #136
    Join Date
    Aug 2006
    Location
    USA
    Posts
    354
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    let me know if you need some help. my fixes are running for 6hrs+

  12. #137
    Join Date
    Dec 2011
    Location
    USA
    Posts
    362
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    agreed! the rope fix is wayyyyy to hard to do. it misclicks more than succeeds.
    Currently: Very busy
    Future Goals: finish nursing school, RS later.

  13. #138
    Join Date
    Aug 2006
    Location
    USA
    Posts
    354
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    your first procedure for it was fine with the sps and loopback.

  14. #139
    Join Date
    Dec 2011
    Location
    USA
    Posts
    362
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Just watched the script successfully do a maze and continue, I am happy leaving it over night now
    Currently: Very busy
    Future Goals: finish nursing school, RS later.

  15. #140
    Join Date
    Feb 2012
    Location
    Toronto Ontario, Canada
    Posts
    331
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by johnnimms13 View Post
    Just watched the script successfully do a maze and continue, I am happy leaving it over night now
    a maze..as in an old man maze?!
    118/120 Dungeoneering

  16. #141
    Join Date
    Aug 2006
    Location
    USA
    Posts
    354
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by ashihtaka View Post
    a maze..as in an old man maze?!
    Yea, Simba random Developers has updated a lot of randoms. I believe there are only 3 they have left to fix but they do an excellent job in fixing and updating randoms.

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

    Default

    Quote Originally Posted by rice View Post
    let me know if you need some help. my fixes are running for 6hrs+
    I've runned my edited versions for more then 12 hours at saturday and sunday by using smart manager, without it getting stucked. Only had 2-3 randoms in 24 hour lol, SRL fixxed 2 of them had to do one random myself.

    @ Johnnimms13 thanks, btw my name's corretje xD

  18. #143
    Join Date
    Dec 2011
    Location
    USA
    Posts
    362
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    did i misspell it somewhere :0 if you guys want to post your edits i'm all ears

    BTW: it needs 4 to stay as a failsafe, a timer between the plate and ledge, and a DTM for the plate is needed.

    The next update I'm going to do is fix the report to run with the Script manager and save reports as text files.
    Last edited by JN13; 03-12-2012 at 02:02 PM. Reason: Engrish iz Hrd
    Currently: Very busy
    Future Goals: finish nursing school, RS later.

  19. #144
    Join Date
    Jan 2012
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Simba Code:
    program AdvanceBarbarianAgility;
    {$DEFINE SMART}
    {$i srl/srl.simba}
    {$i sps/sps.simba}

    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                                     Developer Log:

                                Original Author: Anyhow
                               Rewritten by: Failed4life
                                      Johnnimms13


                  A hattip to [Nathan] for his skeleton of this script
    --------------------------------------------------------------------------------
                                    Version History:

      0: Original by Anyhow
      v1.0 - Initial Release
      v1.01 - DTMs added, antiban fixed
      v1.02 - Progress Report added! Thanks RyGuy for the help :)
      v1.021 - Pie Support Added!
      v1.022 - Bug fixes and SMART Paint added
      v1.023 - New gap DMT, Pie Toggle Switch added
      v1.03 - Customizable Hp checker, logs out if Hp is low
      v1.031 - Bug Fixes
      v1.4 - Code Overhaul
      v1.05 - faster leaner code and more randomness. TY FootballJDS
      v1.05a - more failsafes.
      v1.06 -  Multiple DTM's and better failsafes.
      v1.07 - Standards, StatsGuise, Breaks, Report, ShortCuts, better Pie & Random Support.
     -------------------------------------------------------------------------------

                                      Instructions:
      Use the Setup and position your player in the agility course by the ropes.

      If you wish to use Summer Pies to boost your Agility level, have them in your
      inventory.

      Note:  This Script requires atleast 85 agility to run with boosts, 90 to run
             Without boosts, and 93+ to run without mistakes.

          I don't recommend you run this with 85 without constant supervision.


    ---------------------------------------SETUP-----------------------------------}

    const
    //User Options
      SERVER = 23;     //Replace with desired server number
      Username = '';   //Enter your Username
      Password = '';   //Enter your Password
      Nickname = '';
      mmdebug = 0; //Enter 3-4 digits of your Username

      TakeBreaks = True;     //Will you take breaks?
      WhenBreakMin = 45;     //won't take a break before this (In Minutes)
      WhenBreakMax = 120;    //Maximum time before a Break (In Minutes)

      ar = 1;          //AntiRandom switch, turn of at your own risk  (0 to disable)
      PieLevel = 0;    //What level would u like to eat a summer pie at? (0 to disable)
      PLogOut = False; //True logs out when summer pies are gone
      HP = 20;         //LogsOut if below this percentage of HP

    var
      x,y:LongInt;
      TimeBegan, Exp, NorthFace, loads, BreakTime,
      StartingXP, LedgeCount, PF, LogTime:Integer;
      aFound:Extended;
      myPos: TPoint;
      DTM: array [0..11] of integer;

    var // debug vars please run, post proggies, support the script :)
    RF, RoF, SC, LC, S2, S3, PC: Integer;

    procedure AntiBan;
    begin
      if not(LoggedIn)then
        Exit;
    case 20 of
      0: HoverSkill('Agility', false);
      1: PickUpMouse;
      2: RandomMovement;
      3: RandomRClick;
    end;
    end;
    procedure LogPlayer;
    begin
      WriteLn('********************************************************************');
      WriteLn('Thank you for using Abba!  Due to something wrong we are logging out');
      WriteLn('         ABBA V 1.07  Johnnimms13, Failed4Life, Anyhow ' + ToStr(NorthFace));
      WriteLn('********************************************************************');
      Logout;
      TerminateScript;
    end;
    procedure SetDTMs;
    begin
      DTM[0] := DTMFromString('mggAAAHicY2NgYMhlhuAQIK4D4jggbgHiNYwMDHsYIfRaIN4AxOuAWE2Jm0FSjJ2hujgOjPU1pcA0P9AsbJgRB4YAAPyFDAs=');
      DTM[1] := DTMFromString('mbQAAAHicY2VgYPgCxA+A+D2U/R+I+5gYGCYAcS0QLwbibiBeNn0Cg7m2KkNajDMc8wPVomNGLBgMAOHvDUI=');
      DTM[2] := DTMFromString('mAAEAAHic42FgYNjNxMAwGYiXA/FXIH4IxFeBuBOIhZgZGL4B6Q9A/BuIs4D8RkYGhhQgdgbiKUCcAcT2QDwZiOuAuBQqnwDEfCD5OFeGcCdpBnsjZYZIH3UI302NIS3GBSjGyeBmwcVgY8DBEOutyeBiqMbAD3QTKZiRRIwMACJAFwk='); //DTMFromString('m6wAAAHic42ZgYOgF4gQgngrEX4GYjZGBoRJI7wViTiDbDEinAfFNILZhYmBQBmJmIOYHYncgFgRiRiA2AeJwIL7PCJGP9tVgsNLjYEiLcWao71nGEOlnCGYn+mkxRPsYgdmxIXZgPj/QbGIxIwkYCQAA6qUSjQ==');
      DTM[3] := DTMFromString('mPwEAAHic42dgYHgMxIeA+BUQXwfis0D8B4ifA/E7IL4MxJ+BWIqRgeERkH4DxNJA9jkg3QCkc4C4AIgzgbgbiDuBuAOImxkh8jVAnADEYUC8AohXQbGplixDiLM+Q06YDUNWiDWDra4Ug6m6OIOtgRKDkaoYGFtpSzKkxTgzhDtJMbjbiTL4uSkxeDqIMfAD7SYXM1KA0QAApVUd/A==');
      DTM[4] := DTMFromString('mlwAAAHicY2dgYDjCxMBwCIinA/FTID4AxC+BeB0QSzMyMPwFqlEE0m5AbA7Er4B8diB9aO8KhrJkJ4aiBAeGkkRHhivndzCkhDszZMQHMPAD1eDCjHgwFAAAHCMSZQ=='); //DTMFromString('mbQAAAHicY2VgYOgD4kogXgXEM4G4BYj3AvERID4GZe8B4jvX9jG0FXoz9JUHgOmuEl8GfqA4OmbCgsEAAPGVDn0=');
      DTM[5] := DTMFromString('mlwAAAHicY2dgYLjHxMCwBojPAvFOIH4BxAeA+D0QqzBCMCcQywGxHhC7A/E/oL7mPC+GvvIAhr3zsxg6i30ZFnZEM1w4tYWhLNmJgR8ojwsz4sFQAAAOWBKh'); //DTMFromString('mlwAAAHicY2dgYJjJyMDgBcT7gXg1EHcCcQ0Q7wXiRiDuB+JnQNwGxM1A3APEE4H40Z0jDMEpugx+NhIMMxvDGdoKfRi6S/0Z1k9JZuAHmosLM+LBUAAA9ScSYg==');
      DTM[6] := DTMFromString('mlwAAAHicY2dgYKhhZGCIAuLFQJwJxEFAHAnE5UCcDMRaUDofiL2BOA6IbYG4orSIYev6CoZIP2uGvBhbBidTHYboABuG7TPTGPiB5uLCjHgwFAAAQUIOMw==');
      DTM[7] := DTMFromString('mwQAAAHic42RgYJjKyMDQCMTVQDwXiHcA8SIgngjEi4G4BYhToTgBiKcD8RQgXgnETlCsB8QBbqZgXFtdwRDrLsMQ4KDMkBzlxGBvpMxga6DEkOhnxsAPtI8QZiQCwwEAtkIRHA==');
      DTM[8] := DTMFromString('m6wAAAHic42ZgYHBkYmBQAuI9jAwMl4DYGMjmBGIhJgj7IFDsIhBvA+IyIL4GxE+A2BGItYG4FIgFgVgLqPYPkH4IxMeAONzfmkFJToqBj4+Xwd1SgSHcWZohLtSewc9GgiHURY0h2FmVwcdWCYz5ge4gFjOSgJEAAGFaEp8=');
      DTM[9] := DTMFromString('m1gAAAHic42JgYPgNxO+AmJ+RgeEJkOYF0h+gYqxA9h8ovRlIXwDiy0A8CYinAfFWIF4IxAuAeB8QbwTiikQXBj8HCTAOd5ZmiAu1ZyiLd2aYXRPBML0qjKEoxhHM5wfZSQRmJBIjAAAQ1BeE');
      DTM[10] := DTMFromString('m6wAAAHic42ZgYFjAyMDgC8T2QDwJiOuAeDoQqwLxfCCOBuIjQHXaQPobkF4GxJ+A2B3IZwTi20B2KpDeBqRvAvF8IFYB8kN8LBhczNQYvG24GWysLMH8yEBrBj5eXgZPKwWGtBgXMB3uJM3AD9RDLGYkASMBAC+fE7E=');
      DTM[11] := DTMFromString('mggAAAHicY2NgYPgFxD+B+DoQrwPifUC8EojvMTIwbALi+0B8FIiZmBgYpgDppdP6GZL8dRhMNJUZarqWMzT1LGeI9TdlwAUYcWAIAACXJRAn');
    end;
    (*procedure FreeDTMs; //Thank you Footballjds
    var
      i, TempInt :integer;
    begin
      TempInt := High(DTM);
      for i := 0 to TempInt do FreeDTM(DTM[i]);
    end;  *)


    procedure StatsGuise(wat:String);
    begin                                    //Ty YoHoJo
      Status(wat);
      Disguise(wat);
    end;

    procedure Report;
    begin
      ClearDebug;
      Exp := (GetXPBarTotal - StartingXP);
      WriteLn('******************************************************************');
      WriteLn('      AdvancedBarBarianAgility v1.07  by Johnnimms13 & Co.');
      WriteLn('Time: ' + TimeRunning + '  Laps ' + IntToStr(Loads));
      WriteLn('We have gained ' + IntToStr(Exp) + ' Agility Experience!');
      WriteLn('******************************************************************');
      WriteLn('Debug Stats:');
      WriteLn('Blind Rope Failure: ' + IntToStr(Rf));
      WriteLn('Total Ledge Failures: ' + IntToStr(LC));
      WriteLn('First Spring DTM Failure: ' + IntToStr(S2));
      WriteLn('Second Spring DTM Failure: ' + IntToStr(S3));
      WriteLn('Times Clicked Pole over laps: ' + IntToStr(PC) + '/' + IntToStr(Loads));
      WriteLn('Roof Failure: ' + IntToStr(RoF));
      WriteLn('SPS Start Count over Laps: ' + IntToStr(SC) + '/' + IntToStr(Loads));
      WriteLn('******************************************************************');
    end;

    function OnPole: Boolean;
    begin
      If FindColorTolerance(x, y, SRL_BlackColor, 627, 82, 627, 82, 15) then
        result := True;
    end;
    procedure AntiRandoms;
    begin
      if ((not LoggedIn) or (ar = 0) or (OnPole)) then
        Exit;
      FindNormalRandoms;
      AntiBan;
    end;

    procedure ResetBreakTimer;
    begin
      BreakTime := GetSystemTime + RandomRange((WhenBreakMin) * 60000, (WhenBreakMax) * 60000);
    end;
    procedure TakeBreak;
    var                                         //ty Inception
      H, M, S, T, BreakFor: Integer;
    begin
      if (GetSystemTime >= BreakTime) and TakeBreaks then
      begin
        Logout;
        BreakFor := RandomRange(10 * 60000, 25 * 60000); // Between 10-25 minutes
        ConvertTime(BreakFor, H, M, S);
        Writeln('Break for: ' + IntToStr(M)+ 'm:' + IntToStr(S)+ 's');
        MarkTime(T);
        Repeat
          Wait(1000);
        until (BreakFor < TimeFromMark(T))
        LogInPlayer;
        ResetBreakTimer;
        Wait(4000);
        FindNormalRandoms;
      end;
    end;

    function mmBlack:Boolean;
    var blackSpot : array [0..7] of TPoint;
    var color : array [0..7] of Integer;
    var i,kk,res:Integer;
    begin

      result:= false;
      blackSpot[0]:= Point(587,43);
      blackSpot[1]:= Point(575,112);
      blackSpot[2]:= Point(577,115);
      blackSpot[3]:= Point(672,122);
      blackSpot[4]:= Point(627,139);
      blackSpot[5]:= Point(611,134);
      blackSpot[6]:= Point(622,152);
      blackSpot[7]:= Point(622,152);

      color[0]:= 512;
      color[1]:= 393990;
      color[2]:= 198400;
      color[3]:= 65537;
      color[4]:= 131072;
      color[5]:= 1797;
      color[6]:= 459782;
      color[7]:= 328705;

      res := 0;
      for i := 0 to 7 do
        begin
        for kk := 0 to 7 do
          begin
            if(FindColorTolerance(x,y,color[kk],blackSpot[i].x,blackSpot[i].y,blackSpot[i].x,blackSpot[i].y,7)) then
              begin
              res := res + 1;
              //debug
              if mmdebug = 1 then
                writeln('i = ' + inttostr(i) + ' kk = ' + inttostr(kk));
              end;
           end;
        end;

      if(res > 7) then
        result:= true;
    end;

    function Wfloor:Integer;


    begin
      result:= 99;

      if((FindColorTolerance(x,y,2247007,633,56,633,56,15) or
          FindColorTolerance(x,y,2247007,629,52,629,52,15) or
          FindColorTolerance(x,y,2247007,628,60,628,60,15) or
          FindColorTolerance(x,y,2247007,634,51,634,51,15) or
          FindColorTolerance(x,y,2247007,633,60,633,60,15) or
          FindColorTolerance(x,y,2247007,629,49,629,49,15)) and
          FindColorTolerance(x,y,395009,634,84,634,84,15) and
         (mmblack())) then
        result:= 10;

      if((FindColorTolerance(x,y,1655633,615,84,615,84,15) or
          FindColorTolerance(x,y,1521998,621,57,621,57,15)) and
          (mmblack())) then
        result:= 11;

      if((FindColorTolerance(x,y,1853268,630,113,630,113,15) or
         FindColorTolerance(x,y,1853268,636,116,636,116,15)) and (mmblack())) then
        result:= 12;

      if(FindColorTolerance(x,y,4873321,530,184,530,184,15) and (mmblack())) then
        result:= 13;

      if((FindColorTolerance(x,y,2180188,621,113,621,113,15) or
          FindColorTolerance(x,y,2180188,625,114,625,114,15) or
          FindColorTolerance(x,y,2180188,627,112,627,112,15) or
          FindColorTolerance(x,y,2180188,622,113,622,113,15)) and
        FindColorTolerance(x,y,393218,643,114,643,114,15) and
        FindColorTolerance(x,y,393218,632,114,632,114,15) and
        not(FindColorTolerance(x,y,4873321,530,184,530,184,15))and
        (mmblack())) then
        result:= 14;

    (*function Wfloor:Integer;

    begin
      result:= 99;

      if((FindColorTolerance(x,y,2247007,633,56,633,56,15) or
        FindColorTolerance(x,y,2247007,629,52,629,52,15) or
        FindColorTolerance(x,y,2247007,628,60,628,60,15) or
        FindColorTolerance(x,y,2247007,634,51,634,51,15) or
        FindColorTolerance(x,y,2247007,633,60,633,60,15) or
        FindColorTolerance(x,y,2247007,629,49,629,49,15)) and
        FindColorTolerance(x,y,395009,634,84,634,84,15) and
        (PercentBlackMM > 95)) then
      result:= 10;

      if((FindColorTolerance(x,y,1655633,615,84,615,84,15) or
        FindColorTolerance(x,y,1521998,621,57,621,57,15)) and
        (PercentBlackMM > 95)) then
      result:= 11;

      if((FindColorTolerance(x,y,1853268,630,113,630,113,15) or
        FindColorTolerance(x,y,1853268,636,116,636,116,15)) and (PercentBlackMM > 95)) then
      result:= 12;

      if(FindColorTolerance(x,y,4873321,530,184,530,184,15) and (PercentBlackMM > 95)) then
      result:= 13;

      if((FindColorTolerance(x,y,2180188,621,113,621,113,15) or
        FindColorTolerance(x,y,2180188,625,114,625,114,15) or
        FindColorTolerance(x,y,2180188,627,112,627,112,15) or
        FindColorTolerance(x,y,2180188,622,113,622,113,15)) and
        FindColorTolerance(x,y,393218,643,114,643,114,15) and
        FindColorTolerance(x,y,393218,632,114,632,114,15) and
        not(FindColorTolerance(x,y,4873321,530,184,530,184,15))and
        (PercentBlackMM > 95)) then
      result:= 14;

    end;    *)

             end;

    function distanceTo(var point:TPoint): Extended;
      var myLoc:TPoint;
    begin
      myLoc:= SPS_GetMyPos();
      Result:= Distance(point.x, point.y, myLoc.x, myLoc.y);
    end;

    procedure sleepWhileMoving();
      var t:Integer;

    begin
      t := 0;
      while((IsMoving) and (t < 7)) do
      begin
        StatsGuise('Sleeping '+tostr(t));
        sleep(250+random(5))
        t:=t+1;
      end;
    end;

    procedure EatPie;
      var SPie, HPie, x, y: integer;
    begin
    if PieLevel > 0 then
    begin

    SPie := DTMFromString('mlwAAAHicY2dgYPjIxMDwFoi/I9FfgPgDEL9kZGB4xgih3wPxYyB+B8SPgDhLTxGOK9JMGVJCdRiyovQZov00GPiB5uLCjHgwFAAAE+UTaw==');
    HPie := DTMFromString('mggAAAHicY2NgYHBhYmAwB2JHIHYCYmsg9gTiB0C5R0D8AojvAPFdIH4MxGGqUgyZkXoMEb7WDLkJtgwJQVoM5Rn+DPxAOWyYEQeGAAAW8Qy0');

    if GetSkillInfo('agility', True) < (PieLevel+1) then
    begin
      StatsGuise('below 91 agility, trying to find pie');
      if ExistsItemDTM(spie, x, y) then
      begin
        StatsGuise('found pie');
        mouse(x, y, 2, 2, true);
      end else
      if ExistsItemDTM(hpie, x, y) then
        begin
          StatsGuise('found 1/2 pie');
          mouse(x, y, 2, 2, true);
        end else
        begin
          StatsGuise('no pies!')
          if PLogOut = True then
        begin
          WriteLn('Logging out:  Logout When Pies is ON');
          logPlayer;
        end;
        end;
    end else
    begin
    StatsGuise('No Pie for you!');
    end;
    freedtm(SPie);
    FreeDtm(HPie);
    end;
    end;

    function getLocation(): integer;
      var First, Second, Third, Fourth: TPoint;
    begin
      result := 0;
      if (mmblack = true) then
      //if (blackmm > 96) then
        result := Wfloor()
      else
    begin
      First := Point(2045, 2430); //Beginning Point
      Second := Point(2045, 2445); //After swinging the rope
      Third := Point(2005, 2460);  //After log balancing
      Fourth := Point(1995, 2475);  //Before running up the wall

    if ((distanceTo(First) <= 6) and (myPos.y < 2435)) then
      begin
        result:=1;
        exit;
      end;

    if (distanceTo(Second) <= 7) then
      begin
        result:=2;
        exit;
      end;

    if (distanceTo(Third) <= 10) then
      begin
        result:=3;
        exit;
      end;

    if (distanceTo(Fourth) <= 10) then
      begin
        result:=4;
        exit;
      end;
    end;
    end;
    procedure handleObstacle(spot: integer);
    begin


      If NorthFace >= 10 then
        begin
          ClickNorth(SRL_ANGLE_HIGH);
          DecEx(NorthFace, 10);
        end;

      case spot of

      0:
       (*if FindDTMRotated(DTM[10], x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
      begin
        Mouse(x, y, 3, 3, True);
        StatsGuise('Walking to begin by DTM')
        sleepWhileMoving();
        exit;
        end; *)

        begin
        LedgeCount := 0;
        IncEx(SC, 1);
        StatsGuise('Walk to beginning');
        SPS_WalkToPos(Point(2045, 2430));
        sleepWhileMoving();
    end;




      1:
      begin
        begin
        StatsGuise('rope');
        if IsUpTextMultiCustom(['ope', 'wing']) then
          Begin
            ClickMouse2(true);
            sleep(2700+random(175));
            sleepWhileMoving();
            Report;
            exit;
          end else
        if FindDTMRotated(DTM[0], x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
          begin
            WriteLn('Blind Method Failed... Trying DTM (this happens Most of the time dont worry)');
            IncEx(RF, 1);
            Mouse(x, y, 3, 3, True);
            sleep(2300+random(175));
            sleepWhileMoving();
          end;
        end
      end;

      2:
      begin
        StatsGuise('log');
        if FindDTMRotated(DTM[1], x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) or FindDTMRotated(DTM[11], x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
          begin
            Mouse(x, y, 3, 3, True);
            sleep(1900+random(150));
            sleepWhileMoving();
            IncEx(NorthFace, 1);
          end;
      end;

      3:
      begin
        StatsGuise('Walking To plate');
        if FindDTMRotated(DTM[2], x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
        begin
          Mouse(x, y, 3, 3, True);
          sleep(200 + random(50));
          //sleepWhileMoving();
        end;
      end;

      4:
      begin
        StatsGuise('hitting plate');
           if FindDTMRotated(DTM[3], x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
            begin
              Mouse(x, y, 3, 3, True);
              sleep(6000+random(150));
              sleepWhileMoving();
            end
      end;

      10:
     begin
     begin
    MMouse(205, 120, 3, 3);
    wait(100 + random(25));
    StatsGuise('Climb up Ledge');
    if isUptextEx('all') then
    begin
    ClickMouse2(true);
    sleep(3300+random(150));
    sleepWhileMoving();
    exit;
    end else
    if FindObjEx(x, y, ['limb', 'up'], [3624802], 5, 40, 174, 78, 253, 247) then
    begin
    Mouse(x, y, 0, 0, True);
    sleep(3300+random(150));
    sleepWhileMoving();
    end;
    end
    end;

      11:
      begin
      begin
        case random(5) of
          1:
           mmouse(142, 177, 3, 3);
          2:
           mmouse(134, 192, 3, 3);
          3:
           mmouse(160, 192, 3, 3);
          4:
           mmouse(147, 202, 3, 3);
          5:
           mmouse(132, 210, 3, 3);
        end;

      wait(100 + random(25));

      if isuptext('pring') then
        begin
          StatsGuise('Firing Spring');
          clickmouse2(true);
          sleep(4500+random(150));
          sleepWhileMoving();
          exit;
        end else

      begin
        WriteLn('blind spring Click Failed... trying first DTM');
        if FindDTMRotated(DTM[4], x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
          begin
            IncEx(S2, 1);
            Mouse(x, y, 3, 3, True);
            sleep(4000+random(150));
            sleepWhileMoving();
          end else
            begin
            WriteLn('Second spring DTM failed... Trying second');
            if FindDTMRotated(DTM[5], x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
              begin
                IncEx(S3, 1);
                Mouse(x, y, 3, 3, True);
                sleep(4000+random(150));
                sleepWhileMoving();
              end;
             end;
      end;
      end;
      end;
      12:
      begin
        StatsGuise('Pole');
        if FindDTMRotated(DTM[7], x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
          begin
            Mouse(x, y, 0, 0, True);
            sleep(2500+random(150));
            sleepWhileMoving();
          end else

      begin
        writeln('Pole 2');
        if FindDTMRotated(DTM[6], x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
          begin
            Mouse(x, y, 0, 0, True);
            sleep(2500+random(150));
            sleepWhileMoving();
          end else
            begin

              If PF >= 10 then
                LogPlayer;

              IncEx(PF, 1);
              exit;
            end;
      end;
      IncEx(PC, 1);
      end;

      13:
      begin
        StatsGuise('Gap');
      case random(3) of
        1:
          MMouse(267, 176, 5, 5);
        2:
          MMouse(276, 176, 5, 5);
        3:
          MMouse(267, 162, 5, 5);
        end
      PF := 0;
      if isUptextEx('ump') then
        begin
          ClickMouse2(True);
          wait(3000+random(100));
        end else
          exit;
      end;

      14:
      begin
        StatsGuise('WEEEEEE!');
        IncEx(Loads, 1);
        MMouse(330, 178, 10, 10);
        wait(50 + random(50));

        if isUptextEx('oof') then
          begin
            ClickMouse2(True);
            Sleep(1300 + random(200));
            wait(2500+random(100));
          end;
      begin
        if FindDTMRotated(DTM[8], x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
          begin
          StatsGuise('ShortCut');
          Mouse(x, y, 1, 1, True);
          sleep(600+random(70));
          MMouse(255, 185, 5, 5);
          sleep(200+random(70));
          sleepWhileMoving();
          end;
      end;
      Report;
    end;
    end;
    MarkTime(LogTime);

    end;
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      Players[0].Name := Username;
      Players[0].Pass := Password;
      Players[0].Nick := Nickname;
      Players[0].Active := True;



    end;
    procedure LogMeIn;
    begin
      LoginPlayerToLob;
      OpenWorldScreen;
      SelectWorld(SERVER);
      LoginPlayer;
    end;

    {//////////////////////////////////Main Loop///////////////////////////////////}
    begin

    Smart_Server := SERVER;
    Smart_Members := True;

    SetupSRL;
    DeclarePlayers;
    SPS_Setup(RUNESCAPE_SURFACE, ['4_5','4_6']);

    TimeBegan := GetSystemTime;
    ToggleXPBar(True);
    StartingXP := (GetXPBarTotal);
    ResetBreakTimer;
     SetDTMs;
    if not(LoggedIn) then
      LogMeIn;
    while not(LoggedIn) do
      sleep(1000);
    ClickNorth(SRL_ANGLE_HIGH);
    while(true) do //Main loop
      begin
      MarkTime(LogTime);
      while not(LoggedIn) do
        LoginPlayer;
       // EatPie;  //comment this to speed up your script!  Disables pies.
        //TakeBreak;
        AntiRandoms;
        handleObstacle(getLocation());
        myPos := SPS_GetMyPos();
        if TimeFromMark(LogTime) > 100000 Then
          begin
            WriteLn('Idle Too Long');
            LogPlayer;
          end;

      end;
    end.

    Here it is, aint that fast 43k XP an hour but it is flawless. oh .. and i copy pasted the mmblack from another barbarian agility script.

  20. #145
    Join Date
    Mar 2012
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Okay, I am a total noob to Simba. This script looks great and would like to use it. When I download it and open it in Simba and run the scrip, my character just stands there. What should I do?

  21. #146
    Join Date
    Jan 2012
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by Iamthewindow View Post
    Okay, I am a total noob to Simba. This script looks great and would like to use it. When I download it and open it in Simba and run the scrip, my character just stands there. What should I do?
    you need to read the tutorials on how to properly set up samba ie SRL and SPS cos all scripts use this one way or another and gotta keep them uptodate as well

  22. #147
    Join Date
    Dec 2011
    Location
    USA
    Posts
    362
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ************************************************** ****************
    AdvancedBarBarianAgility v1.07 by Johnnimms13 & Co.
    Time: 5 Hours, 3 Minutes and 21 Seconds Laps 342
    We have gained 211034 Agility Experience!
    ************************************************** ****************

    heres an awesome proggie I just racked up. I put a DTM on the plate procedure.
    Currently: Very busy
    Future Goals: finish nursing school, RS later.

  23. #148
    Join Date
    Dec 2011
    Location
    USA
    Posts
    362
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by corretje View Post
    Here it is, aint that fast 43k XP an hour but it is flawless. oh .. and i copy pasted the mmblack from another barbarian agility script.

    Ah! ok, so u used the original mmblack (basically a custom autocolor). With the new random update they took out the mmblack functions I was using, but Harry put them back in Also, the thing that probably cuts the speed, is in your version you have all the "fat" that can be simplified with srl procedures. That was my biggest problem.

    my phone must hate me, sorry about the double post.
    Last edited by JN13; 03-12-2012 at 07:13 PM.
    Currently: Very busy
    Future Goals: finish nursing school, RS later.

  24. #149
    Join Date
    Mar 2012
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I've setup everything successfully. Im having problem with the script.

  25. #150
    Join Date
    Jan 2012
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by Iamthewindow View Post
    I've setup everything successfully. Im having problem with the script.
    so explain what the script is or isn't doing!

Page 6 of 13 FirstFirst ... 45678 ... LastLast

Thread Information

Users Browsing this Thread

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

Tags for this Thread

Posting Permissions

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