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 1 of 13 12311 ... LastLast
Results 1 to 25 of 321

Thread: Advanced Barbarian Agility

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

    Default Advanced Barbarian Agility




    Needs SPS 2, Currently Not working. If you would like to pick up this project, PM Me PLZ!

    99's:
    Zockuito


    This script was originally written by Anyhow, Dug up by Failed4Life, and further reworked by Johnnimms13.

    To use the Alert Feature: I have included my favorite alert sound, unzip it and place it in simba/scripts. it will play 5x by default. if you do not like it or want your script to blast "something's wrong by (guess who) then make it 0! Also, if you know how, just change the path to whatever sound you desire


    v1.06 - Fixed Annoying Logout Glitch, added more human like behavior. Now checks for pies alot*.
    v1.07 - Breaks, Standards, StatsGuise, Reports, Timesaving shortcuts, and lots of goodies.
    v1.08 - Fixes Due to SRL update.
    v1.081 - Tweaks
    v1.082 - Tweaks.
    v1.083 - Faster, Better, More robust code (TY Rice), and a .txt save report for those of you using SMARTManager.
    v1.1 - Stable Version.
    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.04 - Code Overhaul
      v1.05 - faster leaner code and more randomness. TY FootballJDS
      v1.051 - more failsafes.
      v1.06 -  Multiple DTM's and better failsafes.
      v1.07 - Standards, StatsGuise, Breaks, Report, ShortCuts, better Pie & Random Support.
      v1.08 - Bug fixes from recent SRL updates.
      v1.081 - Tweaks.
      v1.082 - Tweaks.
      v1.083 - Faster runs, Text file report, and tweaks.
     -------------------------------------------------------------------------------

                                      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.

         The Report will save to simba/scripts apon termination, and will be named
           ABBA_Report.Txt.  This script is usable with the Script manager.

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

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

      Alert = 5;                             //How many times should it warn you?
      SoundP = 'C:/Simba/Scripts/alert.wav'; // Alarm, use your own file, or the one provided

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

      ar = True;       //AntiRandom switch, turn of at your own risk.
      amount = 100;    //How much antiban?  -->  5 (highest) <-> 200 (lowest)
      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;
      loads, BreakTime, LogTime,
      LedgeCount, PF, Sound:Integer;
      aFound, EXP:Extended;
      myPos: TPoint;
      DTM: array [0..9] of integer;

    procedure AntiBan;
    begin
      if not(LoggedIn)then
        Exit;

    case random(Amount) of
      0: HoverSkill('Agility', false);
      1: PickUpMouse;
      3: RandomRClick;
      //4: BoredHuman;                  Uncomment this at your own risk (moves camera)
      //5: Wait(40000 + Random(1000));  This gives you a 'mini break'  I just didn't like it.
    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 '             );
      WriteLn('********************************************************************');
        if Alert > 0 then
          begin
          WriteLn('                         Sounding Alarm');
            repeat
             Playsound(SoundP);
             IncEx(Sound, 1);
             wait(1025);
            until(Sound = Alert);
          end;
      SRLRandomsReport;
      Logout;
      TerminateScript;
    end;

    procedure SetDTMs;
    begin
      DTM[0] := DTMFromString('mbQAAAHicY2UAAkYGBn4gfgBk/gNiAyB7B5DezgChDwDxViDWUuVhqCtNAGNJMXYwnx8ojo4ZsWAwAAC5iwmk');
      DTM[1] := DTMFromString('mWAAAAHicY2FgYHgBxM+h+BAQKzIyMIgDsQ4QqwLx4im9DH6+EgwW5oIMWooyDPxANciYEQ2DAADa9geo');
      DTM[2] := DTMFromString('mbQAAAHicY2VgYLgIxLeA+DYQnwLinUDsxcjAEA/EwUAcAcRWQLx86UQGd2sxBj93U4Zkbx2GKeUhDPxAteiYEQsGAwBGHQtq');
      DTM[3] := DTMFromString('mggAAAHicY2MAAkYGBm4g/g9kfgNiUSD7FZDeB8RzgHgBEM8H4iVAvAaIXczVGHLCbRmS/MzBOCPYmiElwIKBHyiHDTPiwBAAADIaDKM=');
      DTM[4] := DTMFromString('mggAAAHicY2NgYKgD4kVA3AvE/UC8CohnAPEuIN4JxMeBeAUQHwDirUDcU+bHMKEygOHU0fUMTlY6DJ3FPgzNeZ4M/EA5bJgRB4YAAFk6EE0=');
      DTM[5] := DTMFromString('mbQAAAHicY2VgYGBmZGB4A6RlGCFsFiC+DeQ/BuInQPwHiE8C8a6tCxm6S3wZ6jLdGG5d2cNwdk0RAz9QHB0zYsFgAAC8QA6x');
      DTM[6] := DTMFromString('mggAAAHicY2NgYHBlZGCwBWIbIJYD4lwgbgbitUC59UC8EogrgPglEM8H4iAPc4bw0GCGmqoyhrXLixmig20ZfKzEGfiBctgwIw4MAQANxwzJ');
      DTM[7] := DTMFromString('mggAAAHicY2NgYJBiZGAwBGIlINYG4u9AMTUgvRZIrwHio0A8CYgrgZgBKF5SlM8Q7mPFEOsuw+BkJMKwfmUJQ1qMCwMuwIgDQwAAl3MLPQ==');
      DTM[8] := DTMFromString('mbQAAAHicY2VgYPjLyMBwCYhrgPglEL8H4hlA8UVA/B6IS4E4C4jd7dQZ9NXlGXh5eBhCfS0YPK0VGPiB4uiYEQsGAwAmrQpK');
      DTM[9] := DTMFromString('mlwAAAHicY2dgYDgHxLuB+AWULcbIwHAdSB8EYl0g9gBidyCOBGJXIPYCYh8glpXkYDDSVGSw0FVl8HRzY7A31mJwt1Nn8HTQZOAHyuPCTHgwFAAAvJkLcA==');
    end;

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

    procedure Report;
    begin
      ClearDebug;
      Exp := (Loads * 740.7);
      WriteLn('******************************************************************');
      WriteLn('      AdvancedBarBarianAgility v1.07  by Johnnimms13 & Co.');
      WriteLn('Time: ' + TimeRunning + '  Laps ' + IntToStr(Loads));
      WriteLn('We have gained ' + ToStr(Round(Exp)) + ' Agility Experience!');
      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 = False) 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;

    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 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;

    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((PixelShift(IntToBox(MMCX-75, MMCY-75, MMCX+75, MMCY+75), 500) > 200) and (t < 7)) do
      begin
        StatsGuise('Sleeping '+tostr(t));
        sleep(250+random(5))
        t:=t+1;
      end;
    end;

    procedure WBack;
    begin
      SPS_WalkToPos(Point(2045, 2430));
    end;

    function getLocation(): integer;
      var First, Second, Third, Fourth, Fifth: TPoint;
    begin
      result := 0;
      if (PercentBlackMM > 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
      Fifth := Point(2015, 2430);   //After Slide

    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;

    if (distanceTo(Fifth) <= 10) then
      begin
        result:=15;
        exit;
      end;

    end;
    end;
    procedure handleObstacle(spot: integer);
    begin
      SetDTMs;
      begin

      case spot of

      0:
      begin
        LedgeCount := 0;
        StatsGuise('Walk to beginning');
        WBack;
        sleepWhileMoving();
      end;

      1:
      begin
        begin

        if FindDTMRotated(DTM[0], x, y, 135, 135, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
          begin
            StatsGuise('rope');
            Mouse(x, y, 3, 3, True);
            sleep(3000+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) then
          begin
            Mouse(x, y, 3, 3, True);
            sleep(1900+random(150));
            sleepWhileMoving();
          end;
      end;

    {////////////////////////////////Added by Rice/////////////////////////////////}
     3:
      begin
        StatsGuise('Going To Jump');
        MakeCompass('280');
        sleep(100 + random(50));
       if FindDTMRotated(DTM[2], x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
      begin
          MMouse(x, y, 0, 0);
          wait(10)
          clickmouse2(true);
          flag;
          sleep(3900 + random(50));
          sleepWhileMoving();
          ClickNorth(SRL_ANGLE_HIGH);
        end;
      end;
    {//////////////////////////////////////////////////////////////////////////////}
    4:
      begin
        StatsGuise('hitting plate');
           if FindDTMRotated(DTM[3], x, y, 189, 132, 295, 218, -Pi, Pi, Pi/30, aFound) then
            begin
              Mouse(x, y, 3, 3, True);
              sleep(3300+random(150));
              sleepWhileMoving();
            end
      end;

      10:
      begin
        IncEx(LedgeCount, 1);
        WriteLn(ToStr(LedgeCount));
        if LedgeCount > 20 then
          begin
            WriteLn('Sat at the Ledge too Long, Logging out');
            LogPlayer;
          end;

        MMouse(205, 120, 3, 3);
        wait(100 + random(25));
        StatsGuise('Climb up Ledge');
        if isUptextEx('all') then
          begin
            ClickMouse2(true);
            sleep(4400+random(150));
            sleepWhileMoving();
            exit;
          end
      end;

      11:
      begin
        LedgeCount := 0;
        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);
          if DidRedClick then
          begin
          sleep(4600+random(150));
          sleepWhileMoving();
        end else

      begin
        WriteLn('blind spring Click Failed... trying first DTM');
        if FindDTMRotated(DTM[5], x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
          begin
            Mouse(x, y, 3, 3, True);
            sleep(3000+random(150));
            sleepWhileMoving();
          end else
            begin
            WriteLn('Second spring DTM failed... Trying second');
            if FindDTMRotated(DTM[4], x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
              begin
                Mouse(x, y, 3, 3, True);
                sleep(3000+random(150));
                sleepWhileMoving();
              end;
             end;
             end;
      end;
      end;

      12:
      begin
        StatsGuise('Pole');
        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
        writeln('Pole 2');
        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

              If PF >= 10 then
                LogPlayer;

              IncEx(PF, 1);
              exit;
            end;
      end;
      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);
            wait(2500+random(100));
            sleepWhileMoving;
            wait(200 + random(100));
          end;
      end;

       15:
       begin
        report;
        if FindDTMRotated(DTM[8], x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
          begin
          StatsGuise('ShortCut');
          Mouse(x, y, 3, 3, True);
          sleep(600+random(70));
          MMouse(255, 185, 5, 5);
          sleep(200+random(70));
          sleepWhileMoving();
          end else
            begin
            StatsGuise('SPS...');
            WBack;
            end;
      end;


    end;
    end;
    MarkTime(LogTime);
    FreeDTMs(DTM);
    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
      LoginPlayer;
    end;

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

    Smart_Server := SERVER;
    Smart_Members := True;

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

    ResetBreakTimer;

    if not(LoggedIn) then
      LogMeIn;

    while not(LoggedIn) do
      sleep(1000);

    ClickNorth(SRL_ANGLE_HIGH);

    while(true) do //Main loop
      begin

      while not(LoggedIn) do
        LoginPlayer;

        EatPie;     // if 93+ agility comment this line to speed up your script.
        TakeBreak;  //               Same if not breaking
        AntiRandoms;//               Ditto.

        handleObstacle(getLocation());
        myPos := SPS_GetMyPos();
        if TimeFromMark(LogTime) > 100000 Then
          begin
            WriteLn('Idle Too Long');
            LogPlayer;
          end;
      end;
    end.
    Last edited by JN13; 06-21-2012 at 07:03 AM. Reason: version update

  2. #2
    Join Date
    Feb 2007
    Location
    PA, USA
    Posts
    5,240
    Mentioned
    36 Post(s)
    Quoted
    496 Post(s)

    Default

    oh god, i don't like the way that is coded. :P

  3. #3
    Join Date
    Oct 2009
    Posts
    63
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by footballjds View Post
    oh god, i don't like the way that is coded. :P
    In what way?

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

    Default

    Quote Originally Posted by footballjds View Post
    oh god, i don't like the way that is coded. :P
    LOL! ill work on it tonight, I'm still new, care to help me?
    Last edited by JN13; 02-16-2012 at 11:38 PM. Reason: had a thought
    Currently: Very busy
    Future Goals: finish nursing school, RS later.

  5. #5
    Join Date
    Feb 2007
    Location
    PA, USA
    Posts
    5,240
    Mentioned
    36 Post(s)
    Quoted
    496 Post(s)

    Default

    Quote Originally Posted by Kidlington View Post
    In what way?
    Simba Code:
    Procedure FreeDTMs;
    begin
      FreeDTM(DTM[0]);
      FreeDTM(DTM[1]);
      FreeDTM(DTM[2]);
      FreeDTM(DTM[3]);
      FreeDTM(DTM[4]);
      FreeDTM(DTM[5]);
      FreeDTM(DTM[6]);
      FreeDTM(DTM[7]);
      FreeDTM(DTM[8]);
    end;

    point in case...

    Quote Originally Posted by johnnimms13 View Post
    LOL! ill work on it tonight, I'm still new, care to help me?
    Sure I can help if you have something specific. I'd rather not just edit your entire script though :P

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

    Default

    ok, so more TPA use for long lists?
    Currently: Very busy
    Future Goals: finish nursing school, RS later.

  7. #7
    Join Date
    Feb 2007
    Location
    PA, USA
    Posts
    5,240
    Mentioned
    36 Post(s)
    Quoted
    496 Post(s)

    Default

    Quote Originally Posted by johnnimms13 View Post
    ok, so more TPA use for long lists?
    you're using an array, why not loop through it?

    for example: "For i := 0 to High(DTM) do FreeDTM(DTM[i]);"

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

    Default

    tutorials here I come

    Simba Code:
    Procedure FreeDTMs; //Thank you Footballjds
    var
    i:integer;
    begin
      for i := 0 to High(DTM) do FreeDTM(DTM[i]);

    end;

    btw, is there a way to not call High(DTM) all the time?
    Last edited by JN13; 02-16-2012 at 11:58 PM.
    Currently: Very busy
    Future Goals: finish nursing school, RS later.

  9. #9
    Join Date
    Dec 2011
    Posts
    39
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    still fails at crossing the pole :/

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

    Default

    Quote Originally Posted by InHuman View Post
    still fails at crossing the pole :/
    ok, please explain further. where and why does it fail?
    Currently: Very busy
    Future Goals: finish nursing school, RS later.

  11. #11
    Join Date
    Dec 2011
    Posts
    39
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by johnnimms13 View Post
    ok, please explain further. where and why does it fail?
    usually right when it crosses the gap, it says "finding pole" forever and doesnt find it :P

    Last edited by InHuman; 02-17-2012 at 05:05 AM.

  12. #12
    Join Date
    Dec 2011
    Posts
    109
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Is this the same version that u posted in failed4life's thread?
    It climbs up the wall very slow, clicks to get near and then it says that it is climbing up, but it doesn't so then the failsafes starts and then it finaly climbs up, 5 seconds later then...
    After climbing up the wall, it is up the building and has to climb another thing, but after like 5 rounds it doesn't click it anymore.
    Still best barb adv script I have used so far.
    Last edited by Reinier; 02-17-2012 at 09:52 AM.

  13. #13
    Join Date
    Feb 2007
    Location
    PA, USA
    Posts
    5,240
    Mentioned
    36 Post(s)
    Quoted
    496 Post(s)

    Default

    Quote Originally Posted by johnnimms13 View Post
    tutorials here I come

    Simba Code:
    Procedure FreeDTMs; //Thank you Footballjds
    var
    i:integer;
    begin
      for i := 0 to High(DTM) do FreeDTM(DTM[i]);

    end;

    btw, is there a way to not call High(DTM) all the time?
    Glad you asked! Yes, in fact you're right. Calling High(DTM) each time is not efficient!

    Simba Code:
    Procedure FreeDTMs; //Thank you Footballjds
    var
      i, TempInt :integer;
    begin
      TempInt := High(DTM);//Now you call it only once!
      for i := 0 to TempInt do FreeDTM(DTM[i]);

    end;

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

    Default

    Quote Originally Posted by Reinier View Post
    Is this the same version that u posted in failed4life's thread?
    It climbs up the wall very slow, clicks to get near and then it says that it is climbing up, but it doesn't so then the failsafes starts and then it finaly climbs up, 5 seconds later then...
    After climbing up the wall, it is up the building and has to climb another thing, but after like 5 rounds it doesn't click it anymore.
    Still best barb adv script I have used so far.
    Ya I'm still working on that part... It seems that I'll have to go back to DTM to do that, but it might be slightly slower.

    InHuman, Ive been running the script all night, and I have yet to see it fail the pole on my end... I wonder if you have 1.04?

    And Thank you again Footballjds!
    Last edited by JN13; 02-17-2012 at 06:04 PM.
    Currently: Very busy
    Future Goals: finish nursing school, RS later.

  15. #15
    Join Date
    Dec 2011
    Posts
    39
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    its this version :/
    i'll try it again when i get home doe

  16. #16
    Join Date
    Jan 2012
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It's failing a lot at the log (second agility object)
    Actuality it always fails there.

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

    Default

    Hmm... It must somehow work different when it leaves my computer... I'll have an update up soon. (5 days or so)
    Currently: Very busy
    Future Goals: finish nursing school, RS later.

  18. #18
    Join Date
    Nov 2011
    Posts
    44
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    how is this script doing? any proggies? can it run for over an hour? im very interested in using this, instead of ry guys ape atol agility runner...

    edit: It ran for an hour, there was a few missclicks causing it to sit until i fixed it. other than that ran ok. im level 87 using summer pies. If this had a few failsafes were it could realize if i didnt finish an obsticale and clicked it again, it would be perfect. Also if it could check agility more often for summer pies. That would be great
    Last edited by jabookman; 02-21-2012 at 11:14 PM.

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

    Default

    It needs to check the agility lvl for summer pies at the wall climb obstacle rather than the start of the lap otherwise it will drop below 90 before it reaches the wall climb and gets stuck

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

    Default

    6 days later, anything new?

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

    Default

    Time: 44 Minutes and 50 Seconds
    We have gained 103174846 Agility Experience!
    We are gaining 776452 Agility Experience per Hour!

    Forgot to open xp tab when I ran it but it worked well, probably the highest agility xp/hr on the site atm. Only problem was it started to hover just a pixel or two away from the climb ledge thing, but it always found it after a couple of seconds.

    I'll do another run now and post the results.

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

    Default

    Sigh, tried to put that new OGL plugin in it, got it working kinda... just to glitchy(plus I don't have the time to figure out why yet). so ill get some failsafes in it and fix some hovers.


    So EXCITED FOR OGL!~!!

    Quote Originally Posted by tdawg777 View Post
    Time: 44 Minutes and 50 Seconds
    We have gained 103174846 Agility Experience!
    We are gaining 776452 Agility Experience per Hour!
    Ya... I think the Report needs fixed too :/
    Last edited by JN13; 02-26-2012 at 01:47 AM.
    Currently: Very busy
    Future Goals: finish nursing school, RS later.

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

    Default

    Quote Originally Posted by johnnimms13 View Post
    Sigh, tried to put that new OGL plugin in it, got it working kinda... just to glitchy(plus I don't have the time to figure out why yet). so ill get some failsafes in it and fix some hovers.


    So EXCITED FOR OGL!~!!



    Ya... I think the Report needs fixed too :/
    Looking forward to it. The report works fine btw, you just need to have the xp tab open when you start the script. It got stuck once when it click a space north of the ledge and just sat there.

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

    Default

    Quote Originally Posted by tdawg777 View Post
    We are gaining 776452 Agility Experience per Hour!.

    If I got that amount of XP per hour, I'd have 99 years ago
    Currently: Very busy
    Future Goals: finish nursing school, RS later.

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

    Default

    Quote Originally Posted by johnnimms13 View Post
    If I got that amount of XP per hour, I'd have 99 years ago
    Same lol, I'd even consider getting 200m xp hahaha.

Page 1 of 13 12311 ... 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
  •