Page 4 of 4 FirstFirst ... 234
Results 76 to 93 of 93

Thread: [Rewrite] Advanced Barbarian Agility

  1. #76
    Join Date
    Nov 2011
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by firevenge007 View Post
    I keep having problems with the ledge at the end.
    Last night it was smooth as butter, and did everything, but as i logged on today and tried doing it, it would never go on the ledge.
    I have the same problem since the patch today, takes a few minutes to go over the last ledge, sometimes it finds it eventually, sometimes it just times out, immediately logs back in and finds the ledge, usually. Otherwise this is perfect, running 6 or 7 hours without fail.

    edit: Another thing I've noticed, that started today. Sometime's it clicks on the right-most rope swing, instead of the left one like normal, and then just goes back to the start and begins the lap again.
    Last edited by kumatora; 02-07-2012 at 05:43 PM.

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

    Default

    Quote Originally Posted by kumatora View Post
    I have the same problem since the patch today, takes a few minutes to go over the last ledge, sometimes it finds it eventually, sometimes it just times out, immediately logs back in and finds the ledge, usually. Otherwise this is perfect, running 6 or 7 hours without fail.

    edit: Another thing I've noticed, that started today. Sometime's it clicks on the right-most rope swing, instead of the left one like normal, and then just goes back to the start and begins the lap again.
    how did you run it for so long? I get caught after 1-2 hours eventually because of the random events.

  3. #78
    Join Date
    Jan 2012
    Posts
    83
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    It Swings the rope twice :/
    Edit: Now it keeps swinging the rope nonstop.

    14
    Slide down roof
    99
    (2015, 2430)
    False
    0
    Walk to beginning Point(2045, 2430)
    99
    (2045, 2425)
    False
    1
    Swing on rope
    Time: 26 Minutes and 58 Seconds
    We have gained 39688366 Agility Experience!
    We are gaining 714676 Agility Experience per Hour!
    99
    (2050, 2425)
    False
    0
    Walk to beginning Point(2045, 2430)
    99
    (2035, 2440)
    False
    0
    Walk to beginning Point(2045, 2430)
    99
    (2045, 2425)
    False
    1
    Swing on rope
    Time: 27 Minutes and 15 Seconds
    We have gained 39688388 Agility Experience!
    We are gaining 707216 Agility Experience per Hour!
    99
    (2050, 2445)
    False
    2
    Walk across log balance
    Last edited by newy1; 02-09-2012 at 11:23 PM.

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

    Default

    Quote Originally Posted by johnnimms13 View Post
    I'm working on a complete rewrite, probably have it stable in a week.
    Its stable but 15-20k an hour at this course is not optimalish.

  5. #80
    Join Date
    Feb 2012
    Location
    West Virginia
    Posts
    387
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Default

    Quote Originally Posted by Technologic View Post
    Its stable but 15-20k an hour at this course is not optimalish.


    hopefully its done soon. i can use me some agility exp

  6. #81
    Join Date
    Feb 2012
    Location
    Denver, CO
    Posts
    863
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I mostly need it for the 200 laps I have left to get my Agile Top and finish the Frem Elite Tasks.

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

    Default

    this shit working or broke?

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

    Default

    Ok, I overhauled it but it still needs work. I raised it by about 10k exp, but it still runs around 39-45k exp/hr. Realistically without OGL or a miracle its hard to make it faster

    So here it is:
    P.S. It still gets stuck on the ledge, I have plans to fix it, but this is all I have for now.

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

                                      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.

    ---------------------------------------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
      ar = 0;          //AntiRandom switch (0 = off, 1 = on)
      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, ExpHr,
      StartingXP:Integer;
      aFound:Extended;
      myPos: TPoint;
      DTM: array [0..8] of integer;
      PieGo: Boolean;

    procedure AntiBan;
    begin
      if not(LoggedIn)then
      Exit;
      case 300 of
        0: HoverSkill('Agility', false);
        1: PickUpMouse;
        2: RandomMovement;
        3: RandomRClick;
      end;
    end;
    procedure SetDTMs;
    begin
      DTM[0] := DTMFromString('mlwAAAHicY2dgYFjNyMAwF4h3MELYa4B4HxBPA+ImIK6D4i6oGIhdD8RaqrwMlYWxYGygzc+gq8EH5/MDzcWFGfFgKAAA+1wPEQ==');
      DTM[1] := DTMFromString('m6wAAAHic42ZgYMhgZGBIZ4TQAUAcBMTNQFwBxIFQ2hGKZwLxciCeAMTrgLgdiFcDcQcQzwbiGUC8Foi7gbi/qZohNFSKwd9PgiEq0IYhyV+bIT1IlyE91oXB1VANTKcXdTHU96xk4Ae6g1jMRAJGAgB2cRcQ');
      DTM[2] := DTMFromString('mFQEAAHic42VgYHgHxHuB+AQjA8NnIF4OxP+B/GdA/BmIpYB8ASC+AsQXgPgfUKwOSIsBsSAQOwPxU6DYWyB2ALK9gDgLiKuAmAuIDYCYGYj93E0YEnxMGSrblzDkVk1mcDFUY8hL8WQIsJVgiA62ZQh1lGLwc1JiaOpbwZBZ3MVQkRvAwA80k1TMSAZGAQACvBzJ');
      DTM[3] := DTMFromString('mkwEAAHicE2ZgYKhhZGAoBuIiIC4E4gJGiFg7EHdAcRuUDxKPB+J6IF4OxIlAXAfE04F4IxBrAbEVEOsAsQwQCwCxMJSWBmJVINaDqjEEYk8g9oZiFiD+BXQPO5AWAuKqJBeGzjxfhuIYB4byeCeG2TXhDPPrIxlmVocxlMY6MlQkOINxd74fWK2/owQYh7pJMQTbSzL4WIkzxIXagzE/0FxqYSYqYiwAAPEbInA=');
      DTM[4] := DTMFromString('mKgEAAHic42NgYPBnZGB4CKQFgbQbEMcBcQ0QLwTidUC8CohXAvFMIM4BYjsg/g1U/xqIbYBsDyAOA+IyII4C4mAgtgdifiB+B1RzBIj3APECIJ4PxCkBFgzBbnoM6UGWDFEeRgz+NhIMMZ7GDMHOKgxJkU4MSd5yDHEesgyhjlJgfHx5PsOBhdkM/4F6+cnATGRiVAAA+zEdZw==');
      DTM[5] := DTMFromString('mrAAAAHic42BgYDBiZGBQBGInIA4EYl4gNgBiLSC2AuI2IO4E4g4gngPEs4B4GRCXQPHzhycYGnI8GFryvRh2bN3AMLs5nOHlo5MMp1cVMhxclMPwH2gHPx7MSADDAACXeBZH');
      DTM[6] := DTMFromString('m6wAAAHic42ZgYNjOyMCwD4i3AfE5IL4BxK+BeC4QLwDiaiCuA+I5QHwcqu42EO8G4ptAfAKITwLxZiDuAeL7QPwMiPMSvBi8rcQZoj01GAJsJcF0fUEoQ7i/M4ONqQbD788rGQqi7MGYH+gOYjEjCRgJAAB0PRxC');
      DTM[7] := DTMFromString('mrAAAAHic42BgYLBgZGBwg2IjIDYEYhUgDgdiaSA+CVRzB4i3AvEbIN4ExK+A+AQQHwPiIA9zhqQgc4boYDeGJC9thgw/PYbG+hqGtFg/hkgXGQYRoBp8mJEAhgEA+WsQlw==');
      DTM[8] := DTMFromString('m6wAAAHic42ZgYLjPyMCgzMTAIA3E54DsXUB8FYgPAPEdIH4CxPuB+AgQ1wDxHiDOAOJOIG4H4iwgTgHiBUAcDcTWQLwYiJ1sjBlC3Q0YYkLcGZysdFAwSCwuyJ7h4KJchu2z0hn4ge4gFjOSgJEAAMpXGCo=');
    end;
    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;
    {///////////////////////////////by RyGay///////////////////////////////////////}
    procedure Report;
    var
      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 AntiRandoms;
    begin
      if ((not LoggedIn) or (ar = 0)) then Exit;
      FindNormalRandoms; // find random events
    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((IsMoving) and (t < 12)) do
        begin
        writeLn('Sleeping'+tostr(t));
        sleep(350+random(5))
        t:=t+1;
        end;
    end;
     {/////////////////////////////by Johnnimms13//////////////////////////////////}
    procedure EatPie;
    var SPie, HPie, x, y: integer;
    begin
      if PieGo then
      begin
      if PieLevel > 0 then
      begin

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

      if GetSkillInfo('agility', True) < (PieLevel+1) then
      begin
        writeln('below 91 agility, trying to find pie');
      if ExistsItemDTM(spie, x, y) then
        begin
          writeln('found pie');
          mouse(x, y, 2, 2, true);
        end else
      if ExistsItemDTM(hpie, x, y) then
        begin
          writeln('found 1/2 pie');
          mouse(x, y, 2, 2, true);
        end else
          begin
            writeln('no pies!')
            if PLogOut = True then
              begin
              logout;
              TerminateScript;
              end;
          end;
         end else
          begin
          writeln('No Pie for you!');
          end;
         freedtm(SPie);
         FreeDtm(HPie);
        end;
        PieGo := False;
       end;
      end;
    {//////////////////////////////////////////////////////////////////////////////}
    function getLocation(): integer;
    var First, Second, Third, Fourth: 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


          if ((distanceTo(First) <= 5) and (myPos.y < 2435)) then
            begin
              result:=1;
              exit;
            end;
          if (distanceTo(Second) <= 5) 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
      SetDTMs;
      case spot of

      0:
        begin
          AntiRandoms;
          EatPie;
          writeln('Walk to beginning Point(2045, 2430)');
          SPS_WalkToPos(Point(2045, 2430));
          sleepWhileMoving();
        end;

      1:
        begin
          writeln('rope');
          if FindDTMRotated(DTM[0], x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
            begin
              Mouse(x, y, 3, 3, True);
              sleep(2300+random(175));
              sleepWhileMoving();
              Report;
            end;
        end;

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

      3:
        begin
        writeln('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(800+random(150));
            sleepWhileMoving();
          end;
        end;

        4:
          begin
          WriteLn('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(5500+random(150));
              sleepWhileMoving();
            end;
          end;

      10:
        begin
        MMouse(205, 120, 3, 3);
        writeln('Climb up Ledge');
        if isUptextEx('all') then
          begin
            ClickMouse2(true);
            sleep(3300+random(150));
            sleepWhileMoving();
          end
        end;

      11:
        begin
        mmouse( 142, 177, 3, 3);
        writeln('Fire the Springy Thingy!');
        if isuptext('pring') then
          begin
            clickmouse2(true);
            sleep(4300+random(150));
            sleepWhileMoving();
          end;
        end;

      12:
        begin
          writeln('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;
        end;

      13:
        begin
          writeln('Gap');
          MMouse(267, 176, 2, 2);
         if isUptextEx('ump') then
          begin
          ClickMouse2(True);
          wait(3000+random(100));
         end;
        end;

      14:
        begin
          WriteLn('WEEEEEE!');
          MMouse(330, 178, 2, 2);
        if isUptextEx('oof') then
          begin
          ClickMouse2(True);
          Sleep(1300 + random(200));
          wait(2500+random(100));;
          PieGo := True;
        end;
       end;
      end;
     FreeDTMs;
    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);

      if not(LoggedIn) then
        LogMeIn;
      while not(LoggedIn) do
        sleep(1000);
      MakeCompass('n');
      SetAngle(SRL_ANGLE_HIGH);
      while(true) do //Main loop
        begin
          while not(LoggedIn) do
            LoginPlayer;
          handleObstacle(getLocation());
          myPos := SPS_GetMyPos();
         // writeln(Wfloor());
         // writeln(myPos);
        end;
    end.
    Currently: Very busy
    Future Goals: finish nursing school, RS later.

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

    Default

    Quote Originally Posted by johnnimms13 View Post
    Ok, I overhauled it but it still needs work. I raised it by about 10k exp, but it still runs around 39-45k exp/hr. Realistically without OGL or a miracle its hard to make it faster

    So here it is:
    P.S. It still gets stuck on the ledge, I have plans to fix it, but this is all I have for now.

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

                                      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.

    ---------------------------------------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
      ar = 0;          //AntiRandom switch (0 = off, 1 = on)
      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, ExpHr,
      StartingXP:Integer;
      aFound:Extended;
      myPos: TPoint;
      DTM: array [0..8] of integer;
      PieGo: Boolean;

    procedure AntiBan;
    begin
      if not(LoggedIn)then
      Exit;
      case 300 of
        0: HoverSkill('Agility', false);
        1: PickUpMouse;
        2: RandomMovement;
        3: RandomRClick;
      end;
    end;
    procedure SetDTMs;
    begin
      DTM[0] := DTMFromString('mlwAAAHicY2dgYFjNyMAwF4h3MELYa4B4HxBPA+ImIK6D4i6oGIhdD8RaqrwMlYWxYGygzc+gq8EH5/MDzcWFGfFgKAAA+1wPEQ==');
      DTM[1] := DTMFromString('m6wAAAHic42ZgYMhgZGBIZ4TQAUAcBMTNQFwBxIFQ2hGKZwLxciCeAMTrgLgdiFcDcQcQzwbiGUC8Foi7gbi/qZohNFSKwd9PgiEq0IYhyV+bIT1IlyE91oXB1VANTKcXdTHU96xk4Ae6g1jMRAJGAgB2cRcQ');
      DTM[2] := DTMFromString('mFQEAAHic42VgYHgHxHuB+AQjA8NnIF4OxP+B/GdA/BmIpYB8ASC+AsQXgPgfUKwOSIsBsSAQOwPxU6DYWyB2ALK9gDgLiKuAmAuIDYCYGYj93E0YEnxMGSrblzDkVk1mcDFUY8hL8WQIsJVgiA62ZQh1lGLwc1JiaOpbwZBZ3MVQkRvAwA80k1TMSAZGAQACvBzJ');
      DTM[3] := DTMFromString('mkwEAAHicE2ZgYKhhZGAoBuIiIC4E4gJGiFg7EHdAcRuUDxKPB+J6IF4OxIlAXAfE04F4IxBrAbEVEOsAsQwQCwCxMJSWBmJVINaDqjEEYk8g9oZiFiD+BXQPO5AWAuKqJBeGzjxfhuIYB4byeCeG2TXhDPPrIxlmVocxlMY6MlQkOINxd74fWK2/owQYh7pJMQTbSzL4WIkzxIXagzE/0FxqYSYqYiwAAPEbInA=');
      DTM[4] := DTMFromString('mKgEAAHic42NgYPBnZGB4CKQFgbQbEMcBcQ0QLwTidUC8CohXAvFMIM4BYjsg/g1U/xqIbYBsDyAOA+IyII4C4mAgtgdifiB+B1RzBIj3APECIJ4PxCkBFgzBbnoM6UGWDFEeRgz+NhIMMZ7GDMHOKgxJkU4MSd5yDHEesgyhjlJgfHx5PsOBhdkM/4F6+cnATGRiVAAA+zEdZw==');
      DTM[5] := DTMFromString('mrAAAAHic42BgYDBiZGBQBGInIA4EYl4gNgBiLSC2AuI2IO4E4g4gngPEs4B4GRCXQPHzhycYGnI8GFryvRh2bN3AMLs5nOHlo5MMp1cVMhxclMPwH2gHPx7MSADDAACXeBZH');
      DTM[6] := DTMFromString('m6wAAAHic42ZgYNjOyMCwD4i3AfE5IL4BxK+BeC4QLwDiaiCuA+I5QHwcqu42EO8G4ptAfAKITwLxZiDuAeL7QPwMiPMSvBi8rcQZoj01GAJsJcF0fUEoQ7i/M4ONqQbD788rGQqi7MGYH+gOYjEjCRgJAAB0PRxC');
      DTM[7] := DTMFromString('mrAAAAHic42BgYLBgZGBwg2IjIDYEYhUgDgdiaSA+CVRzB4i3AvEbIN4ExK+A+AQQHwPiIA9zhqQgc4boYDeGJC9thgw/PYbG+hqGtFg/hkgXGQYRoBp8mJEAhgEA+WsQlw==');
      DTM[8] := DTMFromString('m6wAAAHic42ZgYLjPyMCgzMTAIA3E54DsXUB8FYgPAPEdIH4CxPuB+AgQ1wDxHiDOAOJOIG4H4iwgTgHiBUAcDcTWQLwYiJ1sjBlC3Q0YYkLcGZysdFAwSCwuyJ7h4KJchu2z0hn4ge4gFjOSgJEAAMpXGCo=');
    end;
    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;
    {///////////////////////////////by RyGay///////////////////////////////////////}
    procedure Report;
    var
      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 AntiRandoms;
    begin
      if ((not LoggedIn) or (ar = 0)) then Exit;
      FindNormalRandoms; // find random events
    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((IsMoving) and (t < 12)) do
        begin
        writeLn('Sleeping'+tostr(t));
        sleep(350+random(5))
        t:=t+1;
        end;
    end;
     {/////////////////////////////by Johnnimms13//////////////////////////////////}
    procedure EatPie;
    var SPie, HPie, x, y: integer;
    begin
      if PieGo then
      begin
      if PieLevel > 0 then
      begin

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

      if GetSkillInfo('agility', True) < (PieLevel+1) then
      begin
        writeln('below 91 agility, trying to find pie');
      if ExistsItemDTM(spie, x, y) then
        begin
          writeln('found pie');
          mouse(x, y, 2, 2, true);
        end else
      if ExistsItemDTM(hpie, x, y) then
        begin
          writeln('found 1/2 pie');
          mouse(x, y, 2, 2, true);
        end else
          begin
            writeln('no pies!')
            if PLogOut = True then
              begin
              logout;
              TerminateScript;
              end;
          end;
         end else
          begin
          writeln('No Pie for you!');
          end;
         freedtm(SPie);
         FreeDtm(HPie);
        end;
        PieGo := False;
       end;
      end;
    {//////////////////////////////////////////////////////////////////////////////}
    function getLocation(): integer;
    var First, Second, Third, Fourth: 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


          if ((distanceTo(First) <= 5) and (myPos.y < 2435)) then
            begin
              result:=1;
              exit;
            end;
          if (distanceTo(Second) <= 5) 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
      SetDTMs;
      case spot of

      0:
        begin
          AntiRandoms;
          EatPie;
          writeln('Walk to beginning Point(2045, 2430)');
          SPS_WalkToPos(Point(2045, 2430));
          sleepWhileMoving();
        end;

      1:
        begin
          writeln('rope');
          if FindDTMRotated(DTM[0], x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
            begin
              Mouse(x, y, 3, 3, True);
              sleep(2300+random(175));
              sleepWhileMoving();
              Report;
            end;
        end;

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

      3:
        begin
        writeln('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(800+random(150));
            sleepWhileMoving();
          end;
        end;

        4:
          begin
          WriteLn('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(5500+random(150));
              sleepWhileMoving();
            end;
          end;

      10:
        begin
        MMouse(205, 120, 3, 3);
        writeln('Climb up Ledge');
        if isUptextEx('all') then
          begin
            ClickMouse2(true);
            sleep(3300+random(150));
            sleepWhileMoving();
          end
        end;

      11:
        begin
        mmouse( 142, 177, 3, 3);
        writeln('Fire the Springy Thingy!');
        if isuptext('pring') then
          begin
            clickmouse2(true);
            sleep(4300+random(150));
            sleepWhileMoving();
          end;
        end;

      12:
        begin
          writeln('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;
        end;

      13:
        begin
          writeln('Gap');
          MMouse(267, 176, 2, 2);
         if isUptextEx('ump') then
          begin
          ClickMouse2(True);
          wait(3000+random(100));
         end;
        end;

      14:
        begin
          WriteLn('WEEEEEE!');
          MMouse(330, 178, 2, 2);
        if isUptextEx('oof') then
          begin
          ClickMouse2(True);
          Sleep(1300 + random(200));
          wait(2500+random(100));;
          PieGo := True;
        end;
       end;
      end;
     FreeDTMs;
    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);

      if not(LoggedIn) then
        LogMeIn;
      while not(LoggedIn) do
        sleep(1000);
      MakeCompass('n');
      SetAngle(SRL_ANGLE_HIGH);
      while(true) do //Main loop
        begin
          while not(LoggedIn) do
            LoginPlayer;
          handleObstacle(getLocation());
          myPos := SPS_GetMyPos();
         // writeln(Wfloor());
         // writeln(myPos);
        end;
    end.
    So far so good , though can you make it faster when it is trying to climb up the wall? it clicks, but clicks wrong then it stands there for 5 seconds and then it clicks and it climbs up, every lap.
    Best version I had so far .

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

    Default

    Unable to get it started any more.

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

    Default

    Quote Originally Posted by newy1 View Post
    Unable to get it started any more.
    Can u be more specific? Like what does the Debug say?
    Currently: Very busy
    Future Goals: finish nursing school, RS later.

  12. #87
    Join Date
    Jan 2012
    Posts
    83
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Quote Originally Posted by johnnimms13 View Post
    Can u be more specific? Like what does the Debug say?
    Couldn't load Smart. I'm running other scripts too only this script was having the problem. But it's working now.
    Last edited by newy1; 02-13-2012 at 05:49 PM.

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

    Default

    Stuck on last obstacle.

  14. #89
    Join Date
    Feb 2012
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Exception in Script: Unable to find file 'SRL/SRL/misc/SMART.simba' used from ''


    says this when i try to run it....what do i do?

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

    Exclamation

    News: Failed4Life has given me authorization to take over this thread. I plan on moving it to another one soon!
    Currently: Very busy
    Future Goals: finish nursing school, RS later.

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

    Default

    Quote Originally Posted by johnnimms13 View Post
    News: Failed4Life has given me authorization to take over this thread. I plan on moving it to another one soon!
    Cool, how do you mean moving it to another one?
    And what are your future updates on the script?

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

    Default

    The script needs to be really lean to be fast enough to look human. I plan on speed increases, more options for food, and basic upkeep. But for now, I'm going to enter into Sin's competition with another script ive been working on...
    Currently: Very busy
    Future Goals: finish nursing school, RS later.

  18. #93
    Join Date
    Jul 2007
    Location
    Right now? Chair.
    Posts
    8,488
    Mentioned
    3 Post(s)
    Quoted
    12 Post(s)

    Default

    Closed on request.

    -RM

    I & I know Zion. It is in the spirit, body and mind of every one of us
    RMouse(obj: TMSIObject): boolean;

Page 4 of 4 FirstFirst ... 234

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
  •